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