| 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); |
| 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; |
| 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 |
|
|
| 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; |
| 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 |