From 17de2cbca3f6dfaa71666b03b9942cd05326d8eb Mon Sep 17 00:00:00 2001 From: zeljko Date: Thu, 4 Oct 2007 06:46:25 +0000 Subject: [PATCH] Qt: Fixed crash on abstractscrollarea introduced by latest patch. git-svn-id: trunk@12306 - --- lcl/interfaces/qt/qtwidgets.pas | 14 ++++---------- 1 file changed, 4 insertions(+), 10 deletions(-) diff --git a/lcl/interfaces/qt/qtwidgets.pas b/lcl/interfaces/qt/qtwidgets.pas index 833c26b834..068e660bc3 100644 --- a/lcl/interfaces/qt/qtwidgets.pas +++ b/lcl/interfaces/qt/qtwidgets.pas @@ -6410,16 +6410,10 @@ end; function TQtAbstractScrollArea.ViewPortEventFilter(Sender: QObjectH; Event: QEventH): Boolean; cdecl; begin -{$ifdef VerboseViewPortEventFilter} - WriteLn(QEvent_type(Event)); -{$endif} - Result := False; - QEvent_accept(Event); - case QEvent_type(Event) of - QEventPaint : viewport.SlotPaint(Sender, Event); - else - Result := QLCLAbstractScrollArea_InheritedViewportEvent(QLCLAbstractScrollAreaH(Widget), Event); - end; + {$ifdef VerboseViewPortEventFilter} + WriteLn(QEvent_type(Event)); + {$endif} + Result := QLCLAbstractScrollArea_InheritedViewportEvent(QLCLAbstractScrollAreaH(Widget), Event); end; procedure TQtAbstractScrollArea.DestroyNotify(AWidget: TQtWidget);