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.359 by genyakun, Mon Jul 12 08:04:08 2004 UTC revision 1.360 by genyakun, Mon Jul 12 08:40:38 2004 UTC
# Line 10684  var Line 10684  var
10684      i, bound, Tab    : Integer;      i, bound, Tab    : Integer;
10685      item        : TThreadItem;      item        : TThreadItem;
10686      URLs : TStringList;      URLs : TStringList;
10687        GikoTab: TGikoTabAppend;
10688  begin  begin
10689      URLs := TStringList.Create();      URLs := TStringList.Create();
10690      try      try
# Line 10693  begin Line 10694  begin
10694                  ShowMessage('タブが開けません');                  ShowMessage('タブが開けません');
10695      end;      end;
10696      bound    := URLs.Count - 1;      bound    := URLs.Count - 1;
10697        GikoTab := GikoSys.Setting.BrowserTabAppend;
10698      GikoSys.Setting.BrowserTabAppend := gtpLast;//TGikoTabAppend(1);      GikoSys.Setting.BrowserTabAppend := gtpLast;//TGikoTabAppend(1);
10699      for i := 0 to bound do begin      for i := 0 to bound do begin
10700          item := BBSsFindThreadFromURL( URLs[ i ] );          item := BBSsFindThreadFromURL( URLs[ i ] );
10701          if item <> nil then          if item <> nil then
10702              InsertBrowserTab( item, false );              InsertBrowserTab( item, false );
10703      end;      end;
10704      GikoSys.Setting.BrowserTabAppend := TGikoTabAppend(Ord(OptionDialog.TabAddPro.ItemIndex));      GikoSys.Setting.BrowserTabAppend := GikoTab;
10705  end;  end;
10706    
10707  initialization  initialization

Legend:
Removed from v.1.359  
changed lines
  Added in v.1.360

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