paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-04 04:18:22 +01:00
Code Issues Packages Projects Releases Wiki Activity

codetools: identifier completion: method specifiers

Browse Source 
git-svn-id: trunk@52647 -
This commit is contained in:
mattias 2016-07-07 23:34:45 +00:00
parent ff5f987936
commit 54af11a069
1 changed files with 13 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
components/codetools/identcompletiontool.pas
View File

@ -1950,18 +1950,19 @@ begin
if NodeInFront<>nil then begin
if NodeInFront.Desc=ctnProcedureHead then begin
// procedure head postfix modifiers
case Node.Desc of
ctnClass,ctnObject,ctnObjCCategory,ctnObjCClass,
ctnClassHelper, ctnRecordHelper, ctnTypeHelper,
ctnClassPrivate,ctnClassProtected,ctnClassPublic,ctnClassPublished:
AddMethodSpecifiers;
else
//debugln(['TIdentCompletionTool.GatherContextKeywords ',NodeInFront.Parent.DescAsString]);
if NodeInFront.Parent.Desc=ctnProcedure then
AddProcSpecifiers
else if NodeInFront.Parent.Desc=ctnProcedureType then
AddProcTypeSpecifiers;
end;
//debugln(['TIdentCompletionTool.GatherContextKeywords NodeInFront.Parent=',NodeInFront.Parent.DescAsString]);
if NodeInFront.Parent.Desc=ctnProcedure then begin
//debugln(['TIdentCompletionTool.GatherContextKeywords NodeInFront.Parent.Parent=',NodeInFront.Parent.Parent.DescAsString]);
case NodeInFront.Parent.Parent.Desc of
ctnClass,ctnObject,ctnObjCCategory,ctnObjCClass,
ctnClassHelper, ctnRecordHelper, ctnTypeHelper,
ctnClassPrivate,ctnClassProtected,ctnClassPublic,ctnClassPublished:
AddMethodSpecifiers;
else
AddProcSpecifiers;
end;
end else if NodeInFront.Parent.Desc=ctnProcedureType then
AddProcTypeSpecifiers;
end;
end;
except