1
0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-11-23 21:34:53 +02:00

Update to CEF 76.1.5

This commit is contained in:
Salvador Díaz Fau
2019-08-01 18:20:42 +02:00
parent bb2adb076f
commit a189468639
123 changed files with 302 additions and 198 deletions

View File

@@ -47,7 +47,7 @@ uses
Forms,
Windows,
{$ENDIF }
uCEFApplication, uCEFConstants,
uCEFApplication,
uPostInspectorBrowser in 'uPostInspectorBrowser.pas' {Form1};
{$R *.res}
@@ -57,7 +57,7 @@ uses
{$SetPEFlags IMAGE_FILE_LARGE_ADDRESS_AWARE}
begin
GlobalCEFApp := TCefApplication.Create;
CreateGlobalCEFApp;
if GlobalCEFApp.StartMainProcess then
begin
@@ -69,6 +69,5 @@ begin
Application.Run;
end;
GlobalCEFApp.Free;
GlobalCEFApp := nil;
DestroyGlobalCEFApp;
end.

View File

@@ -77,7 +77,6 @@ object Form1: TForm1
Height = 439
Align = alClient
TabOrder = 1
ExplicitTop = 27
end
object Memo1: TMemo
Left = 0

View File

@@ -118,6 +118,8 @@ type
var
Form1: TForm1;
procedure CreateGlobalCEFApp;
implementation
{$R *.dfm}
@@ -141,6 +143,14 @@ uses
// 2. TChromium.OnClose sends a CEFBROWSER_DESTROY message to destroy CEFWindowParent1 in the main thread, which triggers the TChromium.OnBeforeClose event.
// 3. TChromium.OnBeforeClose sets FCanClose := True and sends WM_CLOSE to the form.
procedure CreateGlobalCEFApp;
begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors';
//GlobalCEFApp.LogFile := 'cef.log';
//GlobalCEFApp.LogSeverity := LOGSEVERITY_VERBOSE;
end;
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose := FCanClose;