paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-09 20:56:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

qt: set correct windows state in TQtWSCustomControl.ShowHide

Browse Source 
git-svn-id: trunk@18681 -
This commit is contained in:
paul 2009-02-14 08:57:16 +00:00
parent bde55b119f
commit 38ed3d71cc
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/interfaces/qt/qtwscontrols.pp
View File

@ -165,6 +165,12 @@ end;
Shows or hides a widget.
------------------------------------------------------------------------------}
class procedure TQtWSCustomControl.ShowHide(const AWinControl: TWinControl);
const
LCLToQtWindowState: array[TWindowState] of QtWindowState = (
{ wsNormal } QtWindowNoState,
{ wsMinimized } QtWindowMinimized,
{ wsMaximized } QtWindowMaximized
);
var
Widget: TQtWidget;
R: TRect;
@ -204,9 +210,7 @@ begin
end;
end;
if TCustomForm(AWinControl).WindowState in [wsMaximized] then
TQtMainWindow(Widget).setWindowState(QtWindowMaximized);
TQtMainWindow(Widget).setWindowState(LCLToQtWindowState[TCustomForm(AWinControl).WindowState]);
end;
Widget.setVisible(AWinControl.HandleObjectShouldBeVisible);