Delphi/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2024-11-15 07:45:56 +01:00
Code Issues Actions Packages Projects Releases Wiki 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
Show Stats 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;

15
source/uCEFMacOSFunctions.pas
View File

@ -40,10 +40,12 @@ const
PRJ_GPU_SUBFIX = '_helper_gpu';
PRJ_PLUGIN_SUBFIX = '_helper_plugin';
PRJ_RENDERER_SUBFIX = '_helper_renderer';
PRJ_ALERTS_SUBFIX = '_helper_alerts';
HELPER_SUBFIX = ' Helper';
GPU_SUBFIX = ' Helper (GPU)';
PLUGIN_SUBFIX = ' Helper (Plugin)';
RENDERER_SUBFIX = ' Helper (Renderer)';
ALERTS_SUBFIX = ' Helper (Alerts)';
{$ENDIF}
{$IFDEF MACOSX}
@ -270,6 +272,12 @@ begin
appOldSubfix := PRJ_RENDERER_SUBFIX;
appNewSubfix := RENDERER_SUBFIX;
end
else
if appBundleName.EndsWith(PRJ_ALERTS_SUBFIX) then
begin
appOldSubfix := PRJ_ALERTS_SUBFIX;
appNewSubfix := ALERTS_SUBFIX;
end
else
exit;
@ -299,8 +307,9 @@ end;
procedure CopyCEFHelpers(const aProjectName : string);
const
projectSubfixes : array [0..3] of string = (PRJ_HELPER_SUBFIX, PRJ_GPU_SUBFIX, PRJ_PLUGIN_SUBFIX, PRJ_RENDERER_SUBFIX);
helperSubfixes : array [0..3] of string = (HELPER_SUBFIX, GPU_SUBFIX, PLUGIN_SUBFIX, RENDERER_SUBFIX);
HELPER_COUNT = 5;
projectSubfixes : array [0..pred(HELPER_COUNT)] of string = (PRJ_HELPER_SUBFIX, PRJ_GPU_SUBFIX, PRJ_PLUGIN_SUBFIX, PRJ_RENDERER_SUBFIX, PRJ_ALERTS_SUBFIX);
helperSubfixes : array [0..pred(HELPER_COUNT)] of string = (HELPER_SUBFIX, GPU_SUBFIX, PLUGIN_SUBFIX, RENDERER_SUBFIX, ALERTS_SUBFIX);
var
appParentPath, appFrameworksPath : string;
srcBundlePath, dstBundlePath : string;
@ -310,7 +319,7 @@ begin
appParentPath := TDirectory.GetParent(GetModulePath);
appFrameworksPath := TDirectory.GetParent(ExtractFileDir(ParamStr(0))) + TPath.DirectorySeparatorChar + 'Frameworks';
for i := 0 to 3 do
for i := 0 to pred(HELPER_COUNT) do
begin
prjBundleName := aProjectName + projectSubfixes[i] + '.app';
helperBundleName := aProjectName + helperSubfixes[i] + '.app';

2
update_CEF4Delphi.json
View File

@ -2,7 +2,7 @@
"UpdateLazPackages" : [
{
"ForceNotify" : true,
"InternalVersion" : 644,
"InternalVersion" : 645,
"Name" : "cef4delphi_lazarus.lpk",
"Version" : "128.4.8"
}