anchor.diff:    SysUtils, Classes, fpg_base, fpg_main, fpg_form, fpg_panel, fpg_tab,
     fpg_tree, fpg_splitter, fpg_menu, fpg_button, fpg_listbox,
     fpg_label, fpg_edit, fpg_radiobutton, fpg_progressbar, fpg_mru,
  -  HelpFile, RichTextView;
  +  HelpFile, RichTextView, HelpTopic;
   
   type
  +  // Used by Index ListBox. We can generate a custom Index if the help file
  +  // doesn't contain it's own index entries.
  +  TListType = ( ltContents, ltIndex );
   
     TMainForm = class(TfpgForm)
     private
  
positive.code: procedure TMainForm.miDebugHex(Sender: TObject);
  begin
    Debug := not Debug;
    DisplayTopic;
  end;
  
  procedure TMainForm.miFileSaveTopicAsIPF(Sender: TObject);
  
negative.code:     InIndexSearch: boolean; // true while searching index
      IndexLoaded: boolean;
      ContentsLoaded: boolean;
      DisplayedIndex: TStringList; // duplicate of index listbox, for fast case insensitive searching
  
  
      procedure   MainFormShow(Sender: TObject);
      procedure   MainFormDestroy(Sender: TObject);
  