diff --git a/utils/fpdoc/dw_markdown.pp b/utils/fpdoc/dw_markdown.pp index 00dce4a9fa..15358fa9e9 100644 --- a/utils/fpdoc/dw_markdown.pp +++ b/utils/fpdoc/dw_markdown.pp @@ -1473,12 +1473,19 @@ begin if aEL.ExternalName<>'' then aLine:=aLine+' external name '''+ael.ExternalName+''''; if Assigned(aEL.AncestorType) then + if (aEL.AncestorType is TPasSpecializeType) then begin - aLine:=aLine+' ('+ael.AncestorType.Name; - if Assigned(ael.Interfaces) and (aEl.Interfaces.Count>0) then - For I:=0 to aEl.Interfaces.Count-1 do - aLine:=aLine+', '+TPasElement(aEl.Interfaces[i]).Name; - aLine:=aLine+')'; + aLine:=aLine+'(specialize '; + aLine:=aLine+ TPasSpecializeType(aEL.AncestorType).DestType.Name; + aLine:=aLine+ '<,>)'; + end + else + begin + aLine:=aLine+' ('+ael.AncestorType.Name; + if Assigned(ael.Interfaces) and (aEl.Interfaces.Count>0) then + For I:=0 to aEl.Interfaces.Count-1 do + aLine:=aLine+', '+TPasElement(aEl.Interfaces[i]).Name; + aLine:=aLine+')'; end; if Assigned(aEl.GUIDExpr) then aLine:=aLine+' ['+aEl.GUIDExpr.GetDeclaration(True)+']'; diff --git a/utils/fpdoc/dwriter.pp b/utils/fpdoc/dwriter.pp index 19f48dc3b4..e22d1d7ba4 100644 --- a/utils/fpdoc/dwriter.pp +++ b/utils/fpdoc/dwriter.pp @@ -1621,7 +1621,7 @@ end; procedure TFPDocWriter.OutputResults(); begin - DoLog('Documentation process finished.'); + DoLog('Package: %s - Documentation process finished.', [FPackage.Name]); end; function TFPDocWriter.ConvertExtShort(AContext: TPasElement;