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

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

2
source/uCEFFMXBufferPanel.pas
View File

@ -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

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;

2
update_CEF4Delphi.json
View File

@ -2,7 +2,7 @@
"UpdateLazPackages" : [
{
"ForceNotify" : true,
"InternalVersion" : 94,
"InternalVersion" : 95,
"Name" : "cef4delphi_lazarus.lpk",
"Version" : "79.1.36.0"
}