anchor.diff:    begin
       Name := 'mnuFile';
       SetPosition(476, 61, 172, 20);
  -    AddMenuItem('New...', 'Ctrl+N', nil).Enabled := False;
  +    AddMenuItem('New...', rsKeyCtrl+'N', nil).Enabled := False;
       AddMenuItem('-', '', nil);
  -    AddMenuItem('Open...', 'Ctrl+O', @btnOpenFileClicked);
  +    AddMenuItem('Open...', rsKeyCtrl+'O', @btnOpenFileClicked);
       AddMenuItem('Open Recent', '', nil).Enabled := False;
  -    AddMenuItem('Save', 'Ctrl+S', @miFileSave);
  +    AddMenuItem('Save', rsKeyCtrl+'S', @miFileSave);
       AddMenuItem('Save As...', '', @miFileSaveAs);
  -    AddMenuItem('Save All', 'Ctrl+Shift+S', nil).Enabled := False;
  +    AddMenuItem('Save All', rsKeyCtrl+rsKeyShift+'S', nil).Enabled := False;
       AddMenuItem('-', '', nil);
  -    AddMenuItem('Quit', 'Ctrl+Q', @btnQuitClicked);
  +    AddMenuItem('Quit', rsKeyCtrl+'Q', @btnQuitClicked);
     end;
   
     mnuEdit := TfpgPopupMenu.Create(self);
  
positive.code:   begin
      Name := 'mnuView';
      SetPosition(476, 119, 172, 20);
      AddMenuItem('Todo List...', 'Ctrl+F2', nil).Enabled := False;
      AddMenuItem('Debug Windows', '', @miViewDebug);
    end;
  
  
negative.code:   begin
      Name := 'mnuRun';
      SetPosition(476, 161, 172, 20);
      AddMenuItem('Make', rsKeyCtrl+'F9', @miRunMake);
      AddMenuItem('Build All', rsKeyCtrl+rsKeyShift+'F9', @miRunBuild);
      AddMenuItem('Make 1', rsKeyCtrl+rsKeyAlt+'1', @miRunMake1);
      AddMenuItem('Make 2', rsKeyCtrl+rsKeyAlt+'2', @miRunMake2);
      AddMenuItem('Make 3', rsKeyCtrl+rsKeyAlt+'3', @miRunMake3);
      AddMenuItem('Make 4', rsKeyCtrl+rsKeyAlt+'4', @miRunMake4);
      AddMenuItem('-', '', nil);
      AddMenuItem('Run', 'F9', nil);
      AddMenuItem('Run Parameters...', rsKeyShift+'F9', nil);
    end;
  
    mnuTools := TfpgPopupMenu.Create(self);
  