| 530 |
TmpToolBar: TToolBar; |
TmpToolBar: TToolBar; |
| 531 |
TreeSelectNameCopy: TAction; |
TreeSelectNameCopy: TAction; |
| 532 |
TreeSelectNamePupupMenu: TMenuItem; |
TreeSelectNamePupupMenu: TMenuItem; |
|
Browser: TWebBrowser; |
|
| 533 |
BrowserPanel: TPanel; |
BrowserPanel: TPanel; |
| 534 |
SetFocusForBrowserAction: TAction; |
SetFocusForBrowserAction: TAction; |
| 535 |
SetFocusForThreadListAction: TAction; |
SetFocusForThreadListAction: TAction; |
| 548 |
SelectItemSaveForDat: TAction; |
SelectItemSaveForDat: TAction; |
| 549 |
LogFolderOpenAction: TAction; |
LogFolderOpenAction: TAction; |
| 550 |
OpenLogFolder: TMenuItem; |
OpenLogFolder: TMenuItem; |
| 551 |
|
Browser: TWebBrowser; |
| 552 |
procedure FormCreate(Sender: TObject); |
procedure FormCreate(Sender: TObject); |
| 553 |
procedure FormDestroy(Sender: TObject); |
procedure FormDestroy(Sender: TObject); |
| 554 |
procedure CabinetPanelHide(Sender: TObject); |
procedure CabinetPanelHide(Sender: TObject); |
| 1252 |
newBrowser := FBrowsers[FBrowsers.Count - 1]; |
newBrowser := FBrowsers[FBrowsers.Count - 1]; |
| 1253 |
TOleControl(newBrowser).Parent := BrowserPanel; |
TOleControl(newBrowser).Parent := BrowserPanel; |
| 1254 |
newBrowser.Align := alNone; |
newBrowser.Align := alNone; |
| 1255 |
TOleControl(newBrowser).DoubleBuffered := true; |
newBrowser.Left := 0; |
| 1256 |
|
newBrowser.Top := 0; |
| 1257 |
|
//newBrowser.DoubleBuffered := true; |
| 1258 |
newBrowser.OnDocumentComplete := BrowserDocumentComplete; |
newBrowser.OnDocumentComplete := BrowserDocumentComplete; |
| 1259 |
newBrowser.OnBeforeNavigate2 := BrowserBeforeNavigate2; |
newBrowser.OnBeforeNavigate2 := BrowserBeforeNavigate2; |
| 1260 |
newBrowser.OnEnter := BrowserEnter; |
newBrowser.OnEnter := BrowserEnter; |
| 3456 |
if ThreadItem.ParentBoard.UnRead < 0 then ThreadItem.ParentBoard.UnRead := 0; |
if ThreadItem.ParentBoard.UnRead < 0 then ThreadItem.ParentBoard.UnRead := 0; |
| 3457 |
TreeView.Refresh; |
TreeView.Refresh; |
| 3458 |
end; |
end; |
| 3459 |
LockWindowUpdate(Self.Handle); |
// LockWindowUpdate(Self.Handle); |
| 3460 |
if(FActiveContent <> nil) and (FActiveContent <> Thread) then begin |
if(FActiveContent <> nil) and (FActiveContent <> Thread) then begin |
| 3461 |
if (FActiveContent.Browser <> BrowserNullTab.Browser) then |
if (FActiveContent.Browser <> BrowserNullTab.Browser) then |
| 3462 |
ShowWindow(FActiveContent.Browser.Handle, SW_HIDE); |
ShowWindow(FActiveContent.Browser.Handle, SW_HIDE); |
| 3463 |
end; |
end; |
| 3464 |
ShowWindow(Thread.FBrowser.Handle, SW_SHOW); |
ShowWindow(Thread.FBrowser.Handle, SW_SHOW); |
| 3465 |
LockWindowUpdate(0); |
//LockWindowUpdate(0); |
| 3466 |
if (not Assigned(Thread.Browser.Document)) then begin |
if (not Assigned(Thread.Browser.Document)) then begin |
| 3467 |
Thread.Browser.Navigate('about:blank'); |
Thread.Browser.Navigate('about:blank'); |
| 3468 |
end; |
end; |
| 10556 |
var |
var |
| 10557 |
i: Integer; |
i: Integer; |
| 10558 |
begin |
begin |
|
if (FActiveContent <> nil) and (FActiveContent.Browser <> nil) then |
|
|
LockWindowUpdate(FActiveContent.Browser.Handle); |
|
| 10559 |
for i := 0 to BROWSER_COUNT - 1 do |
for i := 0 to BROWSER_COUNT - 1 do |
| 10560 |
SetWindowPos(TWebBrowser(FBrowsers[i]).Handle, HWND_NOTOPMOST, 0, 0, NewWidth, NewHeight, SWP_NOMOVE + SWP_NOZORDER); |
SetWindowPos(TWebBrowser(FBrowsers[i]).Handle, HWND_NOTOPMOST, 0, 0, NewWidth, NewHeight, SWP_NOMOVE + SWP_NOZORDER); |
| 10561 |
|
|
| 10562 |
if (FActiveContent <> nil) and (FActiveContent.Browser <> nil) then begin |
if (FActiveContent <> nil) and (FActiveContent.Browser <> nil) then begin |
| 10563 |
SetWindowPos(FActiveContent.Browser.Handle, HWND_NOTOPMOST, 0, 0, NewWidth, NewHeight, SWP_NOMOVE + SWP_NOZORDER); |
SetWindowPos(FActiveContent.Browser.Handle, HWND_NOTOPMOST, 0, 0, NewWidth, NewHeight, SWP_NOMOVE + SWP_NOZORDER); |
|
LockWindowUpdate(0); |
|
| 10564 |
end; |
end; |
| 10565 |
end; |
end; |
| 10566 |
|
|