From b71761338c6e7dbd0f8d4039b1dbf1e159e77dd4 Mon Sep 17 00:00:00 2001 From: paul Date: Sun, 3 Feb 2008 10:50:34 +0000 Subject: [PATCH] qt: fix function result git-svn-id: trunk@13963 - --- lcl/interfaces/qt/qtwidgets.pas | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/lcl/interfaces/qt/qtwidgets.pas b/lcl/interfaces/qt/qtwidgets.pas index 2662fcfe8a..36464c9c95 100644 --- a/lcl/interfaces/qt/qtwidgets.pas +++ b/lcl/interfaces/qt/qtwidgets.pas @@ -4103,7 +4103,7 @@ end; function TQtAbstractSlider.getSliderPosition: Integer; begin - QAbstractSlider_sliderPosition(QAbstractSliderH(Widget)); + Result := QAbstractSlider_sliderPosition(QAbstractSliderH(Widget)); end; {------------------------------------------------------------------------------ @@ -6526,8 +6526,6 @@ begin end; procedure TQtMenu.SlotAboutToHide; cdecl; -var - Event: QEventH; begin if FMenuItem.Menu is TPopupMenu then QCoreApplication_postEvent(Widget, QEvent_create(LCLQt_PopupMenuClose));