paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-02-19 18:36:42 +01:00
Code Issues Packages Projects Releases Wiki Activity

Qt: do not set taskbar rules for mdichild forms.

Browse Source 
git-svn-id: trunk@26445 -
This commit is contained in:
zeljko 2010-07-03 15:07:38 +00:00
parent 97298eab5c
commit ef1accc0b0
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -329,7 +329,8 @@ begin
(Application.MainForm <> AForm) then
Enable := false;
{$IFDEF HASX11}
SetSkipX11Taskbar(TQtMainWindow(AForm.Handle).Widget, not Enable);
if AForm.FormStyle <> fsMDIChild then
SetSkipX11Taskbar(TQtMainWindow(AForm.Handle).Widget, not Enable);
{$ENDIF}
TQtMainWindow(AForm.Handle).setShowInTaskBar(Enable);
end;