| 527 |
N65: TMenuItem; |
N65: TMenuItem; |
| 528 |
BBSSelectPopupMenu: TPopupMenu; |
BBSSelectPopupMenu: TPopupMenu; |
| 529 |
PlugInMenu: TMenuItem; |
PlugInMenu: TMenuItem; |
| 530 |
TmpToolBar: TToolBar; |
TmpToolBar: TToolBar; |
| 531 |
TreeSelectNameCopy: TAction; |
TreeSelectNameCopy: TAction; |
| 532 |
TreeSelectNamePupupMenu: TMenuItem; |
TreeSelectNamePupupMenu: TMenuItem; |
| 533 |
BrowserPanel: TPanel; |
BrowserPanel: TPanel; |
| 550 |
OpenLogFolder: TMenuItem; |
OpenLogFolder: TMenuItem; |
| 551 |
Browser: TWebBrowser; |
Browser: TWebBrowser; |
| 552 |
TabSave: TMenuItem; |
TabSave: TMenuItem; |
| 553 |
TabOpen: TMenuItem; |
TabOpen: TMenuItem; |
| 554 |
TabsSaveAction: TAction; |
TabsSaveAction: TAction; |
| 555 |
TabsOpenAction: TAction; |
TabsOpenAction: TAction; |
| 556 |
ResRangePopupMenu: TPopupMenu; |
ResRangePopupMenu: TPopupMenu; |
| 573 |
N69: TMenuItem; |
N69: TMenuItem; |
| 574 |
S7: TMenuItem; |
S7: TMenuItem; |
| 575 |
ThreadRangeButton: TToolButton; |
ThreadRangeButton: TToolButton; |
| 576 |
TabAutoSaveAction: TAction; |
TabAutoSaveAction: TAction; |
| 577 |
TabAutoLoadAction: TAction; |
TabAutoLoadAction: TAction; |
| 578 |
procedure FormCreate(Sender: TObject); |
procedure FormCreate(Sender: TObject); |
| 579 |
procedure FormDestroy(Sender: TObject); |
procedure FormDestroy(Sender: TObject); |
| 872 |
var Handled: Boolean); |
var Handled: Boolean); |
| 873 |
procedure KoreCopyExecute(Sender: TObject); |
procedure KoreCopyExecute(Sender: TObject); |
| 874 |
procedure BrowserTabPopupMenuPopup(Sender: TObject); |
procedure BrowserTabPopupMenuPopup(Sender: TObject); |
| 875 |
procedure MenuToolBarResize(Sender: TObject); |
procedure MenuToolBarResize(Sender: TObject); |
| 876 |
procedure StdToolBarResize(Sender: TObject); |
procedure StdToolBarResize(Sender: TObject); |
| 877 |
procedure LinkToolBarResize(Sender: TObject); |
procedure LinkToolBarResize(Sender: TObject); |
| 878 |
procedure ListNameToolBarResize(Sender: TObject); |
procedure ListNameToolBarResize(Sender: TObject); |
| 895 |
procedure SetFocusForBrowserActionUpdate(Sender: TObject); |
procedure SetFocusForBrowserActionUpdate(Sender: TObject); |
| 896 |
procedure SetFocusForThreadListActionExecute(Sender: TObject); |
procedure SetFocusForThreadListActionExecute(Sender: TObject); |
| 897 |
procedure SetFocusForCabinetActionExecute(Sender: TObject); |
procedure SetFocusForCabinetActionExecute(Sender: TObject); |
| 898 |
procedure BrowserMaxAndFocusActionExecute(Sender: TObject); |
procedure BrowserMaxAndFocusActionExecute(Sender: TObject); |
| 899 |
procedure BrowserMaxAndFocusActionUpdate(Sender: TObject); |
procedure BrowserMaxAndFocusActionUpdate(Sender: TObject); |
| 900 |
procedure ThreadlistMaxAndFocusActionExecute(Sender: TObject); |
procedure ThreadlistMaxAndFocusActionExecute(Sender: TObject); |
| 901 |
procedure ListViewExit(Sender: TObject); |
procedure ListViewExit(Sender: TObject); |
| 918 |
procedure OnlyAHundredResActionExecute(Sender: TObject); |
procedure OnlyAHundredResActionExecute(Sender: TObject); |
| 919 |
procedure OnlyKokoResActionExecute(Sender: TObject); |
procedure OnlyKokoResActionExecute(Sender: TObject); |
| 920 |
procedure OnlyNewResActionExecute(Sender: TObject); |
procedure OnlyNewResActionExecute(Sender: TObject); |
| 921 |
procedure BrowsBoradHeadActionExecute(Sender: TObject); |
procedure BrowsBoradHeadActionExecute(Sender: TObject); |
| 922 |
procedure BrowsBoradHeadActionUpdate(Sender: TObject); |
procedure BrowsBoradHeadActionUpdate(Sender: TObject); |
| 923 |
procedure EditNGActionExecute(Sender: TObject); |
procedure EditNGActionExecute(Sender: TObject); |
| 924 |
procedure ThreadRangeActionUpdate(Sender: TObject); |
procedure ThreadRangeActionUpdate(Sender: TObject); |
| 3607 |
if ThreadItem.ParentBoard.UnRead < 0 then ThreadItem.ParentBoard.UnRead := 0; |
if ThreadItem.ParentBoard.UnRead < 0 then ThreadItem.ParentBoard.UnRead := 0; |
| 3608 |
TreeView.Refresh; |
TreeView.Refresh; |
| 3609 |
end; |
end; |
| 3610 |
// LockWindowUpdate(Self.Handle); |
{ if(FActiveContent <> nil) and (FActiveContent <> Thread) then begin |
|
if(FActiveContent <> nil) and (FActiveContent <> Thread) then begin |
|
| 3611 |
if (FActiveContent.Browser <> BrowserNullTab.Browser) then |
if (FActiveContent.Browser <> BrowserNullTab.Browser) then |
| 3612 |
ShowWindow(FActiveContent.Browser.Handle, SW_HIDE); |
ShowWindow(FActiveContent.Browser.Handle, SW_HIDE); |
| 3613 |
end; |
end; |
| 3614 |
|
} |
| 3615 |
ShowWindow(Thread.FBrowser.Handle, SW_SHOW); |
ShowWindow(Thread.FBrowser.Handle, SW_SHOW); |
|
//LockWindowUpdate(0); |
|
| 3616 |
if (not Assigned(Thread.Browser.Document)) then begin |
if (not Assigned(Thread.Browser.Document)) then begin |
| 3617 |
Thread.Browser.Navigate('about:blank'); |
Thread.Browser.Navigate('about:blank'); |
| 3618 |
end; |
end; |
| 5031 |
case GikoSys.Setting.ListWidthState of |
case GikoSys.Setting.ListWidthState of |
| 5032 |
glsMax: begin |
glsMax: begin |
| 5033 |
//通常表示にする |
//通常表示にする |
| 5034 |
|
if FActiveContent <> nil then |
| 5035 |
|
SendMessage(FActiveContent.FBrowser.Handle, WM_SETREDRAW, 0, 0); //描画停止 |
| 5036 |
ViewPanel.Width := FBrowserSizeWidth; |
ViewPanel.Width := FBrowserSizeWidth; |
| 5037 |
BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_MAX; |
BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_MAX; |
| 5038 |
BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_MIN; |
BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_MIN; |
| 5039 |
GikoSys.Setting.ListWidthState := glsNormal; |
GikoSys.Setting.ListWidthState := glsNormal; |
| 5040 |
|
if FActiveContent <> nil then |
| 5041 |
|
SendMessage(FActiveContent.FBrowser.Handle, WM_SETREDRAW, 1, 0); //描画 |
| 5042 |
end; |
end; |
| 5043 |
glsMin, glsNormal: begin |
glsMin, glsNormal: begin |
| 5044 |
//最大表示にする |
//最大表示にする |
| 5045 |
|
if FActiveContent <> nil then |
| 5046 |
|
SendMessage(FActiveContent.FBrowser.Handle, WM_SETREDRAW, 0, 0); //描画停止 |
| 5047 |
if GikoSys.Setting.ListWidthState = glsNormal then |
if GikoSys.Setting.ListWidthState = glsNormal then |
| 5048 |
FBrowserSizeWidth := ViewPanel.Width; |
FBrowserSizeWidth := ViewPanel.Width; |
| 5049 |
|
if FActiveContent <> nil then |
| 5050 |
|
SendMessage(FActiveContent.FBrowser.Handle, WM_SETREDRAW, 1, 0); //描画 |
| 5051 |
ViewPanel.Width := 1; |
ViewPanel.Width := 1; |
| 5052 |
BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_NORMAL; |
BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_NORMAL; |
| 5053 |
BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_MIN; |
BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_MIN; |
| 5058 |
case GikoSys.Setting.ListHeightState of |
case GikoSys.Setting.ListHeightState of |
| 5059 |
glsMax: begin |
glsMax: begin |
| 5060 |
//通常表示にする |
//通常表示にする |
| 5061 |
|
if FActiveContent <> nil then |
| 5062 |
|
SendMessage(FActiveContent.FBrowser.Handle, WM_SETREDRAW, 0, 0); //描画停止 |
| 5063 |
ViewPanel.Height := FBrowserSizeHeight; |
ViewPanel.Height := FBrowserSizeHeight; |
| 5064 |
BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_MAX; |
BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_MAX; |
| 5065 |
BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_MIN; |
BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_MIN; |
| 5066 |
GikoSys.Setting.ListHeightState := glsNormal; |
GikoSys.Setting.ListHeightState := glsNormal; |
| 5067 |
|
if FActiveContent <> nil then |
| 5068 |
|
SendMessage(FActiveContent.FBrowser.Handle, WM_SETREDRAW, 1, 0); //描画 |
| 5069 |
end; |
end; |
| 5070 |
glsMin, glsNormal: begin |
glsMin, glsNormal: begin |
| 5071 |
//最大表示にする |
//最大表示にする |
| 5072 |
|
if FActiveContent <> nil then |
| 5073 |
|
SendMessage(FActiveContent.FBrowser.Handle, WM_SETREDRAW, 0, 0); //描画停止 |
| 5074 |
if GikoSys.Setting.ListHeightState = glsNormal then |
if GikoSys.Setting.ListHeightState = glsNormal then |
| 5075 |
FBrowserSizeHeight := ViewPanel.Height; |
FBrowserSizeHeight := ViewPanel.Height; |
| 5076 |
|
if FActiveContent <> nil then |
| 5077 |
|
SendMessage(FActiveContent.FBrowser.Handle, WM_SETREDRAW, 1, 0); //描画 |
| 5078 |
ViewPanel.Height := 1; |
ViewPanel.Height := 1; |
| 5079 |
BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_NORMAL; |
BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_NORMAL; |
| 5080 |
BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_MIN; |
BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_MIN; |
| 5095 |
case GikoSys.Setting.ListWidthState of |
case GikoSys.Setting.ListWidthState of |
| 5096 |
glsMax, glsNormal: begin |
glsMax, glsNormal: begin |
| 5097 |
//最小表示にする |
//最小表示にする |
| 5098 |
|
if FActiveContent <> nil then |
| 5099 |
|
SendMessage(FActiveContent.FBrowser.Handle, WM_SETREDRAW, 0, 0); //描画停止 |
| 5100 |
if GikoSys.Setting.ListWidthState = glsNormal then |
if GikoSys.Setting.ListWidthState = glsNormal then |
| 5101 |
FBrowserSizeWidth := ViewPanel.Width; |
FBrowserSizeWidth := ViewPanel.Width; |
| 5102 |
|
if FActiveContent <> nil then |
| 5103 |
|
SendMessage(FActiveContent.FBrowser.Handle, WM_SETREDRAW, 1, 0); //描画 |
| 5104 |
ViewPanel.Width := ThreadMainPanel.Width - 80; |
ViewPanel.Width := ThreadMainPanel.Width - 80; |
| 5105 |
BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_MAX; |
BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_MAX; |
| 5106 |
BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_NORMAL; |
BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_NORMAL; |
| 5108 |
end; |
end; |
| 5109 |
glsMin: begin |
glsMin: begin |
| 5110 |
//通常表示にする |
//通常表示にする |
| 5111 |
|
if FActiveContent <> nil then |
| 5112 |
|
SendMessage(FActiveContent.FBrowser.Handle, WM_SETREDRAW, 0, 0); //描画停止 |
| 5113 |
ViewPanel.Width := FBrowserSizeWidth; |
ViewPanel.Width := FBrowserSizeWidth; |
| 5114 |
BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_MAX; |
BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_MAX; |
| 5115 |
BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_MIN; |
BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_MIN; |
| 5116 |
GikoSys.Setting.ListWidthState := glsNormal; |
GikoSys.Setting.ListWidthState := glsNormal; |
| 5117 |
|
if FActiveContent <> nil then |
| 5118 |
|
SendMessage(FActiveContent.FBrowser.Handle, WM_SETREDRAW, 1, 0); //描画 |
| 5119 |
end; |
end; |
| 5120 |
end; |
end; |
| 5121 |
end else begin |
end else begin |
| 5122 |
case GikoSys.Setting.ListHeightState of |
case GikoSys.Setting.ListHeightState of |
| 5123 |
glsMax, glsNormal: begin |
glsMax, glsNormal: begin |
| 5124 |
//最小表示にする |
//最小表示にする |
| 5125 |
|
if FActiveContent <> nil then |
| 5126 |
|
SendMessage(FActiveContent.FBrowser.Handle, WM_SETREDRAW, 0, 0); //描画停止 |
| 5127 |
if GikoSys.Setting.ListHeightState = glsNormal then |
if GikoSys.Setting.ListHeightState = glsNormal then |
| 5128 |
FBrowserSizeHeight := ViewPanel.Height; |
FBrowserSizeHeight := ViewPanel.Height; |
| 5129 |
ViewPanel.Height := ThreadMainPanel.Height - BrowserCoolBar.Height - 7; |
ViewPanel.Height := ThreadMainPanel.Height - BrowserCoolBar.Height - 7; |
| 5130 |
BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_MAX; |
BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_MAX; |
| 5131 |
BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_NORMAL; |
BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_NORMAL; |
| 5132 |
GikoSys.Setting.ListHeightState := glsMin; |
GikoSys.Setting.ListHeightState := glsMin; |
| 5133 |
|
if FActiveContent <> nil then |
| 5134 |
|
SendMessage(FActiveContent.FBrowser.Handle, WM_SETREDRAW, 1, 0); //描画 |
| 5135 |
end; |
end; |
| 5136 |
glsMin: begin |
glsMin: begin |
| 5137 |
//通常表示にする |
//通常表示にする |
| 5138 |
|
if FActiveContent <> nil then |
| 5139 |
|
SendMessage(FActiveContent.FBrowser.Handle, WM_SETREDRAW, 0, 0); //描画停止 |
| 5140 |
ViewPanel.Height := FBrowserSizeHeight; |
ViewPanel.Height := FBrowserSizeHeight; |
| 5141 |
BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_MAX; |
BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_MAX; |
| 5142 |
BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_MIN; |
BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_MIN; |
| 5143 |
GikoSys.Setting.ListHeightState := glsNormal; |
GikoSys.Setting.ListHeightState := glsNormal; |
| 5144 |
|
if FActiveContent <> nil then |
| 5145 |
|
SendMessage(FActiveContent.FBrowser.Handle, WM_SETREDRAW, 1, 0); //描画 |
| 5146 |
end; |
end; |
| 5147 |
end; |
end; |
| 5148 |
end; |
end; |
| 5365 |
procedure TGikoForm.FormResize(Sender: TObject); |
procedure TGikoForm.FormResize(Sender: TObject); |
| 5366 |
var |
var |
| 5367 |
doc : Variant; |
doc : Variant; |
| 5368 |
|
i : Integer; |
| 5369 |
begin |
begin |
| 5370 |
|
|
| 5371 |
MessageListView.Column[0].Width := MessageListView.ClientWidth - 32; |
MessageListView.Column[0].Width := MessageListView.ClientWidth - 32; |
| 5372 |
MainCoolBar.Width := TopPanel.Width - TopRightPanel.Width; |
MainCoolBar.Width := TopPanel.Width - TopRightPanel.Width; |
| 5373 |
|
|
| 5392 |
end; |
end; |
| 5393 |
end; |
end; |
| 5394 |
|
|
| 5395 |
|
|
| 5396 |
FIsIgnoreResize := True; |
FIsIgnoreResize := True; |
| 5397 |
PostMessage( Handle, USER_RESIZED, 0, 0 ); |
PostMessage( Handle, USER_RESIZED, 0, 0 ); |
| 5398 |
|
|
| 5399 |
|
|
| 5400 |
end; |
end; |
| 5401 |
|
|
| 5402 |
procedure TGikoForm.ScrollTopActionUpdate(Sender: TObject); |
procedure TGikoForm.ScrollTopActionUpdate(Sender: TObject); |
| 7369 |
GikoSys.ParseURI(URL2 , protocol2, host2, path2, document2, port2, bookmark2 ); |
GikoSys.ParseURI(URL2 , protocol2, host2, path2, document2, port2, bookmark2 ); |
| 7370 |
tmp1 := Copy(host, AnsiPos('.', host) + 1, Length(host)); |
tmp1 := Copy(host, AnsiPos('.', host) + 1, Length(host)); |
| 7371 |
tmp2 := Copy(host2, AnsiPos('.', host2) + 1, Length(host2)); |
tmp2 := Copy(host2, AnsiPos('.', host2) + 1, Length(host2)); |
| 7372 |
if (tmp1 <> tmp2) then begin |
if ( not GikoSys.Is2chHost(tmp1)) and (tmp1 <> tmp2) then begin |
| 7373 |
GikoSys.OpenBrowser(URL, gbtUserApp); |
GikoSys.OpenBrowser(URL, gbtUserApp); |
| 7374 |
Exit; |
Exit; |
| 7375 |
end; |
end; |