paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 10:40:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt: restored wheel problem, fix wasn't good (does not work for mac) and it was wrong to use spontaneous() flag of QEvent.

Browse Source 
git-svn-id: trunk@12318 -
This commit is contained in:
zeljko 2007-10-04 18:26:56 +00:00
parent a2c2fa0c0d
commit 8225324ac4
1 changed files with 2 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -6442,16 +6442,10 @@ function TQtAbstractScrollArea.EventFilter(Sender: QObjectH; Event: QEventH): Bo
begin
case QEvent_type(Event) of
QEventPaint,
QEventLayoutRequest: Result := False;
QEventLayoutRequest,
QEventMouseButtonPress,
QEventMouseButtonRelease,
QEventMouseButtonDblClick,
QEventWheel:
begin
Result := False;
if QEvent_spontaneous(Event) then
ViewPortEventFilter(Event, @Result);
end;
QEventMouseButtonDblClick: Result := False;
else
Result := inherited EventFilter(Sender, Event);
end;