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

codetools: identifier completion: added class keywords property etc at start of variable

Browse Source 
git-svn-id: trunk@26301 -
This commit is contained in:
mattias 2010-06-27 17:41:29 +00:00
parent 6f853cc984
commit 9df7b33b05
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
components/codetools/identcompletiontool.pas
View File

@ -1529,6 +1529,7 @@ var
Node: TCodeTreeNode;
begin
Node:=Context.Node;
debugln(['TIdentCompletionTool.GatherContextKeywords ',Node.DescAsString]);
case Node.Desc of
ctnClass,ctnObject,ctnObjCCategory,ctnObjCClass,
ctnClassPrivate,ctnClassProtected,ctnClassPublic,ctnClassPublished:
@ -1576,6 +1577,21 @@ begin
Add('procedure');
Add('function');
end;
ctnVarDefinition:
if Node.Parent.Desc in [ctnClass,ctnObject,ctnObjCCategory,ctnObjCClass]
+AllClassBaseSections
then begin
Add('public');
Add('private');
Add('protected');
Add('published');
Add('procedure');
Add('function');
Add('property');
Add('constructor');
Add('destructor');
end;
end;
end;