Update to CEF 106.1.0

README.md

@@ -3,15 +3,15 @@ CEF4Delphi is an open source project created by Salvador Díaz Fau to embed Chro
 
 CEF4Delphi is based on DCEF3 and fpCEF3. The original license of those projects still applies to CEF4Delphi. Read the license terms in the first lines of any *.pas file.
 
-CEF4Delphi uses CEF 106.0.27 which includes Chromium 106.0.5249.103. 
+CEF4Delphi uses CEF 106.1.0 which includes Chromium 106.0.5249.119. 
 
 The CEF binaries used by CEF4Delphi are available for download at Spotify :
-* [Windows 32 bits](https://cef-builds.spotifycdn.com/cef_binary_106.0.27%2Bg20ed841%2Bchromium-106.0.5249.103_windows32.tar.bz2)
+* [Windows 32 bits](https://cef-builds.spotifycdn.com/cef_binary_106.1.0%2Bg30ad805%2Bchromium-106.0.5249.119_windows32.tar.bz2)
-* [Windows 64 bits](https://cef-builds.spotifycdn.com/cef_binary_106.0.27%2Bg20ed841%2Bchromium-106.0.5249.103_windows64.tar.bz2)
+* [Windows 64 bits](https://cef-builds.spotifycdn.com/cef_binary_106.1.0%2Bg30ad805%2Bchromium-106.0.5249.119_windows64.tar.bz2)
-* [Linux x86 64 bits](https://cef-builds.spotifycdn.com/cef_binary_106.0.27%2Bg20ed841%2Bchromium-106.0.5249.103_linux64.tar.bz2)
+* [Linux x86 64 bits](https://cef-builds.spotifycdn.com/cef_binary_106.1.0%2Bg30ad805%2Bchromium-106.0.5249.119_linux64.tar.bz2)
-* [Linux ARM 32 bits](https://cef-builds.spotifycdn.com/cef_binary_106.0.27%2Bg20ed841%2Bchromium-106.0.5249.103_linuxarm.tar.bz2)
+* [Linux ARM 32 bits](https://cef-builds.spotifycdn.com/cef_binary_106.1.0%2Bg30ad805%2Bchromium-106.0.5249.119_linuxarm.tar.bz2)
-* [Linux ARM 64 bits](https://cef-builds.spotifycdn.com/cef_binary_106.0.27%2Bg20ed841%2Bchromium-106.0.5249.103_linuxarm64.tar.bz2)
+* [Linux ARM 64 bits](https://cef-builds.spotifycdn.com/cef_binary_106.1.0%2Bg30ad805%2Bchromium-106.0.5249.119_linuxarm64.tar.bz2)
-* [MacOS x86 64 bits](https://cef-builds.spotifycdn.com/cef_binary_106.0.27%2Bg20ed841%2Bchromium-106.0.5249.103_macosx64.tar.bz2)
+* [MacOS x86 64 bits](https://cef-builds.spotifycdn.com/cef_binary_106.1.0%2Bg30ad805%2Bchromium-106.0.5249.119_macosx64.tar.bz2)
 
 CEF4Delphi was developed and tested on Delphi 11.2 and it has been tested in Delphi 7, Delphi XE, Delphi 10, Delphi 10.2, Delphi 10.3, Delphi 10.4 and Lazarus 2.2.4/FPC 3.2.2. CEF4Delphi includes VCL, FireMonkey (FMX) and Lazarus components.
 

packages/cef4delphi_lazarus.lpk

@@ -21,7 +21,7 @@
     </CompilerOptions>
     <Description Value="CEF4Delphi is an open source project created by Salvador Díaz Fau to embed Chromium-based browsers in applications made with Delphi or Lazarus/FPC."/>
     <License Value="MPL 1.1"/>
-    <Version Major="106" Release="27"/>
+    <Version Major="106" Minor="1"/>
     <Files Count="210">
       <Item1>
         <Filename Value="..\source\uCEFAccessibilityHandler.pas"/>

source/uCEFApplicationCore.pas

@@ -67,14 +67,14 @@ uses
 
 const
   CEF_SUPPORTED_VERSION_MAJOR   = 106;
-  CEF_SUPPORTED_VERSION_MINOR   = 0;
+  CEF_SUPPORTED_VERSION_MINOR   = 1;
-  CEF_SUPPORTED_VERSION_RELEASE = 27;
+  CEF_SUPPORTED_VERSION_RELEASE = 0;
   CEF_SUPPORTED_VERSION_BUILD   = 0;
 
   CEF_CHROMEELF_VERSION_MAJOR   = CEF_SUPPORTED_VERSION_MAJOR;
   CEF_CHROMEELF_VERSION_MINOR   = 0;
   CEF_CHROMEELF_VERSION_RELEASE = 5249;
-  CEF_CHROMEELF_VERSION_BUILD   = 103;
+  CEF_CHROMEELF_VERSION_BUILD   = 119;
 
   {$IFDEF MSWINDOWS}
   LIBCEF_DLL     = 'libcef.dll';
@@ -3146,17 +3146,21 @@ end;
 
 function TCefApplicationCore.Load_cef_display_capi_h : boolean;
 begin
-  {$IFDEF FPC}Pointer({$ENDIF}cef_display_get_primary{$IFDEF FPC}){$ENDIF}         := GetProcAddress(FLibHandle, 'cef_display_get_primary');
+  {$IFDEF FPC}Pointer({$ENDIF}cef_display_get_primary{$IFDEF FPC}){$ENDIF}                      := GetProcAddress(FLibHandle, 'cef_display_get_primary');
-  {$IFDEF FPC}Pointer({$ENDIF}cef_display_get_nearest_point{$IFDEF FPC}){$ENDIF}   := GetProcAddress(FLibHandle, 'cef_display_get_nearest_point');
+  {$IFDEF FPC}Pointer({$ENDIF}cef_display_get_nearest_point{$IFDEF FPC}){$ENDIF}                := GetProcAddress(FLibHandle, 'cef_display_get_nearest_point');
-  {$IFDEF FPC}Pointer({$ENDIF}cef_display_get_matching_bounds{$IFDEF FPC}){$ENDIF} := GetProcAddress(FLibHandle, 'cef_display_get_matching_bounds');
+  {$IFDEF FPC}Pointer({$ENDIF}cef_display_get_matching_bounds{$IFDEF FPC}){$ENDIF}              := GetProcAddress(FLibHandle, 'cef_display_get_matching_bounds');
-  {$IFDEF FPC}Pointer({$ENDIF}cef_display_get_count{$IFDEF FPC}){$ENDIF}           := GetProcAddress(FLibHandle, 'cef_display_get_count');
+  {$IFDEF FPC}Pointer({$ENDIF}cef_display_get_count{$IFDEF FPC}){$ENDIF}                        := GetProcAddress(FLibHandle, 'cef_display_get_count');
-  {$IFDEF FPC}Pointer({$ENDIF}cef_display_get_alls{$IFDEF FPC}){$ENDIF}            := GetProcAddress(FLibHandle, 'cef_display_get_alls');
+  {$IFDEF FPC}Pointer({$ENDIF}cef_display_get_alls{$IFDEF FPC}){$ENDIF}                         := GetProcAddress(FLibHandle, 'cef_display_get_alls');
+  {$IFDEF FPC}Pointer({$ENDIF}cef_display_convert_screen_point_to_pixels{$IFDEF FPC}){$ENDIF}   := GetProcAddress(FLibHandle, 'cef_display_convert_screen_point_to_pixels');
+  {$IFDEF FPC}Pointer({$ENDIF}cef_display_convert_screen_point_from_pixels{$IFDEF FPC}){$ENDIF} := GetProcAddress(FLibHandle, 'cef_display_convert_screen_point_from_pixels');
 
   Result := assigned(cef_display_get_primary) and
             assigned(cef_display_get_nearest_point) and
             assigned(cef_display_get_matching_bounds) and
             assigned(cef_display_get_count) and
-            assigned(cef_display_get_alls);
+            assigned(cef_display_get_alls) and
+            assigned(cef_display_convert_screen_point_to_pixels) and
+            assigned(cef_display_convert_screen_point_from_pixels);
 end;
 
 function TCefApplicationCore.Load_cef_label_button_capi_h : boolean;

source/uCEFBrowserViewComponent.pas

@@ -57,10 +57,10 @@ uses
     LCLProc, LCLType, LCLIntf, LResources, InterfaceBase,
     {$ENDIF}
   {$ENDIF}
-  uCEFTypes, uCEFInterfaces, uCEFViewsFrameworkEvents, uCEFViewComponent;
+  uCEFTypes, uCEFInterfaces, uCEFConstants, uCEFViewsFrameworkEvents, uCEFViewComponent;
 
 type
-  {$IFNDEF FPC}{$IFDEF DELPHI16_UP}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}{$ENDIF}
+  {$IFNDEF FPC}{$IFDEF DELPHI16_UP}[ComponentPlatformsAttribute(pfidWindows or pfidOSX or pfidLinux)]{$ENDIF}{$ENDIF}
   TCEFBrowserViewComponent = class(TCEFViewComponent, ICefBrowserViewDelegateEvents)
     protected
       FBrowserView                      : ICefBrowserView;

source/uCEFBufferPanel.pas

@@ -67,7 +67,7 @@ type
   TOnHandledMessageEvent    = procedure(Sender: TObject; var aMessage: TMessage; var aHandled : boolean) of object;
   {$ENDIF}
 
-  {$IFNDEF FPC}{$IFDEF DELPHI16_UP}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}{$ENDIF}
+  {$IFNDEF FPC}{$IFDEF DELPHI16_UP}[ComponentPlatformsAttribute(pfidWindows)]{$ENDIF}{$ENDIF}
   TBufferPanel = class(TCustomPanel)
     protected
       FScanlineSize            : integer;

source/uCEFChromium.pas

@@ -59,10 +59,10 @@ uses
     Messages,
     {$ENDIF}
   {$ENDIF}
-  uCEFTypes, uCEFInterfaces, uCEFChromiumCore;
+  uCEFConstants, uCEFTypes, uCEFInterfaces, uCEFChromiumCore;
 
 type
-  {$IFNDEF FPC}{$IFDEF DELPHI16_UP}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}{$ENDIF}
+  {$IFNDEF FPC}{$IFDEF DELPHI16_UP}[ComponentPlatformsAttribute(pfidWindows)]{$ENDIF}{$ENDIF}
   TChromium = class(TChromiumCore)
     protected
       function  GetParentFormHandle : TCefWindowHandle; override;

source/uCEFChromiumCore.pas

@@ -72,7 +72,6 @@ uses
 type
   TBrowserInfoList = class;
 
-  {$IFNDEF FPC}{$IFDEF DELPHI16_UP}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}{$ENDIF}
   TChromiumCore = class(TComponent, IChromiumEvents)
     protected
       {$IFDEF MSWINDOWS}

source/uCEFChromiumWindow.pas

@@ -63,7 +63,7 @@ uses
   uCEFWinControl, uCEFLinkedWinControlBase;
 
 type
-  {$IFNDEF FPC}{$IFDEF DELPHI16_UP}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}{$ENDIF}
+  {$IFNDEF FPC}{$IFDEF DELPHI16_UP}[ComponentPlatformsAttribute(pfidWindows)]{$ENDIF}{$ENDIF}
 
   { TChromiumWindow }
 

source/uCEFConstants.pas

@@ -51,9 +51,9 @@ interface
 {$IFDEF MSWINDOWS}
 uses
   {$IFDEF DELPHI16_UP}
-  Winapi.Messages;
+  System.Classes, Winapi.Messages;
   {$ELSE}
-  Messages;
+  Classes, Messages;
   {$ENDIF}
 {$ENDIF}
 
@@ -806,6 +806,43 @@ const
   CEF4DELPHI_ALLOC_PADDING = Pointer($44332211); // Some random value used as padding
   {$ENDIF}
 
+  // If any of the platform IDs are not defined then we set them as 0 to avoid build errors on older Delphi versions.
+  {$IF NOT DECLARED(pidWin32)}
+  pidWin32 = 0;
+  {$IFEND}
+
+  {$IF NOT DECLARED(pidWin64)}
+  pidWin64 = 0;
+  {$IFEND}
+
+  {$IF NOT DECLARED(pfidWindows)}
+  pfidWindows = pidWin32 or pidWin64;
+  {$IFEND}
+
+  {$IF NOT DECLARED(pidOSX32)}
+  pidOSX32 = 0;
+  {$IFEND}
+
+  {$IF NOT DECLARED(pidOSX64)}
+  pidOSX64 = 0;
+  {$IFEND}
+
+  {$IF NOT DECLARED(pidOSXArm64)}
+  pidOSXArm64 = 0;
+  {$IFEND}
+
+  {$IF NOT DECLARED(pfidOSX)}
+  pfidOSX = pidOSX32 or pidOSX64 or pidOSXArm64;
+  {$IFEND}
+
+  {$IF NOT DECLARED(pidLinux64)}
+  pidLinux64 = 0;
+  {$IFEND}
+
+  {$IF NOT DECLARED(pfidLinux)}
+  pfidLinux = pidLinux64;
+  {$IFEND}
+
   implementation
 
 end.

source/uCEFDisplay.pas

@@ -50,9 +50,9 @@ interface
 
 uses
   {$IFDEF DELPHI16_UP}
-  System.Classes, System.SysUtils,
+  System.Classes, System.SysUtils, System.Types,
   {$ELSE}
-  Classes, SysUtils,
+  Classes, SysUtils, Types,
   {$ENDIF}
   uCEFBaseRefCounted, uCEFInterfaces, uCEFTypes;
 
@@ -74,12 +74,14 @@ type
       class function MatchingBounds(const bounds: TCefRect; input_pixel_coords: boolean): ICefDisplay;
       class function GetCount: NativeUInt;
       class function GetAlls(var aDisplayArray : TCefDisplayArray) : boolean;
+      class function ScreenPointToPixels(const aScreenPoint : TPoint) : TPoint;
+      class function ScreenPointFromPixels(const aPixelsPoint : TPoint) : TPoint;
   end;
 
 implementation
 
 uses
-  uCEFLibFunctions;
+  uCEFLibFunctions, uCEFApplicationCore;
 
 function TCefDisplayRef.GetID : int64;
 begin
@@ -126,22 +128,34 @@ end;
 
 class function TCefDisplayRef.Primary: ICefDisplay;
 begin
-  Result := UnWrap(cef_display_get_primary());
+  if assigned(GlobalCEFApp) and GlobalCEFApp.LibLoaded then
+    Result := UnWrap(cef_display_get_primary())
+   else
+    Result := nil;
 end;
 
 class function TCefDisplayRef.NearestPoint(const point: TCefPoint; input_pixel_coords: boolean): ICefDisplay;
 begin
-  Result := UnWrap(cef_display_get_nearest_point(@point, ord(input_pixel_coords)));
+  if assigned(GlobalCEFApp) and GlobalCEFApp.LibLoaded then
+    Result := UnWrap(cef_display_get_nearest_point(@point, ord(input_pixel_coords)))
+   else
+    Result := nil;
 end;
 
 class function TCefDisplayRef.MatchingBounds(const bounds: TCefRect; input_pixel_coords: boolean): ICefDisplay;
 begin
-  Result := UnWrap(cef_display_get_matching_bounds(@bounds, ord(input_pixel_coords)));
+  if assigned(GlobalCEFApp) and GlobalCEFApp.LibLoaded then
+    Result := UnWrap(cef_display_get_matching_bounds(@bounds, ord(input_pixel_coords)))
+   else
+    Result := nil;
 end;
 
 class function TCefDisplayRef.GetCount: NativeUInt;
 begin
-  Result := cef_display_get_count();
+  if assigned(GlobalCEFApp) and GlobalCEFApp.LibLoaded then
+    Result := cef_display_get_count()
+   else
+    Result := 0;
 end;
 
 class function TCefDisplayRef.GetAlls(var aDisplayArray : TCefDisplayArray) : boolean;
@@ -152,7 +166,10 @@ var
   displays: PPCefDisplay;
   TempSize : integer;
 begin
-  Result        := False;
+  Result := False;
+  if (GlobalCEFApp = nil) or not(GlobalCEFApp.LibLoaded) then
+    exit;
+
   displaysCount := GetCount;
 
   if (displaysCount > 0) then
@@ -178,4 +195,42 @@ begin
     end;
 end;
 
+class function TCefDisplayRef.ScreenPointToPixels(const aScreenPoint : TPoint) : TPoint;
+var
+  TempScreenPt, TempPixelsPt : TCefPoint;
+begin
+  if assigned(GlobalCEFApp) and GlobalCEFApp.LibLoaded then
+    begin
+      TempScreenPt.x := aScreenPoint.X;
+      TempScreenPt.y := aScreenPoint.Y;
+      TempPixelsPt   := cef_display_convert_screen_point_to_pixels(@TempScreenPt);
+      Result.X       := TempPixelsPt.x;
+      Result.Y       := TempPixelsPt.y;
+    end
+   else
+    begin
+      Result.X := aScreenPoint.X;
+      Result.X := aScreenPoint.Y;
+    end;
+end;
+
+class function TCefDisplayRef.ScreenPointFromPixels(const aPixelsPoint : TPoint) : TPoint;
+var
+  TempScreenPt, TempPixelsPt : TCefPoint;
+begin
+  if assigned(GlobalCEFApp) and GlobalCEFApp.LibLoaded then
+    begin
+      TempPixelsPt.x := aPixelsPoint.X;
+      TempPixelsPt.y := aPixelsPoint.Y;
+      TempScreenPt   := cef_display_convert_screen_point_from_pixels(@TempPixelsPt);
+      Result.X       := TempScreenPt.x;
+      Result.Y       := TempScreenPt.y;
+    end
+   else
+    begin
+      Result.X := aPixelsPoint.X;
+      Result.X := aPixelsPoint.Y;
+    end;
+end;
+
 end.

source/uCEFFMXBufferPanel.pas

@@ -52,12 +52,12 @@ uses
   FMX.Graphics,
   {$ENDIF}
   FMX.Types, FMX.Controls, FMX.Forms,
-  uCEFTypes;
+  uCEFTypes, uCEFConstants;
 
 type
   TDialogKeyEvent = procedure(Sender: TObject; var Key: Word; Shift: TShiftState) of object;
 
-  {$IFNDEF FPC}{$IFDEF DELPHI16_UP}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}{$ENDIF}
+  {$IFNDEF FPC}{$IFDEF DELPHI16_UP}[ComponentPlatformsAttribute(pfidWindows or pfidOSX or pfidLinux)]{$ENDIF}{$ENDIF}
   TFMXBufferPanel = class(TControl)
     protected
       {$IFDEF MSWINDOWS}

source/uCEFFMXChromium.pas

@@ -53,10 +53,10 @@ uses
   {$IFDEF DELPHI19_UP}
   FMX.Graphics,
   {$ENDIF}
-  uCEFTypes, uCEFInterfaces, uCEFChromiumCore;
+  uCEFTypes, uCEFInterfaces, uCEFConstants, uCEFChromiumCore;
 
 type
-  {$IFNDEF FPC}{$IFDEF DELPHI16_UP}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}{$ENDIF}
+  {$IFNDEF FPC}{$IFDEF DELPHI16_UP}[ComponentPlatformsAttribute(pfidWindows or pfidOSX or pfidLinux)]{$ENDIF}{$ENDIF}
   TFMXChromium = class(TChromiumCore, IChromiumEvents)
     protected
       function  GetParentFormHandle : TCefWindowHandle; override;

source/uCEFFMXWindowParent.pas

@@ -49,10 +49,11 @@ uses
   {$IFDEF MSWINDOWS}
   WinApi.Windows,
   {$ENDIF}
-  FMX.Controls, FMX.Types, FMX.Forms;
+  FMX.Controls, FMX.Types, FMX.Forms,
+  uCEFConstants;
 
 type
-  {$IFNDEF FPC}{$IFDEF DELPHI16_UP}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}{$ENDIF}
+  {$IFNDEF FPC}{$IFDEF DELPHI16_UP}[ComponentPlatformsAttribute(pfidWindows or pfidOSX or pfidLinux)]{$ENDIF}{$ENDIF}
   TFMXWindowParent = class(TCommonCustomForm)
     protected
       {$IFDEF MSWINDOWS}

source/uCEFFMXWorkScheduler.pas

@@ -50,7 +50,7 @@ uses
   uCEFConstants, uCEFWorkSchedulerQueueThread, uCEFWorkSchedulerThread;
 
 type
-  {$IFNDEF FPC}{$IFDEF DELPHI16_UP}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}{$ENDIF}
+  {$IFNDEF FPC}{$IFDEF DELPHI16_UP}[ComponentPlatformsAttribute(pfidWindows or pfidOSX or pfidLinux)]{$ENDIF}{$ENDIF}
   TFMXWorkScheduler = class(TComponent)
     protected
       FThread             : TCEFWorkSchedulerThread;

source/uCEFLabelButtonComponent.pas

@@ -57,10 +57,10 @@ uses
     LCLProc, LCLType, LCLIntf, LResources, InterfaceBase,
     {$ENDIF}
   {$ENDIF}
-  uCEFTypes, uCEFInterfaces, uCEFViewsFrameworkEvents, uCEFButtonComponent;
+  uCEFTypes, uCEFInterfaces, uCEFConstants, uCEFViewsFrameworkEvents, uCEFButtonComponent;
 
 type
-  {$IFNDEF FPC}{$IFDEF DELPHI16_UP}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}{$ENDIF}
+  {$IFNDEF FPC}{$IFDEF DELPHI16_UP}[ComponentPlatformsAttribute(pfidWindows or pfidOSX or pfidLinux)]{$ENDIF}{$ENDIF}
   TCEFLabelButtonComponent = class(TCEFButtonComponent)
     protected
       FLabelButton     : ICefLabelButton;

source/uCEFLibFunctions.pas

@@ -254,11 +254,13 @@ var
   cef_browser_view_get_for_browser : function(browser: PCefBrowser): PCefBrowserView; cdecl;
 
   // /include/capi/views/cef_display_capi.h
-  cef_display_get_primary         : function : PCefDisplay; cdecl;
+  cef_display_get_primary                      : function : PCefDisplay; cdecl;
-  cef_display_get_nearest_point   : function(const point: PCefPoint; input_pixel_coords: Integer): PCefDisplay; cdecl;
+  cef_display_get_nearest_point                : function(const point: PCefPoint; input_pixel_coords: Integer): PCefDisplay; cdecl;
-  cef_display_get_matching_bounds : function(const bounds: PCefRect; input_pixel_coords: Integer): PCefDisplay; cdecl;
+  cef_display_get_matching_bounds              : function(const bounds: PCefRect; input_pixel_coords: Integer): PCefDisplay; cdecl;
-  cef_display_get_count           : function : NativeUInt; cdecl;
+  cef_display_get_count                        : function : NativeUInt; cdecl;
-  cef_display_get_alls            : procedure(displaysCount: PNativeUInt; displays: PPCefDisplay); cdecl;
+  cef_display_get_alls                         : procedure(displaysCount: PNativeUInt; displays: PPCefDisplay); cdecl;
+  cef_display_convert_screen_point_to_pixels   : function(const point: PCefPoint): TCefPoint; cdecl;
+  cef_display_convert_screen_point_from_pixels : function(const point: PCefPoint): TCefPoint; cdecl;
 
   // /include/capi/views/cef_label_button_capi.h
   cef_label_button_create         : function(delegate: PCefButtonDelegate; const text: PCefString): PCefLabelButton; cdecl;

source/uCEFLinkedWindowParent.pas

@@ -61,16 +61,13 @@ uses
     {$ENDIF}
   {$ENDIF}
   uCEFWinControl, uCEFTypes, uCEFInterfaces, uCEFChromium,
-  uCEFLinkedWinControlBase;
+  uCEFConstants, uCEFLinkedWinControlBase;
 
 type
-  {$IFNDEF FPC}{$IFDEF DELPHI16_UP}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}{$ENDIF}
+  {$IFNDEF FPC}{$IFDEF DELPHI16_UP}[ComponentPlatformsAttribute(pfidWindows)]{$ENDIF}{$ENDIF}
-
-  { TCEFLinkedWindowParent }
-
   TCEFLinkedWindowParent = class(TCEFLinkedWinControlBase)
     protected
-      FChromium               : TChromium;
+      FChromium : TChromium;
 
       function  GetChromium: TChromium; override;
       procedure SetChromium(aValue : TChromium);
@@ -92,8 +89,7 @@ procedure Register;
 implementation
 
 uses
-  uCEFMiscFunctions, uCEFClient, uCEFConstants, uCEFLibFunctions,
+  uCEFMiscFunctions, uCEFClient, uCEFLibFunctions, uCEFApplication;
-  uCEFApplication;
 
 constructor TCEFLinkedWindowParent.Create(AOwner : TComponent);
 begin

source/uCEFMenuButtonComponent.pas

@@ -57,10 +57,10 @@ uses
     LCLProc, LCLType, LCLIntf, LResources, InterfaceBase,
     {$ENDIF}
   {$ENDIF}
-  uCEFTypes, uCEFInterfaces, uCEFViewsFrameworkEvents, uCEFLabelButtonComponent;
+  uCEFTypes, uCEFInterfaces, uCEFConstants, uCEFViewsFrameworkEvents, uCEFLabelButtonComponent;
 
 type
-  {$IFNDEF FPC}{$IFDEF DELPHI16_UP}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}{$ENDIF}
+  {$IFNDEF FPC}{$IFDEF DELPHI16_UP}[ComponentPlatformsAttribute(pfidWindows or pfidOSX or pfidLinux)]{$ENDIF}{$ENDIF}
   TCEFMenuButtonComponent = class(TCEFLabelButtonComponent, ICefMenuButtonDelegateEvents)
     protected
       FMenuButton                : ICefMenuButton;

