How to remove Start Dictation

[bernie61]

Hi

OSX automatically adds "Start Dictation"  to the bottom of the Edit menu of my application.
Now my application edits images, so that menu command is of no use at all.

How to avoid that?
I tried renaming the menu (like they do in Qt, adding an space) but it did'n work.

Of course I use the carbon widgeset. I would like to use QT instead, but I don't know how.

Thanks in advance
bernie

[jwdietrich]

Which versions of Mac OS X, Lazarus and FPC do you use?

[bernie61]

I use:
Lazarus 1.4.4
FPC 2.6.4
OS X Mavericks

Thanks in advance,
bernie

[jwdietrich]

Newer versions of Mac OS X are a bit tricky here. The OS automatically adds the entry "Start Dictation", if the fourth menu (the second after the apple menu and the program menu) has an entry, whose name contains the substring "Copy" or "copy". Even renaming it to "Copy " doesn't solve the issue, since "Copy" is a substring of "Copy ".

The possibly simplest solution is to give the corresponding entry a caption that doesn't contain "Copy", e.g. "Cop" and rename it programmatically to "Copy". It wouldn't work to do this before Application.Run, since Mac OS X would add the unwanted entries anyway. Therefore, the best place to do this is in the onClick handler of the edit menu:

Code: Pascal  [Select][+][-]

1. procedure TMainForm.EditMenuClick(Sender: TObject);
2. begin
3.   CopyItem.Caption := 'Copy';
4. end;
5.  

The attached zip archive contains a very simple example program that implements this technique.

[bernie61]

Thank you, your tip fixed the problem.