pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-04-07 06:50:04 +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
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; TempState := Canvas.SaveState;
try try
CAnvas.IntersectClipRect(TempClip); Canvas.IntersectClipRect(TempClip);
Canvas.DrawBitmap(FBuffer, TempSrc, TempDst, 1, FHighSpeedDrawing); Canvas.DrawBitmap(FBuffer, TempSrc, TempDst, 1, FHighSpeedDrawing);
Result := True; Result := True;
finally finally

4
source/uCEFMiscFunctions.pas
View File

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

2
update_CEF4Delphi.json
View File

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