anchor.diff:  implementation
   
   uses
  -  fpg_dialogs, fpg_constants;
  +  fpg_dialogs, fpg_constants, nvUtilities, HelpFile;
   
   
   {@VFD_NEWFORM_IMPL}
  
positive.code: end;
  
  procedure TMainForm.miFileOpenClicked(Sender: TObject);
  var
    dlg: TfpgFileDialog;
  begin
    dlg := TfpgFileDialog.Create(nil);
    try
      dlg.Filter := 'INF Help (.inf)|*.inf|HLP Help (.hlp)|*.hlp';
      // and a catch all filter
      dlg.Filter := dlg.Filter + '|(' + rsAllFiles + ' (*)|*';
  
      if dlg.RunOpenFile then
        HelpFile := dlg.FileName;
    finally
      dlg.Free;
    end;
  end;
  
  procedure TMainForm.miHelpProdInfoClicked(Sender: TObject);
  
negative.code:     miBookmarks: TfpgPopupMenu;
      miHelp: TfpgPopupMenu;
      btnIndex: TfpgButton;
      {@VFD_HEAD_END: MainForm}
      FHelpFile: TfpgString;
      Files: TList; // current open help files.
      procedure   MainFormShow(Sender: TObject);
      procedure   miFileQuitClicked(Sender: TObject);
      procedure   miFileOpenClicked(Sender: TObject);
      procedure   miHelpProdInfoClicked(Sender: TObject);
      procedure   miHelpAboutFPGui(Sender: TObject);
      procedure   SetHelpFile(const AValue: TfpgString);
      procedure   btnShowIndex(Sender: TObject);
      procedure   FileOpen;
      function    OpenFile(const AFileNames: string): boolean;
      procedure   OnHelpFileLoadProgress(n, outof: integer; AMessage: string);
  
    public
      constructor Create(AOwner: TComponent); override;
      destructor  Destroy; override;
      procedure   AfterCreate; override;
  //    property    HelpFile: TfpgString read FHelpFile write SetHelpFile;
    end;
  
  {@VFD_NEWFORM_DECL}
  