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

codetools: fixed class completion for properties with constant index

Browse Source 
git-svn-id: trunk@41864 -
This commit is contained in:
mattias 2013-06-24 12:06:05 +00:00
parent 039b3e12c9
commit 7d34128f78
1 changed files with 22 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
components/codetools/codecompletiontool.pas
View File

@ -6312,7 +6312,7 @@ type
var
Parts: array[TPropPart] of TAtomPosition;
PartIsAtom: array[TPropPart] of boolean;
PartIsAtom: array[TPropPart] of boolean; // is single identifier
procedure ReadSimpleSpec(SpecWord, SpecParam: TPropPart);
// allowed after simple specifier like 'read':
@ -6428,6 +6428,8 @@ var
end;
procedure ReadIndexSpecifier;
var
Last: TAtomPosition;
begin
if UpAtomIs('INDEX') then begin
if Parts[ppIndexWord].StartPos>=1 then
@ -6439,7 +6441,8 @@ var
RaiseExceptionFmt(ctsIndexParameterExpectedButAtomFound,[GetAtom]);
Parts[ppIndex].StartPos:=CurPos.StartPos;
ReadConstant(true,false,[]);
Parts[ppIndex].EndPos:=LastAtoms.GetValueAt(0).EndPos;
Last:=LastAtoms.GetValueAt(0);
Parts[ppIndex].EndPos:=Last.EndPos;
PartIsAtom[ppIndex]:=false;
end;
end;
@ -6508,6 +6511,21 @@ var
RaiseExceptionFmt(ctsStrExpectedButAtomFound,[';',GetAtom]);
end;
end;
procedure ResolveIndexType;
var
ExprType: TExpressionType;
Params: TFindDeclarationParams;
begin
Params:=TFindDeclarationParams.Create;
try
Params.Flags:=fdfDefaultForExpressions;
Params.ContextNode:=PropNode;
IndexType:=FindTermTypeAsString(Parts[ppIndex],Params,ExprType);
finally
Params.Free;
end;
end;
procedure CompleteReadSpecifier;
var
@ -6923,6 +6941,8 @@ begin
// complete property
BeautifyCodeOpts:=ASourceChangeCache.BeautifyCodeOptions;
if CodeCompleteClassNode.Desc <> ctnDispinterface then begin
if Parts[ppIndex].StartPos>0 then
ResolveIndexType;
CompleteReadSpecifier;
CompleteWriteSpecifier;
CompleteStoredSpecifier;