Changeset 411 for trunk/NewView/MainForm.pas

Timestamp:

Feb 12, 2019, 9:03:30 PM (6 years ago)

Author:

RBRi

Message:

% ignore child nodes before the first root node because the org viewer does the same

File:

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

trunk/NewView/MainForm.pas

@@ -5854 +5854 @@
         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