pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-08-04 21:32:54 +02:00
Code Issues Actions Releases Activity

Added the Alerts helper to FMXExternalPumpBrowser for macOS

Browse Source
This commit is contained in:
Salvador Díaz Fau
2024-09-04 17:31:33 +02:00
parent 55a70a998e
commit dfec99acd6
13 changed files with 1451 additions and 78 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
demos/Delphi_FMX_Mac/FMXExternalPumpBrowser/FMXExternalPumpBrowser.deployproj
View File

@ -10,10 +10,10 @@
<DeviceId Condition="'$(Platform)'=='iOSSimARM64'"/>
</PropertyGroup>
<ItemGroup Condition="'$(Platform)'=='OSX64'">
<DeployFile Include="$(BDS)\bin\delphi_PROJECTICNS.icns" Condition="'$(Config)'=='Debug'">
<RemoteDir>FMXExternalPumpBrowser.app\Contents\Resources\</RemoteDir>
<RemoteName>FMXExternalPumpBrowser.icns</RemoteName>
<DeployClass>ProjectOSXResource</DeployClass>
<DeployFile Include="..\..\..\bin\FMXExternalPumpBrowser.info.plist" Condition="'$(Config)'=='Debug'">
<RemoteDir>FMXExternalPumpBrowser.app\Contents\</RemoteDir>
<RemoteName>Info.plist</RemoteName>
<DeployClass>ProjectOSXInfoPList</DeployClass>
<Operation>1</Operation>
<LocalCommand/>
<RemoteCommand/>
@ -28,10 +28,10 @@
<RemoteCommand/>
<Overwrite>True</Overwrite>
</DeployFile>
<DeployFile Include="..\..\..\bin\FMXExternalPumpBrowser.info.plist" Condition="'$(Config)'=='Debug'">
<RemoteDir>FMXExternalPumpBrowser.app\Contents\</RemoteDir>
<RemoteName>Info.plist</RemoteName>
<DeployClass>ProjectOSXInfoPList</DeployClass>
<DeployFile Include="$(BDS)\bin\delphi_PROJECTICNS.icns" Condition="'$(Config)'=='Debug'">
<RemoteDir>FMXExternalPumpBrowser.app\Contents\Resources\</RemoteDir>
<RemoteName>FMXExternalPumpBrowser.icns</RemoteName>
<DeployClass>ProjectOSXResource</DeployClass>
<Operation>1</Operation>
<LocalCommand/>
<RemoteCommand/>
@ -64,4 +64,5 @@
<ItemGroup Condition="'$(Platform)'=='Win64'"/>
<ItemGroup Condition="'$(Platform)'=='iOSDevice64'"/>
<ItemGroup Condition="'$(Platform)'=='iOSSimARM64'"/>
<ItemGroup Condition="'$(Platform)'=='Win64x'"/>
</Project>

18
demos/Delphi_FMX_Mac/FMXExternalPumpBrowser/FMXExternalPumpBrowserGroup.groupproj
View File

