administrator/pascalabcnet
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

fix pascalabcnet/pascalabcnetide#199

Browse source
This commit is contained in:
Ivan Bondarev 2020-12-31 12:34:12 +01:00
parent 9ae9e4fd9c
commit 2fce3fcd34
2 changed files with 23 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
ParserTools/ParserTools/DefaultLanguageInformation.cs
View file

@ -1628,8 +1628,17 @@ namespace PascalABCCompiler.Parsers
Type t = (scope.Type as ICompiledTypeScope).CompiledType;
inst_type = get_type_instance(t,scope.GenericArgs);
}
sb.Append("property "+ GetShortTypeName(scope.CompiledProperty.DeclaringType) +"."+ scope.CompiledProperty.Name + get_indexer_for_prop(scope)+ ": "+(inst_type != null?inst_type:GetSimpleDescription(scope.Type)));
if (acc != null)
sb.Append("property "+ GetShortTypeName(scope.CompiledProperty.DeclaringType) +"."+ scope.CompiledProperty.Name + get_indexer_for_prop(scope));
if (inst_type == null)
{
if (scope.Type is ICompiledTypeScope)
sb.Append(": " + GetFullTypeName((scope.Type as ICompiledTypeScope).CompiledType, false));
else
sb.Append(": " + GetSimpleDescription(scope.Type));
}
else
sb.Append(": " + inst_type);
if (acc != null)
//if (acc.IsStatic) sb.Append("; static");
if (acc.IsVirtual) sb.Append("; virtual");
else if (acc.IsAbstract) sb.Append("; abstract");

12
TestSuite/intellisense_tests/property6.pas Normal file
View file

@ -0,0 +1,12 @@
uses System.Windows.Media.Animation;
{$reference PresentationFramework.dll}
{$reference PresentationCore.dll}
{$reference WindowsBase.dll}
{$apptype windows}
begin
var ac: AnimationClock;
ac.CurrentTime{@property Clock.CurrentTime: System.Nullable<TimeSpan>; readonly;@};
end.