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

QT4: fixed uninitialized Result when getting WheelScrollLines

Browse Source 
(cherry picked from commit 3e672ebe93)
This commit is contained in:
Sergey Larin 2021-12-16 02:05:20 +03:00 committed by Maxim Ganetsky
parent 7f53ea8eb1
commit 26ad872b9e
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/qt/qtwinapi.inc
View File

@ -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;