HAP削除用のCookieを受け付けないように修正

[gikonavigoeson/gikonavi.git] / Round.pas

diff --git a/Round.pas b/Round.pas
index fd15551..db3f95d 100644 (file)
--- a/Round.pas
+++ b/Round.pas
@@ -57,7 +57,7 @@ type
 implementation
 
 uses
-       Giko, BoardGroup, RoundData, Math;
+       Giko, BoardGroup, RoundData, Math, GikoDataModule;
 
 {$R *.DFM}
 
@@ -71,20 +71,20 @@ var
        RoundItem: TRoundItem;
 begin
 {$IF Defined(FRCRND) }
-       Giko.GikoForm.LoginAction.Checked := true; // \93®\8dì\8e\8e\8c±\97p\93r
+       GikoDM.LoginAction.Checked := true; // \93®\8dì\8e\8e\8c±\97p\93r
 {$IFEND}
 
 {$IFNDEF LOOSENUP}     //\8f\84\89ñ\90§\8cÀ\82ð\8aÉ\82ß\82é\82±\82Æ\82É\82µ\82Ä\82½\82ç{$ELSE}\82Ì\95û\82ð\8eg\82¤
-       if not Giko.GikoForm.LoginAction.Checked then begin
+       if not GikoDM.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;
+                       GikoDM.LoginAction.Execute;
                end;
-               if not Giko.GikoForm.LoginAction.Checked then begin
+               if not GikoDM.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ñ';
                        MsgBox(Handle, msg, '\83G\83\89\81[', MB_OK or MB_ICONSTOP);
                        Exit;
@@ -92,18 +92,18 @@ begin
        end;
 {$ELSE}
        //\8bK\90§\82ð\8aÉ\82ß\82½\82Ù\82¤\82Í\81A\83X\83\8c\88ê\97\97\82Ì\82Ý\8f\84\89ñ\89Â\94\
-       if not Giko.GikoForm.LoginAction.Checked then begin
+       if not GikoDM.LoginAction.Checked then begin
                if GikoSys.Setting.UserID <> '' then begin
                        msg := '\83\8d\83O\83C\83\93\82µ\82È\82¢\82Æ\83X\83\8c\83b\83h\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;
+                       GikoDM.LoginAction.Execute;
                end;
        end;
        //\81\9c\82È\82µ\8f\84\89ñ\82Í15\95ª\88È\8fã\82Ì\8aÔ\8au\82ð\95K\97v\82Æ\82·\82é
-       if not Giko.GikoForm.LoginAction.Checked then begin
+       if not GikoDM.LoginAction.Checked then begin
                if CompareTime(GikoForm.LastRoundTime, Now, 30) then begin
                        msg := '\88ê\93x\8f\84\89ñ\82·\82é\82Æ\82R\82O\95ª\8aÔ\8f\84\89ñ\82Í\8fo\97\88\82Ü\82¹\82ñ';
                        MsgBox(Handle, msg, '\83G\83\89\81[', MB_OK or MB_ICONSTOP);
@@ -122,7 +122,7 @@ begin
 
 {$IFNDEF LOOSENUP}
        //\81\9c\82È\82µ\8f\84\89ñ\82Í\82P\93x\82É100\8cÂ\82Ü\82Å\82É\82·\82é
-       if not Giko.GikoForm.LoginAction.Checked then begin
+       if not GikoDM.LoginAction.Checked then begin
                if cnt > 100 then begin
                        msg := '\82P\82O\82O\8cÂ\88È\8fã\82Í\88ê\93x\82É\8f\84\89ñ\82Å\82«\82Ü\82¹\82ñ';
                        MsgBox(Handle, msg, '\83G\83\89\81[', MB_OK or MB_ICONSTOP);
@@ -153,7 +153,7 @@ begin
                if not RoundItem.BoolData then Continue;
 {$IFDEF LOOSENUP}
                //\81\9c\82È\82µ\8f\84\89ñ\82Í\83X\83\8c\83b\83h\82Í\82Å\82«\82È\82¢\82±\82Æ\82É\82·\82é
-               if not Giko.GikoForm.LoginAction.Checked then begin
+               if not GikoDM.LoginAction.Checked then begin
                        msg := '\83\8d\83O\83C\83\93\82µ\82È\82¢\82Æ\83X\83\8c\83b\83h\82Ì\8f\84\89ñ\82Í\82Å\82«\82Ü\82¹\82ñ\81B';
                        MsgBox(Handle, msg, '\83G\83\89\81[', MB_OK or MB_ICONSTOP);
                        break;