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.3 by yoffy, Fri Nov 21 17:24:50 2003 UTC revision 1.4 by h677, Wed Dec 10 13:53:05 2003 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 not Giko.GikoForm.LoginAction.Checked then begin          if not Giko.GikoForm.LoginAction.Checked then begin
73                  msg := 'ログインしないと巡回は出来ません' + #13#10                  msg := 'ログインしないと巡回は出来ません' + #13#10
74                                   + '分からない人はギコナビスレッドで聞いてください';                                   + '分からない人はギコナビスレッドで聞いてください';
# Line 89  begin Line 88  begin
88                  if not RoundItem.BoolData then Continue;                  if not RoundItem.BoolData then Continue;
89                  if not Giko.GikoForm.LoginAction.Checked then Exit;                  if not Giko.GikoForm.LoginAction.Checked then Exit;
90                  if RoundItem.RoundType = grtBoard then begin                  if RoundItem.RoundType = grtBoard then begin
91                          Board := TBoard( RoundItem.Item );                          //Board := TBoard( RoundItem.Item );
92                Board := BBSsFindBoardFromURL(RoundItem.URL);
93                          if Board <> nil then begin                          if Board <> nil then begin
94                                  if not Board.IsThreadDatRead then                                  if not Board.IsThreadDatRead then
95                                          GikoSys.ReadSubjectFile(Board);                                          GikoSys.ReadSubjectFile(Board);
# Line 102  begin Line 102  begin
102                  if not RoundItem.BoolData then Continue;                  if not RoundItem.BoolData then Continue;
103                  if not Giko.GikoForm.LoginAction.Checked then Exit;                  if not Giko.GikoForm.LoginAction.Checked then Exit;
104      if RoundItem.RoundType = grtItem then begin      if RoundItem.RoundType = grtItem then begin
105          ThreadItem := TThreadItem( RoundItem.Item );          //ThreadItem := TThreadItem( RoundItem.Item );
106            ThreadItem := BBSsFindThreadFromURL(RoundItem.URL);
107                          if ThreadItem <> nil then begin                          if ThreadItem <> nil then begin
108  //                              GikoForm.AddMessageList('debug2:' + IntToStr(i), nil);  //                              GikoForm.AddMessageList('debug2:' + IntToStr(i), nil);
109                                  GikoForm.DownloadContent(ThreadItem);                                  GikoForm.DownloadContent(ThreadItem);
# Line 268  begin Line 269  begin
269                          Exit;                          Exit;
270                  if TObject(RoundListView.Selected.Data) is TRoundItem then begin                  if TObject(RoundListView.Selected.Data) is TRoundItem then begin
271                          RoundItem := TRoundItem(RoundListView.Selected.Data);                          RoundItem := TRoundItem(RoundListView.Selected.Data);
272                RoundList.Delete(RoundItem.URL,RoundItem.RoundType);
273                {
274                          if RoundItem.RoundType = grtBoard then begin                          if RoundItem.RoundType = grtBoard then begin
275                                  Board := TBoard( RoundItem.Item );                                  //Board := TBoard( RoundItem.Item );
276                                  RoundList.Delete(Board);                                  RoundList.Delete(RoundItem.URL,RoundItem.RoundType);
277                                  Board.Round := False;                                  Board.Round := False;
278                                  Board.RoundName := '';                                  Board.RoundName := '';
279                          end else begin                          end else begin
280                                  ThreadItem := TThreadItem( RoundItem.Item );                                  //ThreadItem := TThreadItem( RoundItem.Item );
281                                  RoundList.Delete(ThreadItem);                                  RoundList.Delete(ThreadItem);
282                                  ThreadItem.Round := False;                                  ThreadItem.Round := False;
283                                  ThreadItem.RoundName := '';                                  ThreadItem.RoundName := '';
284                          end;                          end;
285                }
286                          GikoForm.ListView.Refresh;                          GikoForm.ListView.Refresh;
287                  end;                  end;
288                  RoundListView.Selected.Delete;                  RoundListView.Selected.Delete;

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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