From 463c24c7d170e4475dade3be9a43cc4c75ad2715 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sun, 4 Apr 2010 23:12:13 +0000
Subject: [PATCH] LCL:

git-svn-id: trunk@24415 -
---
 lcl/include/application.inc | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lcl/include/application.inc b/lcl/include/application.inc
index 557d144acf..f188e1a37a 100644
--- a/lcl/include/application.inc
+++ b/lcl/include/application.inc
@@ -919,7 +919,10 @@ procedure TApplication.UpdateVisible;
     for i := 0 to Screen.FormCount - 1 do
     begin
       AForm := Screen.Forms[i];
-      if AForm.Visible and (AForm.Parent = nil) and UseAppTaskbarItem(AForm) then
+      if (AForm.Parent = nil)
+      and AForm.Showing  // check showing (not Visible)
+      and (not (csDestroyingHandle in AForm.ControlState))
+      and UseAppTaskbarItem(AForm) then
       begin
         Result := True;
         break;