* Rework by Martin Friebe to work with Cef4Delphi

demo/webwidget/nativedesign/frmmain.pp

@@ -5,16 +5,14 @@ unit frmmain;
 interface
 
 uses
-  Classes, SysUtils, webideintf, Forms, Controls, Graphics, Dialogs, EditBtn, ExtCtrls, ComCtrls, StdCtrls, ActnList,
-  {$IFDEF LINUX}
-   WebBrowserCtrls, WebBrowserIntf,
-  {$ELSE}
+  Classes, SysUtils, webideintf, Forms, Controls, Graphics, Dialogs, EditBtn,
+  ExtCtrls, ComCtrls, StdCtrls, ActnList, GlobalCefApplication,
+  {$IFDEF DARWIN}  uCEFLazarusCocoa,  {$ENDIF}
   {$IFDEF WINDOWS}
-  Windows, Messages, uCEFChromium, uCEFWindowParent, uCEFChromiumWindow, uCEFTypes, uCEFInterfaces, uCEFWinControl, uCEFApplication,
-  {$ELSE}
-  {$ERROR Unsupported platform}
+  Windows, Messages,
   {$ENDIF}
-  {$ENDIF} fpJSON;
+  uCEFChromium, uCEFWindowParent, uCEFChromiumWindow, uCEFTypes, uCEFInterfaces,
+  uCEFWinControl, uCEFApplication, uCEFWorkScheduler, uCEFBrowserWindow, fpJSON, uCEFChromiumEvents;
 
 type
 
@@ -24,6 +22,7 @@ type
     AGoExternal: TAction;
     AGo: TAction;
     ALWidgets: TActionList;
+    BrowserWindow1: TBrowserWindow;
     FEProject: TFileNameEdit;
     ILWidgets: TImageList;
     MLog: TMemo;
@@ -31,7 +30,6 @@ type
     Project: TLabel;
     PBottom: TPanel;
     TBExternalGo: TToolButton;
-    tmrShowChromium: TTimer;
     TSInspector: TTabSheet;
     TSBrowser: TTabSheet;
     TSLog: TTabSheet;
@@ -41,11 +39,20 @@ type
     procedure AGoExecute(Sender: TObject);
     procedure AGoExternalExecute(Sender: TObject);
     procedure AGoUpdate(Sender: TObject);
