paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-11 12:19:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: fix mouse wheel scrolling when cursor is in TControl on Windows. Issue #29097

Browse Source 
git-svn-id: trunk@50528 -
This commit is contained in:
ondrej 2015-11-29 22:44:46 +00:00
parent 916bee86f8
commit 5b5452bed2
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/wincontrol.inc
View File

@ -4706,11 +4706,14 @@ begin
MouseEventMessage.Y := P.Y;
Control.Dispatch(MouseEventMessage);
MouseMessage.Result := MouseEventMessage.Result;
Result := (MouseMessage.Result <> 0);
end
else
begin
MouseMessage.Result := Control.Perform(MouseMessage.Msg, WParam(MouseMessage.Keys),
LParam(Integer(PointToSmallPoint(P))));
Result := True;
Result := True;
end;
end;
end;