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

fix mousewheel message, short signed int params

Browse Source 
git-svn-id: trunk@4942 -
This commit is contained in:
micha 2003-12-23 16:49:48 +00:00
parent 6b3b71d99a
commit 8a4aa2f26c
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/interfaces/win32/win32callback.inc
View File

@ -542,9 +542,9 @@ Begin
With LMMouseEvent Do
Begin
Msg := LM_MOUSEWHEEL;
WheelDelta := Hi(WParam);
X := Lo(LParam);
Y := Hi(LParam);
WheelDelta := ShortInt(Hi(WParam));
X := ShortInt(Lo(LParam));
Y := ShortInt(Hi(LParam));
State := GetShiftState;
UserData := Pointer(GetWindowLong(Window, GWL_USERDATA));
End;
@ -906,6 +906,9 @@ end;
{
$Log$
Revision 1.79 2003/12/23 16:49:48 micha
fix mousewheel message, short signed int params
Revision 1.78 2003/12/19 21:34:53 micha
fix compiler problem; wrong code for constants