anchor.diff:    begin
       Name := 'mnuTools';
       SetPosition(476, 182, 172, 20);
  -    AddMenuItem('fpGUI UI Designer...', '', nil);
  -    AddMenuItem('fpGUI DocView...', '', nil);
  +    AddMenuItem('fpGUI UI Designer...', 'F12', nil);
  +    AddMenuItem('fpGUI DocView...', 'Ctrl+F1', nil);
     end;
   
     mnuSettings := TfpgPopupMenu.Create(self);
  
positive.code:   begin
      Name := 'mnuView';
      SetPosition(476, 119, 172, 20);
      AddMenuItem('Todo List...', '', nil).Enabled := False;
      AddMenuItem('Debug Windows', '', @miViewDebug);
    end;
  
  
negative.code:   begin
      Name := 'mnuSearch';
      SetPosition(476, 98, 172, 20);
      AddMenuItem('Find...', 'Ctrl+F', nil).Enabled := False;
      AddMenuItem('Find in Files...', 'Ctrl+Shift+F', nil).Enabled := False;
      AddMenuItem('Procedure List...', 'Ctrl+G', @miSearchProcedureList);
    end;
  
    mnuView := TfpgPopupMenu.Create(self);
  