From 5671244fe7dd6bfc5a5ae21c9de1ff34d07f8455 Mon Sep 17 00:00:00 2001
From: n7800 <14154601-n7800@users.noreply.gitlab.com>
Date: Sun, 19 Jan 2025 13:03:25 +0500
Subject: [PATCH] IDE/TabOrder: Update the list when a component is renamed

---
 designer/taborderdlg.pas | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/designer/taborderdlg.pas b/designer/taborderdlg.pas
index 14a6e636fa..ff238ea738 100644
--- a/designer/taborderdlg.pas
+++ b/designer/taborderdlg.pas
@@ -73,6 +73,7 @@ type
     procedure PersistentDeleting({%H-}APersistent: TPersistent);
     procedure DeletePersistent(var {%H-}APersistent: TPersistent);
     procedure SetSelection(const ASelection: TPersistentSelectionList);
+    procedure ComponentRenamed({%H-}AComponent: TComponent);
   end;
 
   { TTabOrderPropEditor }
@@ -140,6 +141,7 @@ begin
   GlobalDesignHook.AddHandlerPersistentDeleting(@PersistentDeleting);
   GlobalDesignHook.AddHandlerDeletePersistent(@DeletePersistent);
   GlobalDesignHook.AddHandlerSetSelection(@SetSelection);
+  GlobalDesignHook.AddHandlerComponentRenamed(@ComponentRenamed);
 
   IDEImages.AssignImage(ArrowDown, 'arrow_down');
   IDEImages.AssignImage(ArrowUp, 'arrow_up');
@@ -422,6 +424,11 @@ begin
   FUpdating := false;
 end;
 
+procedure TTabOrderDialog.ComponentRenamed(AComponent: TComponent);
+begin
+  SomethingChanged;
+end;
+
 procedure TTabOrderDialog.PersistentAdded(APersistent: TPersistent; Select: boolean);
 begin
   SomethingChanged;