On Windows Object Inspector menuitem shortcut editor combobox lists invalid shortcuts

Original Reporter info from Mantis: MrPC

• Reporter name: Howard Page-Clark

Description:

When you edit a shortcut for a menuitem on Windows using the Object Inspector the editor combo dropdown lists Meta+A, Meta+B, etc. along with correct items.

Steps to reproduce:

On Windows, add a shortcut to a menu's menuitem via the Object Inspector.

Additional information:

I think changing the propedits.pp procedure at line 4937 to the following will resolve the issue. I have not submitted a patch, however, since this may not be correct, or may have other effects I am not aware of.

procedure TShortCutPropertyEditor.GetValues(Proc: TGetStrProc);
var
  I: Integer;
begin
  Proc(oisNone);
  {$IfDef Darwin}
    for I := 1 to High(ShortCuts) do Proc(ShortCutToText(ShortCuts[I]));
  {$Else}
    for I := 1 to 26 do Proc(ShortCutToText(ShortCuts[I]));
    for I := 53 to High(ShortCuts) do Proc(ShortCutToText(ShortCuts[I]));
  {$EndIf}
end;

Mantis conversion info:

• Mantis ID: 27456
• Version: 1.3 (SVN)
• Fixed in revision: r47850 (#66daecb6)