@ -15,6 +15,9 @@
<Projects Include="FMXExternalPumpBrowser_helper_renderer.dproj">
<Dependencies/>
</Projects>
<Projects Include="FMXExternalPumpBrowser_helper_alerts.dproj">
<Dependencies/>
</Projects>
<Projects Include="FMXExternalPumpBrowser_helper.dproj">
<Dependencies/>
</Projects>
@ -62,6 +65,15 @@
<Target Name="FMXExternalPumpBrowser_helper_renderer:Make">
<MSBuild Projects="FMXExternalPumpBrowser_helper_renderer.dproj" Targets="Make"/>
</Target>
<Target Name="FMXExternalPumpBrowser_helper_alerts">
<MSBuild Projects="FMXExternalPumpBrowser_helper_alerts.dproj"/>
</Target>
<Target Name="FMXExternalPumpBrowser_helper_alerts:Clean">
<MSBuild Projects="FMXExternalPumpBrowser_helper_alerts.dproj" Targets="Clean"/>
</Target>
<Target Name="FMXExternalPumpBrowser_helper_alerts:Make">
<MSBuild Projects="FMXExternalPumpBrowser_helper_alerts.dproj" Targets="Make"/>
</Target>
<Target Name="FMXExternalPumpBrowser_helper">
<MSBuild Projects="FMXExternalPumpBrowser_helper.dproj"/>
</Target>
@ -72,13 +84,13 @@
<MSBuild Projects="FMXExternalPumpBrowser_helper.dproj" Targets="Make"/>
</Target>
<Target Name="Build">
<CallTarget Targets="FMXExternalPumpBrowser;FMXExternalPumpBrowser_helper_gpu;FMXExternalPumpBrowser_helper_plugin;FMXExternalPumpBrowser_helper_renderer;FMXExternalPumpBrowser_helper"/>
<CallTarget Targets="FMXExternalPumpBrowser;FMXExternalPumpBrowser_helper_gpu;FMXExternalPumpBrowser_helper_plugin;FMXExternalPumpBrowser_helper_renderer;FMXExternalPumpBrowser_helper_alerts;FMXExternalPumpBrowser_helper"/>
</Target>
<Target Name="Clean">
<CallTarget Targets="FMXExternalPumpBrowser:Clean;FMXExternalPumpBrowser_helper_gpu:Clean;FMXExternalPumpBrowser_helper_plugin:Clean;FMXExternalPumpBrowser_helper_renderer:Clean;FMXExternalPumpBrowser_helper:Clean"/>
<CallTarget Targets="FMXExternalPumpBrowser:Clean;FMXExternalPumpBrowser_helper_gpu:Clean;FMXExternalPumpBrowser_helper_plugin:Clean;FMXExternalPumpBrowser_helper_renderer:Clean;FMXExternalPumpBrowser_helper_alerts:Clean;FMXExternalPumpBrowser_helper:Clean"/>
</Target>
<Target Name="Make">
<CallTarget Targets="FMXExternalPumpBrowser:Make;FMXExternalPumpBrowser_helper_gpu:Make;FMXExternalPumpBrowser_helper_plugin:Make;FMXExternalPumpBrowser_helper_renderer:Make;FMXExternalPumpBrowser_helper:Make"/>
<CallTarget Targets="FMXExternalPumpBrowser:Make;FMXExternalPumpBrowser_helper_gpu:Make;FMXExternalPumpBrowser_helper_plugin:Make;FMXExternalPumpBrowser_helper_renderer:Make;FMXExternalPumpBrowser_helper_alerts:Make;FMXExternalPumpBrowser_helper:Make"/>
</Target>
<Import Project="$(BDS)\Bin\CodeGear.Group.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Group.Targets')"/>
</Project>

27
demos/Delphi_FMX_Mac/FMXExternalPumpBrowser/FMXExternalPumpBrowser_helper.deployproj
View File

