paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-17 21:09:27 +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;
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;