paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 04:16:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merge branch 'qt-getwheelscrolllines-fix' into 'main'

Browse Source 
QT: Fixed uninitialized Result when getting WheelScrollLines

See merge request freepascal.org/lazarus/lazarus!78
This commit is contained in:
Juha Manninen 2022-02-24 12:27:18 +00:00
commit e7346c9f69
2 changed files with 2 additions and 2 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;

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;