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

Qt: always propagate mousewheel to parent, result will anyway stop the event (if true). fixes issue #20371

Browse Source 
git-svn-id: trunk@32586 -
This commit is contained in:
zeljko 2011-10-01 15:22:31 +00:00
parent 52c7ea4dad
commit ac3e5510a7
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/qt/qtwidgets.pas
View File

@ -3100,6 +3100,8 @@ begin
NotifyApplicationUserInput(Msg.Msg); NotifyApplicationUserInput(Msg.Msg);
Result := DeliverMessage(Msg) <> 0; Result := DeliverMessage(Msg) <> 0;
SetNoMousePropagation(QWidgetH(Sender), False);
{propagate mousewheel to parent if our sender is TPanel, {propagate mousewheel to parent if our sender is TPanel,
fixes problem with mousewheel scroll with lazreport} fixes problem with mousewheel scroll with lazreport}
if (LCLObject <> nil) and if (LCLObject <> nil) and