paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-08 02:55:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: codeexplorer: rename property

Browse Source 
git-svn-id: trunk@26329 -
This commit is contained in:
mattias 2010-06-29 16:51:56 +00:00
parent dc86a88129
commit bd359036f6
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/codeexplorer.pas
View File

@ -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;