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.3 by yoffy, Fri Nov 21 17:24:50 2003 UTC
# Line 89  begin Line 89  begin
89                  if not RoundItem.BoolData then Continue;                  if not RoundItem.BoolData then Continue;
90                  if not Giko.GikoForm.LoginAction.Checked then Exit;                  if not Giko.GikoForm.LoginAction.Checked then Exit;
91                  if RoundItem.RoundType = grtBoard then begin                  if RoundItem.RoundType = grtBoard then begin
92                          Board := BBS2ch.FindBBSID(RoundItem.BBSID);                          Board := TBoard( RoundItem.Item );
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 101  begin Line 101  begin
101                  RoundItem := RoundList.Items[i, grtItem];                  RoundItem := RoundList.Items[i, grtItem];
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                  Board := BBS2ch.FindBBSID(RoundItem.BBSID);      if RoundItem.RoundType = grtItem then begin
105                  if Board <> nil then begin          ThreadItem := TThreadItem( RoundItem.Item );
                         if not Board.IsThreadDatRead then  
                                 GikoSys.ReadSubjectFile(Board);  
                         ThreadItem := BBS2ch.FindThreadItem(RoundItem.BBSID, RoundItem.FileName);  
106                          if ThreadItem <> nil then begin                          if ThreadItem <> nil then begin
107  //                              GikoForm.AddMessageList('debug2:' + IntToStr(i), nil);  //                              GikoForm.AddMessageList('debug2:' + IntToStr(i), nil);
108                                  GikoForm.DownloadContent(ThreadItem);                                  GikoForm.DownloadContent(ThreadItem);
# Line 271  begin Line 268  begin
268                          Exit;                          Exit;
269                  if TObject(RoundListView.Selected.Data) is TRoundItem then begin                  if TObject(RoundListView.Selected.Data) is TRoundItem then begin
270                          RoundItem := TRoundItem(RoundListView.Selected.Data);                          RoundItem := TRoundItem(RoundListView.Selected.Data);
                         Board := BBS2ch.FindBBSID(RoundItem.BBSID);  
271                          if RoundItem.RoundType = grtBoard then begin                          if RoundItem.RoundType = grtBoard then begin
272                                    Board := TBoard( RoundItem.Item );
273                                  RoundList.Delete(Board);                                  RoundList.Delete(Board);
274                                  Board.Round := False;                                  Board.Round := False;
275                                  Board.RoundName := '';                                  Board.RoundName := '';
276                          end else begin                          end else begin
277                                  if not Board.IsThreadDatRead then                                  ThreadItem := TThreadItem( RoundItem.Item );
                                         GikoSys.ReadSubjectFile(Board);  
                                 ThreadItem := BBS2ch.FindThreadItem(RoundItem.BBSID, RoundItem.FileName);  
278                                  RoundList.Delete(ThreadItem);                                  RoundList.Delete(ThreadItem);
279                                  ThreadItem.Round := False;                                  ThreadItem.Round := False;
280                                  ThreadItem.RoundName := '';                                  ThreadItem.RoundName := '';

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

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