paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-18 14:09:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt: fixed wrong result of SPI_GETWORKAREA - it should return available geometry of primary screen. Related to issue #36913

Browse Source 
git-svn-id: trunk@62964 -
This commit is contained in:
zeljko 2020-04-14 09:39:50 +00:00
parent 28cdfdfe8f
commit 7b10b91937
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lcl/interfaces/qt/qtwinapi.inc
View File

@ -7136,14 +7136,19 @@ end;
retrieves or sets the value of one of the system-wide parameters
------------------------------------------------------------------------------}
function TQtWidgetSet.SystemParametersInfo(uiAction: DWord; uiParam: DWord; pvParam: Pointer; fWinIni: DWord): LongBool;
var
ADesktop: QDesktopWidgetH;
AScreen: Integer;
R: TRect;
begin
case uiAction of
SPI_GETWHEELSCROLLLINES: PDword(pvPAram)^ := QApplication_wheelScrollLines;
SPI_GETWORKAREA: begin
TRect(pvParam^):=Bounds(GetSystemMetrics(SM_XVIRTUALSCREEN),
GetSystemMetrics(SM_YVIRTUALSCREEN),
GetSystemMetrics(SM_CXVIRTUALSCREEN),
GetSystemMetrics(SM_CYVIRTUALSCREEN));
SPI_GETWORKAREA:
begin
ADesktop := QApplication_desktop();
AScreen := QDesktopWidget_primaryScreen(ADesktop);
QDesktopWidget_availableGeometry(ADesktop, @R, AScreen);
TRect(pvParam^) := R;
Result:=True;
end;
else