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:
zeljko 2008-12-05 09:46:56 +00:00
parent 8f93dfa528
commit 15eeba4708

View File

@ -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;