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

added TControl.HandleObjectShouldBeVisible

Browse Source 
git-svn-id: trunk@3913 -
This commit is contained in:
mattias 2003-03-11 23:14:20 +00:00
parent e6d4462a96
commit bb739f5f46
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/interfaces/win32/win32object.inc
View File

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