paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-07 15:03:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

QT5: fixed uninitialized Result when getting WheelScrollLines

Browse Source 
(cherry picked from commit 61f292751a)
This commit is contained in:
Sergey Larin 2021-12-16 02:03:29 +03:00 committed by Maxim Ganetsky
parent 4180b62693
commit 7f53ea8eb1
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/qt5/qtwinapi.inc
View File

@ -7170,6 +7170,7 @@ var
AScreen: QScreenH; AScreen: QScreenH;
R: TRect; R: TRect;
begin begin
Result:=True;
case uiAction of case uiAction of
SPI_GETWHEELSCROLLLINES: PDword(pvPAram)^ := QApplication_wheelScrollLines; SPI_GETWHEELSCROLLLINES: PDword(pvPAram)^ := QApplication_wheelScrollLines;
SPI_GETWORKAREA: SPI_GETWORKAREA:
@ -7177,7 +7178,6 @@ begin
AScreen := QGuiApplication_primaryScreen(); AScreen := QGuiApplication_primaryScreen();
QScreen_availableGeometry(AScreen, @R); QScreen_availableGeometry(AScreen, @R);
TRect(pvParam^) := R; TRect(pvParam^) := R;
Result:=True;
end; end;
else else
Result := False; Result := False;