Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.357 by genyakun, Mon Jul 12 05:19:17 2004 UTC revision 1.358 by genyakun, Mon Jul 12 05:41:39 2004 UTC
# Line 10681  end; Line 10681  end;
10681    
10682  procedure TGikoForm.TabOpenClick(Sender: TObject);  procedure TGikoForm.TabOpenClick(Sender: TObject);
10683  var  var
10684      i, bound    : Integer;      i, bound, Tab    : Integer;
10685      item        : TThreadItem;      item        : TThreadItem;
10686      URLs : TStringList;      URLs : TStringList;
10687  begin  begin
# Line 10696  begin Line 10696  begin
10696      GikoSys.Setting.BrowserTabAppend := TGikoTabAppend(1);      GikoSys.Setting.BrowserTabAppend := TGikoTabAppend(1);
10697      for i := 0 to bound do begin      for i := 0 to bound do begin
10698          item := BBSsFindThreadFromURL( URLs[ i ] );          item := BBSsFindThreadFromURL( URLs[ i ] );
10699          if item <> nil then          if item <> nil then
10700              InsertBrowserTab( item, false );              InsertBrowserTab( item, false );
10701      end;      end;
10702        GikoSys.Setting.BrowserTabAppend := TGikoTabAppend(0);
10703  end;  end;
10704    
10705  initialization  initialization

Legend:
Removed from v.1.357  
changed lines
  Added in v.1.358

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