anchor.diff:    begin
       Name := 'mnuFile';
       SetPosition(476, 61, 172, 20);
  -    AddMenuItem('New...', '', nil).Enabled := False;
  -    AddMenuItem('Open...', '', nil).Enabled := False;
  +    AddMenuItem('New...', 'Ctrl+N', nil).Enabled := False;
  +    AddMenuItem('-', '', nil);
  +    AddMenuItem('Open...', 'Ctrl+O', @btnOpenFileClicked);
       AddMenuItem('Open Recent', '', nil).Enabled := False;
  -    AddMenuItem('Save', '', @miFileSave);
  +    AddMenuItem('Save', 'Ctrl+S', @miFileSave);
       AddMenuItem('Save As...', '', @miFileSaveAs);
  +    AddMenuItem('Save All', 'Ctrl+Shift+S', nil).Enabled := False;
       AddMenuItem('-', '', nil);
  -    AddMenuItem('Quit', '', @btnQuitClicked);
  +    AddMenuItem('Quit', 'Ctrl+Q', @btnQuitClicked);
     end;
   
     mnuEdit := TfpgPopupMenu.Create(self);
  
positive.code:     AddMenuItem('Make 4', 'Ctrl+Alt+4', @miRunMake4);
      AddMenuItem('-', '', nil);
      AddMenuItem('Run', 'F9', nil);
      AddMenuItem('Run Parameters...', '', nil);
    end;
  
    mnuTools := TfpgPopupMenu.Create(self);
  
negative.code:   begin
      Name := 'mnuProject';
      SetPosition(476, 140, 172, 20);
      AddMenuItem('Options...', 'Ctrl+Shift+O', @miProjectOptions);
      AddMenuItem('-', '', nil);
      AddMenuItem('New (empty)...', '', @miProjectNew);
      AddMenuItem('New from Template...', '', @miProjectNewFromTemplate);
      AddMenuItem('Open...', '', @miProjectOpen);
      miRecentProjects := AddMenuItem('Open Recent', '', nil);
      AddMenuItem('Save', 'Ctrl+Alt+S', @miProjectSave);
      AddMenuItem('Save As...', '', @miProjectSaveAs);
      AddMenuItem('-', '', nil);
      AddMenuItem('View Source', '', nil);
      AddMenuItem('Add editor file to Project', 'Ctrl+Shift+A', @miProjectAddUnitToProject);
    end;
  
    mnuRun := TfpgPopupMenu.Create(self);
  