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

16
source/uCEFResolveCallback.pas
View File

@@ -58,6 +58,8 @@ type
TCefResolveCallbackOwn = class(TCefBaseRefCountedOwn, ICefResolveCallback)
protected
procedure OnResolveCompleted(result: TCefErrorCode; const resolvedIps: TStrings); virtual; abstract;
procedure InitializeVars; virtual; abstract;
public
constructor Create; virtual;
end;
@@ -69,6 +71,8 @@ type
public
constructor Create(const aChromiumBrowser : TObject); reintroduce;
destructor Destroy; override;
procedure InitializeVars; override;
end;
implementation
@@ -129,6 +133,18 @@ begin
FChromiumBrowser := aChromiumBrowser;
end;
destructor TCefCustomResolveCallback.Destroy;
begin
InitializeVars;
inherited Destroy;
end;
procedure TCefCustomResolveCallback.InitializeVars;
begin
FChromiumBrowser := nil;
end;
procedure TCefCustomResolveCallback.OnResolveCompleted(result: TCefErrorCode; const resolvedIps: TStrings);
begin
if (FChromiumBrowser <> nil) and (FChromiumBrowser is TChromium) then