+    procedure BrowserWindow1BrowserClosed(Sender: TObject);
+    procedure BrowserWindow1BrowserCreated(Sender: TObject);
+    procedure cwOnBeforePopup(Sender: TObject;
+      const browser: ICefBrowser; const frame: ICefFrame; const targetUrl,
+      targetFrameName: ustring; 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 DEProjectEditingDone(Sender: TObject);
     procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
     procedure FormCreate(Sender: TObject);
-    procedure FormShow(Sender: TObject);
-    procedure tmrShowChromiumTimer(Sender: TObject);
   private
     FClientID : Int64; // Just one for now
     FDesignCaption : String;
@@ -54,43 +61,10 @@ type
     FWidgets : Array of String;
     FURL : String;
     FURLCount : Integer;
-    FCanClose : Boolean;
     FAllowGo: Boolean;
-{$IFDEF LINUX}
-    FWBDesign : TWebBrowser;
-    FWIDesign : TWebInspector;
-    FLastEmbeddedURI : String;
-    procedure wbDesignConsoleMessage(Sender: TObject; const Message, Source: string; Line: Integer);
-    procedure wbDesignError(Sender: TObject; const Uri: string; ErrorCode: LongWord; const ErrorMessage: string;   var Handled: Boolean);
-    procedure wbDesignFavicon(Sender: TObject);
-    procedure wbDesignHitTest(Sender: TObject; X, Y: Integer; HitTest: TWebHitTest; const Link, Media: string);
-    procedure wbDesignLoadStatusChange(Sender: TObject);
-    procedure wbDesignLocationChange(Sender: TObject);
-    procedure wbDesignNavigate(Sender: TObject; const Uri: string; var aAction: TWebNavigateAction);
-    procedure wbDesignProgress(Sender: TObject; Progress: Integer);
-    procedure wbDesignRequest(Sender: TObject; var Uri: string);
-    procedure wbDesignScriptDialog(Sender: TObject; Dialog: TWebScriptDialog; const Message: string; var Input: string;  var Accepted: Boolean; var Handled: Boolean);
-{$ENDIF}
 {$IFDEF WINDOWS}
-    FClosing : Boolean;
-    cwDesign : TChromiumWindow;
-    procedure WMMove(var aMessage : TWMMove); message WM_MOVE;
-    procedure WMMoving(var aMessage : TMessage); message WM_MOVING;
-    // You also have to handle these two messages to set GlobalCEFApp.OsmodalLoop
     procedure WMEnterMenuLoop(var aMessage: TMessage); message WM_ENTERMENULOOP;
     procedure WMExitMenuLoop(var aMessage: TMessage); message WM_EXITMENULOOP;
-    procedure cwBeforeClose(Sender: TObject);
-    procedure cwClose(Sender: TObject);
-    procedure cwAfterCreated(Sender: TObject);
-    procedure cwOnBeforePopup(Sender: TObject;
-      const browser: ICefBrowser; const frame: ICefFrame; const targetUrl,
-      targetFrameName: ustring; 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);
 {$ENDIF}
     function GetProjectURL: String;
     procedure DoAddWidget(Sender: TObject);
@@ -102,7 +76,6 @@ type
     procedure LogRequest;
     Procedure RegisterWidgets;
     Procedure RegisterWidget(aWidget: String; aImageIndex : Integer);
-    procedure SetUpEmbeddedBrowser;
   public
     Procedure Log(Msg : String);
     Procedure Log(Fmt : String; Args : Array of const);
@@ -127,15 +100,9 @@ end;
 procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: boolean);
 begin
   FWebIDEIntf.Active:=False;
-  CanClose:=FCanClose;
-{$IFDEF WINDOWS}
-  if not(FClosing) then
-    begin
-    FClosing := True;
-    Visible  := False;
-    cwDesign.CloseBrowser(True);
-    end;
-{$ENDIF}
+  BrowserWindow1.CloseBrowser(True);
+  CanClose:=BrowserWindow1.IsClosed;
+  Visible  := False;
 end;
 
 Function TMainForm.GetProjectURL : String;
@@ -145,19 +112,13 @@ begin
 end;
 
 procedure TMainForm.AGoExecute(Sender: TObject);
-
 Var
   URL : String;
 
 begin
   URL:=GetProjectURL;
   Log('Going to URL: %s',[URL]);
-{$IFDEF LINUX}
-  FWBDesign.Location:=URL;
-{$ENDIF}
-{$IFDEF WINDOWS}
-  cwDesign.LoadURL(URL);
-{$ENDIF}
+  BrowserWindow1.LoadURL(URL);
 end;
 
 procedure TMainForm.AGoExternalExecute(Sender: TObject);
@@ -175,20 +136,23 @@ begin
   (Sender as Taction).Enabled:=FAllowGo;
 end;
 
-procedure TMainForm.FormCreate(Sender: TObject);
-
+procedure TMainForm.BrowserWindow1BrowserClosed(Sender: TObject);
+begin
+  Close;
+end;
 
+procedure TMainForm.BrowserWindow1BrowserCreated(Sender: TObject);
+begin
+  // Now the browser is fully initialized we can load the initial web page.
+  FAllowGo:=True;
+end;
 
+procedure TMainForm.FormCreate(Sender: TObject);
 begin
   FAllowGo:=False;
   FDesignCaption:=Caption;
