Fixes for ExternalPumpBrowser

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

View File

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

View File

@ -276,8 +276,10 @@ end;
initialization
if GlobalCEFApp = nil then begin
CreateGlobalCEFApp;
if not GlobalCEFApp.StartMainProcess then
if not GlobalCEFApp.StartMainProcess then begin
DestroyGlobalCEFApp;
halt(0); // exit the subprocess
end;
end;
finalization