| 2794 |
ActiveFileName: string; |
ActiveFileName: string; |
| 2795 |
e: IHTMLElement; |
e: IHTMLElement; |
| 2796 |
Ext: string; |
Ext: string; |
| 2797 |
buf, buf2: string; |
// buf, buf2: string; |
| 2798 |
PathRec: TPathRec; |
PathRec: TPathRec; |
| 2799 |
begin |
begin |
| 2800 |
if not( TObject(Sender) is TWebBrowser )then |
if not( TObject(Sender) is TWebBrowser )then |
| 3971 |
ListView.Items.Clear; |
ListView.Items.Clear; |
| 3972 |
ListView.Selected := nil; |
ListView.Selected := nil; |
| 3973 |
// ListView.Columns.Clear; |
// ListView.Columns.Clear; |
| 3974 |
|
if (FActiveContent <> nil) and (FActiveContent.Thread <> nil) |
| 3975 |
Self.Caption := CAPTION_NAME; |
and (FActiveContent.Thread.IsLogFile) then |
| 3976 |
|
Self.Caption := CAPTION_NAME + ' - [' + FActiveContent.Thread.Title + ']' |
| 3977 |
|
else |
| 3978 |
|
Self.Caption := CAPTION_NAME; |
| 3979 |
//Application.Title := CAPTION_NAME; |
//Application.Title := CAPTION_NAME; |
| 3980 |
|
|
| 3981 |
// ActiveListColumnSave; |
// ActiveListColumnSave; |
| 11281 |
|
|
| 11282 |
function TGikoForm.SaveTabURLs : Boolean; |
function TGikoForm.SaveTabURLs : Boolean; |
| 11283 |
var |
var |
| 11284 |
SaveStringList: TStringList; |
SaveStringList, BackStrList: TStringList; |
| 11285 |
begin |
begin |
| 11286 |
SaveStringList := TStringList.Create; |
SaveStringList := TStringList.Create; |
| 11287 |
|
BackStrList := TStringList.Create; |
| 11288 |
|
|
| 11289 |
|
//バックアップ |
| 11290 |
|
BackStrList.LoadFromFile(ExtractFilePath(Application.ExeName) + 'tab.sav'); |
| 11291 |
|
BackStrList.SaveToFile(ExtractFilePath(Application.ExeName) + '~tab.sav'); |
| 11292 |
|
BackStrList.Free; |
| 11293 |
|
//バックアップを作る。 |
| 11294 |
try |
try |
| 11295 |
Result := GetTabURLs(SaveStringList); |
Result := GetTabURLs(SaveStringList); |
| 11296 |
|
if not Result then begin |
| 11297 |
|
Exit; //逃げ |
| 11298 |
|
end; |
| 11299 |
SaveStringList.SaveToFile(ExtractFilePath(Application.ExeName) + 'tab.sav'); |
SaveStringList.SaveToFile(ExtractFilePath(Application.ExeName) + 'tab.sav'); |
| 11300 |
finally |
finally |
| 11301 |
SaveStringList.Free |
SaveStringList.Free; |
| 11302 |
end; |
end; |
| 11303 |
end; |
end; |
| 11304 |
|
|