-{$IFDEF Linux}
-  MimeTypes.LoadFromFile('/etc/mime.types');
-{$ENDIF}
-{$IFDEF WINDOWS}
-  MimeTypes.LoadFromFile(ExtractFilePath(Paramstr(0))+'mime.types');
-{$ENDIF}
-  FEProject.FileName:=ExtractFilePath(Paramstr(0))+'designdemo'+PathDelim+'designdemo.html';
+  MimeTypes.LoadKnownTypes;
+  FEProject.FileName:=ExtractFilePath(ExtractFilePath(Paramstr(0)))+'designdemo'+PathDelim+'designdemo.html';
   FWebIDEIntf:=TIDEServer.Create(Self);
   FWebIDEIntf.ProjectDir:=ExtractFilePath(FEProject.FileName);
   FWebIDEIntf.OnClientAdded:=@DoClientCame;
@@ -196,65 +160,11 @@ begin
   FWebIDEIntf.OnRequest:=@DoLogRequest;
   FWebIDEIntf.OnAction:=@DoAction;
   FWebIDEIntf.Active:=True;
+  TSInspector.TabVisible:=False;
   RegisterWidgets;
-  SetUpEmbeddedBrowser;
 end;
 
-procedure TMainForm.FormShow(Sender: TObject);
-begin
 {$IFDEF WINDOWS}
-  with cwDesign do
-    begin
-    ChromiumBrowser.OnBeforePopup := @cwOnBeforePopup;
-    if not CreateBrowser then
-       tmrShowChromium.Enabled := True;
-    end;
-{$ENDIF}
-end;
-
-procedure TMainForm.tmrShowChromiumTimer(Sender: TObject);
-begin
-  tmrShowChromium.Enabled := False;
-{$IFDEF WINDOWS}
-  With cwDesign do
-    if not (CreateBrowser or Initialized) then
-      tmrShowChromium.Enabled := True;
-{$ENDIF}
-end;
-
-{$IFDEF WINDOWS}
-procedure TMainForm.SetUpEmbeddedBrowser;
-
-begin
-  FCanClose:=False;
-  cwDesign:=TChromiumWindow.Create(Self);
-  With cwDesign do
-    begin
-    Parent:=TSBrowser;
-    Align:=alClient;
-    OnClose:=@cwClose;
-    OnBeforeClose:=@cwBeforeClose;
-    OnAfterCreated:=@cwAfterCreated;
-    end;
-  TSInspector.TabVisible:=False;
-end;
-
-procedure TMainForm.WMMove(var aMessage : TWMMove);
-
-begin
-  inherited;
-  if (cwDesign <> nil) then
-    cwDesign.NotifyMoveOrResizeStarted;
-end;
-
-procedure TMainForm.WMMoving(var aMessage : TMessage);
-
-begin
-  inherited;
-  if (cwDesign <> nil) then
-    cwDesign.NotifyMoveOrResizeStarted;
-end;
-
 procedure TMainForm.WMEnterMenuLoop(var aMessage: TMessage);
 
 begin
@@ -270,23 +180,7 @@ begin
   if (aMessage.wParam = 0) and (GlobalCEFApp <> nil) then
     GlobalCEFApp.OsmodalLoop := False;
 end;
