From b049772be5c7bba4a75b8c49d4faf95926c8f73a Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sun, 1 Feb 2004 00:02:29 +0000
Subject: [PATCH] fixed checking case insensitive renaming of published vars

git-svn-id: trunk@5127 -
---
 components/codetools/stdcodetools.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/components/codetools/stdcodetools.pas b/components/codetools/stdcodetools.pas
index e351e94178..a44d4fdae9 100644
--- a/components/codetools/stdcodetools.pas
+++ b/components/codetools/stdcodetools.pas
@@ -2701,7 +2701,7 @@ begin
     TypeNode:=FindTypeNodeOfDefinition(VarNode);
     MoveCursorToNodeStart(TypeNode);
     ReadNextAtom;
-    if AtomIs(VarType) then begin
+    if UpAtomIs(UpperCaseStr(VarType)) then begin
       // rename the identifier
       MoveCursorToNodeStart(VarNode);
       ReadNextAtom;