From b9db2f0fa6fca5325c3c4c25bf4002aa3f428dec Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Mon, 9 Feb 2009 23:31:35 +0000
Subject: [PATCH] clean up

git-svn-id: trunk@18624 -
---
 designer/controlselection.pp | 17 +++++++++--------
 1 file changed, 9 insertions(+), 8 deletions(-)

diff --git a/designer/controlselection.pp b/designer/controlselection.pp
index f91b01fc3e..3fdd846f0a 100644
--- a/designer/controlselection.pp
+++ b/designer/controlselection.pp
@@ -2887,6 +2887,7 @@ function TControlSelection.CheckForLCLChanges(Update: boolean): boolean;
 
 var
   i: Integer;
+  PropsChanged: Boolean;
 begin
   Result:=false;
   if FControls.Count>=1 then begin
@@ -2897,6 +2898,7 @@ begin
       end;
     end;
   end;
+  PropsChanged:=false;
   if Update then
     begin
     if Result then begin
@@ -2904,11 +2906,8 @@ begin
       for i:=0 to FControls.Count-1 do
         if Items[i].IsTComponent and BoundsChanged(Items[i]) then
           InvalidateMarkersForComponent(TComponent(Items[i].Persistent));
-      if not IsResizing then begin
-        UpdateBounds;
-        DoChangeProperties;
-      end;
       InvalidateGuideLinesCache;
+      PropsChanged:=not IsResizing;
     end else if LookupRootSelected and (FLookupRoot is TControl) then
     begin
       // check for form moves
@@ -2918,15 +2917,17 @@ begin
         begin
           if (Items[i].UsedLeft<>GetComponentLeft(FLookupRoot))
           or (Items[i].UsedTop<>GetComponentTop(FLookupRoot)) then
-          begin
-            UpdateBounds;
-            DoChangeProperties;
-          end;
+            PropsChanged:=not IsResizing;
           break;
         end;
       end;
     end;
   end;
+  if PropsChanged then
+  begin
+    UpdateBounds;
+    DoChangeProperties;
+  end;
 end;
 
 procedure TControlSelection.DrawGuideLines(DC: TDesignerDeviceContext);