-
-procedure TMainForm.cwBeforeClose(Sender: TObject);
-begin
-  FCanClose := True;
-  PostMessage(Handle, WM_CLOSE, 0, 0);
-end;
-
-
-procedure TMainForm.cwClose(Sender: TObject);
-begin
-  // DestroyChildWindow will destroy the child window created by CEF at the top of the Z order.
-  if not(cwDesign.DestroyChildWindow) then
-    begin
-      FCanClose := True;
-      Close;
-    end;
-end;
+{$ENDIF}
 
 procedure TMainForm.cwOnBeforePopup(Sender: TObject;
   const browser: ICefBrowser; const frame: ICefFrame; const targetUrl,
@@ -302,112 +196,6 @@ begin
   Result := (targetDisposition in [WOD_NEW_FOREGROUND_TAB, WOD_NEW_BACKGROUND_TAB, WOD_NEW_POPUP, WOD_NEW_WINDOW]);
 end;
 
-procedure TMainForm.cwAfterCreated(Sender: TObject);
-begin
-  // Now the browser is fully initialized we can load the initial web page.
-  FAllowGo:=True;
-end;
-
-{$ENDIF}
-
-{$IFDEF LINUX}
-procedure TMainForm.SetUpEmbeddedBrowser;
-
-begin
-  FAllowGo:=True;
-  FCanClose:=True;
-  FWBDesign:=TWebBrowser.Create(Self);
-  With FWBDesign do
-    begin
-    Parent:=TSBrowser;
-    Align:=alClient;
-    DesignMode := False;
-    SourceView := False;
-    ZoomContent := False;
-    ZoomFactor := 1;
-    { lots of logging }
-    OnConsoleMessage:=@wbDesignConsoleMessage;
-    OnScriptDialog:=@wbDesignScriptDialog;
-    OnError:=@wbDesignError;
-    OnFavicon:=@wbDesignFavicon;
-    OnHitTest:=@wbDesignHitTest;
-    OnLoadStatusChange:=@wbDesignLoadStatusChange;
-    OnLocationChange:=@wbDesignLocationChange;
-    OnNavigate:=@wbDesignNavigate;
-    OnProgress:=@wbDesignProgress;
-    OnRequest:=@wbDesignRequest;
-    end;
-  FWIDesign:=TWebInspector.Create(Self);
-  With FWIDesign do
-    begin
-    Parent:=TSInspector;
-    Align:=alClient;
-    Active:=True;
-    WebBrowser:=FWBDesign;
-    end;
-  TSInspector.TabVisible:=true;
-  PCDesigner.ActivePage:=TSBrowser;
-end;
-
-procedure TMainForm.wbDesignConsoleMessage(Sender: TObject; const Message, Source: string; Line: Integer);
-begin
-  Log('Console message: %s  (%s: %d)',[Message,Source,Line]);
-end;
-
-
-procedure TMainForm.wbDesignError(Sender: TObject; const Uri: string; ErrorCode: LongWord; const ErrorMessage: string;
-  var Handled: Boolean);
-begin
-  Log('Error: %s, code: %d, Message: %s',[URI,ErrorCode,ErrorMessage]);
-  Handled:=True;
-end;
-
-procedure TMainForm.wbDesignFavicon(Sender: TObject);
-begin
-  Log('Favicon available/missed');
-end;
-
-procedure TMainForm.wbDesignHitTest(Sender: TObject; X, Y: Integer; HitTest: TWebHitTest; const Link, Media: string);
-begin
-//  Log('Hit test (%d,%d) link: %s, media: %s',[x,y,link,media]);
-end;
-
-procedure TMainForm.wbDesignLoadStatusChange(Sender: TObject);
-begin
-  Log('Load status change');
-end;
-
-procedure TMainForm.wbDesignLocationChange(Sender: TObject);
-begin
-  Log('Location change');
-end;
-
-procedure TMainForm.wbDesignNavigate(Sender: TObject; const Uri: string; var aAction: TWebNavigateAction);
-begin
-  Log('Navigation: %s',[URI]);
-  aAction:=naAllow;
-end;
-
-procedure TMainForm.wbDesignProgress(Sender: TObject; Progress: Integer);
-begin
-  Log('Progress: %d',[Progress])
-end;
-
-procedure TMainForm.wbDesignRequest(Sender: TObject; var Uri: string);
-begin
-  if Uri<>FLastEmbeddedURI then
-    Log('Embedded browser doing request : %s',[URI]);
-  FLastEmbeddedURI:=URI;
-end;
-
-procedure TMainForm.wbDesignScriptDialog(Sender: TObject; Dialog: TWebScriptDialog; const Message: string; var Input: string;
-  var Accepted: Boolean; var Handled: Boolean);
-begin
-  Log('Script dialog Message: %s; Input : %s',[message,Input]);
-  Accepted:=true;
-  Handled:=true;
-end;
-{$ENDIF}
 
 procedure TMainForm.DoAction(Sender: TObject; aExchange: TIDEExchange);
 
@@ -537,7 +325,7 @@ begin
   B.Height:=32;
   B.Action:=A;
   inc(FWidgetCount);
-//  TBWidgets.AddControl;;
+//  TBWidgets.AddControl;
 
 end;
 
@@ -552,5 +340,25 @@ begin
 end;
 
 
+initialization
+  {$IFDEF DARWIN}
+  AddCrDelegate;
+  {$ENDIF}
+  if GlobalCEFApp = nil then begin
+    CreateGlobalCEFApp;
+    if not GlobalCEFApp.StartMainProcess then begin
+      DestroyGlobalCEFApp;
+      DestroyGlobalCEFWorkScheduler;
+      halt(0); // exit the subprocess
+    end;
+  end;
+
+finalization
+  (* Destroy from this unit, which is used after "Interfaces". So this happens before the Application object is destroyed *)
+  if GlobalCEFWorkScheduler <> nil then
+    GlobalCEFWorkScheduler.StopScheduler;
+  DestroyGlobalCEFApp;
+  DestroyGlobalCEFWorkScheduler;
+
 end.
 

demo/webwidget/nativedesign/globalcefapplication.pas

@@ -0,0 +1,118 @@
+// ************************************************************************
+// ***************************** CEF4Delphi *******************************
+// ************************************************************************
+//
+// CEF4Delphi is based on DCEF3 which uses CEF to embed a chromium-based
+// browser in Delphi applications.
+//
+// The original license of DCEF3 still applies to CEF4Delphi.
+//
+// For more information about CEF4Delphi visit :
+//         https://www.briskbard.com/index.php?lang=en&pageid=cef
+//
+//        Copyright © 2021 Salvador Diaz Fau. All rights reserved.
+//
+// ************************************************************************
+// ************ vvvv Original license and comments below vvvv *************
+// ************************************************************************
+(*
+ *                       Delphi Chromium Embedded 3
+ *
+ * Usage allowed under the restrictions of the Lesser GNU General Public License
+ * or alternatively the restrictions of the Mozilla Public License 1.1
+ *
+ * Software distributed under the License is distributed on an "AS IS" basis,
+ * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for
+ * the specific language governing rights and limitations under the License.
+ *
+ * Unit owner : Henri Gourvest <[email protected]>
+ * Web site   : http://www.progdigy.com
+ * Repository : http://code.google.com/p/delphichromiumembedded/
+ * Group      : http://groups.google.com/group/delphichromiumembedded
+ *
+ * Embarcadero Technologies, Inc is not permitted to use or redistribute
+ * this source code without explicit permission.
+ *
+ *)
+
+unit GlobalCefApplication;
+
+{$mode ObjFPC}{$H+}
+
+{$DEFINE USE_MULTI_THREAD_LOOP} // Only Windows/Linux
+{.$DEFINE USE_APP_HELPER}        // Optional on Windows/Linux
+
+{$IFDEF DARWIN}
+  {$UNDEF  USE_MULTI_THREAD_LOOP} // Will fail on Mac
+  {$DEFINE USE_APP_HELPER}        // Required on Mac
+{$ENDIF}
+
+interface
+
+uses
+  uCEFApplication, uCEFWorkScheduler, FileUtil;
+
+procedure CreateGlobalCEFApp;
+
+implementation
+
+procedure GlobalCEFApp_OnScheduleMessagePumpWork(const aDelayMS : int64);
+begin
+  if (GlobalCEFWorkScheduler <> nil) then GlobalCEFWorkScheduler.ScheduleMessagePumpWork(aDelayMS);
+end;
+
+procedure CreateGlobalCEFApp;
+begin
+  if GlobalCEFApp <> nil then
+    exit;
+
+  {$IFnDEF USE_MULTI_THREAD_LOOP}
+  // TCEFWorkScheduler will call cef_do_message_loop_work when
+  // it's told in the GlobalCEFApp.OnScheduleMessagePumpWork event.
+  // GlobalCEFWorkScheduler needs to be created before the
+  // GlobalCEFApp.StartMainProcess call.
+  GlobalCEFWorkScheduler := TCEFWorkScheduler.Create(nil);
+  {$ENDIF}
+
+  GlobalCEFApp                           := TCefApplication.Create;
+//  GlobalCEFApp.CheckCEFFiles := False;
+  {$IFnDEF DARWIN}
+  GlobalCEFApp.FrameworkDirPath := 'B:\laz_other\CEF4Delphi\LIB_CEF_BIN\';
+  {$ENDIF}
+
+  {$IFDEF USE_MULTI_THREAD_LOOP}
+  // On Windows/Linux CEF can use threads for the message-loop
+  GlobalCEFApp.MultiThreadedMessageLoop  := True;
+  {$ELSE}
+  // use External Pump for message-loop
+  GlobalCEFApp.ExternalMessagePump       := True;
+  GlobalCEFApp.MultiThreadedMessageLoop  := False;
+  GlobalCEFApp.OnScheduleMessagePumpWork := @GlobalCEFApp_OnScheduleMessagePumpWork;
+  {$ENDIF}
+
+  {$IFnDEF DARWIN}
+  {$IFDEF USE_APP_HELPER}
+  (* Use AppHelper as subprocess, instead of the main exe *)
+  GlobalCEFApp.BrowserSubprocessPath := 'AppHelper' + GetExeExt;
+  {$ENDIF}
+  {$ENDIF}
+
+  {$IFDEF DARWIN}
+  (* Enable the below to prevent being asked for permission to access "Chromium Safe Storage"
+     If set to true, Cookies will not be encrypted.
+  *)
+  GlobalCEFApp.UseMockKeyChain := True;
+  {$ENDIF}
+  {$IFDEF LINUX}
+  // This is a workaround for the 'GPU is not usable error' issue :
+  // https://bitbucket.org/chromiumembedded/cef/issues/2964/gpu-is-not-usable-error-during-cef
+  GlobalCEFApp.DisableZygote := True; // this property adds the "--no-zygote" command line switch
+  {$ENDIF}
+  {
+  GlobalCEFApp.LogFile     := 'cef.log';
+  GlobalCEFApp.LogSeverity := LOGSEVERITY_VERBOSE;
+  }
+end;
+
+end.
+

demo/webwidget/nativedesign/initsubprocess.pas

@@ -0,0 +1,64 @@
+// ************************************************************************
+// ***************************** CEF4Delphi *******************************
+// ************************************************************************
+//
+// CEF4Delphi is based on DCEF3 which uses CEF to embed a chromium-based
+// browser in Delphi applications.
+//
+// The original license of DCEF3 still applies to CEF4Delphi.
+//
+// For more information about CEF4Delphi visit :
+//         https://www.briskbard.com/index.php?lang=en&pageid=cef
+//
+//        Copyright © 2021 Salvador Diaz Fau. All rights reserved.
+//
+// ************************************************************************
+// ************ vvvv Original license and comments below vvvv *************
+// ************************************************************************
+(*
+ *                       Delphi Chromium Embedded 3
+ *
+ * Usage allowed under the restrictions of the Lesser GNU General Public License
+ * or alternatively the restrictions of the Mozilla Public License 1.1
+ *
+ * Software distributed under the License is distributed on an "AS IS" basis,
+ * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for
+ * the specific language governing rights and limitations under the License.
+ *
+ * Unit owner : Henri Gourvest <[email protected]>
+ * Web site   : http://www.progdigy.com
+ * Repository : http://code.google.com/p/delphichromiumembedded/
+ * Group      : http://groups.google.com/group/delphichromiumembedded
+ *
+ * Embarcadero Technologies, Inc is not permitted to use or redistribute
+ * this source code without explicit permission.
+ *
+ *)
+
+unit InitSubProcess;
+
+{$mode ObjFPC}{$H+}
+{ $I cef.inc}
+
+interface
+
+uses
+  GlobalCefApplication, uCEFApplication, uCEFWorkScheduler;
+
+implementation
+
+initialization
+  CreateGlobalCEFApp;
+  GlobalCEFApp.FrameworkDirPath:='/opt/CEF/current/dist';
+  GlobalCEFApp.ResourcesDirPath:='/opt/CEF/current/dist';
+  GlobalCEFApp.LocalesDirPath:='/opt/CEF/current/dist/locales';
+  if not GlobalCEFApp.StartMainProcess then begin
+    if GlobalCEFWorkScheduler <> nil then
+      GlobalCEFWorkScheduler.StopScheduler;
+    DestroyGlobalCEFApp;
+    DestroyGlobalCEFWorkScheduler;
+    halt(0); // exit the subprocess
+  end;
+
+end.
+

demo/webwidget/nativedesign/nativedesigner.lpi

@@ -27,18 +27,17 @@
     </PublishOptions>
     <RunParams>
       <FormatVersion Value="2"/>
-      <Modes Count="0"/>
     </RunParams>
-    <RequiredPackages Count="3">
-      <Item1>
+    <RequiredPackages>
+      <Item>
+        <PackageName Value="CEF4Delphi_Lazarus"/>
+      </Item>
+      <Item>
         <PackageName Value="weblaz"/>
-      </Item1>
-      <Item2>
-        <PackageName Value="WebBrowser"/>
-      </Item2>
-      <Item3>
+      </Item>
+      <Item>
         <PackageName Value="LCL"/>
-      </Item3>
+      </Item>
     </RequiredPackages>
     <Units>
       <Unit>
@@ -56,7 +55,20 @@
         <Filename Value="webideintf.pp"/>
         <IsPartOfProject Value="True"/>
       </Unit>
+      <Unit>
+        <Filename Value="globalcefapplication.pas"/>
+        <IsPartOfProject Value="True"/>
+        <UnitName Value="GlobalCefApplication"/>
+      </Unit>
+      <Unit>
+        <Filename Value="initsubprocess.pas"/>
+        <IsPartOfProject Value="True"/>
+        <UnitName Value="InitSubProcess"/>
+      </Unit>
     </Units>
+    <Debugger>
+      <Backend Value="{989A9BD5-DAAD-47D7-9EAF-B5A5EA0B17B7}"/>
+    </Debugger>
   </ProjectOptions>
   <CompilerOptions>
     <Version Value="11"/>
@@ -68,24 +80,28 @@
       <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
     </SearchPaths>
     <Linking>
-      <Options>
-        <Win32>
-          <GraphicApplication Value="True"/>
-        </Win32>
-      </Options>
+      <Debugging>
+        <DebugInfoType Value="dsDwarf3"/>
+      </Debugging>
     </Linking>
   </CompilerOptions>
   <Debugging>
-    <Exceptions Count="3">
-      <Item1>
+    <Exceptions>
+      <Item>
         <Name Value="EAbort"/>
-      </Item1>
-      <Item2>
+      </Item>
+      <Item>
         <Name Value="ECodetoolError"/>
-      </Item2>
-      <Item3>
+      </Item>
+      <Item>
         <Name Value="EFOpenError"/>
-      </Item3>
+      </Item>
+      <Item>
+        <Name Value="EHTTPClient"/>
+      </Item>
+      <Item>
+        <Name Value="ESocketError"/>
+      </Item>
     </Exceptions>
   </Debugging>
 </CONFIG>

demo/webwidget/nativedesign/nativedesigner.lpr

@@ -6,6 +6,9 @@ uses
   {$IFDEF UNIX}
   cthreads,
   {$ENDIF}
+  {$IFDEF LINUX}
+  InitSubProcess, // On Linux this unit must be used *before* the "interfaces" unit.
+  {$ENDIF}
   Interfaces, // this includes the LCL widgetset
   Forms, frmmain, webideintf
   { you can add units after this };
@@ -14,7 +17,7 @@ uses
 
 begin
   RequireDerivedFormResource:=True;
-  Application.Scaled:=True;
+  Application.Scaled := True;
   Application.Initialize;
   Application.CreateForm(TMainForm, MainForm);
   Application.Run;