From 131edf2a5fa968af404d7d3a4c6c4e85fae3db48 Mon Sep 17 00:00:00 2001
From: lazarus <lazarus@lazarus-ide.org>
Date: Sat, 9 Feb 2002 01:47:24 +0000
Subject: [PATCH] MG: fixed form positioning when show, hide, show

git-svn-id: trunk@928 -
---
 lcl/include/control.inc | 17 +++++++++++------
 1 file changed, 11 insertions(+), 6 deletions(-)

diff --git a/lcl/include/control.inc b/lcl/include/control.inc
index bb10afd44c..708d0b7caf 100644
--- a/lcl/include/control.inc
+++ b/lcl/include/control.inc
@@ -290,7 +290,8 @@ end;
 {------------------------------------------------------------------------------}
 procedure TControl.CMVisibleChanged(var MEssage : TLMessage);
 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));
   end;
 end;
@@ -1081,8 +1082,9 @@ end;
 procedure TControl.Show;
 begin
   if Parent <> nil then Parent.ShowControl(Self);
-  if not(csDesigning in ComponentState) or (csNoDesignVisible in ControlStyle) then
-    Visible:= true;
+  if not (csDesigning in ComponentState)
+  or (csNoDesignVisible in ControlStyle) then
+    Visible := true;
 end;
 
 {------------------------------------------------------------------------------}
@@ -1452,9 +1454,9 @@ begin
         AParent.InsertControl(Self);
         while AParent.Controls[0] <> Self do begin
           AControl:= AParent.Controls[0];
-  	  AParent.RemoveControl(AControl);
-	  AParent.InsertControl(AControl);
-	end;  
+      	  AParent.RemoveControl(AControl);
+      	  AParent.InsertControl(AControl);
+      	end;
       end;
     end;
   end;    
@@ -1725,6 +1727,9 @@ end;
 
 { =============================================================================
   $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
   MG: changed license to LGPL