Added TChromium.SafeSearch and TChromium.YouTubeRestrict

source/uCEFChromium.pas

@@ -105,6 +105,8 @@ type
       FIsOSR                  : boolean;
       FInitialized            : boolean;
       FClosing                : boolean;
+      FSafeSearch             : boolean;
+      FYouTubeRestrict        : integer;
       FWindowInfo             : TCefWindowInfo;
       FBrowserSettings        : TCefBrowserSettings;
       FDevWindowInfo          : TCefWindowInfo;
@@ -302,6 +304,8 @@ type
       procedure SetZoomStep(aValue : byte);
       procedure SetWindowlessFrameRate(aValue : integer);
       procedure SetAudioMuted(aValue : boolean);
+      procedure SetSafeSearch(aValue : boolean);
+      procedure SetYouTubeRestrict(aValue : integer);
 
 
       function  CreateBrowserHost(aWindowInfo : PCefWindowInfo; const aURL : ustring; const aSettings : PCefBrowserSettings; const aExtraInfo : ICefDictionaryValue; const aContext : ICefRequestContext): boolean;
@@ -662,6 +666,8 @@ type
       property  FrameCount              : NativeUInt                   read GetFrameCount;
       property  DragOperations          : TCefDragOperations           read FDragOperations           write FDragOperations;
       property  AudioMuted              : boolean                      read GetAudioMuted             write SetAudioMuted;
+      property  SafeSearch              : boolean                      read FSafeSearch               write SetSafeSearch;
+      property  YouTubeRestrict         : integer                      read FYouTubeRestrict          write SetYouTubeRestrict;
 
       property  WebRTCIPHandlingPolicy  : TCefWebRTCHandlingPolicy     read FWebRTCIPHandlingPolicy   write SetWebRTCIPHandlingPolicy;
       property  WebRTCMultipleRoutes    : TCefState                    read FWebRTCMultipleRoutes     write SetWebRTCMultipleRoutes;
@@ -844,6 +850,9 @@ begin
   FCookiePrefs            := CEF_CONTENT_SETTING_ALLOW;
   FImagesPrefs            := CEF_CONTENT_SETTING_ALLOW;
   FZoomStep               := ZOOM_STEP_DEF;
+  FSafeSearch             := False;
+  FYouTubeRestrict        := YOUTUBE_RESTRICT_OFF;
+
   {$IFNDEF FPC}
   FOldBrowserCompWndPrc   := nil;
   FOldWidgetCompWndPrc    := nil;
@@ -2032,6 +2041,24 @@ begin
     end;
 end;
 
+procedure TChromium.SetSafeSearch(aValue : boolean);
+begin
+  if (FSafeSearch <> aValue) then
+    begin
+      FSafeSearch        := aValue;
+      FUpdatePreferences := True;
+    end;
+end;
+
+procedure TChromium.SetYouTubeRestrict(aValue : integer);
+begin
+  if (FYouTubeRestrict <> aValue) then
+    begin
+      FYouTubeRestrict   := aValue;
+      FUpdatePreferences := True;
+    end;
+end;
+
 procedure TChromium.SetWebRTCIPHandlingPolicy(aValue : TCefWebRTCHandlingPolicy);
 begin
   if (FWebRTCIPHandlingPolicy <> aValue) then
@@ -2485,6 +2512,8 @@ begin
   UpdatePreference(aBrowser, 'plugins.always_authorize',             FAlwaysAuthorizePlugins);
   UpdatePreference(aBrowser, 'browser.enable_spellchecking',         FSpellChecking);
   UpdateStringListPref(aBrowser, 'spellcheck.dictionaries',          FSpellCheckerDicts);
+  UpdatePreference(aBrowser, 'settings.force_google_safesearch',     FSafeSearch);
+  UpdatePreference(aBrowser, 'settings.force_youtube_restrict',      FYouTubeRestrict);
 
   if (FMaxConnectionsPerProxy <> CEF_MAX_CONNECTIONS_PER_PROXY_DEFAULT_VALUE) then
     UpdatePreference(aBrowser, 'net.max_connections_per_proxy', FMaxConnectionsPerProxy);

source/uCEFConstants.pas

@@ -552,6 +552,12 @@ const
   CEF_MAX_CONNECTIONS_PER_PROXY_MIN_VALUE     = 7;
   CEF_MAX_CONNECTIONS_PER_PROXY_MAX_VALUE     = 99;
 
