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

(Qt): Fix for toolwin by paul.

Browse Source 
git-svn-id: trunk@11728 -
This commit is contained in:
zeljko 2007-08-03 13:41:29 +00:00
parent c3e56093e8
commit d909764d09
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -169,10 +169,10 @@ begin
end; end;
if (TCustomForm(AWinControl).ShowInTaskBar in [stDefault, stNever]) and not if (TCustomForm(AWinControl).ShowInTaskBar in [stDefault, stNever]) and not
(TCustomForm(AWinControl).FormStyle in [fsMDIChild]) and not (TCustomForm(AWinControl).FormStyle in [fsMDIChild]) and
{QtTool have not minimize button !} {QtTool have not minimize button !}
{$ifdef linux} {$ifdef linux}
(TCustomForm(AWinControl).BorderStyle in [bsSizeToolWin, bsToolWindow]) and not (TCustomForm(AWinControl).BorderStyle in [bsSizeToolWin, bsToolWindow]) and
{$endif} {$endif}
(Application <> nil) and (Application <> nil) and
(Application.MainForm <> nil) and (Application.MainForm <> nil) and