paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-06 03:33:00 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Take into account skipped

Browse Source 
git-svn-id: trunk@42785 -
This commit is contained in:
michael 2019-08-24 09:50:07 +00:00
parent b38596b925
commit 3acca85597
1 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
utils/fpdoc/dw_html.pp
View File

@ -2657,17 +2657,22 @@ Procedure THTMLWriter.AddElementsFromList(L : TStrings; List : TFPList; UsePathN
Var Var
I : Integer; I : Integer;
El : TPasElement; El : TPasElement;
N : TDocNode;
begin begin
For I:=0 to List.Count-1 do For I:=0 to List.Count-1 do
begin begin
El:=TPasElement(List[I]); El:=TPasElement(List[I]);
if UsePathName then N:=Engine.FindDocNode(El);
L.AddObject(El.PathName,El) if (N=Nil) or (not N.IsSkipped) then
else begin
L.AddObject(El.Name,El); if UsePathName then
If el is TPasEnumType then L.AddObject(El.PathName,El)
AddElementsFromList(L,TPasEnumType(el).Values); else
L.AddObject(El.Name,El);
If el is TPasEnumType then
AddElementsFromList(L,TPasEnumType(el).Values);
end;
end; end;
end; end;