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.354 by q9_, Sun Jul 11 16:20:56 2004 UTC revision 1.355 by genyakun, Mon Jul 12 01:08:22 2004 UTC
# Line 553  type Line 553  type
553      LocalRuleView: TToolButton;      LocalRuleView: TToolButton;
554      IdHTTP1: TIdHTTP;      IdHTTP1: TIdHTTP;
555      TabSave: TMenuItem;      TabSave: TMenuItem;
556        TabOpen: TMenuItem;
557                                  procedure FormCreate(Sender: TObject);                                  procedure FormCreate(Sender: TObject);
558                  procedure FormDestroy(Sender: TObject);                  procedure FormDestroy(Sender: TObject);
559                  procedure CabinetPanelHide(Sender: TObject);                  procedure CabinetPanelHide(Sender: TObject);
# Line 891  type Line 892  type
892      procedure LogFolderOpenActionUpdate(Sender: TObject);      procedure LogFolderOpenActionUpdate(Sender: TObject);
893      procedure LocalRuleViewClick(Sender: TObject);      procedure LocalRuleViewClick(Sender: TObject);
894      procedure TabSaveClick(Sender: TObject);      procedure TabSaveClick(Sender: TObject);
895        procedure TabOpenClick(Sender: TObject);
896          private          private
897                  { Private 宣言 }                  { Private 宣言 }
898          //RoundList : TRoundList;          //RoundList : TRoundList;
# Line 1039  type Line 1041  type
1041                  procedure SetBBSMenu;                  procedure SetBBSMenu;
1042                  function WebBrowserClick(Sender: TObject): WordBool;                  function WebBrowserClick(Sender: TObject): WordBool;
1043                  procedure SkinorCSSFilesCopy(path: string);                  procedure SkinorCSSFilesCopy(path: string);
1044                    //タブ保存
1045                    function GetTabURLs : TStringList;
1046          protected          protected
1047                  procedure CreateParams(var Params: TCreateParams); override;                  procedure CreateParams(var Params: TCreateParams); override;
1048                  procedure WndProc(var Message: TMessage); override;                  procedure WndProc(var Message: TMessage); override;
# Line 10656  var Line 10660  var
10660          TabIdx: Integer;          TabIdx: Integer;
10661  begin  begin
10662          SaveStringList := TStringList.Create;          SaveStringList := TStringList.Create;
10663            SaveStringList := GetTabURLs;
10664            SaveStringList.SaveToFile('c:\Save.tab');
10665    end;
10666    
10667    function TGikoForm.GetTabURLs : TStringList;
10668    var
10669      rec : TBrowserRecord;
10670      URLs : TStringList;
10671      i, bound : Integer;
10672    begin
10673      URLs := TStringList.Create();
10674      bound := BrowserTab.Tabs.Count -1;
10675      for i := 0 to bound do begin
10676        rec := TBrowserRecord( BrowserTab.Tabs.Objects[ i ] );
10677        URLs.Add( rec.Thread.URL );
10678      end;
10679      Result := URLs;
10680    end;
10681    
10682    procedure TGikoForm.TabOpenClick(Sender: TObject);
10683    var
10684        i, bound    : Integer;
10685        item        : TThreadItem;
10686        URLs : TStringList;
10687    begin
10688        URLs := TStringList.Create();
10689        try
10690            URLs.LoadFromFile('c:\Save.tab');
10691        except
10692            on EFOpenError do
10693                    ShowMessage('タブが開けません');
10694        end;
10695        bound    := URLs.Count - 1;
10696        for i := 0 to bound do begin
10697            item := BBSsFindThreadFromURL( URLs[ i ] );
10698            if item <> nil then
10699                InsertBrowserTab( item, false );
10700        end;
10701  end;  end;
10702    
10703  initialization  initialization

Legend:
Removed from v.1.354  
changed lines
  Added in v.1.355

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