Update to CEF 76.1.5

README.md

@@ -3,10 +3,10 @@ CEF4Delphi is an open source project created by Salvador D
 
 CEF4Delphi is based on DCEF3, made by Henri Gourvest. The original license of DCEF3 still applies to CEF4Delphi. Read the license terms in the first lines of any *.pas file.
 
-CEF4Delphi uses CEF 75.1.14 which includes Chromium 75.0.3770.100. 
+CEF4Delphi uses CEF 76.1.5 which includes Chromium 76.0.3809.87. 
 The CEF binaries used by CEF4Delphi are available for download at spotify :
-* [32 bits](http://opensource.spotify.com/cefbuilds/cef_binary_75.1.14%2Bgc81164e%2Bchromium-75.0.3770.100_windows32.tar.bz2)
+* [32 bits](http://opensource.spotify.com/cefbuilds/cef_binary_76.1.5%2Bgd8a577c%2Bchromium-76.0.3809.87_windows32.tar.bz2)
-* [64 bits](http://opensource.spotify.com/cefbuilds/cef_binary_75.1.14%2Bgc81164e%2Bchromium-75.0.3770.100_windows64.tar.bz2)
+* [64 bits](http://opensource.spotify.com/cefbuilds/cef_binary_76.1.5%2Bgd8a577c%2Bchromium-76.0.3809.87_windows64.tar.bz2)
 
 
 CEF4Delphi was developed and tested on Delphi 10.3 Rio and it has been tested in Delphi 7, Delphi XE, Delphi 10, Delphi 10.2 and Lazarus 2.0.2/FPC 3.0.4. CEF4Delphi includes VCL, FireMonkey (FMX) and Lazarus components.

demos/Delphi_FMX/FMXExternalPumpBrowser/uFMXExternalPumpBrowser.pas

@@ -199,6 +199,7 @@ begin
   GlobalCEFApp.ExternalMessagePump        := True;
   GlobalCEFApp.MultiThreadedMessageLoop   := False;
   GlobalCEFApp.OnScheduleMessagePumpWork  := GlobalCEFApp_OnScheduleMessagePumpWork;
+  GlobalCEFApp.DisableFeatures            := 'NetworkService,OutOfBlinkCors';
 end;
 
 procedure TFMXExternalPumpBrowserFrm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

demos/Delphi_FMX/FMXToolBoxBrowser/uMainForm.pas

@@ -133,6 +133,7 @@ procedure CreateGlobalCEFApp;
 begin
   GlobalCEFApp                      := TCefApplication.Create;
   GlobalCEFApp.OnContextInitialized := GlobalCEFApp_OnContextInitialized;
+  GlobalCEFApp.DisableFeatures      := 'NetworkService,OutOfBlinkCors';
 end;
 
 function TMainForm.PostCustomMessage(aMessage, wParam : cardinal; lParam : integer) : boolean;

demos/Delphi_FMX/SimpleFMXBrowser/SimpleFMXBrowser.dpr

@@ -18,19 +18,7 @@ uses
 {$ENDIF}
 
 begin
-  GlobalCEFApp                 := TCefApplication.Create;
+  CreateGlobalCEFApp;
-  GlobalCEFApp.DisableFeatures := 'NetworkService';
-
-  // In case you want to use custom directories for the CEF3 binaries, cache, cookies and user data.
-  // If you don't set a cache directory the browser will use in-memory cache.
-{
-  GlobalCEFApp.FrameworkDirPath     := 'cef';
-  GlobalCEFApp.ResourcesDirPath     := 'cef';
-  GlobalCEFApp.LocalesDirPath       := 'cef\locales';
-  GlobalCEFApp.EnableGPU            := True;      // Enable hardware acceleration
-  GlobalCEFApp.cache                := 'cef\cache';
-  GlobalCEFApp.UserDataPath         := 'cef\User Data';
-}
 
   // You *MUST* call GlobalCEFApp.StartMainProcess in a if..then clause
   // with the Application initialization inside the begin..end.

demos/Delphi_FMX/SimpleFMXBrowser/uSimpleFMXBrowser.pas

@@ -110,6 +110,8 @@ type
 var
   SimpleFMXBrowserFrm: TSimpleFMXBrowserFrm;
 
+procedure CreateGlobalCEFApp;
+
 implementation
 
 {$R *.fmx}
@@ -144,6 +146,25 @@ uses
   FMX.Platform, FMX.Platform.Win,
   uCEFMiscFunctions, uCEFApplication, uFMXApplicationService;
 
+procedure CreateGlobalCEFApp;
+begin
+  GlobalCEFApp                  := TCefApplication.Create;
+  GlobalCEFApp.DisableFeatures  := 'NetworkService,OutOfBlinkCors';
+  //GlobalCEFApp.LogFile          := 'cef.log';
+  //GlobalCEFApp.LogSeverity      := LOGSEVERITY_VERBOSE;
+
+  // In case you want to use custom directories for the CEF3 binaries, cache, cookies and user data.
+  // If you don't set a cache directory the browser will use in-memory cache.
+{
+  GlobalCEFApp.FrameworkDirPath     := 'cef';
+  GlobalCEFApp.ResourcesDirPath     := 'cef';
+  GlobalCEFApp.LocalesDirPath       := 'cef\locales';
+  GlobalCEFApp.EnableGPU            := True;      // Enable hardware acceleration
+  GlobalCEFApp.cache                := 'cef\cache';
+  GlobalCEFApp.UserDataPath         := 'cef\User Data';
+}
+end;
+
 procedure TSimpleFMXBrowserFrm.FMXChromium1AfterCreated(Sender: TObject;
   const browser: ICefBrowser);
 begin

demos/Delphi_VCL/ConsoleBrowser/OSRDLLBrowser.dpr

@@ -113,7 +113,7 @@ begin
   GlobalCEFApp.BrowserSubprocessPath      := 'OSRSubProcess.exe';
   GlobalCEFApp.ExternalMessagePump        := False;
   GlobalCEFApp.MultiThreadedMessageLoop   := False;
-  GlobalCEFApp.DisableFeatures            := 'NetworkService,VizDisplayCompositor';
+  GlobalCEFApp.DisableFeatures            := 'NetworkService,OutOfBlinkCors';
 
   // This demo uses a different EXE for the subprocesses.
   // With this configuration it's not necessary to have the

demos/Delphi_VCL/ConsoleBrowser/OSRSubProcess.dpr

@@ -78,7 +78,7 @@ begin
   GlobalCEFApp.SetCurrentDir              := True;
   GlobalCEFApp.ExternalMessagePump        := False;
   GlobalCEFApp.MultiThreadedMessageLoop   := False;
-  GlobalCEFApp.DisableFeatures            := 'NetworkService,VizDisplayCompositor';
+  GlobalCEFApp.DisableFeatures            := 'NetworkService,OutOfBlinkCors';
 
   GlobalCEFApp.StartSubProcess;
   GlobalCEFApp.Free;

demos/Delphi_VCL/CookieVisitor/CookieVisitor.dpr

@@ -56,7 +56,7 @@ uses
 {$SetPEFlags IMAGE_FILE_LARGE_ADDRESS_AWARE}
 
 begin
-  GlobalCEFApp := TCefApplication.Create;
+  CreateGlobalCEFApp;
 
   if GlobalCEFApp.StartMainProcess then
     begin
@@ -69,6 +69,5 @@ begin
       Application.Run;
     end;
 
-  GlobalCEFApp.Free;
+  DestroyGlobalCEFApp;
-  GlobalCEFApp := nil;
 end.

demos/Delphi_VCL/CookieVisitor/uCookieVisitor.pas

@@ -122,6 +122,8 @@ type
 var
   CookieVisitorFrm: TCookieVisitorFrm;
 
+procedure CreateGlobalCEFApp;
+
 implementation
 
 {$R *.dfm}
@@ -141,6 +143,14 @@ uses
 // 2. TChromium.OnClose sends a CEFBROWSER_DESTROY message to destroy CEFWindowParent1 in the main thread, which triggers the TChromium.OnBeforeClose event.
 // 3. TChromium.OnBeforeClose sets FCanClose := True and sends WM_CLOSE to the form.
 
+procedure CreateGlobalCEFApp;
+begin
+  GlobalCEFApp                  := TCefApplication.Create;
+  GlobalCEFApp.DisableFeatures  := 'NetworkService,OutOfBlinkCors';
+  //GlobalCEFApp.LogFile          := 'cef.log';
+  //GlobalCEFApp.LogSeverity      := LOGSEVERITY_VERBOSE;
+end;
+
 // This function is called in the IO thread.
 function CookieVisitorProc(const name, value, domain, path: ustring;
                                  secure, httponly, hasExpires: Boolean;

demos/Delphi_VCL/CustomResourceBrowser/uMainForm.pas

@@ -113,7 +113,7 @@ uses
 procedure CreateGlobalCEFApp;
 begin
   GlobalCEFApp                  := TCefApplication.Create;
-  GlobalCEFApp.DisableFeatures  := 'NetworkService';
+  GlobalCEFApp.DisableFeatures  := 'NetworkService,OutOfBlinkCors';
   //GlobalCEFApp.LogFile          := 'cef.log';
   //GlobalCEFApp.LogSeverity      := LOGSEVERITY_VERBOSE;
 end;

demos/Delphi_VCL/DLLBrowser/DLLBrowser.dpr

@@ -100,6 +100,7 @@ begin
   GlobalCEFApp.UserDataPath         := 'cef\User Data';
 }
 
+  GlobalCEFApp.DisableFeatures       := 'NetworkService,OutOfBlinkCors';
   GlobalCEFApp.SetCurrentDir         := True;
   GlobalCEFApp.BrowserSubprocessPath := 'SubProcess.exe';
 

demos/Delphi_VCL/DLLBrowser/SubProcess.dpr

@@ -70,7 +70,8 @@ begin
   GlobalCEFApp.UserDataPath         := 'cef\User Data';
 }
 
-  GlobalCEFApp.SetCurrentDir := True;
+  GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors';
+  GlobalCEFApp.SetCurrentDir   := True;
 
   GlobalCEFApp.StartSubProcess;
   GlobalCEFApp.Free;

demos/Delphi_VCL/DOMVisitor/uDOMVisitor.pas

@@ -343,7 +343,7 @@ begin
   GlobalCEFApp                          := TCefApplication.Create;
   GlobalCEFApp.RemoteDebuggingPort      := 9000;
   GlobalCEFApp.OnProcessMessageReceived := GlobalCEFApp_OnProcessMessageReceived;
-  GlobalCEFApp.DisableFeatures          := 'NetworkService';
+  GlobalCEFApp.DisableFeatures          := 'NetworkService,OutOfBlinkCors';
 
   // Enabling the debug log file for then DOM visitor demo.
   // This adds lots of warnings to the console, specially if you run this inside VirtualBox.

demos/Delphi_VCL/EditorBrowser/uEditorBrowser.pas

@@ -175,7 +175,7 @@ uses
 procedure CreateGlobalCEFApp;
 begin
   GlobalCEFApp                      := TCefApplication.Create;
-  GlobalCEFApp.DisableFeatures      := 'NetworkService';
+  GlobalCEFApp.DisableFeatures      := 'NetworkService,OutOfBlinkCors';
 end;
 
 procedure TForm1.FillColorBtnClick(Sender: TObject);

demos/Delphi_VCL/ExternalPumpBrowser/uExternalPumpBrowser.pas

@@ -128,6 +128,7 @@ begin
   GlobalCEFApp.ExternalMessagePump       := True;
   GlobalCEFApp.MultiThreadedMessageLoop  := False;
   GlobalCEFApp.OnScheduleMessagePumpWork := GlobalCEFApp_OnScheduleMessagePumpWork;
+  GlobalCEFApp.DisableFeatures           := 'NetworkService,OutOfBlinkCors';
 end;
 
 procedure TExternalPumpBrowserFrm.FormCreate(Sender: TObject);

demos/Delphi_VCL/FullScreenBrowser/FullScreenBrowser.dpr

@@ -55,7 +55,7 @@ uses
 {$SetPEFlags IMAGE_FILE_LARGE_ADDRESS_AWARE}
 
 begin
-  GlobalCEFApp := TCefApplication.Create;
+  CreateGlobalCEFApp;
 
   if GlobalCEFApp.StartMainProcess then
     begin

demos/Delphi_VCL/FullScreenBrowser/uMainForm.pas

@@ -103,6 +103,8 @@ type
 var
   MainForm: TMainForm;
 
+procedure CreateGlobalCEFApp;
+
 implementation
 
 {$R *.dfm}
@@ -110,6 +112,14 @@ implementation
 uses
   uCEFApplication;
 
+procedure CreateGlobalCEFApp;
+begin
+  GlobalCEFApp                  := TCefApplication.Create;
+  GlobalCEFApp.DisableFeatures  := 'NetworkService,OutOfBlinkCors';
+  //GlobalCEFApp.LogFile          := 'cef.log';
+  //GlobalCEFApp.LogSeverity      := LOGSEVERITY_VERBOSE;
+end;
+
 procedure TMainForm.HandleKeyUp(const aMsg : TMsg; var aHandled : boolean);
 var
   TempMessage : TMessage;

demos/Delphi_VCL/JavaScript/JSDialog/JSDialogBrowser.dpr

@@ -55,8 +55,7 @@ uses
 {$SetPEFlags IMAGE_FILE_LARGE_ADDRESS_AWARE}
 
 begin
-  GlobalCEFApp := TCefApplication.Create;
+  CreateGlobalCEFApp;
-  GlobalCEFApp.DisableFeatures := 'NetworkService';
 
   if GlobalCEFApp.StartMainProcess then
     begin
@@ -68,6 +67,5 @@ begin
       Application.Run;
     end;
 
-  GlobalCEFApp.Free;
+  DestroyGlobalCEFApp;
-  GlobalCEFApp := nil;
 end.

demos/Delphi_VCL/JavaScript/JSDialog/uJSDialogBrowser.pas

@@ -99,6 +99,8 @@ type
 var
   JSDialogBrowserFrm: TJSDialogBrowserFrm;
 
+procedure CreateGlobalCEFApp;
+
 implementation
 
 {$R *.dfm}
@@ -114,6 +116,14 @@ uses
 // 2. The TChromiumWindow.OnClose event calls TChromiumWindow.DestroyChildWindow which triggers the TChromiumWindow.OnBeforeClose event.
 // 3. TChromiumWindow.OnBeforeClose sets FCanClose to True and closes the form.
 
+procedure CreateGlobalCEFApp;
+begin
+  GlobalCEFApp                  := TCefApplication.Create;
+  GlobalCEFApp.DisableFeatures  := 'NetworkService,OutOfBlinkCors';
+  //GlobalCEFApp.LogFile          := 'cef.log';
+  //GlobalCEFApp.LogSeverity      := LOGSEVERITY_VERBOSE;
+end;
+
 procedure TJSDialogBrowserFrm.FormCreate(Sender: TObject);
 begin
   FJSDialogInfoCS    := TCriticalSection.Create;

demos/Delphi_VCL/JavaScript/JSEval/uJSEval.pas

@@ -524,7 +524,7 @@ procedure CreateGlobalCEFApp;
 begin
   GlobalCEFApp                          := TCefApplication.Create;
   GlobalCEFApp.OnProcessMessageReceived := RenderProcessHandler_OnProcessMessageReceivedEvent;
-  GlobalCEFApp.DisableFeatures          := 'NetworkService';
+  GlobalCEFApp.DisableFeatures          := 'NetworkService,OutOfBlinkCors';
 end;
 
 procedure TJSEvalFrm.Chromium1ProcessMessageReceived(      Sender        : TObject;

demos/Delphi_VCL/JavaScript/JSExecutingFunctions/uJSExecutingFunctions.pas

@@ -174,7 +174,7 @@ begin
   GlobalCEFApp                          := TCefApplication.Create;
   GlobalCEFApp.OnContextCreated         := GlobalCEFApp_OnContextCreated;
   GlobalCEFApp.OnProcessMessageReceived := GlobalCEFApp_OnProcessMessageReceived;
-  GlobalCEFApp.DisableFeatures          := 'NetworkService';
+  GlobalCEFApp.DisableFeatures          := 'NetworkService,OutOfBlinkCors';
 end;
 
 procedure TJSExecutingFunctionsFrm.GoBtnClick(Sender: TObject);

demos/Delphi_VCL/JavaScript/JSExtension/uJSExtension.pas

@@ -216,7 +216,7 @@ procedure CreateGlobalCEFApp;
 begin
   GlobalCEFApp                     := TCefApplication.Create;
   GlobalCEFApp.OnWebKitInitialized := GlobalCEFApp_OnWebKitInitialized;
-  GlobalCEFApp.DisableFeatures     := 'NetworkService';
+  GlobalCEFApp.DisableFeatures     := 'NetworkService,OutOfBlinkCors';
 
   {$IFDEF INTFLOG}
   GlobalCEFApp.LogFile             := 'debug.log';

demos/Delphi_VCL/JavaScript/JSExtensionWithFunction/uJSExtensionWithFunction.pas

@@ -152,7 +152,7 @@ begin
   GlobalCEFApp                     := TCefApplication.Create;
   GlobalCEFApp.OnWebKitInitialized := {$IFNDEF DELPHI12_UP}TJSSimpleExtensionFrm.{$ENDIF}
       GlobalCEFApp_OnWebKitInitializedEvent;
-  GlobalCEFApp.DisableFeatures     := 'NetworkService';
+  GlobalCEFApp.DisableFeatures     := 'NetworkService,OutOfBlinkCors';
 end;
 
 procedure TJSExtensionWithFunctionFrm.GoBtnClick(Sender: TObject);

demos/Delphi_VCL/JavaScript/JSExtensionWithObjectParameter/uJSExtensionWithObjectParameter.pas

@@ -155,7 +155,7 @@ begin
   GlobalCEFApp                     := TCefApplication.Create;
   GlobalCEFApp.OnWebKitInitialized := {$IFNDEF DELPHI12_UP}TJSSimpleExtensionFrm.{$ENDIF}
       GlobalCEFApp_OnWebKitInitializedEvent;
-  GlobalCEFApp.DisableFeatures     := 'NetworkService';
+  GlobalCEFApp.DisableFeatures     := 'NetworkService,OutOfBlinkCors';
 end;
 
 procedure TJSExtensionWithObjectParameterFrm.GoBtnClick(Sender: TObject);

demos/Delphi_VCL/JavaScript/JSRTTIExtension/uJSRTTIExtension.pas

@@ -164,7 +164,7 @@ procedure CreateGlobalCEFApp;
 begin
   GlobalCEFApp                     := TCefApplication.Create;
   GlobalCEFApp.OnWebKitInitialized := GlobalCEFApp_OnWebKitInitialized;
-  GlobalCEFApp.DisableFeatures     := 'NetworkService';
+  GlobalCEFApp.DisableFeatures     := 'NetworkService,OutOfBlinkCors';
 end;
 
 procedure TJSRTTIExtensionFrm.GoBtnClick(Sender: TObject);

demos/Delphi_VCL/JavaScript/JSSimpleExtension/uJSSimpleExtension.pas

@@ -142,7 +142,7 @@ begin
   GlobalCEFApp                     := TCefApplication.Create;
   GlobalCEFApp.OnWebKitInitialized := {$IFNDEF DELPHI12_UP}TJSSimpleExtensionFrm.{$ENDIF}
       GlobalCEFApp_OnWebKitInitializedEvent;
-  GlobalCEFApp.DisableFeatures     := 'NetworkService';
+  GlobalCEFApp.DisableFeatures     := 'NetworkService,OutOfBlinkCors';
 end;
 
 procedure TJSSimpleExtensionFrm.GoBtnClick(Sender: TObject);

demos/Delphi_VCL/JavaScript/JSSimpleWindowBinding/uJSSimpleWindowBinding.pas

@@ -130,7 +130,7 @@ procedure CreateGlobalCEFApp;
 begin
   GlobalCEFApp                  := TCefApplication.Create;
   GlobalCEFApp.OnContextCreated := GlobalCEFApp_OnContextCreated;
-  GlobalCEFApp.DisableFeatures  := 'NetworkService';
+  GlobalCEFApp.DisableFeatures  := 'NetworkService,OutOfBlinkCors';
 end;
 
 procedure TJSSimpleWindowBindingFrm.GoBtnClick(Sender: TObject);

demos/Delphi_VCL/JavaScript/JSWindowBindingSubProcess/JSSimpleWindowBinding.dpr

@@ -56,19 +56,7 @@ uses
 {$SetPEFlags IMAGE_FILE_LARGE_ADDRESS_AWARE}
 
 begin
-  GlobalCEFApp := TCefApplication.Create;
+  CreateGlobalCEFApp;
-
-  // This is the same demo than the JSSimpleWindowBinding but using a different executable for the subprocesses.
-  // Notice that GlobalCEFApp.OnContextCreated is now defined in the SubProcess.
-
-  // Follow these steps to test this demo :
-  // 1. Build the SubProcess project in this directory.
-  // 2. Copy the CEF binaries to the BIN directory in CEF4Delphi.
-  // 3. Build this project : JSSimpleWindowBinding
-  // 4. Run this demo : JSSimpleWindowBinding
-
-  GlobalCEFApp.BrowserSubprocessPath := 'SubProcess.exe';
-  GlobalCEFApp.DisableFeatures       := 'NetworkService';
 
   if GlobalCEFApp.StartMainProcess then
     begin
@@ -80,6 +68,5 @@ begin
       Application.Run;
     end;
 
-  GlobalCEFApp.Free;
+  DestroyGlobalCEFApp;
-  GlobalCEFApp := nil;
 end.

demos/Delphi_VCL/JavaScript/JSWindowBindingSubProcess/SubProcess.dpr

@@ -66,9 +66,9 @@ begin
 end;
 
 begin
-  GlobalCEFApp := TCefApplication.Create;
+  GlobalCEFApp                  := TCefApplication.Create;
   GlobalCEFApp.OnContextCreated := GlobalCEFApp_OnContextCreated;
-  GlobalCEFApp.DisableFeatures  := 'NetworkService';
+  GlobalCEFApp.DisableFeatures  := 'NetworkService,OutOfBlinkCors';
 
   // The main process and the subprocess *MUST* have the same FrameworkDirPath, ResourcesDirPath,
   // LocalesDirPath, cache, cookies and UserDataPath paths

demos/Delphi_VCL/JavaScript/JSWindowBindingSubProcess/uJSSimpleWindowBinding.pas

@@ -97,6 +97,8 @@ type
 var
   JSSimpleWindowBindingFrm: TJSSimpleWindowBindingFrm;
 
+procedure CreateGlobalCEFApp;
+
 implementation
 
 {$R *.dfm}
@@ -113,6 +115,25 @@ implementation
 // 2. TChromium.OnClose sends a CEFBROWSER_DESTROY message to destroy CEFWindowParent1 in the main thread, which triggers the TChromium.OnBeforeClose event.
 // 3. TChromium.OnBeforeClose sets FCanClose := True and sends WM_CLOSE to the form.
 
+procedure CreateGlobalCEFApp;
+begin
+  GlobalCEFApp := TCefApplication.Create;
+
+  // This is the same demo than the JSSimpleWindowBinding but using a different executable for the subprocesses.
+  // Notice that GlobalCEFApp.OnContextCreated is now defined in the SubProcess.
+
+  // Follow these steps to test this demo :
+  // 1. Build the SubProcess project in this directory.
+  // 2. Copy the CEF binaries to the BIN directory in CEF4Delphi.
+  // 3. Build this project : JSSimpleWindowBinding
+  // 4. Run this demo : JSSimpleWindowBinding
+
+  GlobalCEFApp.BrowserSubprocessPath := 'SubProcess.exe';
+  GlobalCEFApp.DisableFeatures       := 'NetworkService,OutOfBlinkCors';
+  //GlobalCEFApp.LogFile          := 'cef.log';
+  //GlobalCEFApp.LogSeverity      := LOGSEVERITY_VERBOSE;
+end;
+
 procedure TJSSimpleWindowBindingFrm.GoBtnClick(Sender: TObject);
 begin
   Chromium1.LoadURL(Edit1.Text);

demos/Delphi_VCL/JavaScript/JSWindowBindingWithFunction/uJSWindowBindingWithFunction.pas

@@ -135,7 +135,7 @@ procedure CreateGlobalCEFApp;
 begin
   GlobalCEFApp                  := TCefApplication.Create;
   GlobalCEFApp.OnContextCreated := GlobalCEFApp_OnContextCreated;
-  GlobalCEFApp.DisableFeatures  := 'NetworkService';
+  GlobalCEFApp.DisableFeatures  := 'NetworkService,OutOfBlinkCors';
 end;
 
 procedure TJSWindowBindingWithFunctionFrm.GoBtnClick(Sender: TObject);

demos/Delphi_VCL/JavaScript/JSWindowBindingWithObject/uJSWindowBindingWithObject.pas

@@ -136,7 +136,7 @@ procedure CreateGlobalCEFApp;
 begin
   GlobalCEFApp                  := TCefApplication.Create;
   GlobalCEFApp.OnContextCreated := GlobalCEFApp_OnContextCreated;
-  GlobalCEFApp.DisableFeatures  := 'NetworkService';
+  GlobalCEFApp.DisableFeatures  := 'NetworkService,OutOfBlinkCors';
 end;
 
 procedure TJSWindowBindingWithObjectFrm.GoBtnClick(Sender: TObject);

demos/Delphi_VCL/KioskOSRBrowser/uKioskOSRBrowser.pas

@@ -174,7 +174,7 @@ begin
   GlobalCEFApp                            := TCefApplication.Create;
   GlobalCEFApp.WindowlessRenderingEnabled := True;
   GlobalCEFApp.EnableHighDPISupport       := True;
-  GlobalCEFApp.DisableFeatures            := 'NetworkService,VizDisplayCompositor';
+  GlobalCEFApp.DisableFeatures            := 'NetworkService,OutOfBlinkCors';
 end;
 
 procedure TForm1.AppEventsMessage(var Msg: tagMSG; var Handled: Boolean);

demos/Delphi_VCL/MDIBrowser/uMainForm.pas

@@ -116,6 +116,7 @@ procedure CreateGlobalCEFApp;
 begin
   GlobalCEFApp                      := TCefApplication.Create;
   GlobalCEFApp.OnContextInitialized := GlobalCEFApp_OnContextInitialized;
+  GlobalCEFApp.DisableFeatures      := 'NetworkService,OutOfBlinkCors';
 end;
 
 procedure TMainForm.CreateMDIChild(const Name: string);

demos/Delphi_VCL/MDIExternalPumpBrowser/uMainForm.pas

@@ -129,6 +129,7 @@ begin
   GlobalCEFApp.MultiThreadedMessageLoop  := False;
   GlobalCEFApp.OnScheduleMessagePumpWork := GlobalCEFApp_OnScheduleMessagePumpWork;
   GlobalCEFApp.OnContextInitialized      := GlobalCEFApp_OnContextInitialized;
+  GlobalCEFApp.DisableFeatures           := 'NetworkService,OutOfBlinkCors';
 end;
 
 procedure TMainForm.CreateMDIChild(const Name: string);

demos/Delphi_VCL/MiniBrowser/MiniBrowser.dpr

@@ -49,8 +49,6 @@ uses
   Windows,
   {$ENDIF }
   uCEFApplication,
-  uCEFTypes,
-  uCEFConstants,
   uMiniBrowser in 'uMiniBrowser.pas' {MiniBrowserFrm},
   uPreferences in 'uPreferences.pas' {PreferencesFrm},
   uSimpleTextViewer in 'uSimpleTextViewer.pas' {SimpleTextViewerFrm};
@@ -60,12 +58,7 @@ uses
 {$SetPEFlags IMAGE_FILE_LARGE_ADDRESS_AWARE}
 
 begin
-  GlobalCEFApp := TCefApplication.Create;
+  CreateGlobalCEFApp;
-
-  GlobalCEFApp.LogFile              := 'debug.log';
-  GlobalCEFApp.LogSeverity          := LOGSEVERITY_INFO;
-
-  GlobalCEFApp.DisableFeatures := 'NetworkService';
 
   if GlobalCEFApp.StartMainProcess then
     begin

demos/Delphi_VCL/MiniBrowser/uMiniBrowser.pas

@@ -268,6 +268,8 @@ type
 var
   MiniBrowserFrm : TMiniBrowserFrm;
 
+procedure CreateGlobalCEFApp;
+
 implementation
 
 {$R *.dfm}
@@ -281,6 +283,14 @@ uses
 // 2. TChromium.OnClose sends a CEFBROWSER_DESTROY message to destroy CEFWindowParent1 in the main thread, which triggers the TChromium.OnBeforeClose event.
 // 3. TChromium.OnBeforeClose sets FCanClose := True and sends WM_CLOSE to the form.
 
+procedure CreateGlobalCEFApp;
+begin
+  GlobalCEFApp                  := TCefApplication.Create;
+  GlobalCEFApp.DisableFeatures  := 'NetworkService,OutOfBlinkCors';
+  GlobalCEFApp.LogFile          := 'debug.log';
+  GlobalCEFApp.LogSeverity      := LOGSEVERITY_INFO;
+end;
+
 procedure TMiniBrowserFrm.BackBtnClick(Sender: TObject);
 begin
   Chromium1.GoBack;

demos/Delphi_VCL/OSRExternalPumpBrowser/uOSRExternalPumpBrowser.pas

@@ -187,7 +187,7 @@ begin
   GlobalCEFApp.EnableHighDPISupport       := True;
   GlobalCEFApp.ExternalMessagePump        := True;
   GlobalCEFApp.MultiThreadedMessageLoop   := False;
-  GlobalCEFApp.DisableFeatures            := 'NetworkService,VizDisplayCompositor';
+  GlobalCEFApp.DisableFeatures            := 'NetworkService,OutOfBlinkCors';
   GlobalCEFApp.OnScheduleMessagePumpWork  := GlobalCEFApp_OnScheduleMessagePumpWork;
 end;
 

demos/Delphi_VCL/PopupBrowser/uMainForm.pas

@@ -149,7 +149,7 @@ begin
   GlobalCEFApp                            := TCefApplication.Create;
   GlobalCEFApp.WindowlessRenderingEnabled := True;
   GlobalCEFApp.EnableHighDPISupport       := True;
-  GlobalCEFApp.DisableFeatures            := 'NetworkService,VizDisplayCompositor';
+  GlobalCEFApp.DisableFeatures            := 'NetworkService,OutOfBlinkCors';
   //GlobalCEFApp.LogFile                    := 'debug.log';
   //GlobalCEFApp.LogSeverity                := LOGSEVERITY_INFO;
 end;

demos/Delphi_VCL/PopupBrowser2/PopupBrowser2.dpr

@@ -58,9 +58,7 @@ uses
 {$SetPEFlags IMAGE_FILE_LARGE_ADDRESS_AWARE}
 
 begin
-  GlobalCEFApp                      := TCefApplication.Create;
+  CreateGlobalCEFApp;
-  GlobalCEFApp.EnableHighDPISupport := True;
-  GlobalCEFApp.DisableFeatures      := 'NetworkService';
 
   if GlobalCEFApp.StartMainProcess then
     begin
@@ -72,6 +70,5 @@ begin
       Application.Run;
     end;
 
-  GlobalCEFApp.Free;
+  DestroyGlobalCEFApp;
-  GlobalCEFApp := nil;
 end.

demos/Delphi_VCL/PopupBrowser2/uMainForm.pas

@@ -108,6 +108,8 @@ type
 var
   MainForm: TMainForm;
 
+procedure CreateGlobalCEFApp;
+
 implementation
 
 {$R *.dfm}
@@ -140,6 +142,15 @@ uses
 // 3. TChromium.OnClose sends a CEFBROWSER_DESTROY message to destroy CEFWindowParent1 in the main thread, which triggers the TChromium.OnBeforeClose event.
 // 4. TChromium.OnBeforeClose sets FCanClose := True and sends WM_CLOSE to the form.
 
+procedure CreateGlobalCEFApp;
+begin
+  GlobalCEFApp                      := TCefApplication.Create;
+  GlobalCEFApp.EnableHighDPISupport := True;
+  GlobalCEFApp.DisableFeatures      := 'NetworkService,OutOfBlinkCors';
+  //GlobalCEFApp.LogFile          := 'cef.log';
+  //GlobalCEFApp.LogSeverity      := LOGSEVERITY_VERBOSE;
+end;
+
 procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
 begin
   FClosingChildren := True;

demos/Delphi_VCL/PostInspectorBrowser/PostInspectorBrowser.dpr

@@ -47,7 +47,7 @@ uses
   Forms,
   Windows,
   {$ENDIF }
-  uCEFApplication, uCEFConstants,
+  uCEFApplication,
   uPostInspectorBrowser in 'uPostInspectorBrowser.pas' {Form1};
 
 {$R *.res}
@@ -57,7 +57,7 @@ uses
 {$SetPEFlags IMAGE_FILE_LARGE_ADDRESS_AWARE}
 
 begin
-  GlobalCEFApp := TCefApplication.Create;
+  CreateGlobalCEFApp;
 
   if GlobalCEFApp.StartMainProcess then
     begin
@@ -69,6 +69,5 @@ begin
       Application.Run;
     end;
 
-  GlobalCEFApp.Free;
+  DestroyGlobalCEFApp;
-  GlobalCEFApp := nil;
 end.

demos/Delphi_VCL/PostInspectorBrowser/uPostInspectorBrowser.dfm

@@ -77,7 +77,6 @@ object Form1: TForm1
     Height = 439
     Align = alClient
     TabOrder = 1
-    ExplicitTop = 27
   end
   object Memo1: TMemo
     Left = 0

demos/Delphi_VCL/PostInspectorBrowser/uPostInspectorBrowser.pas

@@ -118,6 +118,8 @@ type
 var
   Form1: TForm1;
 
+procedure CreateGlobalCEFApp;
+
 implementation
 
 {$R *.dfm}
@@ -141,6 +143,14 @@ uses
 // 2. TChromium.OnClose sends a CEFBROWSER_DESTROY message to destroy CEFWindowParent1 in the main thread, which triggers the TChromium.OnBeforeClose event.
 // 3. TChromium.OnBeforeClose sets FCanClose := True and sends WM_CLOSE to the form.
 
+procedure CreateGlobalCEFApp;
+begin
+  GlobalCEFApp                  := TCefApplication.Create;
+  GlobalCEFApp.DisableFeatures  := 'NetworkService,OutOfBlinkCors';
+  //GlobalCEFApp.LogFile          := 'cef.log';
+  //GlobalCEFApp.LogSeverity      := LOGSEVERITY_VERBOSE;
+end;
+
 procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
 begin
   CanClose := FCanClose;

demos/Delphi_VCL/ResponseFilterBrowser/uResponseFilterBrowser.pas

@@ -192,7 +192,7 @@ uses
 procedure CreateGlobalCEFApp;
 begin
   GlobalCEFApp                  := TCefApplication.Create;
-  GlobalCEFApp.DisableFeatures  := 'NetworkService';
+  GlobalCEFApp.DisableFeatures  := 'NetworkService,OutOfBlinkCors';
   GlobalCEFApp.LogFile          := 'cef.log';
   GlobalCEFApp.LogSeverity      := LOGSEVERITY_VERBOSE;
 end;

demos/Delphi_VCL/SchemeRegistrationBrowser/uSchemeRegistrationBrowser.pas

@@ -146,7 +146,7 @@ procedure CreateGlobalCEFApp;
 begin
   GlobalCEFApp                    := TCefApplication.Create;
   GlobalCEFApp.OnRegCustomSchemes := GlobalCEFApp_OnRegCustomSchemes;
-  GlobalCEFApp.DisableFeatures    := 'NetworkService';
+  GlobalCEFApp.DisableFeatures    := 'NetworkService,OutOfBlinkCors';
 
   // GlobalCEFApp.LogFile              := 'debug.log';
   // GlobalCEFApp.LogSeverity          := LOGSEVERITY_VERBOSE;

demos/Delphi_VCL/SimpleBrowser/uSimpleBrowser.pas

@@ -59,14 +59,18 @@ type
     AddressEdt: TEdit;
     GoBtn: TButton;
     Timer1: TTimer;
+
     procedure GoBtnClick(Sender: TObject);
-    procedure FormShow(Sender: TObject);
-    procedure ChromiumWindow1AfterCreated(Sender: TObject);
     procedure Timer1Timer(Sender: TObject);
+
+    procedure FormShow(Sender: TObject);
     procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
     procedure FormCreate(Sender: TObject);
+
+    procedure ChromiumWindow1AfterCreated(Sender: TObject);
     procedure ChromiumWindow1Close(Sender: TObject);
     procedure ChromiumWindow1BeforeClose(Sender: TObject);
+
   private
     // You have to handle this two messages to call NotifyMoveOrResizeStarted or some page elements will be misaligned.
     procedure WMMove(var aMessage : TWMMove); message WM_MOVE;
@@ -159,19 +163,24 @@ begin
   if not(ChromiumWindow1.DestroyChildWindow) then
     begin
       FCanClose := True;
-      Close;
+      PostMessage(Handle, WM_CLOSE, 0, 0);
     end;
 end;
 
-procedure TForm1.Chromium_OnBeforePopup(Sender: TObject;
+procedure TForm1.Chromium_OnBeforePopup(      Sender             : TObject;
-  const browser: ICefBrowser; const frame: ICefFrame; const targetUrl,
+                                        const browser            : ICefBrowser;
-  targetFrameName: ustring; targetDisposition: TCefWindowOpenDisposition;
+                                        const frame              : ICefFrame;
-  userGesture: Boolean; const popupFeatures: TCefPopupFeatures;
+                                        const targetUrl          : ustring;
-  var windowInfo: TCefWindowInfo; var client: ICefClient;
+                                        const targetFrameName    : ustring;
-  var settings: TCefBrowserSettings;
+                                              targetDisposition  : TCefWindowOpenDisposition;
-  var extra_info: ICefDictionaryValue;
+                                              userGesture        : Boolean;
-  var noJavascriptAccess: Boolean;
+                                        const popupFeatures      : TCefPopupFeatures;
-  var Result: Boolean);
+                                        var   windowInfo         : TCefWindowInfo;
+                                        var   client             : ICefClient;
+                                        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
   Result := (targetDisposition in [WOD_NEW_FOREGROUND_TAB, WOD_NEW_BACKGROUND_TAB, WOD_NEW_POPUP, WOD_NEW_WINDOW]);

demos/Delphi_VCL/SimpleExternalPumpBrowser/uSimpleExternalPumpBrowser.pas

@@ -120,6 +120,7 @@ begin
   GlobalCEFApp.ExternalMessagePump       := True;
   GlobalCEFApp.MultiThreadedMessageLoop  := False;
   GlobalCEFApp.OnScheduleMessagePumpWork := GlobalCEFApp_OnScheduleMessagePumpWork;
+  GlobalCEFApp.DisableFeatures           := 'NetworkService,OutOfBlinkCors';
 end;
 
 procedure TSimpleExternalPumpBrowserFrm.FormCreate(Sender: TObject);

demos/Delphi_VCL/SimpleOSRBrowser/uSimpleOSRBrowser.pas

@@ -181,7 +181,7 @@ begin
   GlobalCEFApp                            := TCefApplication.Create;
   GlobalCEFApp.WindowlessRenderingEnabled := True;
   GlobalCEFApp.EnableHighDPISupport       := True;
-  GlobalCEFApp.DisableFeatures            := 'NetworkService,VizDisplayCompositor';
+  GlobalCEFApp.DisableFeatures            := 'NetworkService,OutOfBlinkCors';
 
   // If you need transparency leave the GlobalCEFApp.BackgroundColor property
   // with the default value or set the alpha channel to 0

demos/Delphi_VCL/SubProcess/SubProcess.dpr

@@ -52,7 +52,8 @@ uses
 {$SetPEFlags IMAGE_FILE_LARGE_ADDRESS_AWARE}
 
 begin
-  GlobalCEFApp := TCefApplication.Create;
+  GlobalCEFApp                  := TCefApplication.Create;
+  GlobalCEFApp.DisableFeatures  := 'NetworkService,OutOfBlinkCors';
 
   // The main process and the subprocess *MUST* have the same GlobalCEFApp
   // properties and events, specially FrameworkDirPath, ResourcesDirPath,

demos/Delphi_VCL/SubProcess/uCEFLoader.pas

@@ -66,6 +66,7 @@ begin
   GlobalCEFApp.UserDataPath         := 'cef\User Data';
 }
 
+  GlobalCEFApp.DisableFeatures       := 'NetworkService,OutOfBlinkCors';
   GlobalCEFApp.BrowserSubprocessPath := 'SubProcess.exe';
 
   // This demo uses a different EXE for the subprocesses.

demos/Delphi_VCL/TabbedBrowser/uMainForm.pas

@@ -156,7 +156,7 @@ procedure CreateGlobalCEFApp;
 begin
   GlobalCEFApp                      := TCefApplication.Create;
   GlobalCEFApp.OnContextInitialized := GlobalCEFApp_OnContextInitialized;
-  GlobalCEFApp.DisableFeatures      := 'NetworkService';
+  GlobalCEFApp.DisableFeatures      := 'NetworkService,OutOfBlinkCors';
 end;
 
 procedure TMainForm.AddTabBtnClick(Sender: TObject);

demos/Delphi_VCL/ToolBoxBrowser/uMainForm.pas

@@ -112,6 +112,7 @@ procedure CreateGlobalCEFApp;
 begin
   GlobalCEFApp                      := TCefApplication.Create;
   GlobalCEFApp.OnContextInitialized := GlobalCEFApp_OnContextInitialized;
+  GlobalCEFApp.DisableFeatures      := 'NetworkService,OutOfBlinkCors';
 end;
 
 procedure TMainForm.CreateToolboxChild(const ChildCaption, URL: string);

demos/Lazarus/CookieVisitor/CookieVisitor.lps

@@ -20,10 +20,9 @@
         <ComponentName Value="CookieVisitorFrm"/>
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
-        <IsVisibleTab Value="True"/>
         <EditorIndex Value="1"/>
-        <TopLine Value="124"/>
+        <TopLine Value="139"/>
-        <CursorPos X="38" Y="130"/>
+        <CursorPos X="69" Y="149"/>
         <UsageCount Value="22"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
@@ -42,13 +41,15 @@
       </Unit2>
       <Unit3>
         <Filename Value="C:\lazarus\lcl\interfaces\win32\win32object.inc"/>
-        <EditorIndex Value="-1"/>
+        <IsVisibleTab Value="True"/>
-        <TopLine Value="395"/>
+        <EditorIndex Value="2"/>
-        <CursorPos X="61" Y="409"/>
+        <TopLine Value="355"/>
+        <CursorPos Y="413"/>
         <UsageCount Value="10"/>
+        <Loaded Value="True"/>
       </Unit3>
     </Units>
-    <JumpHistory Count="11" HistoryIndex="10">
+    <JumpHistory Count="12" HistoryIndex="11">
       <Position1>
         <Filename Value="CookieVisitor.lpr"/>
       </Position1>
@@ -92,6 +93,10 @@
         <Filename Value="uCookieVisitor.pas"/>
         <Caret Line="125" Column="11" TopLine="115"/>
       </Position11>
+      <Position12>
+        <Filename Value="uCookieVisitor.pas"/>
+        <Caret Line="149" Column="69" TopLine="139"/>
+      </Position12>
     </JumpHistory>
     <RunParams>
       <FormatVersion Value="2"/>

demos/Lazarus/CookieVisitor/uCookieVisitor.pas

@@ -146,7 +146,7 @@ uses
 procedure CreateGlobalCEFApp;
 begin
   GlobalCEFApp                     := TCefApplication.Create;
-  GlobalCEFApp.DisableFeatures     := 'NetworkService';
+  GlobalCEFApp.DisableFeatures     := 'NetworkService,OutOfBlinkCors';
 end;
 
 // This function is called in the IO thread.

demos/Lazarus/CustomResourceBrowser/CRBrowser.lps

@@ -22,8 +22,8 @@
         <ResourceBaseClass Value="Form"/>
         <IsVisibleTab Value="True"/>
         <EditorIndex Value="1"/>
-        <TopLine Value="166"/>
+        <TopLine Value="100"/>
-        <CursorPos Y="169"/>
+        <CursorPos X="66" Y="115"/>
         <UsageCount Value="20"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>

demos/Lazarus/CustomResourceBrowser/uMainForm.pas

@@ -112,7 +112,7 @@ uses
 procedure CreateGlobalCEFApp;
 begin
   GlobalCEFApp                  := TCefApplication.Create;
-  GlobalCEFApp.DisableFeatures  := 'NetworkService';
+  GlobalCEFApp.DisableFeatures  := 'NetworkService,OutOfBlinkCors';
   //GlobalCEFApp.LogFile          := 'cef.log';
   //GlobalCEFApp.LogSeverity      := LOGSEVERITY_VERBOSE;
 end;

demos/Lazarus/DOMVisitor/DOMVisitor.lps

@@ -23,7 +23,7 @@
         <IsVisibleTab Value="True"/>
         <EditorIndex Value="1"/>
         <TopLine Value="294"/>
-        <CursorPos X="39" Y="305"/>
+        <CursorPos X="74" Y="305"/>
         <UsageCount Value="20"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>

demos/Lazarus/DOMVisitor/uDOMVisitor.pas

@@ -302,7 +302,7 @@ begin
   GlobalCEFApp                          := TCefApplication.Create;
   GlobalCEFApp.RemoteDebuggingPort      := 9000;
   GlobalCEFApp.OnProcessMessageReceived := GlobalCEFApp_OnProcessMessageReceived;       
-  GlobalCEFApp.DisableFeatures          := 'NetworkService';
+  GlobalCEFApp.DisableFeatures          := 'NetworkService,OutOfBlinkCors';
 
   // Enabling the debug log file for then DOM visitor demo.
   // This adds lots of warnings to the console, specially if you run this inside VirtualBox.

demos/Lazarus/EditorBrowser/EditorBrowser.lps

@@ -20,8 +20,8 @@
         <ResourceBaseClass Value="Form"/>
         <IsVisibleTab Value="True"/>
         <EditorIndex Value="1"/>
-        <TopLine Value="133"/>
+        <TopLine Value="151"/>
-        <CursorPos X="69" Y="152"/>
+        <CursorPos X="70" Y="174"/>
         <UsageCount Value="20"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>

demos/Lazarus/EditorBrowser/uEditorBrowser.pas

@@ -171,7 +171,7 @@ uses
 procedure CreateGlobalCEFApp;
 begin
   GlobalCEFApp                      := TCefApplication.Create;
-  GlobalCEFApp.DisableFeatures      := 'NetworkService';
+  GlobalCEFApp.DisableFeatures      := 'NetworkService,OutOfBlinkCors';
 end;
 
 procedure TForm1.FillColorBtnClick(Sender: TObject);

demos/Lazarus/ExternalPumpBrowser/ExternalPumpBrowser.lps

@@ -23,7 +23,7 @@
         <IsVisibleTab Value="True"/>
         <EditorIndex Value="1"/>
         <TopLine Value="106"/>
-        <CursorPos X="41" Y="134"/>
+        <CursorPos X="75" Y="134"/>
         <UsageCount Value="20"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>

demos/Lazarus/ExternalPumpBrowser/uExternalPumpBrowser.pas

@@ -131,7 +131,7 @@ begin
   GlobalCEFApp.FlashEnabled              := False;
   GlobalCEFApp.ExternalMessagePump       := True;
   GlobalCEFApp.MultiThreadedMessageLoop  := False;           
-  GlobalCEFApp.DisableFeatures           := 'NetworkService';
+  GlobalCEFApp.DisableFeatures           := 'NetworkService,OutOfBlinkCors';
   GlobalCEFApp.OnScheduleMessagePumpWork := GlobalCEFApp_OnScheduleMessagePumpWork;
 end;
 

demos/Lazarus/FullScreenBrowser/FullScreenBrowser.lps

@@ -8,7 +8,6 @@
       <Unit0>
         <Filename Value="FullScreenBrowser.lpr"/>
         <IsPartOfProject Value="True"/>
-        <IsVisibleTab Value="True"/>
         <TopLine Value="38"/>
         <CursorPos X="22" Y="60"/>
         <UsageCount Value="20"/>
@@ -21,16 +20,17 @@
         <ComponentName Value="MainForm"/>
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
+        <IsVisibleTab Value="True"/>
         <EditorIndex Value="1"/>
-        <TopLine Value="90"/>
+        <TopLine Value="92"/>
-        <CursorPos X="11" Y="108"/>
+        <CursorPos X="69" Y="120"/>
         <UsageCount Value="20"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
         <DefaultSyntaxHighlighter Value="Delphi"/>
       </Unit1>
     </Units>
-    <JumpHistory Count="4" HistoryIndex="3">
+    <JumpHistory Count="5" HistoryIndex="4">
       <Position1>
         <Filename Value="uMainForm.pas"/>
       </Position1>
@@ -46,6 +46,10 @@
         <Filename Value="uMainForm.pas"/>
         <Caret Line="246" Column="3" TopLine="219"/>
       </Position4>
+      <Position5>
+        <Filename Value="FullScreenBrowser.lpr"/>
+        <Caret Line="60" Column="22" TopLine="38"/>
+      </Position5>
     </JumpHistory>
     <RunParams>
       <FormatVersion Value="2"/>

demos/Lazarus/FullScreenBrowser/uMainForm.pas

@@ -117,7 +117,7 @@ uses
 procedure CreateGlobalCEFApp;
 begin
   GlobalCEFApp                     := TCefApplication.Create;
-  GlobalCEFApp.DisableFeatures     := 'NetworkService';
+  GlobalCEFApp.DisableFeatures     := 'NetworkService,OutOfBlinkCors';
 end;
 
 procedure TMainForm.HandleKeyUp(const aMsg : TMsg; var aHandled : boolean);

demos/Lazarus/JavaScript/JSDialog/JSDialogBrowser.lps

@@ -22,8 +22,8 @@
         <ResourceBaseClass Value="Form"/>
         <IsVisibleTab Value="True"/>
         <EditorIndex Value="1"/>
-        <TopLine Value="247"/>
+        <TopLine Value="103"/>
-        <CursorPos X="41" Y="251"/>
+        <CursorPos X="69" Y="122"/>
         <UsageCount Value="20"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>

demos/Lazarus/JavaScript/JSDialog/uJSDialogBrowser.pas

@@ -119,7 +119,7 @@ uses
 procedure CreateGlobalCEFApp;
 begin
   GlobalCEFApp                     := TCefApplication.Create;
-  GlobalCEFApp.DisableFeatures     := 'NetworkService';
+  GlobalCEFApp.DisableFeatures     := 'NetworkService,OutOfBlinkCors';
 end;
 
 procedure TJSDialogBrowserFrm.FormCreate(Sender: TObject);

demos/Lazarus/JavaScript/JSEval/JSEval.lps

@@ -23,7 +23,7 @@
         <ResourceBaseClass Value="Form"/>
         <IsVisibleTab Value="True"/>
         <TopLine Value="538"/>
-        <CursorPos X="3" Y="540"/>
+        <CursorPos X="74" Y="542"/>
         <UsageCount Value="21"/>
         <Bookmarks Count="1">
           <Item0 X="85" Y="477" ID="1"/>

demos/Lazarus/JavaScript/JSEval/uJSEval.pas

@@ -539,7 +539,7 @@ procedure CreateGlobalCEFApp;
 begin
   GlobalCEFApp                          := TCefApplication.Create;
   GlobalCEFApp.OnProcessMessageReceived := RenderProcessHandler_OnProcessMessageReceivedEvent;
-  GlobalCEFApp.DisableFeatures          := 'NetworkService';
+  GlobalCEFApp.DisableFeatures          := 'NetworkService,OutOfBlinkCors';
 end;
 
 procedure TJSEvalFrm.Chromium1ProcessMessageReceived(Sender : TObject;

demos/Lazarus/JavaScript/JSExecutingFunctions/JSExecutingFunctions.lps

@@ -23,7 +23,7 @@
         <IsVisibleTab Value="True"/>
         <EditorIndex Value="1"/>
         <TopLine Value="174"/>
-        <CursorPos X="3" Y="176"/>
+        <CursorPos X="74" Y="179"/>
         <UsageCount Value="20"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>

demos/Lazarus/JavaScript/JSExecutingFunctions/uJSExecutingFunctions.pas

@@ -176,7 +176,7 @@ begin
   GlobalCEFApp                          := TCefApplication.Create;
   GlobalCEFApp.OnContextCreated         := GlobalCEFApp_OnContextCreated;
   GlobalCEFApp.OnProcessMessageReceived := GlobalCEFApp_OnProcessMessageReceived;
-  GlobalCEFApp.DisableFeatures          := 'NetworkService';
+  GlobalCEFApp.DisableFeatures          := 'NetworkService,OutOfBlinkCors';
 end;
 
 procedure TJSExecutingFunctionsFrm.GoBtnClick(Sender: TObject);

demos/Lazarus/JavaScript/JSExtension/uJSExtension.pas

@@ -221,7 +221,7 @@ procedure CreateGlobalCEFApp;
 begin
   GlobalCEFApp                     := TCefApplication.Create;
   GlobalCEFApp.OnWebKitInitialized := GlobalCEFApp_OnWebKitInitialized;
-  GlobalCEFApp.DisableFeatures     := 'NetworkService';
+  GlobalCEFApp.DisableFeatures     := 'NetworkService,OutOfBlinkCors';
 
   {$IFDEF INTFLOG}
   GlobalCEFApp.LogFile             := 'debug.log';

demos/Lazarus/JavaScript/JSExtensionWithFunction/JSExtensionWithFunction.lps

@@ -23,7 +23,7 @@
         <IsVisibleTab Value="True"/>
         <EditorIndex Value="1"/>
         <TopLine Value="149"/>
-        <CursorPos X="3" Y="151"/>
+        <CursorPos X="69" Y="153"/>
         <UsageCount Value="20"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>

demos/Lazarus/JavaScript/JSExtensionWithFunction/uJSExtensionWithFunction.pas

@@ -150,7 +150,7 @@ procedure CreateGlobalCEFApp;
 begin
   GlobalCEFApp                     := TCefApplication.Create;
   GlobalCEFApp.OnWebKitInitialized := GlobalCEFApp_OnWebKitInitializedEvent;
-  GlobalCEFApp.DisableFeatures     := 'NetworkService';
+  GlobalCEFApp.DisableFeatures     := 'NetworkService,OutOfBlinkCors';
 end;
 
 procedure TJSExtensionWithFunctionFrm.GoBtnClick(Sender: TObject);

demos/Lazarus/JavaScript/JSExtensionWithObjectParameter/JSExtensionWithObjectParameter.lps

@@ -22,8 +22,8 @@
         <ResourceBaseClass Value="Form"/>
         <IsVisibleTab Value="True"/>
         <EditorIndex Value="1"/>
-        <TopLine Value="119"/>
+        <TopLine Value="133"/>
-        <CursorPos X="43" Y="75"/>
+        <CursorPos X="69" Y="156"/>
         <UsageCount Value="20"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>

demos/Lazarus/JavaScript/JSExtensionWithObjectParameter/uJSExtensionWithObjectParameter.pas

@@ -153,7 +153,7 @@ procedure CreateGlobalCEFApp;
 begin
   GlobalCEFApp                     := TCefApplication.Create;
   GlobalCEFApp.OnWebKitInitialized := GlobalCEFApp_OnWebKitInitializedEvent;
-  GlobalCEFApp.DisableFeatures     := 'NetworkService';
+  GlobalCEFApp.DisableFeatures     := 'NetworkService,OutOfBlinkCors';
 end;
 
 procedure TJSExtensionWithObjectParameterFrm.GoBtnClick(Sender: TObject);

demos/Lazarus/JavaScript/JSSimpleExtension/JSSimpleExtension.lps

@@ -22,8 +22,8 @@
         <ResourceBaseClass Value="Form"/>
         <IsVisibleTab Value="True"/>
         <EditorIndex Value="1"/>
-        <TopLine Value="53"/>
+        <TopLine Value="122"/>
-        <CursorPos X="43" Y="75"/>
+        <CursorPos X="69" Y="143"/>
         <UsageCount Value="20"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>

demos/Lazarus/JavaScript/JSSimpleExtension/uJSSimpleExtension.pas

@@ -140,7 +140,7 @@ procedure CreateGlobalCEFApp;
 begin
   GlobalCEFApp                     := TCefApplication.Create;
   GlobalCEFApp.OnWebKitInitialized := GlobalCEFApp_OnWebKitInitializedEvent;
-  GlobalCEFApp.DisableFeatures     := 'NetworkService';
+  GlobalCEFApp.DisableFeatures     := 'NetworkService,OutOfBlinkCors';
 end;
 
 procedure TJSSimpleExtensionFrm.GoBtnClick(Sender: TObject);

demos/Lazarus/JavaScript/JSSimpleWindowBinding/JSSimpleWindowBinding.lps

@@ -22,8 +22,8 @@
         <ResourceBaseClass Value="Form"/>
         <IsVisibleTab Value="True"/>
         <EditorIndex Value="1"/>
-        <TopLine Value="56"/>
+        <TopLine Value="110"/>
-        <CursorPos X="15" Y="84"/>
+        <CursorPos X="66" Y="135"/>
         <UsageCount Value="20"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>

demos/Lazarus/JavaScript/JSSimpleWindowBinding/uJSSimpleWindowBinding.pas

@@ -132,7 +132,7 @@ procedure CreateGlobalCEFApp;
 begin
   GlobalCEFApp                  := TCefApplication.Create;
   GlobalCEFApp.OnContextCreated := GlobalCEFApp_OnContextCreated;
-  GlobalCEFApp.DisableFeatures  := 'NetworkService';
+  GlobalCEFApp.DisableFeatures  := 'NetworkService,OutOfBlinkCors';
 end;
 
 procedure TJSSimpleWindowBindingFrm.GoBtnClick(Sender: TObject);

demos/Lazarus/JavaScript/JSWindowBindingSubProcess/JSSimpleWindowBinding.lpr

@@ -65,7 +65,7 @@ begin
   // 4. Run this demo : JSSimpleWindowBinding
 
   GlobalCEFApp.BrowserSubprocessPath := 'SubProcess.exe';
-  GlobalCEFApp.DisableFeatures       := 'NetworkService';
+  GlobalCEFApp.DisableFeatures       := 'NetworkService,OutOfBlinkCors';
 
   if GlobalCEFApp.StartMainProcess then
     begin

demos/Lazarus/JavaScript/JSWindowBindingSubProcess/JSSimpleWindowBinding.lps

@@ -8,8 +8,9 @@
       <Unit0>
         <Filename Value="JSSimpleWindowBinding.lpr"/>
         <IsPartOfProject Value="True"/>
+        <IsVisibleTab Value="True"/>
         <TopLine Value="42"/>
-        <CursorPos X="36" Y="68"/>
+        <CursorPos X="71" Y="68"/>
         <UsageCount Value="20"/>
         <Loaded Value="True"/>
         <DefaultSyntaxHighlighter Value="Delphi"/>
@@ -20,9 +21,8 @@
         <ComponentName Value="JSSimpleWindowBindingFrm"/>
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
-        <IsVisibleTab Value="True"/>
         <EditorIndex Value="1"/>
-        <TopLine Value="62"/>
+        <TopLine Value="77"/>
         <CursorPos X="39" Y="134"/>
         <UsageCount Value="20"/>
         <Loaded Value="True"/>

demos/Lazarus/JavaScript/JSWindowBindingSubProcess/SubProcess.lpr

@@ -70,7 +70,7 @@ end;
 begin
   GlobalCEFApp                  := TCefApplication.Create;
   GlobalCEFApp.OnContextCreated := GlobalCEFApp_OnContextCreated;
-  GlobalCEFApp.DisableFeatures  := 'NetworkService';
+  GlobalCEFApp.DisableFeatures  := 'NetworkService,OutOfBlinkCors';
 
   // The main process and the subprocess *MUST* have the same FrameworkDirPath, ResourcesDirPath,
   // LocalesDirPath, cache, cookies and UserDataPath paths

demos/Lazarus/JavaScript/JSWindowBindingSubProcess/SubProcess.lps

@@ -10,7 +10,7 @@
         <IsPartOfProject Value="True"/>
         <IsVisibleTab Value="True"/>
         <TopLine Value="58"/>
-        <CursorPos X="33" Y="71"/>
+        <CursorPos X="66" Y="73"/>
         <UsageCount Value="20"/>
         <Loaded Value="True"/>
         <DefaultSyntaxHighlighter Value="Delphi"/>

demos/Lazarus/JavaScript/JSWindowBindingWithFunction/JSWindowBindingWithFunction.lps

@@ -22,8 +22,8 @@
         <ResourceBaseClass Value="Form"/>
         <IsVisibleTab Value="True"/>
         <EditorIndex Value="1"/>
-        <TopLine Value="69"/>
+        <TopLine Value="119"/>
-        <CursorPos X="43" Y="75"/>
+        <CursorPos X="66" Y="140"/>
         <UsageCount Value="20"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>

demos/Lazarus/JavaScript/JSWindowBindingWithFunction/uJSWindowBindingWithFunction.pas

@@ -137,7 +137,7 @@ procedure CreateGlobalCEFApp;
 begin
   GlobalCEFApp                  := TCefApplication.Create;
   GlobalCEFApp.OnContextCreated := GlobalCEFApp_OnContextCreated;
-  GlobalCEFApp.DisableFeatures  := 'NetworkService';
+  GlobalCEFApp.DisableFeatures  := 'NetworkService,OutOfBlinkCors';
 end;
 
 procedure TJSWindowBindingWithFunctionFrm.GoBtnClick(Sender: TObject);

demos/Lazarus/JavaScript/JSWindowBindingWithObject/JSWindowBindingWithObject.lps

@@ -22,8 +22,8 @@
         <ResourceBaseClass Value="Form"/>
         <IsVisibleTab Value="True"/>
         <EditorIndex Value="1"/>
-        <TopLine Value="153"/>
+        <TopLine Value="126"/>
-        <CursorPos X="3" Y="163"/>
+        <CursorPos X="66" Y="141"/>
         <UsageCount Value="20"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>

demos/Lazarus/JavaScript/JSWindowBindingWithObject/uJSWindowBindingWithObject.pas

@@ -138,7 +138,7 @@ procedure CreateGlobalCEFApp;
 begin
   GlobalCEFApp                  := TCefApplication.Create;
   GlobalCEFApp.OnContextCreated := GlobalCEFApp_OnContextCreated;
-  GlobalCEFApp.DisableFeatures  := 'NetworkService';
+  GlobalCEFApp.DisableFeatures  := 'NetworkService,OutOfBlinkCors';
 end;
 
 procedure TJSWindowBindingWithObjectFrm.GoBtnClick(Sender: TObject);

demos/Lazarus/MiniBrowser/uMiniBrowser.pas

@@ -279,7 +279,7 @@ begin
   GlobalCEFApp                     := TCefApplication.Create;
   GlobalCEFApp.LogFile             := 'debug.log';
   GlobalCEFApp.LogSeverity         := LOGSEVERITY_INFO;
-  GlobalCEFApp.DisableFeatures     := 'NetworkService';
+  GlobalCEFApp.DisableFeatures     := 'NetworkService,OutOfBlinkCors';
 end;
 
 procedure TMiniBrowserFrm.BackBtnClick(Sender: TObject);

demos/Lazarus/OSRExternalPumpBrowser/OSRExternalPumpBrowser.lps

@@ -23,7 +23,7 @@
         <IsVisibleTab Value="True"/>
         <EditorIndex Value="1"/>
         <TopLine Value="185"/>
-        <CursorPos Y="199"/>
+        <CursorPos X="76" Y="198"/>
         <UsageCount Value="26"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>

demos/Lazarus/OSRExternalPumpBrowser/uOSRExternalPumpBrowser.pas

@@ -195,7 +195,7 @@ begin
   GlobalCEFApp.EnableHighDPISupport       := True;
   GlobalCEFApp.ExternalMessagePump        := True;
   GlobalCEFApp.MultiThreadedMessageLoop   := False;
-  GlobalCEFApp.DisableFeatures            := 'NetworkService,VizDisplayCompositor';
+  GlobalCEFApp.DisableFeatures            := 'NetworkService,OutOfBlinkCors';
   GlobalCEFApp.OnScheduleMessagePumpWork  := @GlobalCEFApp_OnScheduleMessagePumpWork;
 end;
 

demos/Lazarus/PopupBrowser/PopupBrowser.lps

@@ -23,7 +23,7 @@
         <ResourceBaseClass Value="Form"/>
         <IsVisibleTab Value="True"/>
         <TopLine Value="145"/>
-        <CursorPos Y="151"/>
+        <CursorPos X="76" Y="150"/>
         <UsageCount Value="22"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>

demos/Lazarus/PopupBrowser/uMainForm.pas

@@ -147,7 +147,7 @@ begin
   GlobalCEFApp                            := TCefApplication.Create;
   GlobalCEFApp.WindowlessRenderingEnabled := True;
   GlobalCEFApp.EnableHighDPISupport       := True;
-  GlobalCEFApp.DisableFeatures            := 'NetworkService,VizDisplayCompositor';
+  GlobalCEFApp.DisableFeatures            := 'NetworkService,OutOfBlinkCors';
 end;
 
 procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

demos/Lazarus/PopupBrowser2/PopupBrowser2.lps

@@ -23,7 +23,7 @@
         <IsVisibleTab Value="True"/>
         <EditorIndex Value="1"/>
         <TopLine Value="141"/>
-        <CursorPos X="11" Y="110"/>
+        <CursorPos X="70" Y="149"/>
         <UsageCount Value="22"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>

demos/Lazarus/PopupBrowser2/uMainForm.pas

@@ -146,7 +146,7 @@ procedure CreateGlobalCEFApp;
 begin
   GlobalCEFApp                      := TCefApplication.Create;
   GlobalCEFApp.EnableHighDPISupport := True;
-  GlobalCEFApp.DisableFeatures      := 'NetworkService';
+  GlobalCEFApp.DisableFeatures      := 'NetworkService,OutOfBlinkCors';
 end;
 
 procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

demos/Lazarus/PostInspectorBrowser/PostInspectorBrowser.lps

@@ -8,7 +8,6 @@
       <Unit0>
         <Filename Value="PostInspectorBrowser.lpr"/>
         <IsPartOfProject Value="True"/>
-        <IsVisibleTab Value="True"/>
         <TopLine Value="41"/>
         <CursorPos Y="73"/>
         <UsageCount Value="20"/>
@@ -21,9 +20,10 @@
         <ComponentName Value="Form1"/>
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
+        <IsVisibleTab Value="True"/>
         <EditorIndex Value="1"/>
-        <TopLine Value="109"/>
+        <TopLine Value="130"/>
-        <CursorPos X="11" Y="121"/>
+        <CursorPos X="69" Y="150"/>
         <UsageCount Value="20"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>

demos/Lazarus/PostInspectorBrowser/uPostInspectorBrowser.pas

@@ -147,7 +147,7 @@ uses
 procedure CreateGlobalCEFApp;
 begin
   GlobalCEFApp                     := TCefApplication.Create;
-  GlobalCEFApp.DisableFeatures     := 'NetworkService';
+  GlobalCEFApp.DisableFeatures     := 'NetworkService,OutOfBlinkCors';
 end;
 
 procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

demos/Lazarus/SchemeRegistrationBrowser/SchemeRegistrationBrowser.lps

@@ -23,7 +23,7 @@
         <IsVisibleTab Value="True"/>
         <EditorIndex Value="1"/>
         <TopLine Value="113"/>
-        <CursorPos X="35" Y="138"/>
+        <CursorPos X="68" Y="140"/>
         <UsageCount Value="20"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>

demos/Lazarus/SchemeRegistrationBrowser/uSchemeRegistrationBrowser.pas

@@ -137,7 +137,7 @@ procedure CreateGlobalCEFApp;
 begin
   GlobalCEFApp                    := TCefApplication.Create;
   GlobalCEFApp.OnRegCustomSchemes := GlobalCEFApp_OnRegCustomSchemes;
-  GlobalCEFApp.DisableFeatures    := 'NetworkService';
+  GlobalCEFApp.DisableFeatures    := 'NetworkService,OutOfBlinkCors';
 end;
 
 procedure TSchemeRegistrationBrowserFrm.Chromium1AfterCreated(Sender: TObject; const browser: ICefBrowser);

demos/Lazarus/SimpleBrowser/SimpleBrowser.lps

@@ -22,8 +22,8 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <IsVisibleTab Value="True"/>
-        <TopLine Value="149"/>
+        <TopLine Value="116"/>
-        <CursorPos X="41" Y="170"/>
+        <CursorPos X="69" Y="123"/>
         <UsageCount Value="20"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>