| 4 |
|
|
| 5 |
uses |
uses |
| 6 |
Windows, Classes, Controls, Forms, StdCtrls, ComCtrls, Menus, |
Windows, Classes, Controls, Forms, StdCtrls, ComCtrls, Menus, |
| 7 |
SysUtils, ImgList, ExtCtrls, GikoSystem, GikoUtil; |
SysUtils, ImgList, ExtCtrls, GikoSystem, GikoUtil, Dialogs; |
| 8 |
|
|
| 9 |
type |
type |
| 10 |
TRoundDialog = class(TForm) |
TRoundDialog = class(TForm) |
| 70 |
ThreadItem: TThreadItem; |
ThreadItem: TThreadItem; |
| 71 |
RoundItem: TRoundItem; |
RoundItem: TRoundItem; |
| 72 |
begin |
begin |
| 73 |
// if CompareTime(GikoForm.LastRoundTime, Now, 5) then begin |
if CompareTime(GikoForm.LastRoundTime, Now, 3) then begin |
| 74 |
// msg := '一度巡回すると5分間巡回は出来ません'; |
msg := '一度巡回すると3分間巡回は出来ません。'; |
|
// GikoSys.MsgBox(msg, 'エラー', MB_OK or MB_ICONSTOP); |
|
|
// Exit; |
|
|
// end; |
|
|
{$IF Defined(FRCRND) } |
|
|
Giko.GikoForm.LoginAction.Checked := true; // 動作試験用途 |
|
|
{$IFEND} |
|
|
|
|
|
if not Giko.GikoForm.LoginAction.Checked then begin |
|
|
if GikoSys.Setting.UserID <> '' then begin |
|
|
msg := 'ログインしないと巡回は出来ません' + #13#10 |
|
|
+ '今ログインしますか'; |
|
|
if MsgBox(Handle, msg, '確認', 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 := 'ログインしないと巡回は出来ません';// + #13#10 |
|
|
// + '分からない人はギコナビスレッドで聞いてください'; |
|
| 75 |
MsgBox(Handle, msg, 'エラー', MB_OK or MB_ICONSTOP); |
MsgBox(Handle, msg, 'エラー', MB_OK or MB_ICONSTOP); |
| 76 |
Exit; |
Exit; |
| 77 |
end; |
end; |
| 78 |
|
//{$IF Defined(FRCRND) } |
| 79 |
|
// Giko.GikoForm.LoginAction.Checked := true; // 動作試験用途 |
| 80 |
|
//{$IFEND} |
| 81 |
|
|
| 82 |
cnt := GetRoundCount; |
cnt := GetRoundCount; |
| 83 |
if cnt = 0 then begin |
if cnt = 0 then begin |
| 103 |
for i := 0 to RoundList.Count[grtItem] - 1 do begin |
for i := 0 to RoundList.Count[grtItem] - 1 do begin |
| 104 |
RoundItem := RoundList.Items[i, grtItem]; |
RoundItem := RoundList.Items[i, grtItem]; |
| 105 |
if not RoundItem.BoolData then Continue; |
if not RoundItem.BoolData then Continue; |
| 106 |
if not Giko.GikoForm.LoginAction.Checked then Exit; |
// if not Giko.GikoForm.LoginAction.Checked then Exit; |
| 107 |
if RoundItem.RoundType = grtItem then begin |
if RoundItem.RoundType = grtItem then begin |
| 108 |
//ThreadItem := TThreadItem( RoundItem.Item ); |
//ThreadItem := TThreadItem( RoundItem.Item ); |
| 109 |
ThreadItem := BBSsFindThreadFromURL(RoundItem.URL); |
ThreadItem := BBSsFindThreadFromURL(RoundItem.URL); |
| 113 |
end; |
end; |
| 114 |
end; |
end; |
| 115 |
end; |
end; |
| 116 |
// GikoForm.LastRoundTime := Now; |
GikoForm.LastRoundTime := Now; |
| 117 |
Close; |
Close; |
| 118 |
end; |
end; |
| 119 |
|
|