Delphi/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2024-11-15 15:55:56 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Delphi 10 Seattle backwards compatibility fix

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
source/uCEFFMXBufferPanel.pas
View File

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

4
source/uCEFFMXChromium.pas
View File

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

2
update_CEF4Delphi.json
View File

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