source/uCEFPanelComponent.pas

@@ -57,10 +57,10 @@ uses
     LCLProc, LCLType, LCLIntf, LResources, InterfaceBase,
     {$ENDIF}
   {$ENDIF}
-  uCEFTypes, uCEFInterfaces, uCEFViewsFrameworkEvents, uCEFViewComponent;
+  uCEFTypes, uCEFInterfaces, uCEFConstants, uCEFViewsFrameworkEvents, uCEFViewComponent;
 
 type
-  {$IFNDEF FPC}{$IFDEF DELPHI16_UP}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}{$ENDIF}
+  {$IFNDEF FPC}{$IFDEF DELPHI16_UP}[ComponentPlatformsAttribute(pfidWindows or pfidOSX or pfidLinux)]{$ENDIF}{$ENDIF}
   TCEFPanelComponent = class(TCEFViewComponent, ICefPanelDelegateEvents)
     protected
       FPanel    : ICefPanel;

source/uCEFScrollViewComponent.pas

@@ -57,10 +57,10 @@ uses
     LCLProc, LCLType, LCLIntf, LResources, InterfaceBase,
     {$ENDIF}
   {$ENDIF}
-  uCEFTypes, uCEFInterfaces, uCEFViewsFrameworkEvents, uCEFViewComponent;
+  uCEFTypes, uCEFInterfaces, uCEFConstants, uCEFViewsFrameworkEvents, uCEFViewComponent;
 
 type