@ -19,14 +19,15 @@
<RemoteCommand/>
<Overwrite>True</Overwrite>
</DeployFile>
<DeployFile Include="..\..\..\bin\FMXExternalPumpBrowser_helper.dSYM" Condition="'$(Config)'=='Debug'">
<RemoteDir>FMXExternalPumpBrowser_helper.app\..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF\</RemoteDir>
<DeployFile Include="..\..\..\bin\FMXExternalPumpBrowser_helper" Condition="'$(Config)'=='Debug'">
<RemoteDir>FMXExternalPumpBrowser_helper.app\Contents\MacOS\</RemoteDir>
<RemoteName>FMXExternalPumpBrowser_helper</RemoteName>
<DeployClass>ProjectOSXDebug</DeployClass>
<DeployClass>ProjectOutput</DeployClass>
<Operation>1</Operation>
<LocalCommand/>
<RemoteCommand/>
<Overwrite>True</Overwrite>
<Required>True</Required>
</DeployFile>
<DeployFile Include="..\..\..\bin\FMXExternalPumpBrowser_helper.info.plist" Condition="'$(Config)'=='Debug'">
<RemoteDir>FMXExternalPumpBrowser_helper.app\Contents\</RemoteDir>
@ -37,6 +38,15 @@
<RemoteCommand/>
<Overwrite>True</Overwrite>
</DeployFile>
<DeployFile Include="..\..\..\bin\FMXExternalPumpBrowser_helper.dSYM" Condition="'$(Config)'=='Debug'">
<RemoteDir>FMXExternalPumpBrowser_helper.app\..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF\</RemoteDir>
<RemoteName>FMXExternalPumpBrowser_helper</RemoteName>
<DeployClass>ProjectOSXDebug</DeployClass>
<Operation>1</Operation>
<LocalCommand/>
<RemoteCommand/>
<Overwrite>True</Overwrite>
</DeployFile>
<DeployFile Include="$(BDS)\bin\delphi_PROJECTICNS.icns" Condition="'$(Config)'=='Debug'">
<RemoteDir>FMXExternalPumpBrowser_helper.app\Contents\Resources\</RemoteDir>
<RemoteName>FMXExternalPumpBrowser_helper.icns</RemoteName>
@ -46,16 +56,6 @@
<RemoteCommand/>
<Overwrite>True</Overwrite>
</DeployFile>
<DeployFile Include="..\..\..\bin\FMXExternalPumpBrowser_helper" Condition="'$(Config)'=='Debug'">
<RemoteDir>FMXExternalPumpBrowser_helper.app\Contents\MacOS\</RemoteDir>
<RemoteName>FMXExternalPumpBrowser_helper</RemoteName>
<DeployClass>ProjectOutput</DeployClass>
<Operation>1</Operation>
<LocalCommand/>
<RemoteCommand/>
<Overwrite>True</Overwrite>
<Required>True</Required>
</DeployFile>
</ItemGroup>
<ItemGroup Condition="'$(Platform)'=='Win32'"/>
<ItemGroup Condition="'$(Platform)'=='Android64'"/>
@ -64,4 +64,5 @@
<ItemGroup Condition="'$(Platform)'=='Win64'"/>
<ItemGroup Condition="'$(Platform)'=='iOSDevice64'"/>
<ItemGroup Condition="'$(Platform)'=='iOSSimARM64'"/>
<ItemGroup Condition="'$(Platform)'=='Win64x'"/>
</Project>

59
demos/Delphi_FMX_Mac/FMXExternalPumpBrowser/FMXExternalPumpBrowser_helper_alerts.deployproj Normal file
View File

@ -0,0 +1,59 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<Import Condition="Exists('$(BDS)\bin\CodeGear.Deployment.targets')" Project="$(BDS)\bin\CodeGear.Deployment.targets"/>
<ProjectExtensions>
<ProjectFileVersion>12</ProjectFileVersion>
</ProjectExtensions>
<PropertyGroup>
<DeviceId Condition="'$(Platform)'=='Android'"/>
<DeviceId Condition="'$(Platform)'=='Android64'"/>
<DeviceId Condition="'$(Platform)'=='iOSDevice64'"/>
<DeviceId Condition="'$(Platform)'=='iOSSimARM64'"/>
</PropertyGroup>
<ItemGroup Condition="'$(Platform)'=='OSX64'">
<DeployFile Include="..\..\..\bin\FMXExternalPumpBrowser_helper_alerts.info.plist" Condition="'$(Config)'=='Debug'">
<RemoteDir>FMXExternalPumpBrowser_helper_alerts.app\Contents\</RemoteDir>
<RemoteName>Info.plist</RemoteName>
<DeployClass>ProjectOSXInfoPList</DeployClass>
<Operation>1</Operation>
<LocalCommand/>
<RemoteCommand/>
<Overwrite>True</Overwrite>
</DeployFile>
<DeployFile Include="..\..\..\bin\FMXExternalPumpBrowser_helper_alerts.dSYM" Condition="'$(Config)'=='Debug'">
<RemoteDir>FMXExternalPumpBrowser_helper_alerts.app\..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF\</RemoteDir>
<RemoteName>FMXExternalPumpBrowser_helper_alerts</RemoteName>
<DeployClass>ProjectOSXDebug</DeployClass>
<Operation>1</Operation>
<LocalCommand/>
<RemoteCommand/>
<Overwrite>True</Overwrite>
</DeployFile>
<DeployFile Include="..\..\..\bin\FMXExternalPumpBrowser_helper_alerts" Condition="'$(Config)'=='Debug'">
<RemoteDir>FMXExternalPumpBrowser_helper_alerts.app\Contents\MacOS\</RemoteDir>
<RemoteName>FMXExternalPumpBrowser_helper_alerts</RemoteName>
<DeployClass>ProjectOutput</DeployClass>
<Operation>1</Operation>
<LocalCommand/>
<RemoteCommand/>
<Overwrite>True</Overwrite>
<Required>True</Required>
</DeployFile>
<DeployFile Include="..\..\..\bin\FMXExternalPumpBrowser_helper_alerts.entitlements" Condition="'$(Config)'=='Debug'">
<RemoteDir>FMXExternalPumpBrowser_helper_alerts.app\..\</RemoteDir>
<RemoteName>FMXExternalPumpBrowser_helper_alerts.entitlements</RemoteName>
<DeployClass>ProjectOSXEntitlements</DeployClass>
<Operation>1</Operation>
<LocalCommand/>
<RemoteCommand/>
<Overwrite>True</Overwrite>
</DeployFile>
</ItemGroup>
<ItemGroup Condition="'$(Platform)'=='Win32'"/>
<ItemGroup Condition="'$(Platform)'=='Android64'"/>
<ItemGroup Condition="'$(Platform)'=='Android'"/>
<ItemGroup Condition="'$(Platform)'=='OSXARM64'"/>
<ItemGroup Condition="'$(Platform)'=='Win64'"/>
<ItemGroup Condition="'$(Platform)'=='iOSDevice64'"/>
<ItemGroup Condition="'$(Platform)'=='iOSSimARM64'"/>
<ItemGroup Condition="'$(Platform)'=='Win64x'"/>
</Project>

