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

Qt,Qt5: fixed maximized window with borderstyle = bsnone. issue #39158

Browse Source 
(cherry picked from commit 29fa1e508e)
This commit is contained in:
Željan Rikalo 2021-10-06 13:46:42 +02:00 committed by Maxim Ganetsky
parent d7b94bfffa
commit f7bab82a56
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/qt/qtwsforms.pp
View File

@ -616,6 +616,12 @@ begin
end;
{$ENDIF}
end;
// issue #39158
if AWinControl.HandleObjectShouldBeVisible and
(TCustomForm(AWinControl).BorderStyle = bsNone) and
not Widget.IsMdiChild then
ConstraintsChange(AWinControl);
end;
Widget.setVisible(AWinControl.HandleObjectShouldBeVisible);

6
lcl/interfaces/qt5/qtwsforms.pp
View File

@ -637,6 +637,12 @@ begin
end;
{$ENDIF}
end;
// issue #39158
if AWinControl.HandleObjectShouldBeVisible and
(TCustomForm(AWinControl).BorderStyle = bsNone) and
not Widget.IsMdiChild then
ConstraintsChange(AWinControl);
end;
Widget.setVisible(AWinControl.HandleObjectShouldBeVisible);