Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Round.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.20.2.1 by h677, Thu Nov 3 03:21:52 2005 UTC revision 1.22 by h677, Sun Nov 20 14:58:02 2005 UTC
# Line 57  type Line 57  type
57  implementation  implementation
58    
59  uses  uses
60          Giko, BoardGroup, RoundData, Math;          Giko, BoardGroup, RoundData, Math, GikoDataModule;
61    
62  {$R *.DFM}  {$R *.DFM}
63    
# Line 71  var Line 71  var
71          RoundItem: TRoundItem;          RoundItem: TRoundItem;
72  begin  begin
73  {$IF Defined(FRCRND) }  {$IF Defined(FRCRND) }
74          Giko.GikoForm.LoginAction.Checked := true; // 動作試験用途          GikoDM.LoginAction.Checked := true; // 動作試験用途
75  {$IFEND}  {$IFEND}
76    
77  {$IFNDEF LOOSENUP}      //巡回制限を緩めることにしてたら{$ELSE}の方を使う  {$IFNDEF LOOSENUP}      //巡回制限を緩めることにしてたら{$ELSE}の方を使う
78          if not Giko.GikoForm.LoginAction.Checked then begin          if not GikoDM.LoginAction.Checked then begin
79                  if GikoSys.Setting.UserID <> '' then begin                  if GikoSys.Setting.UserID <> '' then begin
80                          msg := 'ログインしないと巡回は出来ません' + #13#10                          msg := 'ログインしないと巡回は出来ません' + #13#10
81                                  + '今ログインしますか';                                  + '今ログインしますか';
82                          if MsgBox(Handle, msg, '確認', MB_YESNO or MB_ICONQUESTION or MB_DEFBUTTON2) <> IDYES then begin                          if MsgBox(Handle, msg, '確認', MB_YESNO or MB_ICONQUESTION or MB_DEFBUTTON2) <> IDYES then begin
83                                  Exit;                                  Exit;
84                          end;                          end;
85                          Giko.GikoForm.LoginAction.Execute;                          GikoDM.LoginAction.Execute;
86                  end;                  end;
87                  if not Giko.GikoForm.LoginAction.Checked then begin                  if not GikoDM.LoginAction.Checked then begin
88                          msg := 'ログインしないと巡回は出来ません';                          msg := 'ログインしないと巡回は出来ません';
89                          MsgBox(Handle, msg, 'エラー', MB_OK or MB_ICONSTOP);                          MsgBox(Handle, msg, 'エラー', MB_OK or MB_ICONSTOP);
90                          Exit;                          Exit;
# Line 92  begin Line 92  begin
92          end;          end;
93  {$ELSE}  {$ELSE}
94          //規制を緩めたほうは、スレ一覧のみ巡回可能          //規制を緩めたほうは、スレ一覧のみ巡回可能
95          if not Giko.GikoForm.LoginAction.Checked then begin          if not GikoDM.LoginAction.Checked then begin
96                  if GikoSys.Setting.UserID <> '' then begin                  if GikoSys.Setting.UserID <> '' then begin
97                          msg := 'ログインしないとスレッドの巡回は出来ません' + #13#10                          msg := 'ログインしないとスレッドの巡回は出来ません' + #13#10
98                                  + '今ログインしますか';                                  + '今ログインしますか';
99                          if MsgBox(Handle, msg, '確認', MB_YESNO or MB_ICONQUESTION or MB_DEFBUTTON2) <> IDYES then begin                          if MsgBox(Handle, msg, '確認', MB_YESNO or MB_ICONQUESTION or MB_DEFBUTTON2) <> IDYES then begin
100                                  Exit;                                  Exit;
101                          end;                          end;
102                          Giko.GikoForm.LoginAction.Execute;                          GikoDM.LoginAction.Execute;
103                  end;                  end;
104          end;          end;
105          //●なし巡回は15分以上の間隔を必要とする          //●なし巡回は15分以上の間隔を必要とする
106          if not Giko.GikoForm.LoginAction.Checked then begin          if not GikoDM.LoginAction.Checked then begin
107                  if CompareTime(GikoForm.LastRoundTime, Now, 30) then begin                  if CompareTime(GikoForm.LastRoundTime, Now, 30) then begin
108                          msg := '一度巡回すると30分間巡回は出来ません';                          msg := '一度巡回すると30分間巡回は出来ません';
109                          MsgBox(Handle, msg, 'エラー', MB_OK or MB_ICONSTOP);                          MsgBox(Handle, msg, 'エラー', MB_OK or MB_ICONSTOP);
# Line 122  begin Line 122  begin
122    
123  {$IFNDEF LOOSENUP}  {$IFNDEF LOOSENUP}
124          //●なし巡回は1度に100個までにする          //●なし巡回は1度に100個までにする
125          if not Giko.GikoForm.LoginAction.Checked then begin          if not GikoDM.LoginAction.Checked then begin
126                  if cnt > 100 then begin                  if cnt > 100 then begin
127                          msg := '100個以上は一度に巡回できません';                          msg := '100個以上は一度に巡回できません';
128                          MsgBox(Handle, msg, 'エラー', MB_OK or MB_ICONSTOP);                          MsgBox(Handle, msg, 'エラー', MB_OK or MB_ICONSTOP);
# Line 153  begin Line 153  begin
153                  if not RoundItem.BoolData then Continue;                  if not RoundItem.BoolData then Continue;
154  {$IFDEF LOOSENUP}  {$IFDEF LOOSENUP}
155                  //●なし巡回はスレッドはできないことにする                  //●なし巡回はスレッドはできないことにする
156                  if not Giko.GikoForm.LoginAction.Checked then begin                  if not GikoDM.LoginAction.Checked then begin
157                          msg := 'ログインしないとスレッドの巡回はできません。';                          msg := 'ログインしないとスレッドの巡回はできません。';
158                          MsgBox(Handle, msg, 'エラー', MB_OK or MB_ICONSTOP);                          MsgBox(Handle, msg, 'エラー', MB_OK or MB_ICONSTOP);
159                          break;                          break;

Legend:
Removed from v.1.20.2.1  
changed lines
  Added in v.1.22

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26