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

Use the custom conditional compilation directives

Browse Source
This commit is contained in:
Salvador Diaz Fau
2020-11-17 15:09:02 +01:00
parent 3ab78ad28c
commit db361ed6d8
2 changed files with 4 additions and 4 deletions
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 VER310} {$IFDEF DELPHI24_UP}
var var
TempHandle : TCefWindowHandle; TempHandle : TCefWindowHandle;
{$ENDIF} {$ENDIF}
begin begin
{$IFDEF VER310} {$IFDEF DELPHI24_UP}
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 VER310} {$IFDEF DELPHI24_UP}
var var
TempHandle : TCefWindowHandle; TempHandle : TCefWindowHandle;
{$ENDIF} {$ENDIF}
begin begin
{$IFDEF VER310} {$IFDEF DELPHI24_UP}
TempHandle := GetParentFormHandle; TempHandle := GetParentFormHandle;
if (TempHandle <> 0) then if (TempHandle <> 0) then