Watch, Follow, &
Connect with Us

QualityCentral

Public Report
Report From: Delphi-BCB/FireMonkey/Runtime    [ Add a report in this area ]  
Report #:  102940   Status: Open
[MacOS] Menu shortcuts in Firemonkey for OSX
Project:  Delphi Build #:  16.0.4358.45540
Version:    16.3 Submitted By:   Jack Moran
Report Type:  Basic functionality failure Date Reported:  1/26/2012 11:34:19 AM
Severity:    Serious / Highly visible problem Last Updated: 3/20/2012 2:24:39 AM
Platform:    All Mac platforms Internal Tracking #:   289788
Resolution: None (Resolution Comments) Resolved in Build: : None
Duplicate of:  None
Voting and Rating
Overall Rating: No Ratings Yet
0.00 out of 5
Total Votes: None
Description
Firemonkey menus do not respond to Ctrl+P thru Ctrl+Z.  That problem can be circumvented by making UseOSMenu true, but then using Ctrl-A thru Ctrl-O repeats the call to the menu item, and menu items cannot be disabled or checked.

It would also be useful to show the shortcuts on the Mac as Command+A rather than Ctrl+A.
Steps to Reproduce:
The source for a short project is listed below. Four menu items were created, with short cuts A, O, P, and Z. All four show a message when clicked on. Only the first two respond to keyboard shortcuts.

unit MenuDemo;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.Menus;

type
  TMenudemoAP = class(TForm)
    Button1: TButton;
    MenuBar1: TMenuBar;
    MenuItem1: TMenuItem;
    MenuItem2: TMenuItem;
    MenuItem3: TMenuItem;
    MenuItem4: TMenuItem;
    procedure QuitAP(Sender: TObject);
    procedure MenuItem1Click(Sender: TObject);
    procedure MenuItem2Click(Sender: TObject);
    procedure MenuItem3Click(Sender: TObject);
    procedure MenuItem4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MenudemoAP: TMenudemoAP;

implementation

{$R *.fmx}

procedure TMenudemoAP.MenuItem1Click(Sender: TObject);
begin
Showmessage('MenuItem1Click');
end;

procedure TMenudemoAP.MenuItem2Click(Sender: TObject);
begin
Showmessage('MenuItem2Click');
end;

procedure TMenudemoAP.MenuItem3Click(Sender: TObject);
begin
Showmessage('MenuItem3Click');
end;

procedure TMenudemoAP.MenuItem4Click(Sender: TObject);
begin
Showmessage('MenuItem4Click');
end;

procedure TMenudemoAP.QuitAP(Sender: TObject);
begin
Close;
end;

end.
Workarounds
None.
Attachment
menudemo.zip
Comments

Tomohiro Takahashi at 1/26/2012 4:49:20 PM -
I deleted QC#102936,102938,102939 as Sysop. Please do not post same reports.

> ... See attached project. ....
Could you please attach sample project(as a .zip) to your report by using Windows  Native QC Client?
The standalone client comes with Delphi.

> Build No: 7600
and, what build no of Delphi XE2 do you use, for example Update 3(16.0.4358.45540)?

Jack Moran at 2/4/2012 3:04:42 PM -
I found the client. But how do I fill in the window? Project won't select to Delphi.

Tomohiro Takahashi at 2/4/2012 4:37:28 PM -
1. open your existing report with the QC client
2. activate [Attachments] tab
3. show popup menu, then select [Add Attachment...]
4. add a .zip file
5. quit QC client

Jack Moran at 2/5/2012 6:06:30 AM -
Thanks, but nothing happened when I clicked on "Add attachment..." I've posted the zip file at

http://www.raceberryjam.com/menudemo.zip

Tomohiro Takahashi at 2/5/2012 7:20:51 PM -
ok, I attached it to this report instead of you.

Jack Moran at 2/4/2012 2:58:13 PM -
I use Update 3. How do I use Windows  Native QC Client?

Server Response from: ETNACODE01

Copyright© 1994 - 2013 Embarcadero Technologies, Inc. All rights reserved.