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 Releases Activity

Added tab navigation controls to the FMXTabbedBrowser demo

Browse Source
This commit is contained in:
Salvador Diaz Fau
2021-02-05 17:25:37 +01:00
parent 5c93e5c49a
commit 04a6f9d66d
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/FMXTabbedBrowser/uMainForm.pas
View File

@ -69,6 +69,12 @@ type
ActionList1: TActionList;
AddTabAction: TAction;
RemoveTabAction: TAction;
PrevTabBtn: TSpeedButton;
PrevTabAction: TAction;
NextTabAction: TAction;
NextTabBtn: TSpeedButton;
ShowTabsBtn: TSpeedButton;
ShowTabsAction: TAction;
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
@ -78,6 +84,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
@ -174,6 +183,18 @@ begin
GlobalCEFApp.OnContextInitialized := GlobalCEFApp_OnContextInitialized;
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.NotifyMoveOrResizeStarted;
var
i : integer;
@ -261,6 +282,14 @@ begin
TBrowserTab(BrowserTabCtrl.ActiveTab).ShowBrowser;
end;
procedure TMainForm.ShowTabsActionExecute(Sender: TObject);
begin
if (BrowserTabCtrl.TabPosition = TTabPosition.PlatformDefault) then
BrowserTabCtrl.TabPosition := TTabPosition.None
else
BrowserTabCtrl.TabPosition := TTabPosition.PlatformDefault;
end;
procedure TMainForm.AddTabActionExecute(Sender: TObject);
var
TempNewTab : TBrowserTab;