pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-12-13 21:45:55 +02:00
Code Issues Actions Releases Activity

Added tab navigation controls to the FMXTabbedOSRBrowser demo

Browse Source
This commit is contained in:
Salvador Diaz Fau
2021-02-05 17:35:53 +01:00
parent 691986692b
commit 6d5b74070b
3 changed files with 78 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -66,6 +66,12 @@ type
ActionList1: TActionList;
AddTabAction: TAction;
RemoveTabAction: TAction;
PrevTabBtn: TSpeedButton;
NextTabBtn: TSpeedButton;
ShowTabsBtn: TSpeedButton;
PrevTabAction: TAction;
NextTabAction: TAction;
ShowTabsAction: TAction;
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
@@ -75,6 +81,9 @@ type
procedure AddTabActionExecute(Sender: TObject);
procedure RemoveTabActionExecute(Sender: TObject);
procedure BrowserTabCtrlChange(Sender: TObject);
procedure PrevTabActionExecute(Sender: TObject);
procedure NextTabActionExecute(Sender: TObject);
procedure ShowTabsActionExecute(Sender: TObject);
protected
// Variables to control when can we destroy the form safely
@@ -405,6 +414,26 @@ begin
TBrowserTab(BrowserTabCtrl.ActiveTab).SendCaptureLostEvent;
end;
procedure TMainForm.NextTabActionExecute(Sender: TObject);
begin
if (BrowserTabCtrl.TabIndex < pred(BrowserTabCtrl.TabCount)) then
BrowserTabCtrl.TabIndex := BrowserTabCtrl.TabIndex + 1;
end;
procedure TMainForm.PrevTabActionExecute(Sender: TObject);
begin
if (BrowserTabCtrl.TabIndex > 0) then
BrowserTabCtrl.TabIndex := BrowserTabCtrl.TabIndex - 1;
end;
procedure TMainForm.ShowTabsActionExecute(Sender: TObject);
begin
if (BrowserTabCtrl.TabPosition = TTabPosition.PlatformDefault) then
BrowserTabCtrl.TabPosition := TTabPosition.None
else
BrowserTabCtrl.TabPosition := TTabPosition.PlatformDefault;
end;
{$IFDEF MSWINDOWS}
procedure TMainForm.HandleSYSCHAR(const aMessage : TMsg);
begin