paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-18 20:56:02 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Fix bug #29465: Correct declaration of array properties

Browse Source 
git-svn-id: trunk@33061 -
This commit is contained in:
michael 2016-02-06 14:45:25 +00:00
parent dd00b26c09
commit c5a44f7487
1 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
utils/fpdoc/dw_html.pp
View File

@ -3236,6 +3236,8 @@ begin
AppendKw(CodeEl, 'property '); AppendKw(CodeEl, 'property ');
AppendHyperlink(CodeEl, Member); AppendHyperlink(CodeEl, Member);
t:=TPasProperty(Member).ResolvedType; t:=TPasProperty(Member).ResolvedType;
if Assigned(TPasProperty(Member).Args) and (TPasProperty(Member).Args.Count>0) then
AppendText(CodeEl, ' []');
if Assigned(T) then if Assigned(T) then
begin begin
AppendSym(CodeEl, ': '); AppendSym(CodeEl, ': ');
@ -3674,12 +3676,31 @@ var
var var
NeedBreak: Boolean; NeedBreak: Boolean;
T : TPasType; T : TPasType;
A : TPasArgument;
I : integer;
begin begin
AppendKw(CodeEl, 'property '); AppendKw(CodeEl, 'property ');
AppendHyperlink(CodeEl, Element.Parent); AppendHyperlink(CodeEl, Element.Parent);
AppendSym(CodeEl, '.'); AppendSym(CodeEl, '.');
AppendText(CodeEl, Element.Name); AppendText(CodeEl, Element.Name);
if Assigned(Element.Args) and (Element.Args.Count>0) then
begin
AppendSym(CodeEl,'[');
For I:=0 to Element.Args.Count-1 do
begin
If I>0 then
AppendSym(CodeEl,',');
A:=TPasArgument(Element.Args[i]);
AppendText(CodeEl, A.Name);
AppendSym(CodeEl,': ');
if Assigned(A.ArgType) then
AppendText(CodeEl,A.ArgType.Name)
else
AppendText(CodeEl,'<Unknown>');
end;
AppendSym(CodeEl,']');
end;
T:=Element.ResolvedType; T:=Element.ResolvedType;
if Assigned(T) then if Assigned(T) then
begin begin