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

Update to CEF 120.1.10

Browse Source 
Added Lazarus 3.0 support
This commit is contained in:
salvadordf
2023-12-23 18:58:40 +01:00
parent 4a5a03e7b7
commit a0c8eda6e0
89 changed files with 385 additions and 888 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
demos/Lazarus_Windows/JavaScript/JSWindowBindingSubProcess/JSSimpleWindowBinding.lpr
View File

@ -16,7 +16,8 @@ uses
{$SetPEFlags $20}
begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.SetCurrentDir := True;
// This is the same demo than the JSSimpleWindowBinding but using a different executable for the subprocesses.
// Notice that GlobalCEFApp.OnContextCreated is now defined in the SubProcess.

5
demos/Lazarus_Windows/JavaScript/JSWindowBindingSubProcess/SubProcess.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="11"/>
<Version Value="12"/>
<PathDelim Value="\"/>
<General>
<Flags>
@ -9,9 +9,9 @@
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
<MainUnitHasScaledStatement Value="False"/>
<CompatibilityMode Value="True"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="SubProcess"/>
<UseAppBundle Value="False"/>
<ResourceType Value="res"/>
@ -25,7 +25,6 @@
</PublishOptions>
<RunParams>
<FormatVersion Value="2"/>
<Modes Count="0"/>
</RunParams>
<RequiredPackages Count="2">
<Item1>

3
demos/Lazarus_Windows/JavaScript/JSWindowBindingSubProcess/SubProcess.lpr
View File

@ -32,7 +32,8 @@ end;
begin
GlobalCEFApp := TCefApplicationCore.Create;
GlobalCEFApp.OnContextCreated := GlobalCEFApp_OnContextCreated;
GlobalCEFApp.OnContextCreated := GlobalCEFApp_OnContextCreated;
GlobalCEFApp.SetCurrentDir := True;
// The main process and the subprocess *MUST* have the same FrameworkDirPath, ResourcesDirPath,
// LocalesDirPath, cache and UserDataPath paths

8
demos/Lazarus_Windows/JavaScript/JSWindowBindingSubProcess/uJSSimpleWindowBinding.pas
View File

@ -2,7 +2,7 @@
{$MODE Delphi}
{$I ..\..\..\source\cef.inc}
{$I ..\..\..\..\source\cef.inc}
interface
@ -28,7 +28,6 @@ type
CEFWindowParent1: TCEFWindowParent;
Chromium1: TChromium;
Timer1: TTimer;
procedure CEFSentinel1Close(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure GoBtnClick(Sender: TObject);
procedure Chromium1AfterCreated(Sender: TObject; const browser: ICefBrowser);
@ -113,11 +112,6 @@ begin
if not(Chromium1.CreateBrowser(CEFWindowParent1, '')) then Timer1.Enabled := True;
end;
procedure TJSSimpleWindowBindingFrm.CEFSentinel1Close(Sender: TObject);
begin
end;
procedure TJSSimpleWindowBindingFrm.WMMove(var aMessage : TWMMove);
begin
inherited;