paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-07 06:16:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

cocoa: correct horizontal scrollWheel. macOS and LCL are using reversed delta values

Browse Source 
git-svn-id: trunk@61770 -
This commit is contained in:
dmitry 2019-08-28 02:26:38 +00:00
parent 86a2871214
commit ea3cda9791
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/cocoa/cocoawscommon.pas
View File

@ -1161,7 +1161,10 @@ begin
if event.deltaX <> 0 then if event.deltaX <> 0 then
begin begin
Msg.Msg := LM_MOUSEHWHEEL; Msg.Msg := LM_MOUSEHWHEEL;
Msg.WheelDelta := round(event.deltaX * 120); // see "deltaX" documentation.
// on macOS: -1 = right, +1 = left
// on LCL: -1 = left, +1 = right
Msg.WheelDelta := round(-event.deltaX * 120);
end end
else else
// Filter out empty events - See bug 28491 // Filter out empty events - See bug 28491