anchor.diff:  implementation
   
   uses
  -  fpg_dialogs;
  +  fpg_dialogs, fpg_constants;
   
   {@VFD_NEWFORM_IMPL}
   
  
positive.code:   Close;
  end;
  
  procedure TMainForm.miHelpProdInfoClicked(Sender: TObject);
  begin
    TfpgMessageDialog.Information('Product Information', 'Created by Graeme Geldenhuys');
  
negative.code:     miSettings: TfpgPopupMenu;
      miBookmarks: TfpgPopupMenu;
      miHelp: TfpgPopupMenu;
      FHelpFile: TfpgString;
      {@VFD_HEAD_END: MainForm}
      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);
    public
      constructor Create(AOwner: TComponent); override;
      procedure AfterCreate; override;
      property HelpFile: TfpgString read FHelpFile write SetHelpFile;
    end;
  
  {@VFD_NEWFORM_DECL}
  