mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-16 06:09:29 +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,
|
||||
QEventMouseButtonRelease,
|
||||
QEventMouseButtonDblClick,
|
||||
QEventWheel,
|
||||
QEventContextMenu
|
||||
]) and
|
||||
(ClassType = TQtAbstractScrollArea) then
|
||||
Result := False
|
||||
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);
|
||||
end;
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user