* make interfaces clickable.

git-svn-id: trunk@15796 -
This commit is contained in:
marco 2010-08-13 12:29:27 +00:00
parent 0ca9fb281d
commit 2518a87deb

View File

@ -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, ')');