pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-11-23 21:34:53 +02:00
Code Issues Actions Releases Activity

Update to CEF 90.5.4

Browse Source
This commit is contained in:
Salvador Díaz Fau
2021-04-18 19:36:20 +02:00
parent 8d8d498b0f
commit c5fae76a1f
40 changed files with 743 additions and 799 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
source/uCEFApplication.pas
View File

@@ -101,8 +101,8 @@ type
destructor Destroy; override;
procedure UpdateDeviceScaleFactor; override;
property DestroyApplicationObject: boolean read FDestroyApplicationObject write FDestroyApplicationObject;
property DestroyAppWindows : boolean read FDestroyAppWindows write FDestroyAppWindows;
property DestroyApplicationObject : boolean read FDestroyApplicationObject write FDestroyApplicationObject;
property DestroyAppWindows : boolean read FDestroyAppWindows write FDestroyAppWindows;
{$IFDEF FPC}
procedure Internal_OnContextInitialized; override; // In UI thread
@@ -209,17 +209,19 @@ begin
{$ENDIF}
inherited Create;
if GlobalCEFApp = nil then
if (GlobalCEFApp = nil) then
GlobalCEFApp := Self;
FDestroyApplicationObject := False;
FDestroyAppWindows := True;
FDestroyApplicationObject := False;
FDestroyAppWindows := True;
end;
destructor TCefApplication.Destroy;
begin
if GlobalCEFApp = Self then
if (GlobalCEFApp = Self) then
GlobalCEFApp := nil;
inherited Destroy;
{$IFDEF FPC}
@@ -301,7 +303,7 @@ var
begin
{$IFNDEF FPC}
{$IFNDEF FMX}
if Application <> nil then
if (Application <> nil) then
begin
if FDestroyApplicationObject then
begin
@@ -335,7 +337,8 @@ begin
if (Application.PopupControlWnd <> 0) then DeallocateHWnd(Application.PopupControlWnd);
{$ENDIF}
end;
if not IsLibrary then
if not(IsLibrary) then
begin
// Undo the OleInitialize from TApplication.Create. The sub-processes want a different
// COM thread model and fail with an assertion if the Debug-DLLs are used.