pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-06-12 22:07:39 +02:00
Code Issues Actions 1 Releases Activity

Show and hide browser tabs in FMXTabbedOSRBrowser

Browse Source
This commit is contained in:
salvadordf 2022-04-11 11:49:01 +02:00
parent ad44231235
commit c99a44aab2
4 changed files with 42 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
demos/Delphi_FMX_Windows/FMXTabbedOSRBrowser/uBrowserFrame.pas
View File

@ -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

12
demos/Delphi_FMX_Windows/FMXTabbedOSRBrowser/uBrowserTab.pas
View File

@ -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

18
demos/Delphi_FMX_Windows/FMXTabbedOSRBrowser/uMainForm.pas
View File

@ -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
update_CEF4Delphi.json
View File

@ -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"
} }