pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-06-22 22:17:48 +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/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