-  {$IFNDEF FPC}{$IFDEF DELPHI16_UP}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}{$ENDIF}
+  {$IFNDEF FPC}{$IFDEF DELPHI16_UP}[ComponentPlatformsAttribute(pfidWindows or pfidOSX or pfidLinux)]{$ENDIF}{$ENDIF}
   TCEFScrollViewComponent = class(TCEFViewComponent)
     protected
       FScrollView                  : ICefScrollView;

source/uCEFSentinel.pas

@@ -65,7 +65,7 @@ uses
     Messages,
     {$ENDIF}
   {$ENDIF}
-  uCEFTypes, uCEFInterfaces;
+  uCEFTypes, uCEFInterfaces, uCEFConstants;
 
 const
   CEFSENTINEL_DEFAULT_DELAYPERPROCMS = 200;
@@ -77,7 +77,7 @@ const
 type
   TSentinelStatus = (ssIdle, ssInitialDelay, ssCheckingChildren, ssClosing);
 
-  {$IFNDEF FPC}{$IFDEF DELPHI16_UP}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}{$ENDIF}
+  {$IFNDEF FPC}{$IFDEF DELPHI16_UP}[ComponentPlatformsAttribute(pfidWindows or pfidOSX or pfidLinux)]{$ENDIF}{$ENDIF}
   TCEFSentinel = class(TComponent)
     protected
       {$IFDEF MSWINDOWS}
