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

LCL: fixed bug where MDIChild form can be moved over main menu or task bar, introduced in r24682 #708e6de6d9

Browse Source 
git-svn-id: trunk@24693 -
This commit is contained in:
zeljko 2010-04-18 12:36:02 +00:00
parent d661819ef3
commit 6ac3997a9f
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/include/customform.inc
View File

@ -769,7 +769,8 @@ procedure TCustomForm.UpdateShowInTaskBar;
var var
Value: TShowInTaskBar; Value: TShowInTaskBar;
begin begin
if (Application.MainForm = Self) or (not HandleAllocated) then Exit; if (Application.MainForm = Self) or (not HandleAllocated)
or (FormStyle = fsMDIChild) then Exit;
Value := ShowInTaskBar; Value := ShowInTaskBar;
if (Value = stDefault) or (csDesigning in ComponentState) then if (Value = stDefault) or (csDesigning in ComponentState) then
case Application.TaskBarBehavior of case Application.TaskBarBehavior of