Changeset 373

Timestamp:

Apr 8, 2016, 8:34:19 PM (9 years ago)

Author:

RBRi

Message:

ignore child nodes before the first root node like the original viewer

File:

• trunk/NewView/MainForm.pas (modified) (1 diff)

trunk/NewView/MainForm.pas

@@ -5822 +5822 @@
         begin
           // subnodes
-          assert( Node <> nil, 'No level 1 topic for subnodes!' );
-          AddChildNodes( HelpFile,
-                         Node,
-                         Topic.ContentsLevel,
-                         TopicIndex );
-          Node := nil;
+          // ignore child nodes before the first root node
+          // the org viewer does the same
+          if Node = nil then
+          begin
+            inc( TopicIndex );
+          end
+          else
+          begin
+            AddChildNodes( HelpFile, Node, Topic.ContentsLevel, TopicIndex );
+            Node := nil;
+          end;
         end;
       end