@@ -133,7 +133,7 @@ procedure Register;
 implementation
 
 uses
-  uCEFLibFunctions, uCEFApplicationCore, uCEFMiscFunctions, uCEFConstants;
+  uCEFLibFunctions, uCEFApplicationCore, uCEFMiscFunctions;
 
 constructor TCEFSentinel.Create(AOwner: TComponent);
 begin

source/uCEFServerComponent.pas

@@ -60,7 +60,7 @@ uses
     Messages,
     {$ENDIF}
   {$ENDIF}
-  uCEFTypes, uCEFInterfaces, uCEFServer, uCEFServerEvents, uCEFServerHandler;
+  uCEFTypes, uCEFInterfaces, uCEFConstants, uCEFServer, uCEFServerEvents, uCEFServerHandler;
 
 const
   DEFAULT_CEFSERVER_ADDRESS  = '127.0.0.1';
@@ -68,7 +68,7 @@ const
   DEFAULT_CEFSERVER_BACKLOG  = 10;
 
 type
-  {$IFNDEF FPC}{$IFDEF DELPHI16_UP}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}{$ENDIF}
+  {$IFNDEF FPC}{$IFDEF DELPHI16_UP}[ComponentPlatformsAttribute(pfidWindows or pfidOSX or pfidLinux)]{$ENDIF}{$ENDIF}
   TCEFServerComponent = class(TComponent, IServerEvents)
     protected
       FHandler                : ICefServerHandler;

