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

fix multiple mouse wheel messages

Browse Source 
git-svn-id: trunk@5502 -
This commit is contained in:
micha 2004-05-23 13:35:19 +00:00
parent c24c706e3c
commit 8ca75716ec
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -668,6 +668,7 @@ Begin
State := GetShiftState;
UserData := Pointer(GetWindowLong(Window, GWL_USERDATA));
End;
WinProcess := false;
End;
//TODO:LM_MOVEPAGE,LM_MOVETOROW,LM_MOVETOCOLUMN
WM_NCHITTEST:
@ -963,6 +964,7 @@ Begin
else if PLMsg = @LMMouseMove then Result := LMMouseMove.Result
else if PLMsg = @LMMove then Result := LMMove.Result
else if PLMsg = @LMNotify then Result := LMNotify.Result
else if PLMsg = @LMMouseEvent then Result := 1
else Result := PLMsg^.Result;
Assert(False, 'Trace:WindowProc - Exit');
@ -1156,6 +1158,9 @@ end;
{
$Log$
Revision 1.107 2004/05/23 13:35:19 micha
fix multiple mouse wheel messages
Revision 1.106 2004/05/20 21:28:54 marc
* Fixed win32 listview