Delphi 10 Seattle backwards compatibility fix

This commit is contained in:
Salvador Diaz Fau 2020-11-17 14:59:18 +01:00
parent a4067cf44c
commit 3ab78ad28c
3 changed files with 5 additions and 5 deletions

View File

@ -377,12 +377,12 @@ begin
end;
function TFMXBufferPanel.GetScreenScale : Single;
{$IFDEF MSWINDOWS}
{$IFDEF VER310}
var
TempHandle : TCefWindowHandle;
{$ENDIF}
begin
{$IFDEF MSWINDOWS}
{$IFDEF VER310}
TempHandle := GetParentFormHandle;
if (TempHandle <> 0) then

View File

@ -157,12 +157,12 @@ begin
end;
function TFMXChromium.GetScreenScale : Single;
{$IFDEF MSWINDOWS}
{$IFDEF VER310}
var
TempHandle : TCefWindowHandle;
{$ENDIF}
begin
{$IFDEF MSWINDOWS}
{$IFDEF VER310}
TempHandle := GetParentFormHandle;
if (TempHandle <> 0) then

View File

@ -2,7 +2,7 @@
"UpdateLazPackages" : [
{
"ForceNotify" : true,
"InternalVersion" : 199,
"InternalVersion" : 200,
"Name" : "cef4delphi_lazarus.lpk",
"Version" : "86.0.23.0"
}