| 1840 |
// |
// |
| 1841 |
// |
// |
| 1842 |
procedure TGikoForm.FormShow(Sender: TObject); |
procedure TGikoForm.FormShow(Sender: TObject); |
| 1843 |
|
var |
| 1844 |
|
i: Integer; |
| 1845 |
begin |
begin |
| 1846 |
if not FStartUp then begin |
if not FStartUp then begin |
| 1847 |
ShowWindow(Application.Handle, SW_HIDE); |
ShowWindow(Application.Handle, SW_HIDE); |
| 1899 |
if GikoSys.Setting.TabAutoLoadSave then begin |
if GikoSys.Setting.TabAutoLoadSave then begin |
| 1900 |
TabAutoLoadAction.Execute; |
TabAutoLoadAction.Execute; |
| 1901 |
end; |
end; |
| 1902 |
//にちゃん語案内サポート機能 |
//にちゃん語案内サポート機能 |
| 1903 |
if GikoSys.Setting.GengoSupport then begin |
if GikoSys.Setting.GengoSupport then begin |
| 1904 |
//予定地 |
//予定地 |
| 1905 |
//Test向け |
//Test向け |
| 1906 |
end; |
end; |
| 1907 |
|
|
| 1908 |
FStartUp := true; |
FStartUp := true; |
| 1909 |
end; |
end; |
| 3828 |
Thread.Browser := TWebBrowser(FBrowsers[BROWSER_COUNT - 1]); |
Thread.Browser := TWebBrowser(FBrowsers[BROWSER_COUNT - 1]); |
| 3829 |
FBrowsers.Move(BROWSER_COUNT - 1, 0); |
FBrowsers.Move(BROWSER_COUNT - 1, 0); |
| 3830 |
end; |
end; |
| 3831 |
|
|
| 3832 |
|
//MoveWindow(Thread.FBrowser.Handle, 0, 0, BrowserPanel.Width, BrowserPanel.Height, false); |
| 3833 |
|
|
| 3834 |
ThreadTitle := Thread.Thread.Title; |
ThreadTitle := Thread.Thread.Title; |
| 3835 |
ThreadPTitle := Thread.Thread.ParentBoard.Title; |
ThreadPTitle := Thread.Thread.ParentBoard.Title; |
| 3836 |
ThreadScrollTop := Thread.Thread.ScrollTop; |
ThreadScrollTop := Thread.Thread.ScrollTop; |
| 3854 |
if ThreadItem.ParentBoard.UnRead < 0 then ThreadItem.ParentBoard.UnRead := 0; |
if ThreadItem.ParentBoard.UnRead < 0 then ThreadItem.ParentBoard.UnRead := 0; |
| 3855 |
TreeView.Refresh; |
TreeView.Refresh; |
| 3856 |
end; |
end; |
| 3857 |
} |
} |
| 3858 |
|
|
| 3859 |
if(FActiveContent <> nil) and (FActiveContent <> Thread) then begin |
if(FActiveContent <> nil) and (FActiveContent <> Thread) then begin |
| 3860 |
if (FActiveContent.Browser <> BrowserNullTab.Browser) then |
if (FActiveContent.Browser <> BrowserNullTab.Browser) then |
| 3861 |
ShowWindow(FActiveContent.Browser.Handle, SW_HIDE); |
ShowWindow(FActiveContent.Browser.Handle, SW_HIDE); |
| 6463 |
TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Repaint := true; |
TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Repaint := true; |
| 6464 |
FBrowsers.Move(BROWSER_COUNT - 1, 0); |
FBrowsers.Move(BROWSER_COUNT - 1, 0); |
| 6465 |
end; |
end; |
| 6466 |
|
MoveWindow(TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Browser.Handle, 0, 0, BrowserPanel.Width, BrowserPanel.Height, false); |
| 6467 |
TOleControl(TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Browser).BringToFront; |
TOleControl(TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Browser).BringToFront; |
| 6468 |
// GikoSys.OnlyAHundredRes := TBrowserRecord(BrowserTab.Tabs.Objects[idx]).OnlyHundred; |
// GikoSys.OnlyAHundredRes := TBrowserRecord(BrowserTab.Tabs.Objects[idx]).OnlyHundred; |
| 6469 |
// OnlyAHundredRes.Checked := TBrowserRecord(BrowserTab.Tabs.Objects[idx]).OnlyHundred; |
// OnlyAHundredRes.Checked := TBrowserRecord(BrowserTab.Tabs.Objects[idx]).OnlyHundred; |
| 11858 |
|
|
| 11859 |
procedure TGikoForm.BrowserPanelCanResize(Sender: TObject; var NewWidth, |
procedure TGikoForm.BrowserPanelCanResize(Sender: TObject; var NewWidth, |
| 11860 |
NewHeight: Integer; var Resize: Boolean); |
NewHeight: Integer; var Resize: Boolean); |
|
var |
|
|
i: Integer; |
|
| 11861 |
begin |
begin |
| 11862 |
for i := FBrowsers.Count - 1 downto 0 do begin |
if (FActiveContent <> nil) and (FActiveContent.Browser <> nil) then begin |
| 11863 |
if FBrowsers[i] <> nil then |
MoveWindow(FActiveContent.Browser.Handle, 0, 0, NewWidth, NewHeight, false); |
|
MoveWindow(TWebBrowser(FBrowsers[i]).Handle, 0, 0, NewWidth, NewHeight, false); |
|
| 11864 |
end; |
end; |
|
|
|
| 11865 |
end; |
end; |
| 11866 |
|
|
| 11867 |
initialization |
initialization |