mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-18 21:59:14 +02:00
Qt: fix wheel event for customcontrols which uses custom painted scrollbars by it's own (fastcube).
git-svn-id: trunk@17692 -
This commit is contained in:
parent
8f93dfa528
commit
15eeba4708
@ -8330,12 +8330,18 @@ begin
|
|||||||
QEventMouseButtonPress,
|
QEventMouseButtonPress,
|
||||||
QEventMouseButtonRelease,
|
QEventMouseButtonRelease,
|
||||||
QEventMouseButtonDblClick,
|
QEventMouseButtonDblClick,
|
||||||
QEventWheel,
|
|
||||||
QEventContextMenu
|
QEventContextMenu
|
||||||
]) and
|
]) and
|
||||||
(ClassType = TQtAbstractScrollArea) then
|
(ClassType = TQtAbstractScrollArea) then
|
||||||
Result := False
|
Result := False
|
||||||
else
|
else
|
||||||
|
if QEvent_type(Event) = QEventWheel then
|
||||||
|
begin
|
||||||
|
if not horizontalScrollBar.getVisible and not verticalScrollBar.getVisible then
|
||||||
|
Result := inherited EventFilter(Sender, Event)
|
||||||
|
else
|
||||||
|
Result := False;
|
||||||
|
end else
|
||||||
Result := inherited EventFilter(Sender, Event);
|
Result := inherited EventFilter(Sender, Event);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user