anchor.diff:      AddMenuItem('New...', '', nil).Enabled := False;
       AddMenuItem('Open...', '', nil).Enabled := False;
       AddMenuItem('Open Recent', '', nil).Enabled := False;
  -    AddMenuItem('Save...', '', nil).Enabled := False;
  +    AddMenuItem('Save', '', @miFileSave);
       AddMenuItem('Save As...', '', @miFileSaveAs);
       AddMenuItem('-', '', nil);
       AddMenuItem('Quit', '', @btnQuitClicked);
  
positive.code:     ImageMargin := 0;
      ImageName := 'stdimg.save';
      TabOrder := 3;
    end;
  
    btnSaveAll := TfpgButton.Create(Bevel1);
  
negative.code:     procedure   FormShow(Sender: TObject);
      procedure   btnQuitClicked(Sender: TObject);
      procedure   btnOpenFileClicked(Sender: TObject);
      procedure   miFileSave(Sender: TObject);
      procedure   miFileSaveAs(Sender: TObject);
      procedure   miAboutFPGuiClicked(Sender: TObject);
      procedure   miAboutIDE(Sender: TObject);
  