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

cocoa: forcing the constant scroll step

Browse Source 
git-svn-id: trunk@62183 -
This commit is contained in:
dmitry 2019-11-03 22:41:23 +00:00
parent 62c238500c
commit 13ce80945c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1170,7 +1170,7 @@ begin
if dy <> 0 then
begin
Msg.Msg := LM_MOUSEWHEEL;
Msg.WheelDelta := round(dy * WheelDeltaToLCLY);
Msg.WheelDelta := sign(dy) * LCLStep;
end
else
if dx <> 0 then
@ -1179,7 +1179,7 @@ begin
// see "deltaX" documentation.
// on macOS: -1 = right, +1 = left
// on LCL: -1 = left, +1 = right
Msg.WheelDelta := round(-dx * WheelDeltaToLCLX);
Msg.WheelDelta := sign(-dx) * LCLStep;
end
else
// Filter out empty events - See bug 28491