From ead28bdcc6684bf100c4d14b46f34a1c1e4195b7 Mon Sep 17 00:00:00 2001
From: rich2014 <rich2014.git@outlook.com>
Date: Thu, 27 Jul 2023 21:36:56 +0800
Subject: [PATCH] Designer: Cursor Cache Old Pos comparison adjusted (Similar
 to ded870b)

---
 designer/designer.pp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/designer/designer.pp b/designer/designer.pp
index 7158c65f49..c89e8399c4 100644
--- a/designer/designer.pp
+++ b/designer/designer.pp
@@ -2642,8 +2642,6 @@ begin
 
   OldMouseMovePos := LastMouseMovePos;
   LastMouseMovePos := GetFormRelativeMousePosition(Form);
-  if (OldMouseMovePos.X = LastMouseMovePos.X) and (OldMouseMovePos.Y = LastMouseMovePos.Y) then
-    Exit;
 
   MouseMoveComponent := MouseDownComponent;
   if MouseMoveComponent = nil then
@@ -2684,6 +2682,9 @@ begin
     Exit;
   end;
 
+  if (OldMouseMovePos.X = LastMouseMovePos.X) and (OldMouseMovePos.Y = LastMouseMovePos.Y) then
+    Exit;
+
   if (Selection.SelectionForm = nil) or (Selection.SelectionForm = Form) then
   begin
     if Button = mbLeft then // left button pressed