paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 00:09:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* print also interfaces in inheritance section, fixes 15774

Browse Source 
git-svn-id: trunk@15875 -
This commit is contained in:
marco 2010-08-22 14:46:03 +00:00
parent aa1b3a6542
commit 14247ef2db
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
utils/fpdoc/dw_html.pp
View File

@ -2233,7 +2233,7 @@ begin
end;
end;
procedure THTMLWriter.CreateIndexPage(L : TStringList);
procedure THTMLWriter.CreateIndexPage(L : TStringList);
Var
Lists : Array['A'..'Z'] of TStringList;
@ -2819,6 +2819,7 @@ var
CurVisibility: TPasMemberVisibility;
i: Integer;
s: String;
ThisInterface,
ThisClass: TPasClassType;
HaveSeenTObject: Boolean;
begin
@ -2853,7 +2854,7 @@ var
begin
for i:=0 to AClass.interfaces.count-1 do
begin
AppendSym(CodeEl, ',');
AppendSym(CodeEl, ', ');
AppendHyperlink(CodeEl,TPasClassType(AClass.Interfaces[i]));
end;
end;
@ -2962,6 +2963,15 @@ var
TDEl['align'] := 'center';
CodeEl := CreateCode(CreatePara(TDEl));
AppendHyperlink(CodeEl, ThisClass);
if ThisClass.Interfaces.count>0 then
begin
for i:=0 to ThisClass.interfaces.count-1 do
begin
ThisInterface:=TPasClassType(ThisClass.Interfaces[i]);
AppendText(CodeEl,',');
AppendHyperlink(CodeEl, ThisInterface);
end;
end;
AppendShortDescrCell(TREl, ThisClass);
if HaveSeenTObject or (CompareText(ThisClass.Name, 'TObject') = 0) then
HaveSeenTObject := True