瀏覽代碼

* Fix alias typed documentation

Michaël Van Canneyt 2 年之前
父節點
當前提交
98404eab49
共有 1 個文件被更改,包括 6 次插入1 次删除
  1. 6 1
      utils/fpdoc/dw_basehtml.pp

+ 6 - 1
utils/fpdoc/dw_basehtml.pp

@@ -1040,7 +1040,12 @@ begin
   else if Element is TPasEnumValue then
     s := ResolveLinkID(Element.Parent.PathName)
   else if Element is TPasAliasType then
-    s := ResolveLinkID(TPasAliasType(Element).DestType.PathName)
+    begin
+    s := ResolveLinkID(TPasAliasType(Element).DestType.PathName);
+    // See if we find a page for the type alias ?
+    if (S='') then
+      s := ResolveLinkID(TPasAliasType(Element).Name)
+    end
   else
     s := ResolveLinkID(Element.PathName);