From 61f292751afe9ecd285dcc5bd62dcb76973cbd57 Mon Sep 17 00:00:00 2001 From: Sergey Larin Date: Thu, 16 Dec 2021 02:03:29 +0300 Subject: [PATCH 1/2] QT5: fixed uninitialized Result when getting WheelScrollLines --- lcl/interfaces/qt5/qtwinapi.inc | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lcl/interfaces/qt5/qtwinapi.inc b/lcl/interfaces/qt5/qtwinapi.inc index ace6532ab0..53b401eed6 100644 --- a/lcl/interfaces/qt5/qtwinapi.inc +++ b/lcl/interfaces/qt5/qtwinapi.inc @@ -7170,6 +7170,7 @@ var AScreen: QScreenH; R: TRect; begin + Result:=True; case uiAction of SPI_GETWHEELSCROLLLINES: PDword(pvPAram)^ := QApplication_wheelScrollLines; SPI_GETWORKAREA: @@ -7177,7 +7178,6 @@ begin AScreen := QGuiApplication_primaryScreen(); QScreen_availableGeometry(AScreen, @R); TRect(pvParam^) := R; - Result:=True; end; else Result := False; From 3e672ebe93e3398b8587e32269d6195a97bf493c Mon Sep 17 00:00:00 2001 From: Sergey Larin Date: Thu, 16 Dec 2021 02:05:20 +0300 Subject: [PATCH 2/2] QT4: fixed uninitialized Result when getting WheelScrollLines --- lcl/interfaces/qt/qtwinapi.inc | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lcl/interfaces/qt/qtwinapi.inc b/lcl/interfaces/qt/qtwinapi.inc index dbed0c4bd4..c9bf5e8679 100644 --- a/lcl/interfaces/qt/qtwinapi.inc +++ b/lcl/interfaces/qt/qtwinapi.inc @@ -7219,6 +7219,7 @@ var AScreen: Integer; R: TRect; begin + Result:=True; case uiAction of SPI_GETWHEELSCROLLLINES: PDword(pvPAram)^ := QApplication_wheelScrollLines; SPI_GETWORKAREA: @@ -7227,7 +7228,6 @@ begin AScreen := QDesktopWidget_primaryScreen(ADesktop); QDesktopWidget_availableGeometry(ADesktop, @R, AScreen); TRect(pvParam^) := R; - Result:=True; end; else Result := False;