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

1
demos/Lazarus_Windows/JavaScript/JSDialog/uJSDialogBrowser.pas
View File

@ -87,6 +87,7 @@ uses
procedure CreateGlobalCEFApp;
begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.SetCurrentDir := True;
//GlobalCEFApp.LogFile := 'cef.log';
//GlobalCEFApp.LogSeverity := LOGSEVERITY_VERBOSE;
end;

11
demos/Lazarus_Windows/JavaScript/JSEval/uJSEval.pas
View File

@ -2,7 +2,7 @@
{$MODE Delphi}
{$I ..\..\..\source\cef.inc}
{$I ..\..\..\..\source\cef.inc}
interface
@ -36,7 +36,6 @@ type
GoBtn: TButton;
AddressEdt: TEdit;
Timer1: TTimer;
procedure CEFSentinel1Close(Sender: TObject);
procedure Chromium1AfterCreated(Sender: TObject; const browser: ICefBrowser);
procedure GoBtnClick(Sender: TObject);
procedure FormShow(Sender: TObject);
@ -148,11 +147,6 @@ begin
PostMessage(Handle, CEF_AFTERCREATED, 0, 0);
end;
procedure TJSEvalFrm.CEFSentinel1Close(Sender: TObject);
begin
end;
procedure TJSEvalFrm.Chromium1BeforeClose(Sender: TObject;
const browser: ICefBrowser);
begin
@ -508,7 +502,8 @@ end;
procedure CreateGlobalCEFApp;
begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.SetCurrentDir := True;
GlobalCEFApp.OnProcessMessageReceived := RenderProcessHandler_OnProcessMessageReceivedEvent;
end;

11
demos/Lazarus_Windows/JavaScript/JSExecutingFunctions/uJSExecutingFunctions.pas
View File

@ -2,7 +2,7 @@
{$MODE Delphi}
{$I ..\..\..\source\cef.inc}
{$I ..\..\..\..\source\cef.inc}
interface
@ -33,7 +33,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);
@ -143,7 +142,8 @@ procedure CreateGlobalCEFApp;
begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.OnContextCreated := GlobalCEFApp_OnContextCreated;
GlobalCEFApp.OnProcessMessageReceived := GlobalCEFApp_OnProcessMessageReceived;
GlobalCEFApp.OnProcessMessageReceived := GlobalCEFApp_OnProcessMessageReceived;
GlobalCEFApp.SetCurrentDir := True;
end;
procedure TJSExecutingFunctionsFrm.GoBtnClick(Sender: TObject);
@ -241,11 +241,6 @@ begin
if not(Chromium1.CreateBrowser(CEFWindowParent1, '')) then Timer1.Enabled := True;
end;
procedure TJSExecutingFunctionsFrm.CEFSentinel1Close(Sender: TObject);
begin
end;
procedure TJSExecutingFunctionsFrm.WMMove(var aMessage : TWMMove);
begin
inherited;

2
demos/Lazarus_Windows/JavaScript/JSExecutingFunctions/uMyV8Handler.pas
View File

@ -2,7 +2,7 @@
{$MODE Delphi}
{$I ..\..\..\source\cef.inc}
{$I ..\..\..\..\source\cef.inc}
interface

11
demos/Lazarus_Windows/JavaScript/JSExtension/uJSExtension.pas
View File

