Skip to content
GitLab
  • Menu
Projects Groups Snippets
  • Help
    • Help
    • Support
    • Community forum
    • Submit feedback
    • Contribute to GitLab
    • Switch to GitLab Next
  • Sign in / Register
  • Lazarus Lazarus
  • Project information
    • Project information
    • Activity
    • Labels
    • Members
  • Repository
    • Repository
    • Files
    • Commits
    • Branches
    • Tags
    • Contributors
    • Graph
    • Compare
    • Locked Files
  • Issues 2,095
    • Issues 2,095
    • List
    • Boards
    • Service Desk
    • Milestones
    • Iterations
  • Merge requests 8
    • Merge requests 8
  • Deployments
    • Deployments
    • Releases
  • Analytics
    • Analytics
    • Value stream
    • Code review
    • Insights
    • Issue
    • Repository
  • External wiki
    • External wiki
  • Activity
  • Graph
  • Create a new issue
  • Commits
  • Issue Boards
Collapse sidebar
  • FPC
  • Lazarus
  • LazarusLazarus
  • Issues
  • #27456
Closed
Open
Created Feb 12, 2015 by FPC Admin account@fpc_adminOwner

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)
Assignee
Assign to
Time tracking