pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-04-07 06:50:04 +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});
property ChildWindowHandle : HWND read GetChildWindowHandle;
{$ENDIF}
{$IFNDEF DELPHI17_UP}
procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer); override;
{$ENDIF}
published
property Visible;
property Height;
property Width;
{$IFDEF DELPHI17_UP}
property Touch;
property OnGesture;
{$ENDIF}
end;
implementation
@ -97,6 +102,15 @@ begin
UpdateSize;
{$ENDIF}
end;
{$ELSE}
procedure TFMXWindowParent.SetBounds(ALeft, ATop, AWidth, AHeight: Integer);
begin
inherited SetBounds(ALeft, ATop, AWidth, AHeight);
{$IFDEF MSWINDOWS}
UpdateSize;
{$ENDIF}
end;
{$ENDIF}
{$IFDEF MSWINDOWS}

2
update_CEF4Delphi.json
View File

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