@ -2,7 +2,7 @@
{$MODE Delphi}
{$I ..\..\..\source\cef.inc}
{$I ..\..\..\..\source\cef.inc}
interface
@ -40,7 +40,6 @@ type
Chromium1: TChromium;
StatusPnl: TPanel;
Timer1: TTimer;
procedure CEFSentinel1Close(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure GoBtnClick(Sender: TObject);
procedure Chromium1BeforeContextMenu(Sender: TObject;
@ -287,7 +286,8 @@ end;
procedure CreateGlobalCEFApp;
begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.OnWebKitInitialized := GlobalCEFApp_OnWebKitInitialized;
GlobalCEFApp.OnWebKitInitialized := GlobalCEFApp_OnWebKitInitialized;
GlobalCEFApp.SetCurrentDir := True;
{$IFDEF DEBUG}
GlobalCEFApp.LogFile := 'debug.log';
GlobalCEFApp.LogSeverity := LOGSEVERITY_INFO;
@ -473,11 +473,6 @@ begin
if not(Chromium1.CreateBrowser(CEFWindowParent1, '')) then Timer1.Enabled := True;
end;
procedure TJSExtensionFrm.CEFSentinel1Close(Sender: TObject);
begin
end;
procedure TJSExtensionFrm.WMMove(var aMessage : TWMMove);
begin
inherited;

2
demos/Lazarus_Windows/JavaScript/JSExtension/uTestExtensionHandler.pas
View File

@ -2,7 +2,7 @@
{$MODE Delphi}
{$I ..\..\..\source\cef.inc}
{$I ..\..\..\..\source\cef.inc}
interface

11
demos/Lazarus_Windows/JavaScript/JSExtensionWithFunction/uJSExtensionWithFunction.pas
View File

@ -2,7 +2,7 @@
{$MODE Delphi}
{$I ..\..\..\source\cef.inc}
{$I ..\..\..\..\source\cef.inc}
interface
@ -29,7 +29,6 @@ type
Chromium1: TChromium;
Timer1: TTimer;
StatusBar1: TStatusBar;
procedure CEFSentinel1Close(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure GoBtnClick(Sender: TObject);
procedure Chromium1AfterCreated(Sender: TObject; const browser: ICefBrowser);
@ -116,7 +115,8 @@ end;
procedure CreateGlobalCEFApp;
begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.OnWebKitInitialized := GlobalCEFApp_OnWebKitInitializedEvent;
GlobalCEFApp.OnWebKitInitialized := GlobalCEFApp_OnWebKitInitializedEvent;
GlobalCEFApp.SetCurrentDir := True;
end;
procedure TJSExtensionWithFunctionFrm.GoBtnClick(Sender: TObject);
@ -195,11 +195,6 @@ begin
if not(Chromium1.CreateBrowser(CEFWindowParent1, '')) then Timer1.Enabled := True;
end;
procedure TJSExtensionWithFunctionFrm.CEFSentinel1Close(Sender: TObject);
begin
end;
procedure TJSExtensionWithFunctionFrm.WMMove(var aMessage : TWMMove);
begin
inherited;

2
demos/Lazarus_Windows/JavaScript/JSExtensionWithFunction/uMyV8Handler.pas
View File

@ -2,7 +2,7 @@
{$MODE Delphi}
{$I ..\..\..\source\cef.inc}
{$I ..\..\..\..\source\cef.inc}
interface

11
demos/Lazarus_Windows/JavaScript/JSExtensionWithObjectParameter/uJSExtensionWithObjectParameter.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);
@ -119,7 +118,8 @@ end;
procedure CreateGlobalCEFApp;
begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.OnWebKitInitialized := GlobalCEFApp_OnWebKitInitializedEvent;
GlobalCEFApp.OnWebKitInitialized := GlobalCEFApp_OnWebKitInitializedEvent;
GlobalCEFApp.SetCurrentDir := True;
end;
procedure TJSExtensionWithObjectParameterFrm.GoBtnClick(Sender: TObject);
@ -185,11 +185,6 @@ begin
if not(Chromium1.CreateBrowser(CEFWindowParent1, '')) then Timer1.Enabled := True;
end;
procedure TJSExtensionWithObjectParameterFrm.CEFSentinel1Close(Sender: TObject);
begin
end;
procedure TJSExtensionWithObjectParameterFrm.WMMove(var aMessage : TWMMove);
begin
inherited;

2
demos/Lazarus_Windows/JavaScript/JSExtensionWithObjectParameter/uMyV8Handler.pas
View File

@ -2,7 +2,7 @@
{$MODE Delphi}
{$I ..\..\..\source\cef.inc}
{$I ..\..\..\..\source\cef.inc}
interface

8
demos/Lazarus_Windows/JavaScript/JSSharedMemoryProcMessage/uMainForm.lfm
View File

@ -15,7 +15,7 @@ object MainForm: TMainForm
OnDestroy = FormDestroy
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '2.2.2.0'
LCLVersion = '3.0.0.3'
object CEFWindowParent1: TCEFWindowParent
Left = 0
Height = 559
@ -35,6 +35,7 @@ object MainForm: TMainForm
ClientWidth = 878
DoubleBuffered = True
Enabled = False
ParentBackground = False
ParentDoubleBuffered = False
TabOrder = 1
object AddressEdt: TEdit
@ -55,6 +56,7 @@ object MainForm: TMainForm
BevelOuter = bvNone
ClientHeight = 20
ClientWidth = 128
ParentBackground = False
TabOrder = 1
object GoBtn: TButton
Left = 0
@ -63,8 +65,8 @@ object MainForm: TMainForm
Width = 31
Align = alLeft
Caption = 'Go'
OnClick = GoBtnClick
TabOrder = 0
OnClick = GoBtnClick
end
object SendMessageBtn: TButton
Left = 40
@ -73,8 +75,8 @@ object MainForm: TMainForm
Width = 88
Align = alRight
Caption = 'Send message'
OnClick = SendMessageBtnClick
TabOrder = 1
OnClick = SendMessageBtnClick
end
end
end

5
demos/Lazarus_Windows/JavaScript/JSSharedMemoryProcMessage/uMainForm.pas
View File

@ -2,7 +2,7 @@
{$MODE Delphi}
{$I ..\..\..\source\cef.inc}
{$I ..\..\..\..\source\cef.inc}
interface
@ -152,7 +152,8 @@ begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.OnProcessMessageReceived := GlobalCEFApp_OnProcessMessageReceived;
GlobalCEFApp.LogFile := 'debug.log';
GlobalCEFApp.LogSeverity := LOGSEVERITY_INFO;
GlobalCEFApp.LogSeverity := LOGSEVERITY_INFO;
GlobalCEFApp.SetCurrentDir := True;
// Delphi can only debug one process and it debugs the browser process by
// default. If you need to debug code executed in the render process you will

11
demos/Lazarus_Windows/JavaScript/JSSimpleExtension/uJSSimpleExtension.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);
@ -106,7 +105,8 @@ end;
procedure CreateGlobalCEFApp;
begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.OnWebKitInitialized := GlobalCEFApp_OnWebKitInitializedEvent;
GlobalCEFApp.OnWebKitInitialized := GlobalCEFApp_OnWebKitInitializedEvent;
GlobalCEFApp.SetCurrentDir := True;
end;
procedure TJSSimpleExtensionFrm.GoBtnClick(Sender: TObject);
@ -140,11 +140,6 @@ begin
if not(Chromium1.CreateBrowser(CEFWindowParent1, '')) then Timer1.Enabled := True;
end;
procedure TJSSimpleExtensionFrm.CEFSentinel1Close(Sender: TObject);
begin
end;
procedure TJSSimpleExtensionFrm.WMMove(var aMessage : TWMMove);
begin
inherited;

11
demos/Lazarus_Windows/JavaScript/JSSimpleWindowBinding/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);
@ -98,7 +97,8 @@ end;
procedure CreateGlobalCEFApp;
begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.OnContextCreated := GlobalCEFApp_OnContextCreated;
GlobalCEFApp.OnContextCreated := GlobalCEFApp_OnContextCreated;
GlobalCEFApp.SetCurrentDir := True;
end;
procedure TJSSimpleWindowBindingFrm.GoBtnClick(Sender: TObject);
@ -132,11 +132,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;

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;

