mirror of
https://github.com/salvadordf/CEF4Delphi.git
synced 2025-06-02 21:57:37 +02:00
Show and hide browser tabs in FMXTabbedOSRBrowser
This commit is contained in:
parent
ad44231235
commit
c99a44aab2
@ -143,6 +143,8 @@ type
|
|||||||
|
|
||||||
procedure NotifyMoveOrResizeStarted;
|
procedure NotifyMoveOrResizeStarted;
|
||||||
procedure SendCaptureLostEvent;
|
procedure SendCaptureLostEvent;
|
||||||
|
procedure ShowBrowser;
|
||||||
|
procedure HideBrowser;
|
||||||
{$IFDEF MSWINDOWS}
|
{$IFDEF MSWINDOWS}
|
||||||
procedure HandleSYSCHAR(const aMessage : TMsg);
|
procedure HandleSYSCHAR(const aMessage : TMsg);
|
||||||
procedure HandleSYSKEYDOWN(const aMessage : TMsg);
|
procedure HandleSYSKEYDOWN(const aMessage : TMsg);
|
||||||
@ -252,6 +254,17 @@ begin
|
|||||||
FMXChromium1.SendCaptureLostEvent;
|
FMXChromium1.SendCaptureLostEvent;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TBrowserFrame.ShowBrowser;
|
||||||
|
begin
|
||||||
|
FMXChromium1.WasHidden(False);
|
||||||
|
FMXChromium1.SetFocus(True);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TBrowserFrame.HideBrowser;
|
||||||
|
begin
|
||||||
|
FMXChromium1.SetFocus(False);
|
||||||
|
FMXChromium1.WasHidden(True);
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TBrowserFrame.StopBtnClick(Sender: TObject);
|
procedure TBrowserFrame.StopBtnClick(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
|
@ -65,6 +65,8 @@ type
|
|||||||
procedure CloseBrowser;
|
procedure CloseBrowser;
|
||||||
procedure ResizeBrowser;
|
procedure ResizeBrowser;
|
||||||
procedure FocusBrowser;
|
procedure FocusBrowser;
|
||||||
|
procedure ShowBrowser;
|
||||||
|
procedure HideBrowser;
|
||||||
procedure SendCaptureLostEvent;
|
procedure SendCaptureLostEvent;
|
||||||
{$IFDEF MSWINDOWS}
|
{$IFDEF MSWINDOWS}
|
||||||
procedure HandleSYSCHAR(const aMessage : TMsg);
|
procedure HandleSYSCHAR(const aMessage : TMsg);
|
||||||
@ -151,6 +153,16 @@ begin
|
|||||||
if (FBrowserFrame <> nil) then FBrowserFrame.FocusBrowser;
|
if (FBrowserFrame <> nil) then FBrowserFrame.FocusBrowser;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TBrowserTab.ShowBrowser;
|
||||||
|
begin
|
||||||
|
if (FBrowserFrame <> nil) then FBrowserFrame.ShowBrowser;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TBrowserTab.HideBrowser;
|
||||||
|
begin
|
||||||
|
if (FBrowserFrame <> nil) then FBrowserFrame.HideBrowser;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TBrowserTab.BrowserFrame_OnBrowserDestroyed(Sender: TObject);
|
procedure TBrowserTab.BrowserFrame_OnBrowserDestroyed(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
// This event is executed in a CEF thread so we have to send a message to
|
// This event is executed in a CEF thread so we have to send a message to
|
||||||
|
@ -369,9 +369,23 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TMainForm.BrowserTabCtrlChange(Sender: TObject);
|
procedure TMainForm.BrowserTabCtrlChange(Sender: TObject);
|
||||||
|
var
|
||||||
|
i : integer;
|
||||||
|
TempTab : TBrowserTab;
|
||||||
begin
|
begin
|
||||||
if (BrowserTabCtrl.ActiveTab <> nil) then
|
i := pred(BrowserTabCtrl.TabCount);
|
||||||
TBrowserTab(BrowserTabCtrl.ActiveTab).FocusBrowser;
|
|
||||||
|
while (i >= 0) do
|
||||||
|
begin
|
||||||
|
TempTab := TBrowserTab(BrowserTabCtrl.Tabs[i]);
|
||||||
|
|
||||||
|
if (BrowserTabCtrl.TabIndex = i) then
|
||||||
|
TempTab.ShowBrowser
|
||||||
|
else
|
||||||
|
TempTab.HideBrowser;
|
||||||
|
|
||||||
|
dec(i);
|
||||||
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TMainForm.CloseAllTabs : boolean;
|
function TMainForm.CloseAllTabs : boolean;
|
||||||
|
@ -2,7 +2,7 @@
|
|||||||
"UpdateLazPackages" : [
|
"UpdateLazPackages" : [
|
||||||
{
|
{
|
||||||
"ForceNotify" : true,
|
"ForceNotify" : true,
|
||||||
"InternalVersion" : 381,
|
"InternalVersion" : 382,
|
||||||
"Name" : "cef4delphi_lazarus.lpk",
|
"Name" : "cef4delphi_lazarus.lpk",
|
||||||
"Version" : "100.0.14.0"
|
"Version" : "100.0.14.0"
|
||||||
}
|
}
|
||||||
|
Loading…
x
Reference in New Issue
Block a user