anchor.diff:  implementation
   
   uses
  -  fpg_dialogs;
  +  fpg_dialogs, fpg_constants;
   
   {@VFD_NEWFORM_IMPL}
   
  
positive.code:     miSettings: TfpgPopupMenu;
      miBookmarks: TfpgPopupMenu;
      miHelp: TfpgPopupMenu;
      {@VFD_HEAD_END: MainForm}
      procedure MainFormShow(Sender: TObject);
      procedure miFileQuitClicked(Sender: TObject);
      procedure miHelpProdInfoClicked(Sender: TObject);
      procedure miHelpAboutFPGui(Sender: TObject);
    public
      constructor Create(AOwner: TComponent); override;
      procedure AfterCreate; override;
    end;
  
  {@VFD_NEWFORM_DECL}
  
negative.code:   begin
      Name := 'miFile';
      SetPosition(244, 28, 132, 20);
      AddMenuItem('Open...', '', @miFileOpenClicked);
      AddMenuitem('-', '', nil);
      AddMenuItem('Quit', '', @miFileQuitClicked);
    end;
  