paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 08:59:13 +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 With LMMouseEvent Do
Begin Begin
Msg := LM_MOUSEWHEEL; Msg := LM_MOUSEWHEEL;
WheelDelta := Hi(WParam); WheelDelta := ShortInt(Hi(WParam));
X := Lo(LParam); X := ShortInt(Lo(LParam));
Y := Hi(LParam); Y := ShortInt(Hi(LParam));
State := GetShiftState; State := GetShiftState;
UserData := Pointer(GetWindowLong(Window, GWL_USERDATA)); UserData := Pointer(GetWindowLong(Window, GWL_USERDATA));
End; End;
@ -906,6 +906,9 @@ end;
{ {
$Log$ $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 Revision 1.78 2003/12/19 21:34:53 micha
fix compiler problem; wrong code for constants fix compiler problem; wrong code for constants