anchor.diff:      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);
  
positive.code:     ImageMargin := 0;
      ImageName := 'stdimg.saveall';
      TabOrder := 4;
    end;
  
    pnlStatusBar := TfpgBevel.Create(self);
  
negative.code:     AddMenuItem('New...', '', nil).Enabled := False;
      AddMenuItem('Open...', '', nil).Enabled := False;
      AddMenuItem('Open Recent', '', nil).Enabled := False;
      AddMenuItem('Save', '', @miFileSave);
      AddMenuItem('Save As...', '', @miFileSaveAs);
      AddMenuItem('-', '', nil);
      AddMenuItem('Quit', '', @btnQuitClicked);
  