source/uCEFTextfieldComponent.pas

@@ -57,10 +57,10 @@ uses
     LCLProc, LCLType, LCLIntf, LResources, InterfaceBase,
     {$ENDIF}
   {$ENDIF}
-  uCEFTypes, uCEFInterfaces, uCEFViewsFrameworkEvents, uCEFViewComponent;
+  uCEFTypes, uCEFInterfaces, uCEFConstants, uCEFViewsFrameworkEvents, uCEFViewComponent;
 
 type
-  {$IFNDEF FPC}{$IFDEF DELPHI16_UP}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}{$ENDIF}
+  {$IFNDEF FPC}{$IFDEF DELPHI16_UP}[ComponentPlatformsAttribute(pfidWindows or pfidOSX or pfidLinux)]{$ENDIF}{$ENDIF}
   TCEFTextfieldComponent = class(TCEFViewComponent, ICefTextfieldDelegateEvents)
     protected
       FTextfield                  : ICefTextfield;

source/uCEFUrlRequestClientComponent.pas

@@ -60,10 +60,10 @@ uses
     Messages,
     {$ENDIF}
   {$ENDIF}
-  uCEFTypes, uCEFInterfaces, uCEFUrlRequestClientEvents, uCEFUrlrequestClient, uCEFUrlRequest;
+  uCEFTypes, uCEFInterfaces, uCEFConstants, uCEFUrlRequestClientEvents, uCEFUrlrequestClient, uCEFUrlRequest;
 
 type
