pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-08-14 21:42:50 +02:00
Code Issues Actions 1 Releases Activity

Fixed backwards compatibility issue with TFMXWindowParent in XE2

Browse Source
This commit is contained in:
salvadordf
2022-12-09 10:32:46 +01:00
parent 228ab89979
commit c17402e765
2 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
source/uCEFFMXWindowParent.pas
View File

@@ -60,8 +60,9 @@ type
function GetChildWindowHandle : HWND; function GetChildWindowHandle : HWND;
procedure UpdateSize; procedure UpdateSize;
{$ENDIF} {$ENDIF}
{$IFDEF DELPHI17_UP}
procedure Resize; override; procedure Resize; override;
{$ENDIF}
public public
{$IFDEF MSWINDOWS} {$IFDEF MSWINDOWS}
procedure Reparent(const aNewParentHandle : {$IFDEF DELPHI18_UP}TWindowHandle{$ELSE}TFmxHandle{$ENDIF}); procedure Reparent(const aNewParentHandle : {$IFDEF DELPHI18_UP}TWindowHandle{$ELSE}TFmxHandle{$ENDIF});
@@ -87,6 +88,7 @@ implementation
uses uses
System.SysUtils, FMX.Platform, FMX.Platform.Win; System.SysUtils, FMX.Platform, FMX.Platform.Win;
{$IFDEF DELPHI17_UP}
procedure TFMXWindowParent.Resize; procedure TFMXWindowParent.Resize;
begin begin
inherited Resize; inherited Resize;
@@ -95,6 +97,7 @@ begin
UpdateSize; UpdateSize;
{$ENDIF} {$ENDIF}
end; end;
{$ENDIF}
{$IFDEF MSWINDOWS} {$IFDEF MSWINDOWS}
function TFMXWindowParent.GetChildWindowHandle : HWND; function TFMXWindowParent.GetChildWindowHandle : HWND;

2
update_CEF4Delphi.json
View File

@@ -2,7 +2,7 @@
"UpdateLazPackages" : [ "UpdateLazPackages" : [
{ {
"ForceNotify" : true, "ForceNotify" : true,
"InternalVersion" : 447, "InternalVersion" : 448,
"Name" : "cef4delphi_lazarus.lpk", "Name" : "cef4delphi_lazarus.lpk",
"Version" : "107.1.12" "Version" : "107.1.12"
} }