Update to CEF 75.0.7

demos/Lazarus/JavaScript/JSExecutingFunctions/JSExecutingFunctions.lps

@@ -8,7 +8,6 @@
       <Unit0>
         <Filename Value="JSExecutingFunctions.lpr"/>
         <IsPartOfProject Value="True"/>
-        <IsVisibleTab Value="True"/>
         <TopLine Value="41"/>
         <CursorPos X="17" Y="59"/>
         <UsageCount Value="20"/>
@@ -21,9 +20,10 @@
         <ComponentName Value="JSExecutingFunctionsFrm"/>
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
+        <IsVisibleTab Value="True"/>
         <EditorIndex Value="1"/>
-        <TopLine Value="157"/>
-        <CursorPos X="73" Y="175"/>
+        <TopLine Value="206"/>
+        <CursorPos X="39" Y="213"/>
         <UsageCount Value="20"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
@@ -53,7 +53,7 @@
         <DefaultSyntaxHighlighter Value="Delphi"/>
       </Unit4>
     </Units>
-    <JumpHistory Count="2" HistoryIndex="1">
+    <JumpHistory Count="7" HistoryIndex="6">
       <Position1>
         <Filename Value="uJSExecutingFunctions.pas"/>
       </Position1>
@@ -61,6 +61,26 @@
         <Filename Value="uJSExecutingFunctions.pas"/>
         <Caret Line="175" Column="73" TopLine="157"/>
       </Position2>
+      <Position3>
+        <Filename Value="JSExecutingFunctions.lpr"/>
+        <Caret Line="59" Column="17" TopLine="41"/>
+      </Position3>
+      <Position4>
+        <Filename Value="uJSExecutingFunctions.pas"/>
+        <Caret Line="115" Column="11" TopLine="99"/>
+      </Position4>
+      <Position5>
+        <Filename Value="uJSExecutingFunctions.pas"/>
+        <Caret Line="176" Column="3" TopLine="163"/>
+      </Position5>
+      <Position6>
+        <Filename Value="uJSExecutingFunctions.pas"/>
+        <Caret Line="178" Column="41" TopLine="162"/>
+      </Position6>
+      <Position7>
+        <Filename Value="uJSExecutingFunctions.pas"/>
+        <Caret Line="87" Column="43" TopLine="84"/>
+      </Position7>
     </JumpHistory>
     <RunParams>
       <FormatVersion Value="2"/>

demos/Lazarus/JavaScript/JSExecutingFunctions/uJSExecutingFunctions.pas

@@ -84,6 +84,7 @@ type
       targetDisposition: TCefWindowOpenDisposition; userGesture: Boolean;
       const popupFeatures: TCefPopupFeatures; var windowInfo: TCefWindowInfo;
       var client: ICefClient; var settings: TCefBrowserSettings;
+      var extra_info: ICefDictionaryValue;
       var noJavascriptAccess: Boolean; var Result: Boolean);
     procedure FormDestroy(Sender: TObject);
     procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
@@ -152,6 +153,7 @@ begin
 end;
 
 procedure GlobalCEFApp_OnProcessMessageReceived(const browser       : ICefBrowser;
+                                                const frame         : ICefFrame;
                                                       sourceProcess : TCefProcessId;
                                                 const aMessage      : ICefProcessMessage;
                                                 var   aHandled      : boolean);
@@ -174,6 +176,7 @@ begin
   GlobalCEFApp                          := TCefApplication.Create;
   GlobalCEFApp.OnContextCreated         := GlobalCEFApp_OnContextCreated;
   GlobalCEFApp.OnProcessMessageReceived := GlobalCEFApp_OnProcessMessageReceived;
+  GlobalCEFApp.DisableFeatures          := 'NetworkService';
 end;
 
 procedure TJSExecutingFunctionsFrm.GoBtnClick(Sender: TObject);
@@ -206,7 +209,9 @@ procedure TJSExecutingFunctionsFrm.Chromium1BeforePopup(Sender: TObject;
   targetFrameName: ustring; targetDisposition: TCefWindowOpenDisposition;
   userGesture: Boolean; const popupFeatures: TCefPopupFeatures;
   var windowInfo: TCefWindowInfo; var client: ICefClient;
-  var settings: TCefBrowserSettings; var noJavascriptAccess: Boolean;
+  var settings: TCefBrowserSettings;
+  var extra_info: ICefDictionaryValue;
+  var noJavascriptAccess: Boolean;
   var Result: Boolean);
 begin
   // For simplicity, this demo blocks all popup windows and new tabs