| 551 |
OpenLogFolder: TMenuItem; |
OpenLogFolder: TMenuItem; |
| 552 |
Browser: TWebBrowser; |
Browser: TWebBrowser; |
| 553 |
LocalRuleView: TToolButton; |
LocalRuleView: TToolButton; |
|
IdHTTP1: TIdHTTP; |
|
| 554 |
TabSave: TMenuItem; |
TabSave: TMenuItem; |
| 555 |
TabOpen: TMenuItem; |
TabOpen: TMenuItem; |
| 556 |
TabSaveDialog: TSaveDialog; |
TabSaveDialog: TSaveDialog; |
| 558 |
Tab: TMenuItem; |
Tab: TMenuItem; |
| 559 |
FileTabSave: TMenuItem; |
FileTabSave: TMenuItem; |
| 560 |
FileTabOpen: TMenuItem; |
FileTabOpen: TMenuItem; |
| 561 |
|
TabsSaveAction: TAction; |
| 562 |
|
TabsOpenAction: TAction; |
| 563 |
|
N22: TMenuItem; |
| 564 |
|
TabsSaveToFileAction: TAction; |
| 565 |
|
TabsOpenFromFileAction: TAction; |
| 566 |
procedure FormCreate(Sender: TObject); |
procedure FormCreate(Sender: TObject); |
| 567 |
procedure FormDestroy(Sender: TObject); |
procedure FormDestroy(Sender: TObject); |
| 568 |
procedure CabinetPanelHide(Sender: TObject); |
procedure CabinetPanelHide(Sender: TObject); |
| 899 |
NewHeight: Integer; var Resize: Boolean); |
NewHeight: Integer; var Resize: Boolean); |
| 900 |
procedure LogFolderOpenActionExecute(Sender: TObject); |
procedure LogFolderOpenActionExecute(Sender: TObject); |
| 901 |
procedure LogFolderOpenActionUpdate(Sender: TObject); |
procedure LogFolderOpenActionUpdate(Sender: TObject); |
| 902 |
procedure LocalRuleViewClick(Sender: TObject); |
procedure TabsSaveActionExecute(Sender: TObject); |
| 903 |
procedure TabSaveClick(Sender: TObject); |
procedure TabsOpenActionExecute(Sender: TObject); |
| 904 |
procedure TabOpenClick(Sender: TObject); |
procedure TabsSaveToFileActionExecute(Sender: TObject); |
| 905 |
procedure FileTabSaveClick(Sender: TObject); |
procedure TabsOpenFromFileActionExecute(Sender: TObject); |
|
procedure FileTabOpenClick(Sender: TObject); |
|
| 906 |
private |
private |
| 907 |
{ Private 宣言 } |
{ Private 宣言 } |
| 908 |
//RoundList : TRoundList; |
//RoundList : TRoundList; |
| 1051 |
procedure SetBBSMenu; |
procedure SetBBSMenu; |
| 1052 |
function WebBrowserClick(Sender: TObject): WordBool; |
function WebBrowserClick(Sender: TObject): WordBool; |
| 1053 |
procedure SkinorCSSFilesCopy(path: string); |
procedure SkinorCSSFilesCopy(path: string); |
| 1054 |
//タブ保存 |
//タブ保存 |
| 1055 |
function GetTabURLs : TStringList; |
procedure GetTabURLs(AStringList: TStringList); |
| 1056 |
// バンド幅を再計算・再設定する |
// バンド幅を再計算・再設定する |
| 1057 |
procedure ResetBandInfo( bar : TGikoCoolBar; band : TToolBar ); |
procedure ResetBandInfo( bar : TGikoCoolBar; band : TToolBar ); |
| 1058 |
protected |
protected |
| 10679 |
LogFolderOpenAction.Enabled := False; |
LogFolderOpenAction.Enabled := False; |
| 10680 |
end; |
end; |
| 10681 |
|
|
| 10682 |
procedure TGikoForm.LocalRuleViewClick(Sender: TObject); |
procedure TGikoForm.GetTabURLs(AStringList: TStringList); |
|
var |
|
|
RefURL, |
|
|
RefeURL, |
|
|
RuleURL, |
|
|
RuleTxt:String; |
|
|
FBoard: TBoard; |
|
|
Indy: TIdHTTP; |
|
|
FileStream: TFileStream; |
|
|
begin |
|
|
//ローカルルール取得 by 定期便 |
|
|
RefURL := GikoSys.UrlToServer(FBoard.URL) |
|
|
+ GikoSys.UrlToID(FBoard.URL) |
|
|
+ '/'; |
|
|
//試しにローカルルール取得も |
|
|
RuleURL := RefURL |
|
|
+ 'head.txt'; |
|
|
//取得〜 |
|
|
RuleTxt := Indy.Get(RuleURL); |
|
|
//FileStream.Create('head.txt', fmCreate) := Indy.Get(RuleURL, FileStream); |
|
|
//試験表示〜 |
|
|
if RuleTxt = '' then begin |
|
|
ShowMessage('ローカルルール取得失敗'); |
|
|
end; |
|
|
ShowMessage(RuleTxt); |
|
|
|
|
|
end; |
|
|
|
|
|
procedure TGikoForm.TabSaveClick(Sender: TObject); |
|
|
var |
|
|
SaveStringList: TStringList; |
|
|
TabIdx: Integer; |
|
|
begin |
|
|
SaveStringList := TStringList.Create; |
|
|
SaveStringList := GetTabURLs; |
|
|
SaveStringList.SaveToFile(ExtractFilePath(Application.ExeName) + 'tab.sav'); |
|
|
end; |
|
|
|
|
|
function TGikoForm.GetTabURLs : TStringList; |
|
| 10683 |
var |
var |
| 10684 |
rec : TBrowserRecord; |
rec : TBrowserRecord; |
|
URLs : TStringList; |
|
| 10685 |
i, bound : Integer; |
i, bound : Integer; |
| 10686 |
begin |
begin |
|
URLs := TStringList.Create(); |
|
| 10687 |
bound := BrowserTab.Tabs.Count -1; |
bound := BrowserTab.Tabs.Count -1; |
| 10688 |
for i := 0 to bound do begin |
for i := 0 to bound do begin |
| 10689 |
rec := TBrowserRecord( BrowserTab.Tabs.Objects[ i ] ); |
rec := TBrowserRecord( BrowserTab.Tabs.Objects[ i ] ); |
| 10690 |
URLs.Add( rec.Thread.URL ); |
if( rec <> nil) and (rec.Thread <> nil) then |
| 10691 |
|
AStringList.Add( rec.Thread.URL ); |
| 10692 |
end; |
end; |
|
Result := URLs; |
|
| 10693 |
end; |
end; |
| 10694 |
|
|
| 10695 |
procedure TGikoForm.TabOpenClick(Sender: TObject); |
procedure TGikoForm.TabsSaveActionExecute(Sender: TObject); |
| 10696 |
var |
var |
| 10697 |
i, bound : Integer; |
SaveStringList: TStringList; |
| 10698 |
item : TThreadItem; |
begin |
| 10699 |
URLs : TStringList; |
SaveStringList := TStringList.Create; |
| 10700 |
GikoTab: TGikoTabAppend; |
try |
| 10701 |
begin |
GetTabURLs(SaveStringList); |
| 10702 |
URLs := TStringList.Create(); |
SaveStringList.SaveToFile(ExtractFilePath(Application.ExeName) + 'tab.sav'); |
| 10703 |
try |
finally |
| 10704 |
URLs.LoadFromFile(ExtractFilePath(Application.ExeName) + 'tab.sav'); |
SaveStringList.Free |
| 10705 |
except |
end; |
|
on EFOpenError do |
|
|
ShowMessage('タブファイルが開けません'); |
|
|
end; |
|
|
bound := URLs.Count - 1; |
|
|
GikoTab := GikoSys.Setting.BrowserTabAppend; |
|
|
GikoSys.Setting.BrowserTabAppend := gtpLast;//TGikoTabAppend(1); |
|
|
for i := 0 to bound do begin |
|
|
item := BBSsFindThreadFromURL( URLs[ i ] ); |
|
|
if item <> nil then |
|
|
InsertBrowserTab( item, false ); |
|
|
end; |
|
|
GikoSys.Setting.BrowserTabAppend := GikoTab; |
|
| 10706 |
end; |
end; |
| 10707 |
|
|
| 10708 |
procedure TGikoForm.FileTabSaveClick(Sender: TObject); |
procedure TGikoForm.TabsOpenActionExecute(Sender: TObject); |
| 10709 |
var |
var |
| 10710 |
SaveTabList : TStringList; |
i, bound : Integer; |
| 10711 |
|
item : TThreadItem; |
| 10712 |
|
URLs : TStringList; |
| 10713 |
|
GikoTab: TGikoTabAppend; |
| 10714 |
|
fileName: string; |
| 10715 |
begin |
begin |
| 10716 |
SaveTabList := TStringList.Create; |
fileName := ExtractFilePath(Application.ExeName) + 'tab.sav'; |
| 10717 |
SaveTabList := GetTabURLs; |
URLs := TStringList.Create(); |
| 10718 |
if TabSaveDialog.Execute then begin |
try |
| 10719 |
SaveTabList.SaveToFile(TabSaveDialog.FileName); |
try |
| 10720 |
end; |
if FileExists(fileName) then |
| 10721 |
|
URLs.LoadFromFile(fileName); |
| 10722 |
|
except |
| 10723 |
|
on EFOpenError do |
| 10724 |
|
ShowMessage('タブファイルが開けません'); |
| 10725 |
|
end; |
| 10726 |
|
bound := URLs.Count - 1; |
| 10727 |
|
GikoTab := GikoSys.Setting.BrowserTabAppend; |
| 10728 |
|
GikoSys.Setting.BrowserTabAppend := gtpLast;//TGikoTabAppend(1); |
| 10729 |
|
for i := 0 to URLs.Count - 1 do begin |
| 10730 |
|
item := BBSsFindThreadFromURL( URLs[ i ] ); |
| 10731 |
|
if item <> nil then |
| 10732 |
|
InsertBrowserTab( item, false ); |
| 10733 |
|
end; |
| 10734 |
|
finally |
| 10735 |
|
GikoSys.Setting.BrowserTabAppend := GikoTab; |
| 10736 |
|
URLs.Free; |
| 10737 |
|
end; |
| 10738 |
|
end; |
| 10739 |
|
{ |
| 10740 |
|
procedure TGikoForm.FileTabSaveClick(Sender: TObject); |
| 10741 |
|
var |
| 10742 |
|
SaveStringList: TStringList; |
| 10743 |
|
begin |
| 10744 |
|
SaveTabList := TStringList.Create; |
| 10745 |
|
SaveTabList := GetTabURLs; |
| 10746 |
|
if TabSaveDialog.Execute then begin |
| 10747 |
|
SaveTabList.SaveToFile(TabSaveDialog.FileName); |
| 10748 |
|
end; |
| 10749 |
|
end; |
| 10750 |
|
} |
| 10751 |
|
procedure TGikoForm.TabsSaveToFileActionExecute(Sender: TObject); |
| 10752 |
|
var |
| 10753 |
|
SaveTabList: TStringList; |
| 10754 |
|
begin |
| 10755 |
|
SaveTabList := TStringList.Create; |
| 10756 |
|
try |
| 10757 |
|
GetTabURLs(SaveTabList); |
| 10758 |
|
if TabSaveDialog.Execute then begin |
| 10759 |
|
SaveTabList.SaveToFile(TabSaveDialog.FileName); |
| 10760 |
|
end; |
| 10761 |
|
finally |
| 10762 |
|
SaveTabList.Free; |
| 10763 |
|
end; |
| 10764 |
end; |
end; |
| 10765 |
|
|
| 10766 |
procedure TGikoForm.FileTabOpenClick(Sender: TObject); |
procedure TGikoForm.TabsOpenFromFileActionExecute(Sender: TObject); |
| 10767 |
var |
var |
| 10768 |
i, bound, Tab : Integer; |
i, Tab : Integer; |
| 10769 |
item : TThreadItem; |
item : TThreadItem; |
| 10770 |
URLs : TStringList; |
URLs : TStringList; |
| 10771 |
GikoTab: TGikoTabAppend; |
GikoTab: TGikoTabAppend; |
| 10772 |
begin |
begin |
| 10773 |
URLs := TStringList.Create(); |
URLs := TStringList.Create(); |
| 10774 |
try |
try |
| 10775 |
if TabOpenDialog.Execute then begin |
try |
| 10776 |
URLs.LoadFromFile(TabOpenDialog.FileName); |
if TabOpenDialog.Execute then begin |
| 10777 |
end; |
URLs.LoadFromFile(TabOpenDialog.FileName); |
| 10778 |
except |
end; |
| 10779 |
on EFOpenError do |
except |
| 10780 |
ShowMessage('タブファイルが開けません'); |
on EFOpenError do ShowMessage('タブファイルが開けません'); |
| 10781 |
end; |
end; |
| 10782 |
bound := URLs.Count - 1; |
GikoTab := GikoSys.Setting.BrowserTabAppend; |
| 10783 |
GikoTab := GikoSys.Setting.BrowserTabAppend; |
GikoSys.Setting.BrowserTabAppend := gtpLast;//TGikoTabAppend(1); |
| 10784 |
GikoSys.Setting.BrowserTabAppend := gtpLast;//TGikoTabAppend(1); |
for i := 0 to URLs.Count - 1 do begin |
| 10785 |
for i := 0 to bound do begin |
item := BBSsFindThreadFromURL( URLs[ i ] ); |
| 10786 |
item := BBSsFindThreadFromURL( URLs[ i ] ); |
if item <> nil then |
| 10787 |
if item <> nil then |
InsertBrowserTab( item, false ); |
| 10788 |
InsertBrowserTab( item, false ); |
end; |
| 10789 |
end; |
finally |
| 10790 |
GikoSys.Setting.BrowserTabAppend := GikoTab; |
GikoSys.Setting.BrowserTabAppend := GikoTab; |
| 10791 |
|
URLs.Free; |
| 10792 |
|
end; |
| 10793 |
end; |
end; |
| 10794 |
|
|
| 10795 |
initialization |
initialization |