From d8ea60d8fd2b2e51ab7170472ec804b1eef881da Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Salvador=20D=C3=ADaz=20Fau?= Date: Mon, 28 Oct 2019 09:56:15 +0100 Subject: [PATCH] Added GlobalCEFApp.DisableReadingFromCanvas Added GlobalCEFApp.HyperlinkAuditing --- source/uCEFApplication.pas | 12 ++++++++++++ update_CEF4Delphi.json | 2 +- 2 files changed, 13 insertions(+), 1 deletion(-) diff --git a/source/uCEFApplication.pas b/source/uCEFApplication.pas index 40109485..d4195197 100644 --- a/source/uCEFApplication.pas +++ b/source/uCEFApplication.pas @@ -183,6 +183,8 @@ type FOverrideSpellCheckLang : string; FEnablePrintPreview : boolean; FTouchEvents : TCefState; + FDisableReadingFromCanvas : boolean; + FHyperlinkAuditing : boolean; FMustCreateResourceBundleHandler : boolean; FMustCreateBrowserProcessHandler : boolean; @@ -426,6 +428,8 @@ type property DisableSpellChecking : boolean read FDisableSpellChecking write FDisableSpellChecking; // --disable-spell-checking property OverrideSpellCheckLang : string read FOverrideSpellCheckLang write FOverrideSpellCheckLang; // --override-spell-check-lang property TouchEvents : TCefState read FTouchEvents write FTouchEvents; // --touch-events + property DisableReadingFromCanvas : boolean read FDisableReadingFromCanvas write FDisableReadingFromCanvas; // --disable-reading-from-canvas + property HyperlinkAuditing : boolean read FHyperlinkAuditing write FHyperlinkAuditing; // --no-pings // Properties used during the CEF initialization property WindowsSandboxInfo : Pointer read FWindowsSandboxInfo write FWindowsSandboxInfo; @@ -668,6 +672,8 @@ begin FOverrideSpellCheckLang := ''; FEnablePrintPreview := False; FTouchEvents := STATE_DEFAULT; + FDisableReadingFromCanvas := False; + FHyperlinkAuditing := True; FMustCreateResourceBundleHandler := False; FMustCreateBrowserProcessHandler := True; @@ -1586,6 +1592,12 @@ begin STATE_DISABLED : commandLine.AppendSwitchWithValue('--touch-events', 'disabled'); end; + if FDisableReadingFromCanvas then + commandLine.AppendSwitch('--disable-reading-from-canvas'); + + if not(FHyperlinkAuditing) then + commandLine.AppendSwitch('--no-pings'); + case FAutoplayPolicy of appDocumentUserActivationRequired : commandLine.AppendSwitchWithValue('--autoplay-policy', 'document-user-activation-required'); diff --git a/update_CEF4Delphi.json b/update_CEF4Delphi.json index 5876498e..eb6ffc8c 100644 --- a/update_CEF4Delphi.json +++ b/update_CEF4Delphi.json @@ -2,7 +2,7 @@ "UpdateLazPackages" : [ { "ForceNotify" : true, - "InternalVersion" : 49, + "InternalVersion" : 50, "Name" : "cef4delphi_lazarus.lpk", "Version" : "77.1.18.0" }