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

23
source/uCEFClient.pas
View File

@@ -73,6 +73,8 @@ type
function GetRequestHandler: ICefRequestHandler; virtual;
function OnProcessMessageReceived(const browser: ICefBrowser; sourceProcess: TCefProcessId; const message: ICefProcessMessage): Boolean; virtual;
procedure InitializeVars; virtual;
public
class function UnWrap(data: Pointer): ICefClient;
end;
@@ -95,6 +97,8 @@ type
function GetRequestHandler: ICefRequestHandler; virtual;
function OnProcessMessageReceived(const browser: ICefBrowser; sourceProcess: TCefProcessId; const message: ICefProcessMessage): Boolean; virtual;
procedure InitializeVars; virtual;
public
constructor Create; virtual;
end;
@@ -133,8 +137,6 @@ type
function GetRequestHandler: ICefRequestHandler; override;
function OnProcessMessageReceived(const browser: ICefBrowser; sourceProcess: TCefProcessId; const message: ICefProcessMessage): Boolean; override;
procedure InitializeInterfaces;
public
constructor Create(const events: IChromiumEvents;
aCreateLoadHandler, aCreateFocusHandler, aCreateContextMenuHandler, aCreateDialogHandler,
@@ -142,6 +144,7 @@ type
aCreateJsDialogHandler, aCreateLifeSpanHandler, aCreateRenderHandler, aCreateRequestHandler,
aCreateDragHandler, aCreateFindHandler : boolean); reintroduce; virtual;
destructor Destroy; override;
procedure InitializeVars; override;
end;
implementation
@@ -246,6 +249,11 @@ begin
Result := False;
end;
procedure TCefClientRef.InitializeVars;
begin
//
end;
// ******************************************************
// ****************** TCefClientOwn *********************
@@ -442,6 +450,11 @@ begin
Result := False;
end;
procedure TCefClientOwn.InitializeVars;
begin
//
end;
// ******************************************************
// *************** TCustomClientHandler *****************
@@ -466,7 +479,7 @@ constructor TCustomClientHandler.Create(const events : IChro
begin
inherited Create;
InitializeInterfaces;
InitializeVars;
FEvents := events;
@@ -491,12 +504,12 @@ end;
destructor TCustomClientHandler.Destroy;
begin
InitializeInterfaces;
InitializeVars;
inherited Destroy;
end;
procedure TCustomClientHandler.InitializeInterfaces;
procedure TCustomClientHandler.InitializeVars;
begin
FLoadHandler := nil;
FFocusHandler := nil;