IDE: designer: fixed store selection bounds for mediator, patch from Anton

git-svn-id: branches/fixes_1_8@56282 -

designer/controlselection.pp

@@ -759,6 +759,7 @@ begin
       FOldWidth:=r.Right-r.Left;
       FOldHeight:=r.Bottom-r.Top;
     end;
+    FOldFormRelativeLeftTop:=Owner.Mediator.GetComponentOriginOnForm(TComponent(FPersistent));
   end else begin
     GetComponentBounds(TComponent(FPersistent),
                        FOldLeft,FOldTop,FOldWidth,FOldHeight);