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

do not call default handler if user handles mousewheel event (from jesusrmx)

Browse Source 
git-svn-id: trunk@7035 -
This commit is contained in:
micha 2005-03-29 19:36:22 +00:00
parent 4a8c4696ca
commit fda74205a3
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/include/wincontrol.inc
View File

@ -3613,9 +3613,8 @@ begin
{ always the middle button }
Shift := [ssMiddle];
DoMouseWheel(Shift, Message.WheelDelta, MousePos);
inherited;
if not DoMouseWheel(Shift, Message.WheelDelta, MousePos) then
inherited;
end;
{------------------------------------------------------------------------------
@ -4490,6 +4489,9 @@ end;
{ =============================================================================
$Log$
Revision 1.320 2005/03/29 19:36:22 micha
do not call default handler if user handles mousewheel event (from jesusrmx)
Revision 1.319 2005/03/10 09:26:25 mattias
added note on creating handles on destroying