paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-04 18:20:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: fixed form positioning when show, hide, show

Browse Source 
git-svn-id: trunk@928 -
This commit is contained in:
lazarus 2002-02-09 01:47:24 +00:00
parent a6570c456c
commit 131edf2a5f
1 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/include/control.inc
View File

@ -290,7 +290,8 @@ end;
{------------------------------------------------------------------------------} {------------------------------------------------------------------------------}
procedure TControl.CMVisibleChanged(var MEssage : TLMessage); procedure TControl.CMVisibleChanged(var MEssage : TLMessage);
begin begin
if not (csDesigning in ComponentState) or (csNoDesignVisible in ControlStyle) then begin if not (csDesigning in ComponentState)
or (csNoDesignVisible in ControlStyle) then begin
InvalidateControl(true, FVisible and (csOpaque in ControlStyle)); InvalidateControl(true, FVisible and (csOpaque in ControlStyle));
end; end;
end; end;
@ -1081,7 +1082,8 @@ end;
procedure TControl.Show; procedure TControl.Show;
begin begin
if Parent <> nil then Parent.ShowControl(Self); if Parent <> nil then Parent.ShowControl(Self);
if not(csDesigning in ComponentState) or (csNoDesignVisible in ControlStyle) then if not (csDesigning in ComponentState)
or (csNoDesignVisible in ControlStyle) then
Visible := true; Visible := true;
end; end;
@ -1725,6 +1727,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.49 2002/05/13 15:26:13 lazarus
MG: fixed form positioning when show, hide, show
Revision 1.48 2002/05/10 06:05:51 lazarus Revision 1.48 2002/05/10 06:05:51 lazarus
MG: changed license to LGPL MG: changed license to LGPL