-  {$IFNDEF FPC}{$IFDEF DELPHI16_UP}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}{$ENDIF}
+  {$IFNDEF FPC}{$IFDEF DELPHI16_UP}[ComponentPlatformsAttribute(pfidWindows or pfidOSX or pfidLinux)]{$ENDIF}{$ENDIF}
   TCEFUrlRequestClientComponent = class(TComponent, ICEFUrlRequestClientEvents)
     protected
       FClient               : ICefUrlrequestClient;

source/uCEFWinControl.pas

@@ -101,6 +101,9 @@ type
       property  OnDragOver;
       property  OnStartDrag;
       property  OnEndDrag;
+      {$IFNDEF FPC}
+      property  OnCanResize;
+      {$ENDIF}
       {$IFDEF DELPHI14_UP}
       property  Touch;
       property  OnGesture;

source/uCEFWindowComponent.pas

@@ -57,10 +57,10 @@ uses
     LCLProc, LCLType, LCLIntf, LResources, InterfaceBase,
     {$ENDIF}
   {$ENDIF}
-  uCEFTypes, uCEFInterfaces, uCEFViewsFrameworkEvents, uCEFPanelComponent;
+  uCEFTypes, uCEFInterfaces, uCEFConstants, uCEFViewsFrameworkEvents, uCEFPanelComponent;
 
 type
