From 1ce8d00ce0f8da0afff7b341a361f0993f33e810 Mon Sep 17 00:00:00 2001
From: "Dmitry D. Chernov" <blackdoomer@yandex.ru>
Date: Sun, 3 Sep 2023 10:40:09 +1000
Subject: [PATCH] Place single object near the source one when pasting

---
 src/editor/f_main.pas | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/src/editor/f_main.pas b/src/editor/f_main.pas
index eb7dfdd..d869c78 100644
--- a/src/editor/f_main.pas
+++ b/src/editor/f_main.pas
@@ -5836,8 +5836,16 @@ begin
   h := High(CopyBuffer);
   RemoveSelectFromObjects();
 
-  xadj := -pmin.X - Floor((MapOffset.X - 32) / DotStep) * DotStep;
-  yadj := -pmin.Y - Floor((MapOffset.Y - 32) / DotStep) * DotStep;
+  if h > 0 then
+  begin
+    xadj := -pmin.X - Floor((MapOffset.X - 32) / DotStep) * DotStep;
+    yadj := -pmin.Y - Floor((MapOffset.Y - 32) / DotStep) * DotStep;
+  end
+  else
+  begin
+    xadj := DotStep;
+    yadj := DotStep;
+  end;
 
   for a := 0 to h do
     with CopyBuffer[a] do
-- 
2.29.2