From a1f01e19761bdfd7ae3e2911dfda79c2ec754fa7 Mon Sep 17 00:00:00 2001
From: wp_xyz <wp_xxyyzzz@gmx.net>
Date: Sat, 12 Nov 2022 00:34:43 +0100
Subject: [PATCH] LCL/Grids: Erase grid col/row drag indicator when no col/row
 swap is performed. Patch by Joeny Ang, issue #39995

---
 lcl/grids.pas | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/lcl/grids.pas b/lcl/grids.pas
index bab4d587b9..956bb0e194 100644
--- a/lcl/grids.pas
+++ b/lcl/grids.pas
@@ -6700,7 +6700,10 @@ var
   aColRow: Integer;
 begin
   if FromIndex=ToIndex then
+  begin
+    VisualChange;
     exit;
+  end;
 
   CheckIndex(IsColumn, FromIndex);
   CheckIndex(IsColumn, ToIndex);