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

LCL:

Browse Source 
git-svn-id: trunk@24415 -
This commit is contained in:
mattias 2010-04-04 23:12:13 +00:00
parent b45e6c73ea
commit 463c24c7d1
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/application.inc
View File

@ -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;