implementation
uses
- Giko, BoardGroup, RoundData, Math;
+ Giko, BoardGroup, RoundData, Math, GikoDataModule;
{$R *.DFM}
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;
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);
{$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);
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;