From 0fa5af44a51a11e1acf09504311fbcf5605b4fe4 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Tue, 29 May 2012 11:10:04 +0000
Subject: [PATCH] IDE: designer selection: emit OnChange before
 OnChangeProperties

git-svn-id: trunk@37452 -
---
 designer/controlselection.pp | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

diff --git a/designer/controlselection.pp b/designer/controlselection.pp
index 317a8ec312..74bf060cfd 100644
--- a/designer/controlselection.pp
+++ b/designer/controlselection.pp
@@ -957,9 +957,9 @@ begin
   end;
   dec(FUpdateLock);
   if FUpdateLock=0 then begin
+    if cssChangedDuringLock in FStates then DoChange;
     if cssBoundsNeedsUpdate in FStates then UpdateBounds;
     if cssBoundsNeedsSaving in FStates then SaveBounds;
-    if cssChangedDuringLock in FStates then DoChange;
   end;
 end;
 
@@ -1101,6 +1101,7 @@ begin
   FHeight:=FRealHeight;
   InvalidateGuideLinesCache;
   Exclude(FStates,cssBoundsNeedsUpdate);
+  DoChangeProperties;
 end;
 
 procedure TControlSelection.RestoreBounds;
@@ -1120,9 +1121,8 @@ begin
       OldLeftTop := OldFormRelativeLeftTop;
       SetFormRelativeBounds(OldLeftTop.X, OldLeftTop.Y, OldWidth, OldHeight);
     end;
-    InvalidateGuideLinesCache;
   end;
-  UpdateRealBounds;
+  UpdateBounds;
   EndUpdate;
 end;
 
@@ -1245,7 +1245,7 @@ begin
       InvalidateGuideLinesCache;
     end;
   end;
-  UpdateRealBounds;
+  UpdateBounds;
   EndUpdate;
 end;
 
@@ -1274,7 +1274,6 @@ begin
     end;
     AdjustGrabbers;
     InvalidateGuideLines;
-    DoChangeProperties;
   end;
 end;
 
@@ -2973,8 +2972,8 @@ begin
     Items[i].Left:=NewLeft;
   end;
 
+  UpdateBounds;
   EndResizing(false);
-  UpdateRealBounds;
 end;
 
 procedure TControlSelection.MirrorVertical;
@@ -3002,8 +3001,8 @@ begin
     Items[i].Top:=NewTop;
   end;
 
+  UpdateBounds;
   EndResizing(false);
-  UpdateRealBounds;
 end;
 
 procedure TControlSelection.SizeComponents(