pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-06-02 21:57:37 +02:00
Code Issues Actions Releases Activity

Fixes for ExternalPumpBrowser

Browse Source
This commit is contained in:
martin 2021-02-17 21:28:19 +01:00
parent 2353308ef2
commit 55f5eec85c
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
demos/Lazarus_any_OS/ExternalPumpBrowser/ExternalPumpBrowser.lpr
View File

@ -69,6 +69,7 @@ uses
begin begin
RequireDerivedFormResource:=True; RequireDerivedFormResource:=True;
Application.Title := 'External Pump Browser';
Application.Scaled := True; Application.Scaled := True;
Application.Initialize; Application.Initialize;
Application.CreateForm(TForm1, Form1); Application.CreateForm(TForm1, Form1);

4
demos/Lazarus_any_OS/ExternalPumpBrowser/uExternalPumpBrowser.pas
View File

@ -276,9 +276,11 @@ end;
initialization initialization
if GlobalCEFApp = nil then begin if GlobalCEFApp = nil then begin
CreateGlobalCEFApp; CreateGlobalCEFApp;
if not GlobalCEFApp.StartMainProcess then if not GlobalCEFApp.StartMainProcess then begin
DestroyGlobalCEFApp;
halt(0); // exit the subprocess halt(0); // exit the subprocess
end; end;
end;
finalization finalization
(* Destroy from this unit, which is used after "Interfaces". So this happens before the Application object is destroyed *) (* Destroy from this unit, which is used after "Interfaces". So this happens before the Application object is destroyed *)