From 5966a227e8d4cab477649f124479c6c6cf3260db Mon Sep 17 00:00:00 2001
From: Juha <juha@lazarus-ide.org>
Date: Thu, 27 Jun 2024 17:45:22 +0300
Subject: [PATCH] Designer: In component rename dialog, get text from 'Script'
 property for components that have it. Issue #40995, patch by n7800.

---
 designer/askcompnamedlg.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/designer/askcompnamedlg.pas b/designer/askcompnamedlg.pas
index e829735fe0..84cfe4485f 100644
--- a/designer/askcompnamedlg.pas
+++ b/designer/askcompnamedlg.pas
@@ -89,7 +89,7 @@ var
   Lines: TObject;
 const
   StringProperties: array[0..1] of string = ('Caption', 'Text');
-  TStringsProperties: array[0..2] of string = ('Lines', 'Items', 'SQL');
+  TStringsProperties: array[0..3] of string = ('Lines', 'Items', 'SQL', 'Script');
 begin
   // first check simple string properties
   for ATextPropertyName in StringProperties do