On Nov 18, 2007 11:15 PM, Tobias Giesen <[EMAIL PROTECTED]> wrote:
> Hello,
>
Hi,
> is there a known best way to get the "About My App" menu item into the
> so-called "Application Menu" on the Mac OS Menu bar?
>
You have to use Carbon Menu Manager.
> Also is there a way to get the keyboard shortcut for Help to be Cmd-?
> rather than F1?
>
It is hardcoded in LCL application.inc:
procedure TApplication.NotifyKeyDownHandler(Sender: TObject;
var Key: Word; Shift: TShiftState);
var
i: Integer;
begin
i:=FApplicationHandlers[ahtKeyDownAfter].Count;
while FApplicationHandlers[ahtKeyDownAfter].NextDownIndex(i) do
TKeyEvent(FApplicationHandlers[ahtKeyDownAfter][i])(Sender,Key,Shift);
if (Shift=[]) and (Key=VK_F1) then
ShowHelpForObjecct(Sender);
end;
We can adapt this to use platform specific key.
> If not I'll probably construct my menu directly using Carbon Menu
> Manager ...
Tom
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
