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

Qt5,Qt6: fixed swapped width/height. issue #41575

Browse Source
This commit is contained in:
zeljan1 2025-04-07 22:28:18 +02:00
parent cb01b03ae6
commit 06a86413f2
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4481,10 +4481,10 @@ begin
begin
if TQtMainWindow(Handle).ScrollArea.VBarAllocated and
TQtMainWindow(Handle).ScrollArea.verticalScrollBar.getVisible then
inc(Height, TQtMainWindow(Handle).ScrollArea.verticalScrollBar.getWidth);
inc(Width, TQtMainWindow(Handle).ScrollArea.verticalScrollBar.getWidth);
if TQtMainWindow(Handle).ScrollArea.HBarAllocated and
TQtMainWindow(Handle).ScrollArea.horizontalScrollBar.getVisible then
inc(Width, TQtMainWindow(Handle).ScrollArea.horizontalScrollBar.getHeight);
inc(Height, TQtMainWindow(Handle).ScrollArea.horizontalScrollBar.getHeight);
end;
{$ENDIF}
end else

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

@ -4509,10 +4509,10 @@ begin
begin
if TQtMainWindow(Handle).ScrollArea.VBarAllocated and
TQtMainWindow(Handle).ScrollArea.verticalScrollBar.getVisible then
inc(Height, TQtMainWindow(Handle).ScrollArea.verticalScrollBar.getWidth);
inc(Width, TQtMainWindow(Handle).ScrollArea.verticalScrollBar.getWidth);
if TQtMainWindow(Handle).ScrollArea.HBarAllocated and
TQtMainWindow(Handle).ScrollArea.horizontalScrollBar.getVisible then
inc(Width, TQtMainWindow(Handle).ScrollArea.horizontalScrollBar.getHeight);
inc(Height, TQtMainWindow(Handle).ScrollArea.horizontalScrollBar.getHeight);
end;
{$ENDIF}
end else