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 3.3239.1710.g85f637a

Browse Source 
Fixed an initialization bug in MDIBrowser, TabBrowser and ToolBoxBrowser
Added several procedures to clear interface and class references before destruction
This commit is contained in:
Salvador Díaz Fau
2017-12-27 14:05:33 +01:00
parent 984c87cc03
commit 9c9a9f59c7
16 changed files with 352 additions and 130 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
source/uCEFApplication.pas
View File

@@ -57,7 +57,7 @@ uses
const
CEF_SUPPORTED_VERSION_MAJOR = 3;
CEF_SUPPORTED_VERSION_MINOR = 3239;
CEF_SUPPORTED_VERSION_RELEASE = 1709;
CEF_SUPPORTED_VERSION_RELEASE = 1710;
CEF_SUPPORTED_VERSION_BUILD = 0;
CEF_CHROMEELF_VERSION_MAJOR = 63;
@@ -230,6 +230,7 @@ type
function FindFlashDLL(var aFileName : string) : boolean;
procedure ShowErrorMessageDlg(const aError : string); virtual;
function ParseProcessType : TCefProcessType;
procedure RemoveAppReferences;
procedure CreateAppHandlers;
public
@@ -496,6 +497,8 @@ destructor TCefApplication.Destroy;
begin
if FMustShutDown then ShutDown;
RemoveAppReferences;
if (FLibHandle <> 0) then
begin
FreeLibrary(FLibHandle);
@@ -511,6 +514,18 @@ begin
inherited Destroy;
end;
procedure TCefApplication.RemoveAppReferences;
begin
try
if (FResourceBundleHandler <> nil) then FResourceBundleHandler.InitializeVars;
if (FBrowserProcessHandler <> nil) then FBrowserProcessHandler.InitializeVars;
if (FRenderProcessHandler <> nil) then FRenderProcessHandler.InitializeVars;
except
on e : exception do
if CustomExceptionHandler('TCefApplication.RemoveAppReferences', e) then raise;
end;
end;
procedure TCefApplication.AfterConstruction;
begin
inherited AfterConstruction;