-  {$IFNDEF FPC}{$IFDEF DELPHI16_UP}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}{$ENDIF}
+  {$IFNDEF FPC}{$IFDEF DELPHI16_UP}[ComponentPlatformsAttribute(pfidWindows or pfidOSX or pfidLinux)]{$ENDIF}{$ENDIF}
   TCEFWindowComponent = class(TCEFPanelComponent, ICefWindowDelegateEvents)
     protected
       FWindow                    : ICefWindow;

source/uCEFWindowParent.pas

@@ -59,10 +59,10 @@ uses
     Messages,
     {$ENDIF}
   {$ENDIF}
-  uCEFWinControl, uCEFTypes, uCEFInterfaces;
+  uCEFWinControl, uCEFTypes, uCEFInterfaces, uCEFConstants;
 
 type
-  {$IFNDEF FPC}{$IFDEF DELPHI16_UP}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}{$ENDIF}
+  {$IFNDEF FPC}{$IFDEF DELPHI16_UP}[ComponentPlatformsAttribute(pfidWindows)]{$ENDIF}{$ENDIF}
   TCEFWindowParent = class(TCEFWinControl)
     protected
       {$IFDEF MSWINDOWS}
@@ -77,7 +77,7 @@ procedure Register;
 implementation
 
 uses
-  uCEFMiscFunctions, uCEFClient, uCEFConstants;
+  uCEFMiscFunctions, uCEFClient;
 
 {$IFDEF MSWINDOWS}
 procedure TCEFWindowParent.WndProc(var aMessage: TMessage);

source/uCEFWorkScheduler.pas

@@ -63,7 +63,7 @@ uses
 
 
 type
-  {$IFNDEF FPC}{$IFDEF DELPHI16_UP}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}{$ENDIF}
+  {$IFNDEF FPC}{$IFDEF DELPHI16_UP}[ComponentPlatformsAttribute(pfidWindows)]{$ENDIF}{$ENDIF}
   TCEFWorkScheduler = class(TComponent)
     protected
       FThread             : TCEFWorkSchedulerThread;

update_CEF4Delphi.json

@@ -2,9 +2,9 @@
   "UpdateLazPackages" : [
     {
       "ForceNotify" : true,
-      "InternalVersion" : 439,
+      "InternalVersion" : 440,
       "Name" : "cef4delphi_lazarus.lpk",
-      "Version" : "106.0.27.0"
+      "Version" : "106.1.0"
     }
   ],
   "UpdatePackageData" : {