paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-04 20:00:27 +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; MSg: Cardinal;
ShiftState: TShiftState; ShiftState: TShiftState;
Unused: Byte; Unused: Byte;
WheelData: SmallInt; WheelDelta: SmallInt;
case Integer of case Integer of
0: ( 0: (
XPos: SmallInt; 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 Qt stores the delta in 1/8 of a degree
Most mouses scroll 15 degrees each time 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; function TQtWidget.SlotMouseWheel(Sender: QObjectH; Event: QEventH): Boolean; cdecl;
var var