From c17402e7658c30af198c943852fdb4519606ba78 Mon Sep 17 00:00:00 2001 From: salvadordf Date: Fri, 9 Dec 2022 10:32:46 +0100 Subject: [PATCH] Fixed backwards compatibility issue with TFMXWindowParent in XE2 --- source/uCEFFMXWindowParent.pas | 5 ++++- update_CEF4Delphi.json | 2 +- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/source/uCEFFMXWindowParent.pas b/source/uCEFFMXWindowParent.pas index db53f8a9..1292bede 100644 --- a/source/uCEFFMXWindowParent.pas +++ b/source/uCEFFMXWindowParent.pas @@ -60,8 +60,9 @@ type function GetChildWindowHandle : HWND; procedure UpdateSize; {$ENDIF} + {$IFDEF DELPHI17_UP} procedure Resize; override; - + {$ENDIF} public {$IFDEF MSWINDOWS} procedure Reparent(const aNewParentHandle : {$IFDEF DELPHI18_UP}TWindowHandle{$ELSE}TFmxHandle{$ENDIF}); @@ -87,6 +88,7 @@ implementation uses System.SysUtils, FMX.Platform, FMX.Platform.Win; +{$IFDEF DELPHI17_UP} procedure TFMXWindowParent.Resize; begin inherited Resize; @@ -95,6 +97,7 @@ begin UpdateSize; {$ENDIF} end; +{$ENDIF} {$IFDEF MSWINDOWS} function TFMXWindowParent.GetChildWindowHandle : HWND; diff --git a/update_CEF4Delphi.json b/update_CEF4Delphi.json index 68492105..57564b4d 100644 --- a/update_CEF4Delphi.json +++ b/update_CEF4Delphi.json @@ -2,7 +2,7 @@ "UpdateLazPackages" : [ { "ForceNotify" : true, - "InternalVersion" : 447, + "InternalVersion" : 448, "Name" : "cef4delphi_lazarus.lpk", "Version" : "107.1.12" }