paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-21 22:59:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt5,Qt6: fix GetWindowSize regression. issue #41575

Browse Source
This commit is contained in:
zeljan1 2025-04-07 21:14:11 +02:00
parent cc809e40b9
commit dadc0e93e2
2 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/qt5/qtwinapi.inc
View File

@ -4476,6 +4476,12 @@ begin
GetClientRect(Handle, ARect);
Width := ARect.Width;
Height := ARect.Height;
{$IFDEF QTSCROLLABLEFORMS}
if TQtMainWindow(Handle).ScrollArea.verticalScrollBar.getVisible then
inc(Height, TQtMainWindow(Handle).ScrollArea.verticalScrollBar.getWidth);
if TQtMainWindow(Handle).ScrollArea.horizontalScrollBar.getVisible then
inc(Width, TQtMainWindow(Handle).ScrollArea.horizontalScrollBar.getHeight);
{$ENDIF}
end else
begin
ASize := TQtWidget(Handle).getSize;

6
lcl/interfaces/qt6/qtwinapi.inc
View File

@ -4504,6 +4504,12 @@ begin
GetClientRect(Handle, ARect);
Width := ARect.Width;
Height := ARect.Height;
{$IFDEF QTSCROLLABLEFORMS}
if TQtMainWindow(Handle).ScrollArea.verticalScrollBar.getVisible then
inc(Height, TQtMainWindow(Handle).ScrollArea.verticalScrollBar.getWidth);
if TQtMainWindow(Handle).ScrollArea.horizontalScrollBar.getVisible then
inc(Width, TQtMainWindow(Handle).ScrollArea.horizontalScrollBar.getHeight);
{$ENDIF}
end else
begin
ASize := TQtWidget(Handle).getSize;