未ログイン時に巡回ボタンを押した場合、ログインできるようにした

[gikonavigoeson/gikonavi.git] / Round.pas

diff --git a/Round.pas b/Round.pas
index 62e6cc7..19fae85 100644 (file)
--- a/Round.pas
+++ b/Round.pas
@@ -69,9 +69,24 @@ begin
 //             GikoSys.MsgBox(msg, '\83G\83\89\81[', MB_OK or MB_ICONSTOP);
 //             Exit;
 //     end;
+{$IF Defined(FRCRND) }
+    Giko.GikoForm.LoginAction.Checked := true; // \93®\8dì\8e\8e\8c±\97p\93r
+{$IFEND}
+
+       if not Giko.GikoForm.LoginAction.Checked then begin 
+               if GikoSys.Setting.UserID <> '' then begin 
+                       msg := '\83\8d\83O\83C\83\93\82µ\82È\82¢\82Æ\8f\84\89ñ\82Í\8fo\97\88\82Ü\82¹\82ñ' + #13#10 
+                               + '\8d¡\83\8d\83O\83C\83\93\82µ\82Ü\82·\82©'; 
+                       if MsgBox(Handle, msg, '\8am\94F', MB_YESNO or MB_ICONQUESTION or MB_DEFBUTTON2) <> IDYES then begin 
+                               Exit; 
+                       end; 
+                       Giko.GikoForm.LoginAction.Execute; 
+               end; 
+       end;
+
        if not Giko.GikoForm.LoginAction.Checked then begin
-               msg := '\83\8d\83O\83C\83\93\82µ\82È\82¢\82Æ\8f\84\89ñ\82Í\8fo\97\88\82Ü\82¹\82ñ' + #13#10
-                                + '\95ª\82©\82ç\82È\82¢\90l\82Í\83M\83R\83i\83r\83X\83\8c\83b\83h\82Å\95·\82¢\82Ä\82­\82¾\82³\82¢';
+               msg := '\83\8d\83O\83C\83\93\82µ\82È\82¢\82Æ\8f\84\89ñ\82Í\8fo\97\88\82Ü\82¹\82ñ';// + #13#10
+//                              + '\95ª\82©\82ç\82È\82¢\90l\82Í\83M\83R\83i\83r\83X\83\8c\83b\83h\82Å\95·\82¢\82Ä\82­\82¾\82³\82¢';
                MsgBox(Handle, msg, '\83G\83\89\81[', MB_OK or MB_ICONSTOP);
                Exit;
        end;
@@ -257,8 +272,8 @@ end;
 
 procedure TRoundDialog.RoundDeleteButtonClick(Sender: TObject);
 var
-       Board: TBoard;
-       ThreadItem: TThreadItem;
+//     Board: TBoard;
+//     ThreadItem: TThreadItem;
        RoundItem: TRoundItem;
        ListChangeEvent: TLVChangeEvent;
 begin