From 75258ea8e78895a03eaaf24a98d115d0ebb0c5f9 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Salvador=20D=C3=ADaz=20Fau?= Date: Thu, 6 Feb 2020 10:37:54 +0100 Subject: [PATCH] Fixed GetDigitizerStatus function for older Delphi versions --- source/uCEFFMXBufferPanel.pas | 2 +- source/uCEFMiscFunctions.pas | 4 +++- update_CEF4Delphi.json | 2 +- 3 files changed, 5 insertions(+), 3 deletions(-) diff --git a/source/uCEFFMXBufferPanel.pas b/source/uCEFFMXBufferPanel.pas index 4ce192f8..0271c85e 100644 --- a/source/uCEFFMXBufferPanel.pas +++ b/source/uCEFFMXBufferPanel.pas @@ -292,7 +292,7 @@ begin TempState := Canvas.SaveState; try - CAnvas.IntersectClipRect(TempClip); + Canvas.IntersectClipRect(TempClip); Canvas.DrawBitmap(FBuffer, TempSrc, TempDst, 1, FHighSpeedDrawing); Result := True; finally diff --git a/source/uCEFMiscFunctions.pas b/source/uCEFMiscFunctions.pas index eacc5893..ae28b9bd 100644 --- a/source/uCEFMiscFunctions.pas +++ b/source/uCEFMiscFunctions.pas @@ -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; diff --git a/update_CEF4Delphi.json b/update_CEF4Delphi.json index 63671445..81374336 100644 --- a/update_CEF4Delphi.json +++ b/update_CEF4Delphi.json @@ -2,7 +2,7 @@ "UpdateLazPackages" : [ { "ForceNotify" : true, - "InternalVersion" : 94, + "InternalVersion" : 95, "Name" : "cef4delphi_lazarus.lpk", "Version" : "79.1.36.0" }