From 8191d53f6c98f24c8753f32e179572a05c111572 Mon Sep 17 00:00:00 2001
From: michl <michl@lazarus-ide.org>
Date: Fri, 9 Apr 2021 19:10:40 +0000
Subject: [PATCH] DockedFormEditor: AnchorDesigner: If control is clicked and
 border sized, change BorderSpacing.Around

git-svn-id: trunk@64945 -
---
 components/dockedformeditor/source/dockedanchordesigner.pas | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/components/dockedformeditor/source/dockedanchordesigner.pas b/components/dockedformeditor/source/dockedanchordesigner.pas
index 38ab490665..4a3351f0f9 100644
--- a/components/dockedformeditor/source/dockedanchordesigner.pas
+++ b/components/dockedformeditor/source/dockedanchordesigner.pas
@@ -759,6 +759,12 @@ begin
   LMouseOffset := MouseOffset;
   LMouseOffset.x := LMouseOffset.x div DockedOptions.MouseBorderFactor;
   LMouseOffset.y := LMouseOffset.y div DockedOptions.MouseBorderFactor;
+  // if control is clicked, change BorderSpacing.Around (x = y!)
+  if not State.IsAnchoring then
+  begin
+    LMouseOffset.x := (LMouseOffset.x + LMouseOffset.y) div 2;
+    LMouseOffset.y := LMouseOffset.x;
+  end;
 
   if not DockedOptions.TreatBorder and not State.IsAnchoring then
   begin