18
demos/Delphi_FMX_Mac/FMXExternalPumpBrowser/FMXExternalPumpBrowser_helper_alerts.dpr Normal file
View File

@ -0,0 +1,18 @@
program FMXExternalPumpBrowser_helper_alerts;
{$I ..\..\..\source\cef.inc}
uses
{$IFDEF DELPHI17_UP}
System.StartUpCopy,
{$ENDIF}
FMX.Forms,
uCEFLoader in 'uCEFLoader.pas';
{$R *.res}
begin
Application.Initialize;
Application.Run;
end.

1231
demos/Delphi_FMX_Mac/FMXExternalPumpBrowser/FMXExternalPumpBrowser_helper_alerts.dproj Normal file
View File

File diff suppressed because it is too large Load Diff

39
demos/Delphi_FMX_Mac/FMXExternalPumpBrowser/FMXExternalPumpBrowser_helper_gpu.deployproj
View File

@ -10,16 +10,6 @@
<DeviceId Condition="'$(Platform)'=='iOSSimARM64'"/>
</PropertyGroup>
<ItemGroup Condition="'$(Platform)'=='OSX64'">
<DeployFile Include="..\..\..\bin\FMXExternalPumpBrowser_helper_gpu" Condition="'$(Config)'=='Debug'">
<RemoteDir>FMXExternalPumpBrowser_helper_gpu.app\Contents\MacOS\</RemoteDir>
<RemoteName>FMXExternalPumpBrowser_helper_gpu</RemoteName>
<DeployClass>ProjectOutput</DeployClass>
<Operation>1</Operation>
<LocalCommand/>
<RemoteCommand/>
<Overwrite>True</Overwrite>
<Required>True</Required>
</DeployFile>
<DeployFile Include="..\..\..\bin\FMXExternalPumpBrowser_helper_gpu.dSYM" Condition="'$(Config)'=='Debug'">
<RemoteDir>FMXExternalPumpBrowser_helper_gpu.app\..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF\</RemoteDir>
<RemoteName>FMXExternalPumpBrowser_helper_gpu</RemoteName>
@ -29,15 +19,6 @@
<RemoteCommand/>
<Overwrite>True</Overwrite>
</DeployFile>
<DeployFile Include="..\..\..\bin\FMXExternalPumpBrowser_helper_gpu.info.plist" Condition="'$(Config)'=='Debug'">
<RemoteDir>FMXExternalPumpBrowser_helper_gpu.app\Contents\</RemoteDir>
<RemoteName>Info.plist</RemoteName>
<DeployClass>ProjectOSXInfoPList</DeployClass>
<Operation>1</Operation>
<LocalCommand/>
<RemoteCommand/>
<Overwrite>True</Overwrite>
</DeployFile>
<DeployFile Include="..\..\..\bin\FMXExternalPumpBrowser_helper_gpu.entitlements" Condition="'$(Config)'=='Debug'">
<RemoteDir>FMXExternalPumpBrowser_helper_gpu.app\..\</RemoteDir>
<RemoteName>FMXExternalPumpBrowser_helper_gpu.entitlements</RemoteName>
@ -47,6 +28,25 @@
<RemoteCommand/>
<Overwrite>True</Overwrite>
</DeployFile>
<DeployFile Include="..\..\..\bin\FMXExternalPumpBrowser_helper_gpu" Condition="'$(Config)'=='Debug'">
<RemoteDir>FMXExternalPumpBrowser_helper_gpu.app\Contents\MacOS\</RemoteDir>
<RemoteName>FMXExternalPumpBrowser_helper_gpu</RemoteName>
<DeployClass>ProjectOutput</DeployClass>
<Operation>1</Operation>
<LocalCommand/>
<RemoteCommand/>
<Overwrite>True</Overwrite>
<Required>True</Required>
</DeployFile>
<DeployFile Include="..\..\..\bin\FMXExternalPumpBrowser_helper_gpu.info.plist" Condition="'$(Config)'=='Debug'">
<RemoteDir>FMXExternalPumpBrowser_helper_gpu.app\Contents\</RemoteDir>
<RemoteName>Info.plist</RemoteName>
<DeployClass>ProjectOSXInfoPList</DeployClass>
<Operation>1</Operation>
<LocalCommand/>
<RemoteCommand/>
<Overwrite>True</Overwrite>
</DeployFile>
</ItemGroup>
<ItemGroup Condition="'$(Platform)'=='Win32'"/>
<ItemGroup Condition="'$(Platform)'=='Android64'"/>
@ -55,4 +55,5 @@
<ItemGroup Condition="'$(Platform)'=='Win64'"/>
<ItemGroup Condition="'$(Platform)'=='iOSDevice64'"/>
<ItemGroup Condition="'$(Platform)'=='iOSSimARM64'"/>
<ItemGroup Condition="'$(Platform)'=='Win64x'"/>
</Project>

