anchor.diff:      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;
  +    AddMenuItem('Indent selection', rsKeyCtrl+'I', nil).Enabled := False;
  +    AddMenuItem('Unindent selection', rsKeyCtrl+'U', nil).Enabled := False;
  +    AddMenuItem('Insert $IFDEF...', rsKeyCtrl+rsKeyShift+'D', nil).Enabled := False;
     end;
   
     mnuSearch := 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);
  