paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-26 10:10:34 +01:00
Code Issues Packages Projects Releases Wiki Activity

qt: misc

Browse Source 
git-svn-id: trunk@11629 -
This commit is contained in:
paul 2007-07-26 02:18:56 +00:00
parent b68e63919d
commit 9f4c0ddb00
2 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/qt/qtwidgets.pas
View File

@ -1524,11 +1524,11 @@ begin
Msg.Msg := LM_SIZE;
case QWidget_windowState(Widget) of
QtWindowMinimized: Msg.SizeType := SIZEICONIC;
QtWindowMaximized: Msg.SizeType := SIZEFULLSCREEN;
QtWindowFullScreen: Msg.SizeType := SIZEFULLSCREEN;
QtWindowMinimized: Msg.SizeType := SIZEICONIC;
QtWindowMaximized: Msg.SizeType := SIZEFULLSCREEN;
QtWindowFullScreen: Msg.SizeType := SIZEFULLSCREEN;
else
Msg.SizeType := SIZENORMAL;
Msg.SizeType := SIZENORMAL;
end;
Msg.SizeType := Msg.SizeType or Size_SourceIsInterface;

8
lcl/interfaces/qt/qtwsforms.pp
View File

@ -286,7 +286,13 @@ end;
------------------------------------------------------------------------------}
class procedure TQtWSCustomForm.ShowModal(const ACustomForm: TCustomForm);
begin
{
Setting modal flags is done in TQtWSCustomControl.ShowHide
Since that flags has effect only when Widget is not visible
We can ofcource hide widget, set flags here and then show it, but we dont
want window flickering :)
}
end;
{------------------------------------------------------------------------------