Преглед изворни кода

* make interfaces clickable.

git-svn-id: trunk@15796 -
marco пре 15 година
родитељ
комит
2518a87deb
1 измењених фајлова са 1 додато и 1 уклоњено
  1. 1 1
      utils/fpdoc/dw_html.pp

+ 1 - 1
utils/fpdoc/dw_html.pp

@@ -2852,7 +2852,7 @@ var
           for i:=0 to AClass.interfaces.count-1 do
            begin
              AppendSym(CodeEl, ',');
-             AppendText(CodeEl,TPasClassType(AClass.Interfaces[i]).Name);
+             AppendHyperlink(CodeEl,TPasClassType(AClass.Interfaces[i]));
            end; 
         end;
       AppendSym(CodeEl, ')');