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

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