19
demos/Delphi_FMX_Mac/FMXExternalPumpBrowser/FMXExternalPumpBrowser_helper_plugin.deployproj
View File

@ -28,15 +28,6 @@
<RemoteCommand/>
<Overwrite>True</Overwrite>
</DeployFile>
<DeployFile Include="..\..\..\bin\FMXExternalPumpBrowser_helper_plugin.entitlements" Condition="'$(Config)'=='Debug'">
<RemoteDir>FMXExternalPumpBrowser_helper_plugin.app\..\</RemoteDir>
<RemoteName>FMXExternalPumpBrowser_helper_plugin.entitlements</RemoteName>
<DeployClass>ProjectOSXEntitlements</DeployClass>
<Operation>1</Operation>
<LocalCommand/>
<RemoteCommand/>
<Overwrite>True</Overwrite>
</DeployFile>
<DeployFile Include="..\..\..\bin\FMXExternalPumpBrowser_helper_plugin" Condition="'$(Config)'=='Debug'">
<RemoteDir>FMXExternalPumpBrowser_helper_plugin.app\Contents\MacOS\</RemoteDir>
<RemoteName>FMXExternalPumpBrowser_helper_plugin</RemoteName>
@ -47,6 +38,15 @@
<Overwrite>True</Overwrite>
<Required>True</Required>
</DeployFile>
<DeployFile Include="..\..\..\bin\FMXExternalPumpBrowser_helper_plugin.entitlements" Condition="'$(Config)'=='Debug'">
<RemoteDir>FMXExternalPumpBrowser_helper_plugin.app\..\</RemoteDir>
<RemoteName>FMXExternalPumpBrowser_helper_plugin.entitlements</RemoteName>
<DeployClass>ProjectOSXEntitlements</DeployClass>
<Operation>1</Operation>
<LocalCommand/>
<RemoteCommand/>
<Overwrite>True</Overwrite>
</DeployFile>
</ItemGroup>
<ItemGroup Condition="'$(Platform)'=='Win32'"/>
<ItemGroup Condition="'$(Platform)'=='Android64'"/>
@ -55,4 +55,5 @@
<ItemGroup Condition="'$(Platform)'=='Win64'"/>
<ItemGroup Condition="'$(Platform)'=='iOSDevice64'"/>
<ItemGroup Condition="'$(Platform)'=='iOSSimARM64'"/>
<ItemGroup Condition="'$(Platform)'=='Win64x'"/>
</Project>

