From 40f211f17985e822e0f840df4224794fa894a79f Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Tue, 10 Feb 2009 04:19:06 +0000
Subject: [PATCH] designer: formatting

git-svn-id: trunk@18627 -
---
 designer/controlselection.pp | 25 +++++++++++++------------
 1 file changed, 13 insertions(+), 12 deletions(-)

diff --git a/designer/controlselection.pp b/designer/controlselection.pp
index 3fdd846f0a..44b51468d6 100644
--- a/designer/controlselection.pp
+++ b/designer/controlselection.pp
@@ -615,16 +615,18 @@ procedure TSelectedControl.GetFormRelativeBounds(var ALeft, ATop, AWidth,
 var
   ALeftTop: TPoint;
 begin
-  if FIsTComponent then begin
-    GetComponentBounds(TComponent(FPersistent),ALeft,ATop,AWidth,AHeight);
-    ALeftTop:=GetParentFormRelativeTopLeft(TComponent(FPersistent));
-    ALeft:=ALeftTop.X;
-    ATop:=ALeftTop.Y;
-  end else begin
-    ALeft:=0;
-    ATop:=0;
-    AWidth:=0;
-    AHeight:=0;
+  if FIsTComponent then
+  begin
+    GetComponentBounds(TComponent(FPersistent), ALeft, ATop, AWidth, AHeight);
+    ALeftTop := GetParentFormRelativeTopLeft(TComponent(FPersistent));
+    ALeft := ALeftTop.X;
+    ATop := ALeftTop.Y;
+  end else
+  begin
+    ALeft := 0;
+    ATop := 0;
+    AWidth := 0;
+    AHeight := 0;
   end;
 end;
 
@@ -636,8 +638,7 @@ begin
     SetUsedBounds(ALeft, ATop, AWidth, AHeight);
 end;
 
-procedure TSelectedControl.SetUsedBounds(ALeft, ATop, AWidth, AHeight: integer
-  );
+procedure TSelectedControl.SetUsedBounds(ALeft, ATop, AWidth, AHeight: integer);
 begin
   FUsedLeft:=ALeft;
   FUsedTop:=ATop;