anchor.diff:    begin
       Name := 'mnuSearch';
       SetPosition(476, 98, 172, 20);
  -    AddMenuItem('Find...', 'Ctrl+F', @miFindClicked);
  +    AddMenuItem('Find...', rsKeyCtrl+'F', @miFindClicked);
       AddMenuItem('Find Next', 'F3', nil).Enabled := False;
  -    AddMenuItem('Find Previous', 'Shift+F3', nil).Enabled := False;
  -    AddMenuItem('Find in Files...', 'Ctrl+Shift+F', nil).Enabled := False;
  -    AddMenuItem('Replace...', 'Ctrl+R', nil).Enabled := False;
  +    AddMenuItem('Find Previous', rsKeyShift+'F3', nil).Enabled := False;
  +    AddMenuItem('Find in Files...', rsKeyCtrl+rsKeyShift+'F', nil).Enabled := False;
  +    AddMenuItem('Replace...', rsKeyCtrl+'R', nil).Enabled := False;
       AddMenuItem('-', '', nil);
  -    AddMenuItem('Procedure List...', 'Ctrl+G', @miSearchProcedureList);
  +    AddMenuItem('Procedure List...', rsKeyCtrl+'G', @miSearchProcedureList);
     end;
   
     mnuView := TfpgPopupMenu.Create(self);
  
positive.code:     AddMenuItem('Copy', '', nil).Enabled := False;
      AddMenuItem('Paste', '', nil).Enabled := False;
      AddMenuItem('-', '', nil);
      AddMenuItem('Indent selection', 'Ctrl+I', nil).Enabled := False;
      AddMenuItem('Unindent selection', 'Ctrl+U', nil).Enabled := False;
      AddMenuItem('Insert $IFDEF...', 'Ctrl+Shift+D', nil).Enabled := False;
    end;
  
    mnuSearch := TfpgPopupMenu.Create(self);
  
negative.code:   begin
      Name := 'mnuProject';
      SetPosition(476, 140, 172, 20);
      AddMenuItem('Options...', rsKeyCtrl+rsKeyShift+'O', @miProjectOptions);
      AddMenuItem('-', '', nil);
      AddMenuItem('New (empty)...', '', @miProjectNew);
      AddMenuItem('New from Template...', '', @miProjectNewFromTemplate);
      AddMenuItem('Open...', '', @miProjectOpen);
      miRecentProjects := AddMenuItem('Open Recent', '', nil);
      AddMenuItem('Save', rsKeyCtrl+rsKeyAlt+'S', @miProjectSave);
      AddMenuItem('Save As...', '', @miProjectSaveAs);
      AddMenuItem('-', '', nil);
      AddMenuItem('View Source', '', nil);
      AddMenuItem('Add editor file to Project', rsKeyCtrl+rsKeyShift+'A', @miProjectAddUnitToProject);
    end;
  
    mnuRun := TfpgPopupMenu.Create(self);
  