39
demos/Delphi_FMX_Mac/FMXExternalPumpBrowser/FMXExternalPumpBrowser_helper_renderer.deployproj
View File

@ -10,6 +10,25 @@
<DeviceId Condition="'$(Platform)'=='iOSSimARM64'"/>
</PropertyGroup>
<ItemGroup Condition="'$(Platform)'=='OSX64'">
<DeployFile Include="..\..\..\bin\FMXExternalPumpBrowser_helper_renderer" Condition="'$(Config)'=='Debug'">
<RemoteDir>FMXExternalPumpBrowser_helper_renderer.app\Contents\MacOS\</RemoteDir>
<RemoteName>FMXExternalPumpBrowser_helper_renderer</RemoteName>
<DeployClass>ProjectOutput</DeployClass>
<Operation>1</Operation>
<LocalCommand/>
<RemoteCommand/>
<Overwrite>True</Overwrite>
<Required>True</Required>
</DeployFile>
<DeployFile Include="..\..\..\bin\FMXExternalPumpBrowser_helper_renderer.entitlements" Condition="'$(Config)'=='Debug'">
<RemoteDir>FMXExternalPumpBrowser_helper_renderer.app\..\</RemoteDir>
<RemoteName>FMXExternalPumpBrowser_helper_renderer.entitlements</RemoteName>
<DeployClass>ProjectOSXEntitlements</DeployClass>
<Operation>1</Operation>
<LocalCommand/>
<RemoteCommand/>
<Overwrite>True</Overwrite>
</DeployFile>
<DeployFile Include="..\..\..\bin\FMXExternalPumpBrowser_helper_renderer.info.plist" Condition="'$(Config)'=='Debug'">
<RemoteDir>FMXExternalPumpBrowser_helper_renderer.app\Contents\</RemoteDir>
<RemoteName>Info.plist</RemoteName>
@ -28,25 +47,6 @@
<RemoteCommand/>
<Overwrite>True</Overwrite>
</DeployFile>
<DeployFile Include="..\..\..\bin\FMXExternalPumpBrowser_helper_renderer.entitlements" Condition="'$(Config)'=='Debug'">
<RemoteDir>FMXExternalPumpBrowser_helper_renderer.app\..\</RemoteDir>
<RemoteName>FMXExternalPumpBrowser_helper_renderer.entitlements</RemoteName>
<DeployClass>ProjectOSXEntitlements</DeployClass>
<Operation>1</Operation>
<LocalCommand/>
<RemoteCommand/>
<Overwrite>True</Overwrite>
</DeployFile>
<DeployFile Include="..\..\..\bin\FMXExternalPumpBrowser_helper_renderer" Condition="'$(Config)'=='Debug'">
<RemoteDir>FMXExternalPumpBrowser_helper_renderer.app\Contents\MacOS\</RemoteDir>
<RemoteName>FMXExternalPumpBrowser_helper_renderer</RemoteName>
<DeployClass>ProjectOutput</DeployClass>
<Operation>1</Operation>
<LocalCommand/>
<RemoteCommand/>
<Overwrite>True</Overwrite>
<Required>True</Required>
</DeployFile>
</ItemGroup>
<ItemGroup Condition="'$(Platform)'=='Win32'"/>
<ItemGroup Condition="'$(Platform)'=='Android64'"/>
@ -55,4 +55,5 @@
<ItemGroup Condition="'$(Platform)'=='Win64'"/>
<ItemGroup Condition="'$(Platform)'=='iOSDevice64'"/>
<ItemGroup Condition="'$(Platform)'=='iOSSimARM64'"/>
<ItemGroup Condition="'$(Platform)'=='Win64x'"/>
</Project>

