paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-06 04:57:12 +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<>nil then begin
if NodeInFront.Desc=ctnProcedureHead then begin if NodeInFront.Desc=ctnProcedureHead then begin
// procedure head postfix modifiers // procedure head postfix modifiers
case Node.Desc of //debugln(['TIdentCompletionTool.GatherContextKeywords NodeInFront.Parent=',NodeInFront.Parent.DescAsString]);
ctnClass,ctnObject,ctnObjCCategory,ctnObjCClass, if NodeInFront.Parent.Desc=ctnProcedure then begin
ctnClassHelper, ctnRecordHelper, ctnTypeHelper, //debugln(['TIdentCompletionTool.GatherContextKeywords NodeInFront.Parent.Parent=',NodeInFront.Parent.Parent.DescAsString]);
ctnClassPrivate,ctnClassProtected,ctnClassPublic,ctnClassPublished: case NodeInFront.Parent.Parent.Desc of
AddMethodSpecifiers; ctnClass,ctnObject,ctnObjCCategory,ctnObjCClass,
else ctnClassHelper, ctnRecordHelper, ctnTypeHelper,
//debugln(['TIdentCompletionTool.GatherContextKeywords ',NodeInFront.Parent.DescAsString]); ctnClassPrivate,ctnClassProtected,ctnClassPublic,ctnClassPublished:
if NodeInFront.Parent.Desc=ctnProcedure then AddMethodSpecifiers;
AddProcSpecifiers else
else if NodeInFront.Parent.Desc=ctnProcedureType then AddProcSpecifiers;
AddProcTypeSpecifiers; end;
end; end else if NodeInFront.Parent.Desc=ctnProcedureType then
AddProcTypeSpecifiers;
end; end;
end; end;
except except