paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-03 20:38:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: GetValuesOfCaseVariable suport for properties

Browse Source 
git-svn-id: trunk@19659 -
This commit is contained in:
mattias 2009-04-28 08:06:57 +00:00
parent 8103033b44
commit 30adabcb7b
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/codetools/identcompletiontool.pas
View File

@ -1982,6 +1982,14 @@ begin
ExprType:=FindExpressionTypeOfVariable(CaseAtom.EndPos,EndPos,Params,true); ExprType:=FindExpressionTypeOfVariable(CaseAtom.EndPos,EndPos,Params,true);
//DebugLn(['TIdentCompletionTool.GetValuesOfCaseVariable Type=',ExprTypeToString(ExprType)]); //DebugLn(['TIdentCompletionTool.GetValuesOfCaseVariable Type=',ExprTypeToString(ExprType)]);
if ExprType.Desc=xtContext then begin
// resolve aliases and properties
Params.Clear;
Params.Flags:=fdfGlobals+fdfDefaultForExpressions;
ExprType.Context:=ExprType.Context.Tool.FindBaseTypeOfNode(Params,
ExprType.Context.Node);
end;
case ExprType.Desc of case ExprType.Desc of
xtBoolean,xtByteBool,xtLongBool: xtBoolean,xtByteBool,xtLongBool:
@ -2007,6 +2015,7 @@ begin
end; end;
else else
debugln(['TIdentCompletionTool.GetValuesOfCaseVariable not an enum: ',Node.DescAsString]);
exit; exit;
end; end;
end; end;