From bb739f5f46b7e08f5957e70bdce3c961e2664a24 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Tue, 11 Mar 2003 23:14:20 +0000
Subject: [PATCH] added TControl.HandleObjectShouldBeVisible

git-svn-id: trunk@3913 -
---
 lcl/interfaces/win32/win32object.inc | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lcl/interfaces/win32/win32object.inc b/lcl/interfaces/win32/win32object.inc
index 89be6a51d3..7d3939ebfd 100644
--- a/lcl/interfaces/win32/win32object.inc
+++ b/lcl/interfaces/win32/win32object.inc
@@ -2097,7 +2097,7 @@ Var
 Begin
   If (TControl(Sender).FCompStyle = csPage) or (TControl(Sender).FCompStyle = csToolButton) then exit;
   Handle := ObjectToHWND(Sender);
-  If TControl(Sender).Visible Then
+  If TControl(Sender).HandleObjectShouldBeVisible Then
   Begin
     Assert(False, 'Trace: [TWin32Object.ShowHide] Showing the window');
     ShowWindow(Handle, SW_SHOW);
@@ -2632,6 +2632,9 @@ End;
 
 {
   $Log$
+  Revision 1.49  2003/03/11 23:14:20  mattias
+  added TControl.HandleObjectShouldBeVisible
+
   Revision 1.48  2003/03/06 17:15:49  mattias
   applied patch from Martin Smat fixing LM_SETSIZE, LM_SETDESIGNING, LM_SCREENINIT