mirror of
https://github.com/salvadordf/CEF4Delphi.git
synced 2025-06-02 21:57:37 +02:00
Fixes for ExternalPumpBrowser
This commit is contained in:
parent
2353308ef2
commit
55f5eec85c
@ -69,7 +69,8 @@ uses
|
|||||||
|
|
||||||
begin
|
begin
|
||||||
RequireDerivedFormResource:=True;
|
RequireDerivedFormResource:=True;
|
||||||
Application.Scaled:=True;
|
Application.Title := 'External Pump Browser';
|
||||||
|
Application.Scaled := True;
|
||||||
Application.Initialize;
|
Application.Initialize;
|
||||||
Application.CreateForm(TForm1, Form1);
|
Application.CreateForm(TForm1, Form1);
|
||||||
Application.Run;
|
Application.Run;
|
||||||
|
@ -276,8 +276,10 @@ 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
|
||||||
|
Loading…
x
Reference in New Issue
Block a user