paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 17:39:22 +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 if CurNode.StartPos>0 then begin
case CurrentPage of case CurrentPage of
cepCode: cepCode:
if (CurNode.Desc in AllIdentifierDefinitions+[ctnProcedure]) if (CurNode.Desc in AllIdentifierDefinitions+[ctnProcedure,ctnProperty])
and (CurItem.GetNextMultiSelected=nil) then and (CurItem.GetNextMultiSelected=nil) then
CanRename:=true; CanRename:=true;
cepDirectives: cepDirectives:
@ -1921,6 +1921,10 @@ begin
and (NewNode.FirstChild.Desc=ctnProcedureHead) and (NewNode.FirstChild.Desc=ctnProcedureHead)
and (NewNode.FirstChild.StartPos>p) then and (NewNode.FirstChild.StartPos>p) then
p:=NewNode.FirstChild.StartPos; p:=NewNode.FirstChild.StartPos;
if NewNode.Desc=ctnProperty then begin
if ACodeTool.MoveCursorToPropName(NewNode) then
p:=ACodeTool.CurPos.StartPos;
end;
end; end;
if not ACodeTool.CleanPosToCaretAndTopLine(p,Caret,NewTopLine) if not ACodeTool.CleanPosToCaretAndTopLine(p,Caret,NewTopLine)
then exit; then exit;