24
demos/Delphi_FMX_Mac/FMXExternalPumpBrowser/uFMXExternalPumpBrowser.fmx
View File

@ -25,7 +25,7 @@ object FMXExternalPumpBrowserFrm: TFMXExternalPumpBrowserFrm
Size.Width = 800.000000000000000000
Size.Height = 33.000000000000000000
Size.PlatformDefault = False
TabOrder = 1
TabOrder = 2
object Layout1: TLayout
Align = Right
Padding.Left = 5.000000000000000000
@ -105,7 +105,7 @@ object FMXExternalPumpBrowserFrm: TFMXExternalPumpBrowserFrm
TabOrder = 0
CanFocus = True
Size.Width = 800.000000000000000000
Size.Height = 600.000000000000000000
Size.Height = 578.000000000000000000
Size.PlatformDefault = False
OnEnter = Panel1Enter
OnExit = Panel1Exit
@ -185,9 +185,29 @@ object FMXExternalPumpBrowserFrm: TFMXExternalPumpBrowserFrm
OnClick = ForwardMenuItemClick
end
end
object StatusBar: TStatusBar
Padding.Left = 5.000000000000000000
Padding.Right = 5.000000000000000000
Position.Y = 611.000000000000000000
ShowSizeGrip = False
Size.Width = 800.000000000000000000
Size.Height = 22.000000000000000000
Size.PlatformDefault = False
TabOrder = 1
object StatusLbl: TLabel
Align = Client
Size.Width = 790.000000000000000000
Size.Height = 22.000000000000000000
Size.PlatformDefault = False
TextSettings.Trimming = None
TabOrder = 0
end
end
object chrmosr: TFMXChromium
OnBeforeContextMenu = chrmosrBeforeContextMenu
OnTitleChange = chrmosrTitleChange
OnTooltip = chrmosrTooltip
OnStatusMessage = chrmosrStatusMessage
OnCursorChange = chrmosrCursorChange
OnJsdialog = chrmosrJsdialog
OnBeforePopup = chrmosrBeforePopup

19
demos/Delphi_FMX_Mac/FMXExternalPumpBrowser/uFMXExternalPumpBrowser.pas
View File

@ -53,6 +53,8 @@ type
PopupMenu1: TPopupMenu;
BackMenuItem: TMenuItem;
ForwardMenuItem: TMenuItem;
StatusBar: TStatusBar;
StatusLbl: TLabel;
procedure GoBtnClick(Sender: TObject);
procedure GoBtnEnter(Sender: TObject);
@ -107,6 +109,10 @@ type
procedure UndoMenuItemClick(Sender: TObject);
procedure BackMenuItemClick(Sender: TObject);
procedure ForwardMenuItemClick(Sender: TObject);
procedure chrmosrTitleChange(Sender: TObject; const browser: ICefBrowser;
const title: ustring);
procedure chrmosrStatusMessage(Sender: TObject; const browser: ICefBrowser;
const value: ustring);
protected
FPopUpBitmap : TBitmap;
@ -171,6 +177,7 @@ var
// <appname> Helper (GPU).app
// <appname> Helper (Plugin).app
// <appname> Helper (Renderer).app
// <appname> Helper (Alerts).app
// Delphi doesn't allow project names with spaces so you need to rename all the
// helper bundles and the executable inside them. The "AppHelperRenamer" tool
@ -977,6 +984,18 @@ begin
end;
end;
procedure TFMXExternalPumpBrowserFrm.chrmosrStatusMessage(Sender: TObject;
const browser: ICefBrowser; const value: ustring);
begin
StatusLbl.Text := value;
end;
procedure TFMXExternalPumpBrowserFrm.chrmosrTitleChange(Sender: TObject;
const browser: ICefBrowser; const title: ustring);
begin
Caption := 'FMX External Pump Browser - ' + title;
end;
procedure TFMXExternalPumpBrowserFrm.chrmosrTooltip( Sender : TObject;
const browser : ICefBrowser;
var text : ustring;