pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-04-17 06:57:13 +02:00
Code Issues Actions Releases Activity

Fixed backwards compatibility issues with XE2

Browse Source
This commit is contained in:
salvadordf 2022-12-11 17:15:20 +01:00
parent c17402e765
commit a0b2a1a911
2 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
source/uCEFFMXWindowParent.pas
View File

@ -68,13 +68,18 @@ type
procedure Reparent(const aNewParentHandle : {$IFDEF DELPHI18_UP}TWindowHandle{$ELSE}TFmxHandle{$ENDIF}); procedure Reparent(const aNewParentHandle : {$IFDEF DELPHI18_UP}TWindowHandle{$ELSE}TFmxHandle{$ENDIF});
property ChildWindowHandle : HWND read GetChildWindowHandle; property ChildWindowHandle : HWND read GetChildWindowHandle;
{$ENDIF} {$ENDIF}
{$IFNDEF DELPHI17_UP}
procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer); override;
{$ENDIF}
published published
property Visible; property Visible;
property Height; property Height;
property Width; property Width;
{$IFDEF DELPHI17_UP}
property Touch; property Touch;
property OnGesture; property OnGesture;
{$ENDIF}
end; end;
implementation implementation
@ -97,6 +102,15 @@ begin
UpdateSize; UpdateSize;
{$ENDIF} {$ENDIF}
end; end;
{$ELSE}
procedure TFMXWindowParent.SetBounds(ALeft, ATop, AWidth, AHeight: Integer);
begin
inherited SetBounds(ALeft, ATop, AWidth, AHeight);
{$IFDEF MSWINDOWS}
UpdateSize;
{$ENDIF}
end;
{$ENDIF} {$ENDIF}
{$IFDEF MSWINDOWS} {$IFDEF MSWINDOWS}

2
update_CEF4Delphi.json
View File

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