From 6e1f74fdb93293265f32a753f58fb261ea9c81aa Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Tue, 14 Apr 2015 21:31:24 +0000
Subject: [PATCH] IDE: designer: fixed drag move, drag move, bug #27854

git-svn-id: trunk@48756 -
---
 designer/designer.pp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/designer/designer.pp b/designer/designer.pp
index 19797bdbcc..388393a237 100644
--- a/designer/designer.pp
+++ b/designer/designer.pp
@@ -2595,7 +2595,7 @@ begin
         begin
           if not (dfHasSized in FFlags) then
           begin
-            ControlSelection.SaveBounds;
+            ControlSelection.SaveBounds(false);
             Include(FFlags, dfHasSized);
           end;
           // skip snapping when Alt is pressed
@@ -2626,7 +2626,7 @@ begin
         begin // move selection
           if not (dfHasSized in FFlags) then
           begin
-            ControlSelection.SaveBounds;
+            ControlSelection.SaveBounds(false);
             Include(FFlags, dfHasSized);
           end;
           //debugln('TDesigner.MouseMoveOnControl Move MouseDownComponent=',dbgsName(MouseDownComponent),' OldMouseMovePos=',dbgs(OldMouseMovePos),' MouseMovePos',dbgs(LastMouseMovePos),' MouseDownPos=',dbgs(MouseDownPos));