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

codetools: class completion: class properties, bug #16812

Browse Source 
git-svn-id: trunk@26330 -
This commit is contained in:
mattias 2010-06-29 17:04:36 +00:00
parent bd359036f6
commit 8cbbc108e0
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/codetools/codecompletiontool.pas
View File

@ -5150,6 +5150,7 @@ var
var AccessParam, AccessParamPrefix, CleanAccessFunc, AccessFunc,
CleanParamList, ParamList, PropType, ProcBody, VariableName: string;
IsClassProp: boolean;
InsertPos: integer;
BeautifyCodeOpts: TBeautifyCodeOptions;
@ -5166,7 +5167,11 @@ var AccessParam, AccessParamPrefix, CleanAccessFunc, AccessFunc,
begin
MoveCursorToNodeStart(PropNode);
ReadNextAtom; // read 'property'
if UpAtomIs('CLASS') then ReadNextAtom;
IsClassProp:=false;
if UpAtomIs('CLASS') then begin
IsClassProp:=true;
ReadNextAtom;
end;
ReadNextAtom; // read name
Parts[ppName]:=CurPos;
ReadNextAtom;
@ -5423,6 +5428,8 @@ var AccessParam, AccessParamPrefix, CleanAccessFunc, AccessFunc,
+'(AIndex:integer):'+PropType+';';
end;
end;
if IsClassProp then
AccessFunc:='class '+AccessFunc;
// add new Insert Node
if CompleteProperties then
AddClassInsertion(CleanAccessFunc,AccessFunc,AccessParam,
@ -5577,6 +5584,8 @@ var AccessParam, AccessParamPrefix, CleanAccessFunc, AccessFunc,
end;
end;
// add new Insert Node
if IsClassProp then
AccessFunc:='class '+AccessFunc;
if CompleteProperties then
AddClassInsertion(CleanAccessFunc,AccessFunc,AccessParam,
ncpPrivateProcs,PropNode,ProcBody);
@ -5615,6 +5624,8 @@ var AccessParam, AccessParamPrefix, CleanAccessFunc, AccessFunc,
// add insert demand for function
// build function code
AccessFunc:='function '+AccessParam+':boolean;';
if IsClassProp then
AccessFunc:='class '+AccessFunc;
CleanAccessFunc:=CleanAccessFunc+';';
// add new Insert Node
if CompleteProperties then