pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2026-05-03 01:14:35 +02:00
Code Issues Actions Releases Activity

Moved CefClearSchemeHandlerFactories to the GlobalCEFApp destruction

Browse Source
This commit is contained in:
Salvador Díaz Fau
2021-09-11 12:00:09 +02:00
parent 0683539655
commit 5602e1029d
8 changed files with 7 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files
demos/Delphi_VCL/SchemeRegistrationBrowser/uSchemeRegistrationBrowser.dfm
-1
View File
@@ -12,7 +12,6 @@ object SchemeRegistrationBrowserFrm: TSchemeRegistrationBrowserFrm
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnClose = FormClose
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnShow = FormShow
demos/Delphi_VCL/SchemeRegistrationBrowser/uSchemeRegistrationBrowser.pas
-6
View File
@@ -82,7 +82,6 @@ type
procedure FormCreate(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
protected
// Variables to control when can we destroy the form safely
@@ -226,11 +225,6 @@ begin
end;
end;
procedure TSchemeRegistrationBrowserFrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
CefClearSchemeHandlerFactories;
end;
procedure TSchemeRegistrationBrowserFrm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose := FCanClose;
demos/Lazarus_Windows/SchemeRegistrationBrowser/uSchemeRegistrationBrowser.lfm
-1
View File
@@ -10,7 +10,6 @@ object SchemeRegistrationBrowserFrm: TSchemeRegistrationBrowserFrm
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
OnClose = FormClose
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnShow = FormShow
demos/Lazarus_Windows/SchemeRegistrationBrowser/uSchemeRegistrationBrowser.pas
-7
View File
@@ -80,7 +80,6 @@ type
const browser: ICefBrowser; const frame: ICefFrame;
const params: ICefContextMenuParams; commandId: Integer;
eventFlags: Cardinal; out Result: Boolean);
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure GoBtnClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
@@ -221,12 +220,6 @@ begin
end;
end;
procedure TSchemeRegistrationBrowserFrm.FormClose(Sender: TObject;
var CloseAction: TCloseAction);
begin
CefClearSchemeHandlerFactories;
end;
procedure TSchemeRegistrationBrowserFrm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose := FCanClose;
demos/Lazarus_Windows/SchemeRegistrationBrowser_subprocess/uSchemeRegistrationBrowser.lfm
-1
View File
@@ -10,7 +10,6 @@ object SchemeRegistrationBrowserFrm: TSchemeRegistrationBrowserFrm
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
OnClose = FormClose
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnShow = FormShow
demos/Lazarus_Windows/SchemeRegistrationBrowser_subprocess/uSchemeRegistrationBrowser.pas
-7
View File
@@ -79,7 +79,6 @@ type
const browser: ICefBrowser; const frame: ICefFrame;
const params: ICefContextMenuParams; commandId: Integer;
eventFlags: Cardinal; out Result: Boolean);
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure GoBtnClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
@@ -218,12 +217,6 @@ begin
end;
end;
procedure TSchemeRegistrationBrowserFrm.FormClose(Sender: TObject;
var CloseAction: TCloseAction);
begin
CefClearSchemeHandlerFactories;
end;
procedure TSchemeRegistrationBrowserFrm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose := FCanClose;
source/uCEFApplicationCore.pas
+6 -3
View File
@@ -820,10 +820,13 @@ end;
destructor TCefApplicationCore.Destroy;
begin
if (GlobalCEFApp = Self) then
GlobalCEFApp := nil;
try
if FLibLoaded then
cef_clear_scheme_handler_factories();
if (GlobalCEFApp = Self) then
GlobalCEFApp := nil;
if (FProcessType = ptBrowser) then
ShutDown;
update_CEF4Delphi.json
+1 -1
View File
@@ -2,7 +2,7 @@
"UpdateLazPackages" : [
{
"ForceNotify" : true,
"InternalVersion" : 317,
"InternalVersion" : 318,
"Name" : "cef4delphi_lazarus.lpk",
"Version" : "93.1.11.0"
}