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.2 by yoffy, Sat Aug 9 14:22:51 2003 UTC revision 1.2.2.1 by yoffy, Mon Apr 19 22:46:49 2004 UTC
# Line 69  begin Line 69  begin
69  //              GikoSys.MsgBox(msg, 'エラー', MB_OK or MB_ICONSTOP);  //              GikoSys.MsgBox(msg, 'エラー', MB_OK or MB_ICONSTOP);
70  //              Exit;  //              Exit;
71  //      end;  //      end;
72    {$IF Defined(FRCRND) }
73        Giko.GikoForm.LoginAction.Checked := true; // 動作試験用途
74    {$IFEND}
75    
76            if not Giko.GikoForm.LoginAction.Checked then begin
77                    if GikoSys.Setting.UserID <> '' then begin
78                            msg := 'ログインしないと巡回は出来ません' + #13#10
79                                    + '今ログインしますか';
80                            if MsgBox(Handle, msg, '確認', MB_YESNO or MB_ICONQUESTION or MB_DEFBUTTON2) <> IDYES then begin
81                                    Exit;
82                            end;
83                            Giko.GikoForm.LoginAction.Execute;
84                    end;
85            end;
86    
87          if not Giko.GikoForm.LoginAction.Checked then begin          if not Giko.GikoForm.LoginAction.Checked then begin
88                  msg := 'ログインしないと巡回は出来ません' + #13#10                  msg := 'ログインしないと巡回は出来ません';// + #13#10
89                                   + '分からない人はギコナビスレッドで聞いてください';  //                               + '分からない人はギコナビスレッドで聞いてください';
90                  MsgBox(Handle, msg, 'エラー', MB_OK or MB_ICONSTOP);                  MsgBox(Handle, msg, 'エラー', MB_OK or MB_ICONSTOP);
91                  Exit;                  Exit;
92          end;          end;
# Line 89  begin Line 103  begin
103                  if not RoundItem.BoolData then Continue;                  if not RoundItem.BoolData then Continue;
104                  if not Giko.GikoForm.LoginAction.Checked then Exit;                  if not Giko.GikoForm.LoginAction.Checked then Exit;
105                  if RoundItem.RoundType = grtBoard then begin                  if RoundItem.RoundType = grtBoard then begin
106                          Board := BBS2ch.FindBBSID(RoundItem.BBSID);                          //Board := TBoard( RoundItem.Item );
107                Board := BBSsFindBoardFromURL(RoundItem.URL);
108                          if Board <> nil then begin                          if Board <> nil then begin
109                                  if not Board.IsThreadDatRead then                                  if not Board.IsThreadDatRead then
110                                          GikoSys.ReadSubjectFile(Board);                                          GikoSys.ReadSubjectFile(Board);
# Line 101  begin Line 116  begin
116                  RoundItem := RoundList.Items[i, grtItem];                  RoundItem := RoundList.Items[i, grtItem];
117                  if not RoundItem.BoolData then Continue;                  if not RoundItem.BoolData then Continue;
118                  if not Giko.GikoForm.LoginAction.Checked then Exit;                  if not Giko.GikoForm.LoginAction.Checked then Exit;
119                  Board := BBS2ch.FindBBSID(RoundItem.BBSID);      if RoundItem.RoundType = grtItem then begin
120                  if Board <> nil then begin          //ThreadItem := TThreadItem( RoundItem.Item );
121                          if not Board.IsThreadDatRead then          ThreadItem := BBSsFindThreadFromURL(RoundItem.URL);
                                 GikoSys.ReadSubjectFile(Board);  
                         ThreadItem := BBS2ch.FindThreadItem(RoundItem.BBSID, RoundItem.FileName);  
122                          if ThreadItem <> nil then begin                          if ThreadItem <> nil then begin
123  //                              GikoForm.AddMessageList('debug2:' + IntToStr(i), nil);  //                              GikoForm.AddMessageList('debug2:' + IntToStr(i), nil);
124                                  GikoForm.DownloadContent(ThreadItem);                                  GikoForm.DownloadContent(ThreadItem);
# Line 259  end; Line 272  end;
272    
273  procedure TRoundDialog.RoundDeleteButtonClick(Sender: TObject);  procedure TRoundDialog.RoundDeleteButtonClick(Sender: TObject);
274  var  var
275          Board: TBoard;  //      Board: TBoard;
276          ThreadItem: TThreadItem;  //      ThreadItem: TThreadItem;
277          RoundItem: TRoundItem;          RoundItem: TRoundItem;
278          ListChangeEvent: TLVChangeEvent;          ListChangeEvent: TLVChangeEvent;
279  begin  begin
# Line 271  begin Line 284  begin
284                          Exit;                          Exit;
285                  if TObject(RoundListView.Selected.Data) is TRoundItem then begin                  if TObject(RoundListView.Selected.Data) is TRoundItem then begin
286                          RoundItem := TRoundItem(RoundListView.Selected.Data);                          RoundItem := TRoundItem(RoundListView.Selected.Data);
287                          Board := BBS2ch.FindBBSID(RoundItem.BBSID);              RoundList.Delete(RoundItem.URL,RoundItem.RoundType);
288                {
289                          if RoundItem.RoundType = grtBoard then begin                          if RoundItem.RoundType = grtBoard then begin
290                                  RoundList.Delete(Board);                                  //Board := TBoard( RoundItem.Item );
291                                    RoundList.Delete(RoundItem.URL,RoundItem.RoundType);
292                                  Board.Round := False;                                  Board.Round := False;
293                                  Board.RoundName := '';                                  Board.RoundName := '';
294                          end else begin                          end else begin
295                                  if not Board.IsThreadDatRead then                                  //ThreadItem := TThreadItem( RoundItem.Item );
                                         GikoSys.ReadSubjectFile(Board);  
                                 ThreadItem := BBS2ch.FindThreadItem(RoundItem.BBSID, RoundItem.FileName);  
296                                  RoundList.Delete(ThreadItem);                                  RoundList.Delete(ThreadItem);
297                                  ThreadItem.Round := False;                                  ThreadItem.Round := False;
298                                  ThreadItem.RoundName := '';                                  ThreadItem.RoundName := '';
299                          end;                          end;
300                }
301                          GikoForm.ListView.Refresh;                          GikoForm.ListView.Refresh;
302                  end;                  end;
303                  RoundListView.Selected.Delete;                  RoundListView.Selected.Delete;

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.2.2.1

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