pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2026-05-16 08:38:08 +02:00
Code Issues Actions Releases Activity

Added more XML documentation

Browse Source
This commit is contained in:
salvadordf
2023-08-03 15:50:13 +02:00
parent d7b1d9d95a
commit 312c9530bb
10 changed files with 1456 additions and 381 deletions
Download Patch File Download Diff File Expand all files Collapse all files
source/uCEFBrowserProcessHandler.pas
+9 -16
View File
@@ -207,31 +207,21 @@ end;
procedure TCefCustomBrowserProcessHandler.OnRegisterCustomPreferences(type_ : TCefPreferencesType;
registrar : PCefPreferenceRegistrar);
var
TempRegistrar : TCefPreferenceRegistrarRef;
begin
TempRegistrar := nil;
try
try
if (FCefApp <> nil) then
begin
TempRegistrar := TCefPreferenceRegistrarRef.Create(registrar);
FCefApp.Internal_OnRegisterCustomPreferences(type_, TempRegistrar);
end;
IAppplicationCoreEvents(FCefApp).doOnRegisterCustomPreferences(type_, registrar);
except
on e : exception do
if CustomExceptionHandler('TCefCustomBrowserProcessHandler.OnRegisterCustomPreferences', e) then raise;
end;
finally
if (TempRegistrar <> nil) then FreeAndNil(TempRegistrar);
end;
end;
procedure TCefCustomBrowserProcessHandler.OnContextInitialized;
begin
try
if (FCefApp <> nil) then FCefApp.Internal_OnContextInitialized;
if (FCefApp <> nil) then
IAppplicationCoreEvents(FCefApp).doOnContextInitialized;
except
on e : exception do
if CustomExceptionHandler('TCefCustomBrowserProcessHandler.OnContextInitialized', e) then raise;
@@ -241,7 +231,8 @@ end;
procedure TCefCustomBrowserProcessHandler.OnBeforeChildProcessLaunch(const commandLine: ICefCommandLine);
begin
try
if (FCefApp <> nil) then FCefApp.Internal_OnBeforeChildProcessLaunch(commandLine);
if (FCefApp <> nil) then
IAppplicationCoreEvents(FCefApp).doOnBeforeChildProcessLaunch(commandLine);
except
on e : exception do
if CustomExceptionHandler('TCefCustomBrowserProcessHandler.OnBeforeChildProcessLaunch', e) then raise;
@@ -251,7 +242,8 @@ end;
procedure TCefCustomBrowserProcessHandler.OnScheduleMessagePumpWork(const delayMs: Int64);
begin
try
if (FCefApp <> nil) then FCefApp.Internal_OnScheduleMessagePumpWork(delayMs);
if (FCefApp <> nil) then
IAppplicationCoreEvents(FCefApp).doOnScheduleMessagePumpWork(delayMs);
except
on e : exception do
if CustomExceptionHandler('TCefCustomBrowserProcessHandler.OnScheduleMessagePumpWork', e) then raise;
@@ -261,7 +253,8 @@ end;
procedure TCefCustomBrowserProcessHandler.GetDefaultClient(var aClient : ICefClient);
begin
try
if (FCefApp <> nil) then FCefApp.Internal_GetDefaultClient(aClient);
if (FCefApp <> nil) then
IAppplicationCoreEvents(FCefApp).doGetDefaultClient(aClient);
except
on e : exception do
if CustomExceptionHandler('TCefCustomBrowserProcessHandler.GetDefaultClient', e) then raise;