From bd359036f630cd2213d032b3a6ff705b5387e96c Mon Sep 17 00:00:00 2001 From: mattias Date: Tue, 29 Jun 2010 16:51:56 +0000 Subject: [PATCH] IDE: codeexplorer: rename property git-svn-id: trunk@26329 - --- ide/codeexplorer.pas | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/ide/codeexplorer.pas b/ide/codeexplorer.pas index ab328ec101..c5b4b09aed 100644 --- a/ide/codeexplorer.pas +++ b/ide/codeexplorer.pas @@ -572,7 +572,7 @@ begin if CurNode.StartPos>0 then begin case CurrentPage of cepCode: - if (CurNode.Desc in AllIdentifierDefinitions+[ctnProcedure]) + if (CurNode.Desc in AllIdentifierDefinitions+[ctnProcedure,ctnProperty]) and (CurItem.GetNextMultiSelected=nil) then CanRename:=true; cepDirectives: @@ -1921,6 +1921,10 @@ begin and (NewNode.FirstChild.Desc=ctnProcedureHead) and (NewNode.FirstChild.StartPos>p) then p:=NewNode.FirstChild.StartPos; + if NewNode.Desc=ctnProperty then begin + if ACodeTool.MoveCursorToPropName(NewNode) then + p:=ACodeTool.CurPos.StartPos; + end; end; if not ACodeTool.CleanPosToCaretAndTopLine(p,Caret,NewTopLine) then exit;