paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 15:29:14 +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

10
utils/fpdoc/dw_html.pp
View File

@ -2819,6 +2819,7 @@ var
CurVisibility: TPasMemberVisibility; CurVisibility: TPasMemberVisibility;
i: Integer; i: Integer;
s: String; s: String;
ThisInterface,
ThisClass: TPasClassType; ThisClass: TPasClassType;
HaveSeenTObject: Boolean; HaveSeenTObject: Boolean;
begin begin
@ -2962,6 +2963,15 @@ var
TDEl['align'] := 'center'; TDEl['align'] := 'center';
CodeEl := CreateCode(CreatePara(TDEl)); CodeEl := CreateCode(CreatePara(TDEl));
AppendHyperlink(CodeEl, ThisClass); 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); AppendShortDescrCell(TREl, ThisClass);
if HaveSeenTObject or (CompareText(ThisClass.Name, 'TObject') = 0) then if HaveSeenTObject or (CompareText(ThisClass.Name, 'TObject') = 0) then
HaveSeenTObject := True HaveSeenTObject := True