anchor.diff:      btnTest: TfpgButton;
       {$endif}
       pmOpenRecentMenu: TfpgPopupMenu;
  +    miFile: TfpgMenuItem;
       miRecentProjects: TfpgMenuItem;
       FRecentFiles: TfpgMRU;
       FRegex: TRegExpr;
  
positive.code:     procedure   FormClose(Sender: TObject; var CloseAction: TCloseAction);
      procedure   btnQuitClicked(Sender: TObject);
      procedure   btnOpenFileClicked(Sender: TObject);
      procedure   miFileSave(Sender: TObject);
      procedure   miFileSaveAs(Sender: TObject);
      procedure   miEditCutClicked(Sender: TObject);
  
negative.code:   begin
      Name := 'mnuFile';
      SetPosition(476, 61, 172, 20);
      miFile := AddMenuItem('New...', rsKeyCtrl+'N', @miFileNewUnit);
      AddMenuItem('-', '', nil);
      AddMenuItem('Open...', rsKeyCtrl+'O', @btnOpenFileClicked);
      AddMenuItem('Open Recent', '', nil).Enabled := False;
  