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

codetools: identifier completion: implemented completing method declaration when cursor started name, bug #14078

Browse Source 
git-svn-id: trunk@20765 -
This commit is contained in:
mattias 2009-06-29 18:56:28 +00:00
parent 7fc09eb060
commit 2e9f5cede4
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/codetools/identcompletiontool.pas
View File

@ -1642,7 +1642,8 @@ var
}
Can:=true;
end
else if (Node.Desc=ctnProcedure) and (not NodeIsMethodBody(Node))
else if (((Node.Desc=ctnProcedure) and (not NodeIsMethodBody(Node)))
or ((Node.Desc=ctnProcedureHead) and (not NodeIsMethodBody(Node.Parent))))
and (not (CurrentIdentifierList.StartAtomBehind.Flag
in [cafEdgedBracketOpen,cafRoundBracketOpen]))
then begin