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.392 by yoffy, Thu Aug 12 16:31:46 2004 UTC revision 1.393 by genyakun, Fri Aug 13 07:46:27 2004 UTC
# Line 573  type Line 573  type
573      N69: TMenuItem;      N69: TMenuItem;
574      S7: TMenuItem;      S7: TMenuItem;
575      ThreadRangeButton: TToolButton;      ThreadRangeButton: TToolButton;
576        TabAutoSaveAction: TAction;
577        TabAutoLoadAction: TAction;
578                                  procedure FormCreate(Sender: TObject);                                  procedure FormCreate(Sender: TObject);
579                  procedure FormDestroy(Sender: TObject);                  procedure FormDestroy(Sender: TObject);
580                  procedure CabinetPanelHide(Sender: TObject);                  procedure CabinetPanelHide(Sender: TObject);
# Line 921  type Line 923  type
923      procedure EditNGActionExecute(Sender: TObject);      procedure EditNGActionExecute(Sender: TObject);
924      procedure ThreadRangeActionUpdate(Sender: TObject);      procedure ThreadRangeActionUpdate(Sender: TObject);
925      procedure ThreadRangeActionExecute(Sender: TObject);      procedure ThreadRangeActionExecute(Sender: TObject);
926        procedure TabAutoSaveActionExecute(Sender: TObject);
927        procedure TabAutoLoadActionExecute(Sender: TObject);
928          private          private
929                  { Private 宣言 }                  { Private 宣言 }
930          //RoundList : TRoundList;          //RoundList : TRoundList;
# Line 1850  begin Line 1854  begin
1854    
1855          //TabAutoLoad          //TabAutoLoad
1856          //FormCreteから移動。          //FormCreteから移動。
1857          if GikoSys.Setting.TabAutoLoad then begin          if GikoSys.Setting.TabAutoLoadSave then begin
1858                  TabsOpenActionExecute(Sender);                  TabsOpenActionExecute(Sender);
1859          end;          end;
1860    
# Line 1866  begin Line 1870  begin
1870                          Exit;                          Exit;
1871          end else begin          end else begin
1872                  CanClose := True;                  CanClose := True;
1873                  if GikoSys.Setting.TabAutoSave then begin                  if GikoSys.Setting.TabAutoLoadSave then begin
1874                          TabsSaveActionExecute(Sender);                          TabsSaveActionExecute(Sender);
1875                  end;                  end;
1876          end;          end;
# Line 11101  begin Line 11105  begin
11105          end;          end;
11106  end;  end;
11107    
11108    procedure TGikoForm.TabAutoSaveActionExecute(Sender: TObject);
11109    var
11110            SaveStringList: TStringList;
11111            Result: Boolean;
11112    begin
11113            SaveStringList := TStringList.Create;
11114            try
11115                    GetTabURLs(SaveStringList, Result);
11116    
11117                    SaveStringList.SaveToFile(ExtractFilePath(Application.ExeName) + 'tab.sav');
11118            finally
11119                    SaveStringList.Free
11120            end;
11121    end;
11122    
11123    procedure TGikoForm.TabAutoLoadActionExecute(Sender: TObject);
11124    var
11125            fileName: String;
11126            URLs: TStringList;
11127            bound, i: Integer;
11128            GikoTab: TGikoTabAppend;
11129            item: TThreadItem;
11130    begin
11131            fileName := ExtractFilePath(Application.ExeName) + 'tab.sav';
11132            URLs := TStringList.Create();
11133            try
11134                    try
11135                            if FileExists(fileName) then
11136                                    URLs.LoadFromFile(fileName);
11137                    except
11138                            on EFOpenError do
11139                                            ShowMessage('タブファイルが開けません');
11140                    end;
11141                    bound    := URLs.Count - 1;
11142    
11143                    GikoTab := GikoSys.Setting.BrowserTabAppend;
11144                    GikoSys.Setting.BrowserTabAppend := gtpLast;//TGikoTabAppend(1);
11145                    for i := 0 to URLs.Count - 1 do begin
11146                            item := BBSsFindThreadFromURL( URLs[ i ] );
11147                            if item <> nil then
11148                                    InsertBrowserTab( item, false );
11149                    end;
11150            finally
11151                    GikoSys.Setting.BrowserTabAppend := GikoTab;
11152                    URLs.Free;
11153            end;
11154    end;
11155    
11156  initialization  initialization
11157                                  OleInitialize(nil);                                  OleInitialize(nil);
11158  finalization  finalization

Legend:
Removed from v.1.392  
changed lines
  Added in v.1.393

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