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

LCL: rename TCMMouseWheel.WheelData to WheelDelta. Issue #24989, patch from Stephano

Browse Source 
git-svn-id: trunk@42751 -
This commit is contained in:
juha 2013-09-12 10:07:30 +00:00
parent 7538f3a4e4
commit 023fd6ba9b
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/controls.pp
View File

@ -95,7 +95,7 @@ type
MSg: Cardinal;
ShiftState: TShiftState;
Unused: Byte;
WheelData: SmallInt;
WheelDelta: SmallInt;
case Integer of
0: (
XPos: SmallInt;

2
lcl/interfaces/qt/qtwidgets.pas
View File

@ -3541,7 +3541,7 @@ end;
Qt stores the delta in 1/8 of a degree
Most mouses scroll 15 degrees each time
Msg.WheelData: -1 for up, 1 for down
Msg.WheelDelta: -1 for up, 1 for down
------------------------------------------------------------------------------}
function TQtWidget.SlotMouseWheel(Sender: QObjectH; Event: QEventH): Boolean; cdecl;
var