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.17 by genyakun, Sat Apr 2 09:01:33 2005 UTC revision 1.17.2.1 by h677, Wed May 18 14:36:10 2005 UTC
# Line 87  begin Line 87  begin
87                  if not RoundItem.BoolData then Continue;                  if not RoundItem.BoolData then Continue;
88                  if not Giko.GikoForm.LoginAction.Checked then Exit;                  if not Giko.GikoForm.LoginAction.Checked then Exit;
89                  if RoundItem.RoundType = grtBoard then begin                  if RoundItem.RoundType = grtBoard then begin
90                          //Board := TBoard( RoundItem.Item );                          Board := TBoard( RoundItem.Item );
91              Board := BBSsFindBoardFromURL(RoundItem.URL);                          //Board := BBSsFindBoardFromURL(RoundItem.URL);
92                          if Board <> nil then begin                          if Board <> nil then begin
93                                  if not Board.IsThreadDatRead then                                  if not Board.IsThreadDatRead then
94                                          GikoSys.ReadSubjectFile(Board);                                          GikoSys.ReadSubjectFile(Board);
# Line 100  begin Line 100  begin
100                  RoundItem := RoundList.Items[i, grtItem];                  RoundItem := RoundList.Items[i, grtItem];
101                  if not RoundItem.BoolData then Continue;                  if not RoundItem.BoolData then Continue;
102                  if not Giko.GikoForm.LoginAction.Checked then Exit;                  if not Giko.GikoForm.LoginAction.Checked then Exit;
103      if RoundItem.RoundType = grtItem then begin          if RoundItem.RoundType = grtItem then begin
104          //ThreadItem := TThreadItem( RoundItem.Item );                  ThreadItem := TThreadItem( RoundItem.Item );
105          ThreadItem := BBSsFindThreadFromURL(RoundItem.URL);                  //ThreadItem := BBSsFindThreadFromURL(RoundItem.URL);
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 268  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);
271              RoundList.Delete(RoundItem.URL,RoundItem.RoundType);                          if( RoundItem.Item is TBoard ) then begin
272                                    TBoard(RoundItem.Item).Round := false;
273                            end else if( RoundItem.Item is TThreadItem ) then begin
274                                    TThreadItem(RoundItem.Item).Round := false;
275                            end;
276                            //RoundList.Delete(RoundItem.URL,RoundItem.RoundType);
277              {              {
278                          if RoundItem.RoundType = grtBoard then begin                          if RoundItem.RoundType = grtBoard then begin
279                                  //Board := TBoard( RoundItem.Item );                                  //Board := TBoard( RoundItem.Item );

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.17.2.1

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