Турбо Паскаль 6.0

Тип TStatusItem Menus


================================================================= Объявление TStatusITEm = record Next: PStatusItem; Text: PString; KeyCode: Word; Command: Word; end;

Функция Тип TStatusItem представляет элемент строки статуса, который может быть видим или невидим. Next указывает на следующий TStatusItem в списке элементов строки статуса или nil, если это последний элемент. Text указывает на строку, содержащую надпись элемента статуса (такую как 'Alt-X Exit') или nil, если элемент статуса невидим (в таком случае элемент служит только для определения горячей клавиши). KeyCode содержит скан-код горячей клавиши связанной с элементом статуса или 0, если элемент статуса не имеет горячей клавиши. Command содержит команду-событие (см. константы cmXXX) генерируемую при выборе элемента статуса. Функция записи TStatusItem не только в определении визуализации строки статуса, она также используется для определения горячей клавиши, чьи коды автоматически отображаются в команды. Метод TProgram. GetEvent вызывает TStatusLine.HandleEvent для всех событий evKeyDown. TStatusLine.HandleEvent сканирует текущую строку статуса на элементы, содержащие данный код клавиши и, если один из них найден, он преобразует это событие evKeyDown в событие evCommand со значением Command данным в TStatusItem. Записи TStatusItem создаются использованием функции NewStatusKey.

См. также TStatusLine, NewStatusKey, TStatusLine.HandleEvent



Содержание раздела