paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 19:19:19 +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; AScreen: Integer;
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:
@ -7227,7 +7228,6 @@ begin
AScreen := QDesktopWidget_primaryScreen(ADesktop); AScreen := QDesktopWidget_primaryScreen(ADesktop);
QDesktopWidget_availableGeometry(ADesktop, @R, AScreen); QDesktopWidget_availableGeometry(ADesktop, @R, AScreen);
TRect(pvParam^) := R; TRect(pvParam^) := R;
Result:=True;
end; end;
else else
Result := False; Result := False;

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;