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

lcl: don't set shift state to ssMiddle when handling a wheel mouse message (issue #7093)

Browse Source 
git-svn-id: trunk@9765 -
This commit is contained in:
vincents 2006-08-29 12:36:08 +00:00
parent 3b96c968c8
commit c42bbc3a30
1 changed files with 0 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/include/wincontrol.inc
View File

@ -4955,9 +4955,6 @@ begin
MousePos.X := Message.X; MousePos.X := Message.X;
MousePos.Y := Message.Y; MousePos.Y := Message.Y;
{ always the middle button }
Shift := [ssMiddle];
if not DoMouseWheel(Shift, Message.WheelDelta, MousePos) then if not DoMouseWheel(Shift, Message.WheelDelta, MousePos) then
inherited; inherited;
end; end;