+  // https://chromium.googlesource.com/chromium/src/+/refs/tags/77.0.3865.90/chrome/common/net/safe_search_util.h (YouTubeRestrictMode)
+  // https://www.chromium.org/administrators/policy-list-3#ForceYouTubeRestrict
+  YOUTUBE_RESTRICT_OFF      = 0;
+  YOUTUBE_RESTRICT_MODERATE = 1;
+  YOUTUBE_RESTRICT_STRICT   = 2;
+
   ZOOM_STEP_25  = 0;
   ZOOM_STEP_33  = 1;
   ZOOM_STEP_50  = 2;

source/uCEFFMXChromium.pas

@@ -94,6 +94,8 @@ type
       FIsOSR                  : boolean;
       FInitialized            : boolean;
       FClosing                : boolean;
+      FSafeSearch             : boolean;
+      FYouTubeRestrict        : integer;
       FWindowInfo             : TCefWindowInfo;
       FBrowserSettings        : TCefBrowserSettings;
       FDevWindowInfo          : TCefWindowInfo;
@@ -285,6 +287,8 @@ type
       procedure SetZoomStep(aValue : byte);
       procedure SetWindowlessFrameRate(aValue : integer);
       procedure SetAudioMuted(aValue : boolean);
+      procedure SetSafeSearch(aValue : boolean);
+      procedure SetYouTubeRestrict(aValue : integer);
 
 
       function  CreateBrowserHost(aWindowInfo : PCefWindowInfo; const aURL : ustring; const aSettings : PCefBrowserSettings; const aExtraInfo : ICefDictionaryValue; const aContext : ICefRequestContext): boolean;
@@ -622,6 +626,8 @@ type
       property  FrameCount              : NativeUInt                   read GetFrameCount;
       property  DragOperations          : TCefDragOperations           read FDragOperations           write FDragOperations;
       property  AudioMuted              : boolean                      read GetAudioMuted             write SetAudioMuted;
+      property  SafeSearch              : boolean                      read FSafeSearch               write SetSafeSearch;
+      property  YouTubeRestrict         : integer                      read FYouTubeRestrict          write SetYouTubeRestrict;
 
       property  WebRTCIPHandlingPolicy  : TCefWebRTCHandlingPolicy     read FWebRTCIPHandlingPolicy   write SetWebRTCIPHandlingPolicy;
       property  WebRTCMultipleRoutes    : TCefState                    read FWebRTCMultipleRoutes     write SetWebRTCMultipleRoutes;
@@ -792,6 +798,8 @@ begin
   FCookiePrefs            := CEF_CONTENT_SETTING_ALLOW;
   FImagesPrefs            := CEF_CONTENT_SETTING_ALLOW;
   FZoomStep               := ZOOM_STEP_DEF;
+  FSafeSearch             := False;
+  FYouTubeRestrict        := YOUTUBE_RESTRICT_OFF;
 
   {$IFDEF MSWINDOWS}
   FOldBrowserCompWndPrc   := nil;
@@ -1808,6 +1816,24 @@ begin
     end;
 end;
 
+procedure TFMXChromium.SetSafeSearch(aValue : boolean);
+begin
+  if (FSafeSearch <> aValue) then
+    begin
+      FSafeSearch        := aValue;
+      FUpdatePreferences := True;
+    end;
+end;
+
+procedure TFMXChromium.SetYouTubeRestrict(aValue : integer);
+begin
+  if (FYouTubeRestrict <> aValue) then
+    begin
+      FYouTubeRestrict   := aValue;
+      FUpdatePreferences := True;
+    end;
+end;
+
 procedure TFMXChromium.SetWebRTCIPHandlingPolicy(aValue : TCefWebRTCHandlingPolicy);
 begin
   if (FWebRTCIPHandlingPolicy <> aValue) then
@@ -2210,6 +2236,8 @@ begin
   UpdatePreference(aBrowser, 'plugins.always_authorize',             FAlwaysAuthorizePlugins);
   UpdatePreference(aBrowser, 'browser.enable_spellchecking',         FSpellChecking);
   UpdateStringListPref(aBrowser, 'spellcheck.dictionaries',          FSpellCheckerDicts);
+  UpdatePreference(aBrowser, 'settings.force_google_safesearch',     FSafeSearch);
+  UpdatePreference(aBrowser, 'settings.force_youtube_restrict',      FYouTubeRestrict);
 
   if FRunAllFlashInAllowMode then
     UpdatePreference(aBrowser, 'profile.default_content_setting_values.plugins', 1);

update_CEF4Delphi.json

@@ -1,8 +1,8 @@
 {
   "UpdateLazPackages" : [
     {
-      "ForceNotify" : false,
+      "ForceNotify" : true,
-      "InternalVersion" : 38,
+      "InternalVersion" : 39,
       "Name" : "cef4delphi_lazarus.lpk",
       "Version" : "77.1.11.0"
     }