11
demos/Lazarus_Windows/JavaScript/JSWindowBindingWithArrayBuffer/uJSWindowBindingWithArrayBuffer.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);
@ -123,7 +122,8 @@ end;
procedure CreateGlobalCEFApp;
begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.OnContextCreated := GlobalCEFApp_OnContextCreated;
GlobalCEFApp.OnContextCreated := GlobalCEFApp_OnContextCreated;
GlobalCEFApp.SetCurrentDir := True;
end;
procedure TJSWindowBindingWithArrayBufferFrm.GoBtnClick(Sender: TObject);
@ -156,11 +156,6 @@ begin
if not(Chromium1.CreateBrowser(CEFWindowParent1, '')) then Timer1.Enabled := True;
end;
procedure TJSWindowBindingWithArrayBufferFrm.CEFSentinel1Close(Sender: TObject);
begin
end;
procedure TJSWindowBindingWithArrayBufferFrm.WMMove(var aMessage : TWMMove);
begin
inherited;

11
demos/Lazarus_Windows/JavaScript/JSWindowBindingWithFunction/uJSWindowBindingWithFunction.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);
@ -103,7 +102,8 @@ end;
procedure CreateGlobalCEFApp;
begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.OnContextCreated := GlobalCEFApp_OnContextCreated;
GlobalCEFApp.OnContextCreated := GlobalCEFApp_OnContextCreated;
GlobalCEFApp.SetCurrentDir := True;
end;
procedure TJSWindowBindingWithFunctionFrm.GoBtnClick(Sender: TObject);
@ -136,11 +136,6 @@ begin
if not(Chromium1.CreateBrowser(CEFWindowParent1, '')) then Timer1.Enabled := True;
end;
procedure TJSWindowBindingWithFunctionFrm.CEFSentinel1Close(Sender: TObject);
begin
end;
procedure TJSWindowBindingWithFunctionFrm.WMMove(var aMessage : TWMMove);
begin
inherited;

2
demos/Lazarus_Windows/JavaScript/JSWindowBindingWithFunction/uMyV8Handler.pas
View File

@ -2,7 +2,7 @@
{$MODE Delphi}
{$I ..\..\..\source\cef.inc}
{$I ..\..\..\..\source\cef.inc}
interface

5
demos/Lazarus_Windows/JavaScript/JSWindowBindingWithObject/uJSWindowBindingWithObject.pas
View File

@ -2,7 +2,7 @@
{$MODE Delphi}
{$I ..\..\..\source\cef.inc}
{$I ..\..\..\..\source\cef.inc}
interface
@ -104,7 +104,8 @@ end;
procedure CreateGlobalCEFApp;
begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.OnContextCreated := GlobalCEFApp_OnContextCreated;
GlobalCEFApp.OnContextCreated := GlobalCEFApp_OnContextCreated;
GlobalCEFApp.SetCurrentDir := True;
end;
procedure TJSWindowBindingWithObjectFrm.GoBtnClick(Sender: TObject);

2
demos/Lazarus_Windows/JavaScript/JSWindowBindingWithObject/uMyV8Accessor.pas
View File

@ -2,7 +2,7 @@
{$MODE Delphi}
{$I ..\..\..\source\cef.inc}
{$I ..\..\..\..\source\cef.inc}
interface