PHP DM Gate v0.9 » Акселератор меню (без MCK) <span class="vd">[Delphi]</span>

mtx © (20.12.08 14:56) [0]

Не могу разобраться, как прикрепить к пункту меню акселератор, например клавиши <Ctrl+O> (от слова Open) для пункта меню с текстом "Открыть файл".

Также не смог добиться, чтобы работали быстрые клавиши, например, клавиши <Alt+1> для пункта меню с текстом "&1. Open".

Работаю без MCK, т.е. чистый код с библиотекой KOL, на Турбо-Дельфи.

<Цитата>
Jon © (20.12.08 18:08) [1]

var
MainMenu: PMenu;
begin
MainMenu := NewMenu(Applet,0,['&Open File'+#9+'Ctrl+O',''],nil);
MainMenu.ItemAccelerator[00] := MakeAccelerator(FVIRTKEY or FCONTROL,Ord('O'));
end;

<Цитата>
Jon © (20.12.08 20:07) [2]

MainMenu := NewMenu(Applet,0,['File','(','&Open File'+#9+'Ctrl+O',')',''],nil);
MainMenu.ItemAccelerator[1] := MakeAccelerator(FVIRTKEY or FCONTROL,Ord('O'));

<Цитата>
mtx © (20.12.08 20:09) [3]

Jon, спасибо. С акселератором получилось.

А вот 2-я проблема осталась:

> Также не смог добиться, чтобы работали быстрые клавиши,
> например, клавиши <Alt+1> для пункта меню с текстом "&1.
> Open".

А может в KOL пока не добавлена такая фича?

<Цитата>
Jon © (20.12.08 20:24) [4]

MainMenu := NewMenu(Applet,0,['File','(','&Open File'+#9+'Ctrl+O','&1. Test'+#9+'Alt+1',')',''],nil);
with MainMenu^ do
begin
ItemAccelerator[1] := MakeAccelerator(FVIRTKEY or FCONTROL,Ord('O'));
ItemAccelerator[2] := MakeAccelerator(FVIRTKEY or FALT,Ord('1'));
end;

<Цитата>
mtx © (20.12.08 21:01) [5]

Jon, спасибо. Впечатляет скорость и оперативность Вашей поддержки.

<Цитата>
Jon © (20.12.08 21:04) [6]

You are welcome :-)

<Цитата>