* Take into account skipped

git-svn-id: trunk@42785 -

utils/fpdoc/dw_html.pp

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