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.12 by h677, Sat Nov 20 07:53:52 2004 UTC revision 1.13 by genyakun, Fri Jan 14 10:45:09 2005 UTC
# Line 4  interface Line 4  interface
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)
# Line 70  var Line 70  var
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
# Line 121  begin Line 103  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);
# Line 131  begin Line 113  begin
113                          end;                          end;
114                  end;                  end;
115          end;          end;
116  //      GikoForm.LastRoundTime := Now;          GikoForm.LastRoundTime := Now;
117          Close;          Close;
118  end;  end;
119    

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

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