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

diff --git a/Round.pas b/Round.pas
index 8506ce5..19fae85 100644 (file)
--- a/Round.pas
+++ b/Round.pas
@@ -72,6 +72,18 @@ begin
 {$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¢';

diff --git a/readme/readme.txt b/readme/readme.txt
index 6995fb6..111ebf2 100644 (file)
--- a/readme/readme.txt
+++ b/readme/readme.txt
@@ -98,7 +98,8 @@ Windows Server 2003 Enterprise Edition IE6
   Samba24\91Î\8dô\8ex\89\87\8b@\94\\92Ç\89Á
   \94Â\8dX\90V\8e\9e\82É\8f\84\89ñ\83t\83@\83C\83\8b\82ÌURL\82ª\90Ø\82è\91Ö\82í\82ç\82È\82¢\95s\8bï\8d\87\82Ì\8fC\90³
   \8f\84\89ñ\8e\9e\82Ì\83X\83e\81[\83^\83X\83o\81[\95\\8e¦\82Ì\95s\8bï\8d\87\82Ì\8fC\90³
-  
+  \96¢\83\8d\83O\83C\83\93\8e\9e\82É\8f\84\89ñ\83{\83^\83\93\82ð\89\9f\82µ\82½\8fê\8d\87\81A\83\8d\83O\83C\83\93\82Å\82«\82é\82æ\82¤\82É\82µ\82½
+
 2004/03/06
   Version ÊÞÀ46
   \83o\83^44\88È\91O\82Ì\83t\83H\81[\83}\83b\83g\82Ì\8f\84\89ñ\83t\83@\83C\83\8b\82Ì\8e©\93®\95Ï\8a·\82Å\83G\83\89\81[\82ª\82Å\82½\8e\9e\82Ì\8f\88\97\9d\82Ì\95s\8bï\8d\87\82Ì\8fC\90³