paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 13:19:34 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Added enumerated values to index page, as they are known identifiers

Browse Source 
git-svn-id: trunk@11162 -
This commit is contained in:
michael 2008-06-01 17:38:41 +00:00
parent 67fe053e3c
commit 7c4a1ebfe1
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
utils/fpdoc/dw_html.pp
View File

@ -1464,7 +1464,9 @@ begin
end;
end;
end;
end else
end else if Element is TPasEnumValue then
s := ResolveLinkID(Element.Parent.PathName)
else
s := ResolveLinkID(Element.PathName);
if Length(s) > 0 then
@ -2261,6 +2263,8 @@ procedure THTMLWriter.AddModuleIdentifiers(AModule : TPasModule; L : TStrings);
begin
El:=TPasElement(List[I]);
L.AddObject(El.Name,El);
If el is TPasEnumType then
AddElementsFromList(L,TPasEnumType(el).Values);
end;
end;