AddAccelerators-Prozedur (Unit KeyNames)

Deklaration:

procedure AddAccelerators(Menu: PMenu; Accelerators: PAccelerators);

Funktion:

Die Menüdatenstruktur Menu wird durchsucht. Wenn Accelerators
nicht NIL ist, so werden gewöhnliche Menüeinträge ohne KeyCode um einen
solchen ergänzt, falls das Kommando in der Accelerator-Tabelle gefunden wird.
Ist Params NIL, aber der KeyCode nicht 0, so wird mittels kn der
ländersprachlich korrekte Tastenname eingetragen.

Sie können diese Prozedur zu zwei Zwecken verwenden:

- Wenn Sie Menüs aus Windows-Ressourcen laden, fehlen diesen jegliche
Tastenzuordnungen. Legen Sie deshalb eine Accelerator-Tabelle in
der Ressource an und ordnen Sie jeweils die Kommandos den gewünschten
Tastencodes zu.

Nachdem Sie mit LoadMenu das Menü geladen haben, laden Sie mittels
LoadAccelerators die Accelerator-Tabelle. Wenn Sie jetzt AddAccelerators
einsetzen, werden alle entsprechenden Menüeinträge um die Tastencodes
und -namen ergänzt.

- Um gewöhnliche Menüs um die Standard-Tastennamen zu ergänzen,
rufen Sie einfach AddAccelerators auf, wobei der zweite Parameter auf
NIL gesetzt wird.