| 579 |
procedure FormCreate(Sender: TObject); |
procedure FormCreate(Sender: TObject); |
| 580 |
procedure FormDestroy(Sender: TObject); |
procedure FormDestroy(Sender: TObject); |
| 581 |
procedure CabinetPanelHide(Sender: TObject); |
procedure CabinetPanelHide(Sender: TObject); |
|
procedure FormClose(Sender: TObject; var Action: TCloseAction); |
|
| 582 |
procedure ListViewData(Sender: TObject; Item: TListItem); |
procedure ListViewData(Sender: TObject; Item: TListItem); |
| 583 |
procedure ListViewDataFind(Sender: TObject; Find: TItemFind; |
procedure ListViewDataFind(Sender: TObject; Find: TItemFind; |
| 584 |
const FindString: String; const FindPosition: TPoint; |
const FindString: String; const FindPosition: TPoint; |
| 806 |
procedure SelectComboBoxExit(Sender: TObject); |
procedure SelectComboBoxExit(Sender: TObject); |
| 807 |
procedure SelectResActionExecute(Sender: TObject); |
procedure SelectResActionExecute(Sender: TObject); |
| 808 |
procedure SelectResActionUpdate(Sender: TObject); |
procedure SelectResActionUpdate(Sender: TObject); |
|
procedure FormKeyUp(Sender: TObject; var Key: Word; |
|
|
Shift: TShiftState); |
|
| 809 |
procedure AllResActionExecute(Sender: TObject); |
procedure AllResActionExecute(Sender: TObject); |
| 810 |
procedure AllResActionUpdate(Sender: TObject); |
procedure AllResActionUpdate(Sender: TObject); |
| 811 |
procedure ReloadClick(Sender: TObject); |
procedure ReloadClick(Sender: TObject); |
| 989 |
FMouseDownPos : TPoint; // ブラウザタブでマウスを押したときの座標 |
FMouseDownPos : TPoint; // ブラウザタブでマウスを押したときの座標 |
| 990 |
FBrowsers: TList; |
FBrowsers: TList; |
| 991 |
FResRangeMenuSelect : Longint; ///< ResRangeButton で選択されている項目 (フォーマットは ResRange 互換) |
FResRangeMenuSelect : Longint; ///< ResRangeButton で選択されている項目 (フォーマットは ResRange 互換) |
| 992 |
|
FStartUp : Boolean; |
| 993 |
procedure SetBoardTreeNode( inBBS : TBBS ); |
procedure SetBoardTreeNode( inBBS : TBBS ); |
| 994 |
function SetCategoryListItem(ABBS2ch: TBBS): Integer; |
function SetCategoryListItem(ABBS2ch: TBBS): Integer; |
| 995 |
function SetBoardListItem(Category: TCategory): Integer; |
function SetBoardListItem(Category: TCategory): Integer; |
| 1293 |
Writeln(' 終了時は、ギコナビウィンドウを閉じてください'); |
Writeln(' 終了時は、ギコナビウィンドウを閉じてください'); |
| 1294 |
Writeln('============================================================'); |
Writeln('============================================================'); |
| 1295 |
{$ENDIF} |
{$ENDIF} |
| 1296 |
|
FStartUp := false; |
| 1297 |
Application.OnDeactivate := AppFormDeactivate; |
Application.OnDeactivate := AppFormDeactivate; |
| 1298 |
Self.OnDeactivate := AppFormDeactivate; |
Self.OnDeactivate := AppFormDeactivate; |
| 1299 |
Application.HookMainWindow(Hook); |
Application.HookMainWindow(Hook); |
| 1300 |
Application.OnMessage := HandleAppMessage; //なんか無くても大丈夫になった by もじゅ |
Application.OnMessage := HandleAppMessage; //なんか無くても大丈夫になった by もじゅ |
| 1301 |
Self.DoubleBuffered := true; |
// Self.DoubleBuffered := true; |
| 1302 |
FTreeType := gttNone; |
FTreeType := gttNone; |
| 1303 |
|
|
| 1304 |
FSearchDialog := nil; |
FSearchDialog := nil; |
| 1313 |
newBrowser.Align := alNone; |
newBrowser.Align := alNone; |
| 1314 |
newBrowser.Left := 0; |
newBrowser.Left := 0; |
| 1315 |
newBrowser.Top := 0; |
newBrowser.Top := 0; |
| 1316 |
//newBrowser.DoubleBuffered := true; |
newBrowser.StatusBar := false; |
| 1317 |
|
newBrowser.MenuBar := false; |
| 1318 |
|
newBrowser.AddressBar := false; |
| 1319 |
newBrowser.OnDocumentComplete := BrowserDocumentComplete; |
newBrowser.OnDocumentComplete := BrowserDocumentComplete; |
| 1320 |
newBrowser.OnBeforeNavigate2 := BrowserBeforeNavigate2; |
newBrowser.OnBeforeNavigate2 := BrowserBeforeNavigate2; |
| 1321 |
newBrowser.OnEnter := BrowserEnter; |
newBrowser.OnEnter := BrowserEnter; |
| 1322 |
newBrowser.OnNewWindow2 := BrowserNewWindow2; |
newBrowser.OnNewWindow2 := BrowserNewWindow2; |
| 1323 |
newBrowser.OnStatusTextChange := BrowserStatusTextChange; |
newBrowser.OnStatusTextChange := BrowserStatusTextChange; |
|
//newBrowser.OnTitleChange := BrowserTitleChange; |
|
| 1324 |
newBrowser.Navigate(BLANK_HTML); |
newBrowser.Navigate(BLANK_HTML); |
| 1325 |
ShowWindow(newBrowser.Handle, SW_HIDE); |
ShowWindow(newBrowser.Handle, SW_HIDE); |
| 1326 |
|
|
| 1818 |
// |
// |
| 1819 |
procedure TGikoForm.FormShow(Sender: TObject); |
procedure TGikoForm.FormShow(Sender: TObject); |
| 1820 |
begin |
begin |
| 1821 |
ShowWindow(Application.Handle, SW_HIDE); |
if not FStartUp then begin |
| 1822 |
|
ShowWindow(Application.Handle, SW_HIDE); |
| 1823 |
|
|
| 1824 |
//FormCreateでやると可視設定が反映されない場合があるのでFormShowでやることにした |
//FormCreateでやると可視設定が反映されない場合があるのでFormShowでやることにした |
| 1825 |
//ツールバー表示 |
//ツールバー表示 |
| 1826 |
StdToolBarVisibleAction.Checked := GikoSys.Setting.StdToolBarVisible; |
StdToolBarVisibleAction.Checked := GikoSys.Setting.StdToolBarVisible; |
| 1827 |
StdToolBarVisibleActionExecute( nil ); |
StdToolBarVisibleActionExecute( nil ); |
| 1828 |
AddressBarVisibleAction.Checked := GikoSys.Setting.AddressBarVisible; |
AddressBarVisibleAction.Checked := GikoSys.Setting.AddressBarVisible; |
| 1829 |
AddressBarVisibleActionExecute( nil ); |
AddressBarVisibleActionExecute( nil ); |
| 1830 |
LinkBarVisibleAction.Checked := GikoSys.Setting.LinkBarVisible; |
LinkBarVisibleAction.Checked := GikoSys.Setting.LinkBarVisible; |
| 1831 |
LinkBarVisibleActionExecute( nil ); |
LinkBarVisibleActionExecute( nil ); |
| 1832 |
ListToolBarVisibleAction.Checked := GikoSys.Setting.ListToolBarVisible; |
ListToolBarVisibleAction.Checked := GikoSys.Setting.ListToolBarVisible; |
| 1833 |
ListToolBarVisibleActionExecute( nil ); |
ListToolBarVisibleActionExecute( nil ); |
| 1834 |
ListNameBarVisibleAction.Checked := GikoSys.Setting.ListNameBarVisible; |
ListNameBarVisibleAction.Checked := GikoSys.Setting.ListNameBarVisible; |
| 1835 |
ListNameBarVisibleActionExecute( nil ); |
ListNameBarVisibleActionExecute( nil ); |
| 1836 |
BrowserToolBarVisibleAction.Checked := GikoSys.Setting.BrowserToolBarVisible; |
BrowserToolBarVisibleAction.Checked := GikoSys.Setting.BrowserToolBarVisible; |
| 1837 |
BrowserToolBarVisibleActionExecute( nil ); |
BrowserToolBarVisibleActionExecute( nil ); |
| 1838 |
BrowserNameBarVisibleAction.Checked := GikoSys.Setting.BrowserNameBarVisible; |
BrowserNameBarVisibleAction.Checked := GikoSys.Setting.BrowserNameBarVisible; |
| 1839 |
BrowserNameBarVisibleActionExecute( nil ); |
BrowserNameBarVisibleActionExecute( nil ); |
| 1840 |
|
|
| 1841 |
//ブラウザタブ |
//ブラウザタブ |
| 1842 |
BrowserTabVisibleAction.Checked := GikoSys.Setting.BrowserTabVisible; |
BrowserTabVisibleAction.Checked := GikoSys.Setting.BrowserTabVisible; |
| 1843 |
BrowserTabVisibleActionExecute(nil); |
BrowserTabVisibleActionExecute(nil); |
|
|
|
|
if GikoSys.Setting.BrowserTabPosition = gtpTop then begin |
|
|
BrowserTabTopAction.Checked := True; |
|
|
BrowserTabTopActionExecute(nil); |
|
|
end else begin |
|
|
BrowserTabBottomAction.Checked := True; |
|
|
BrowserTabBottomActionExecute(nil); |
|
|
end; |
|
| 1844 |
|
|
| 1845 |
if GikoSys.Setting.BrowserTabStyle = gtsTab then begin |
if GikoSys.Setting.BrowserTabPosition = gtpTop then begin |
| 1846 |
BrowserTabTabStyleAction.Checked := True; |
BrowserTabTopAction.Checked := True; |
| 1847 |
BrowserTabTabStyleActionExecute(nil); |
BrowserTabTopActionExecute(nil); |
| 1848 |
end else if GikoSys.Setting.BrowserTabStyle = gtsButton then begin |
end else begin |
| 1849 |
BrowserTabButtonStyleAction.Checked := True; |
BrowserTabBottomAction.Checked := True; |
| 1850 |
BrowserTabButtonStyleActionExecute(nil); |
BrowserTabBottomActionExecute(nil); |
| 1851 |
end else begin |
end; |
| 1852 |
BrowserTabFlatStyleAction.Checked := True; |
|
| 1853 |
BrowserTabFlatStyleActionExecute(nil); |
if GikoSys.Setting.BrowserTabStyle = gtsTab then begin |
| 1854 |
end; |
BrowserTabTabStyleAction.Checked := True; |
| 1855 |
|
BrowserTabTabStyleActionExecute(nil); |
| 1856 |
|
end else if GikoSys.Setting.BrowserTabStyle = gtsButton then begin |
| 1857 |
|
BrowserTabButtonStyleAction.Checked := True; |
| 1858 |
|
BrowserTabButtonStyleActionExecute(nil); |
| 1859 |
|
end else begin |
| 1860 |
|
BrowserTabFlatStyleAction.Checked := True; |
| 1861 |
|
BrowserTabFlatStyleActionExecute(nil); |
| 1862 |
|
end; |
| 1863 |
|
|
| 1864 |
// ListView のヘッダドラッグ |
// ListView のヘッダドラッグ |
| 1865 |
ListView.LVMInstallHeaderDrag; |
ListView.LVMInstallHeaderDrag; |
| 1866 |
|
|
| 1867 |
// CoolBar 復元 |
// CoolBar 復元 |
| 1868 |
LoadCoolBarSettings; |
LoadCoolBarSettings; |
| 1869 |
|
|
| 1870 |
FIsIgnoreResize := False; |
FIsIgnoreResize := False; |
| 1871 |
|
|
| 1872 |
//TabAutoLoad |
//TabAutoLoad |
| 1873 |
//FormCreteから移動。 |
//FormCreteから移動。 |
| 1874 |
if GikoSys.Setting.TabAutoLoadSave then begin |
if GikoSys.Setting.TabAutoLoadSave then begin |
| 1875 |
TabAutoLoadAction.Execute; |
TabAutoLoadAction.Execute; |
| 1876 |
|
end; |
| 1877 |
|
FStartUp := true; |
| 1878 |
end; |
end; |
|
|
|
| 1879 |
end; |
end; |
| 1880 |
|
|
| 1881 |
procedure TGikoForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean); |
procedure TGikoForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean); |
| 2084 |
|
|
| 2085 |
end; |
end; |
| 2086 |
|
|
|
//フォームクローズ |
|
|
procedure TGikoForm.FormClose(Sender: TObject; var Action: TCloseAction); |
|
|
begin |
|
|
end; |
|
| 2087 |
//キャビネット×ボタンクリック |
//キャビネット×ボタンクリック |
| 2088 |
procedure TGikoForm.CabinetPanelHide(Sender: TObject); |
procedure TGikoForm.CabinetPanelHide(Sender: TObject); |
| 2089 |
begin |
begin |
| 3787 |
if ThreadItem.ParentBoard.UnRead < 0 then ThreadItem.ParentBoard.UnRead := 0; |
if ThreadItem.ParentBoard.UnRead < 0 then ThreadItem.ParentBoard.UnRead := 0; |
| 3788 |
TreeView.Refresh; |
TreeView.Refresh; |
| 3789 |
end; |
end; |
| 3790 |
{ if(FActiveContent <> nil) and (FActiveContent <> Thread) then begin |
if(FActiveContent <> nil) and (FActiveContent <> Thread) then begin |
| 3791 |
if (FActiveContent.Browser <> BrowserNullTab.Browser) then |
if (FActiveContent.Browser <> BrowserNullTab.Browser) then |
| 3792 |
ShowWindow(FActiveContent.Browser.Handle, SW_HIDE); |
ShowWindow(FActiveContent.Browser.Handle, SW_HIDE); |
| 3793 |
end; |
end; |
| 3794 |
} |
|
| 3795 |
ShowWindow(Thread.FBrowser.Handle, SW_SHOW); |
ShowWindow(Thread.FBrowser.Handle, SW_SHOW); |
| 3796 |
if (not Assigned(Thread.Browser.Document)) then begin |
if (not Assigned(Thread.Browser.Document)) then begin |
| 3797 |
Thread.Browser.Navigate('about:blank'); |
Thread.Browser.Navigate('about:blank'); |
| 3913 |
|
|
| 3914 |
procedure TGikoForm.SetActiveList(Obj: TObject); |
procedure TGikoForm.SetActiveList(Obj: TObject); |
| 3915 |
var |
var |
|
i : Integer; |
|
| 3916 |
idx : Integer; |
idx : Integer; |
| 3917 |
begin |
begin |
| 3918 |
// if FActiveList <> Obj then begin |
// if FActiveList <> Obj then begin |
| 5533 |
procedure TGikoForm.FormResize(Sender: TObject); |
procedure TGikoForm.FormResize(Sender: TObject); |
| 5534 |
var |
var |
| 5535 |
doc : Variant; |
doc : Variant; |
|
i : Integer; |
|
| 5536 |
begin |
begin |
| 5537 |
|
|
| 5538 |
MessageListView.Column[0].Width := MessageListView.ClientWidth - 32; |
MessageListView.Column[0].Width := MessageListView.ClientWidth - 32; |
| 9009 |
SelectResAction.Enabled := (GetActiveContent <> nil) and (GetActiveContent.IsLogFile); |
SelectResAction.Enabled := (GetActiveContent <> nil) and (GetActiveContent.IsLogFile); |
| 9010 |
end; |
end; |
| 9011 |
|
|
|
procedure TGikoForm.FormKeyUp(Sender: TObject; var Key: Word; |
|
|
Shift: TShiftState); |
|
|
begin |
|
|
end; |
|
|
|
|
| 9012 |
// 全てのレスを表示 |
// 全てのレスを表示 |
| 9013 |
procedure TGikoForm.AllResActionExecute(Sender: TObject); |
procedure TGikoForm.AllResActionExecute(Sender: TObject); |
| 9014 |
var |
var |