1 files changed, 27 insertions, 1 deletions
diff --git a/src/frm_main.pas b/src/frm_main.pas
index 7851a5a0..6af1a825 100644
--- a/src/frm_main.pas
+++ b/src/frm_main.pas
@@ -38,6 +38,7 @@ type
     procedure   miFileOpenClicked(Sender: TObject);
     procedure   miHelpProdInfoClicked(Sender: TObject);
     procedure   miHelpAboutFPGui(Sender: TObject);
+    procedure   miDebugHeader(Sender: TObject);
     procedure   SetHelpFile(const AValue: TfpgString);
     procedure   btnShowIndex(Sender: TObject);
     procedure   FileOpen;
@@ -94,6 +95,27 @@ begin
   TfpgMessageDialog.AboutFPGui;
 end;
 
+procedure TMainForm.miDebugHeader(Sender: TObject);
+var
+  f: THelpFile;
+  i: integer;
+begin
+  Memo1.Lines.Clear;
+  f := THelpFile(Files[0]);
+  with Memo1.Lines do
+  begin
+    Add('Filename: ' + f.Filename);
+    Add('----------');
+    Add('Title: ' + f.Title);
+    Add('DictionaryCount:' + IntToStr(f.DictionaryCount));
+    Add('TopicCount: ' + IntToStr(f.TopicCount));
+    Add(' ');
+    Add('Dictionary contents:');
+    for i := 0 to f.DictionaryCount-1 do
+      Add('[' + IntToStr(i) + '] = <' + f.DictionaryWords[i] + '>');
+  end;
+end;
+
 procedure TMainForm.SetHelpFile(const AValue: TfpgString);
 begin
   if FHelpFile = AValue then
@@ -182,7 +204,7 @@ var
   Node: TfpgTreeNode;
   Topic: TTopic;
 begin
-  ProfileEvent( 'Load contents outline' );
+  ProfileEvent( 'Load contents treeview' );
 
   tvContents.RootNode.Clear;
 
@@ -195,6 +217,7 @@ begin
     HelpFile:= THelpFile(Files[ FileIndex ]);
     ProfileEvent( 'File ' + IntToStr( FileIndex ) );
     TopicIndex:= 0;
+    ProfileEvent('TopicCount=' + IntToStr(HelpFile.TopicCount));
     while TopicIndex < HelpFile.TopicCount do
     begin
       Topic := HelpFile.Topics[ TopicIndex ];
@@ -202,6 +225,7 @@ begin
       begin
         if Topic.ContentsLevel = 1 then
         begin
+          ProfileEvent('  > Topic (level 1): ' + Topic.Title);
           Node := tvContents.RootNode.AppendText(Topic.Title);
           Node.Data := Topic;
           inc( TopicIndex );
@@ -428,6 +452,8 @@ begin
     AddMenuItem('Contents...', '', nil);
     AddMenuItem('Help using help', '', nil);
     AddMenuItem('-', '', nil);
+    AddMenuItem('Debug: Header', '', @miDebugHeader);
+    AddMenuItem('-', '', nil);
     AddMenuItem('About fpGUI Toolkit', '', @miHelpAboutFPGui);
     AddMenuItem('Product Information...', '', @miHelpProdInfoClicked);
   end;