pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-12-03 21:44:45 +02:00
Code Issues Actions Releases Activity

Fixed GetDigitizerStatus function for older Delphi versions

Browse Source
This commit is contained in:
Salvador Díaz Fau
2020-02-06 10:37:54 +01:00
parent 7a6a008128
commit 75258ea8e7
3 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
source/uCEFMiscFunctions.pas
View File

@@ -2115,9 +2115,11 @@ function GetDigitizerStatus(var aDigitizerStatus : TDigitizerStatus; aDPI : card
var
TempStatus : integer;
begin
{$IFDEF DELPHI26_UP}
if (aDPI > 0) then
TempStatus := GetSystemMetricsForDpi(SM_DIGITIZER, aDPI)
else
{$ENDIF}
TempStatus := GetSystemMetrics(SM_DIGITIZER);
aDigitizerStatus.IntegratedTouch := ((TempStatus and NID_INTEGRATED_TOUCH) <> 0);
@@ -2136,7 +2138,7 @@ var
begin
Result := GetDigitizerStatus(TempStatus, aDPI);
end;
{$ENDIF}
{$ENDIF}
{$ENDIF}
function DeviceToLogical(aValue : integer; const aDeviceScaleFactor : double) : integer;