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

Qt: allow mouse wheel propagation for all widgets which passes mouseWheel into TQtWidget.EventFilter. part of #20402

Browse Source 
git-svn-id: trunk@32692 -
This commit is contained in:
zeljko 2011-10-05 07:44:01 +00:00
parent abea0d7922
commit 6e376ce0a8
1 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2210,7 +2210,15 @@ begin
QEventMouseButtonRelease,
QEventMouseButtonDblClick: Result := SlotMouse(Sender, Event);
QEventMouseMove: Result := SlotMouseMove(Sender, Event);
QEventWheel: Result := SlotMouseWheel(Sender, Event);
QEventWheel:
begin
if not getEnabled then
begin
QEvent_ignore(Event);
QWidget_setAttribute(QWidgetH(Sender), QtWA_NoMousePropagation, False);
end else
Result := SlotMouseWheel(Sender, Event);
end;
QEventMove: SlotMove(Event);
QEventResize: SlotResize(Event);
QEventContentsRectChange: LCLObject.DoAdjustClientRectChange(False);
@ -12977,6 +12985,14 @@ begin
QEventEnter,
QEventLeave: Result := SlotMouseEnter(Sender, Event);
QEventMouseButtonDblClick: FMouseDoubleClicked := True;
QEventWheel:
begin
if not getEnabled then
begin
QEvent_ignore(Event);
QWidget_setAttribute(QWidgetH(Sender), QtWA_NoMousePropagation, False);
end;
end;
end;
end;
end;