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


TMenuBar Menus


+------------+ | TObject | +------+-----+ +------+-----+ | TView | +------+-----+ +------+-----+ | TMenuView | +----+---+---+ +--------+ +------+ +====+=====+ +----+-----+ | TMenuBar | | TMenuBox | +==========+ +----------+

Объекты TMenuBar представляют полосы горизонтального меню, из которого меню может быть выбрано через: - прямую отметку. - F10 и короткую клавишу. - выбор (подсветку) и нажатие Enter. - горячие клавиши. Выборы главного меню отображаются в верхней полосе меню. Они представлены объектом типа TMenuBar обычно принадлежащему объекту TApplication. Подменю отображаются в объектах типа TMenuBox. TMenuBar и TMenuBox порождаются от абстрактного типа TMenuView. Для большинства программ на Turbo Vision Вы не включаете прямо объекты меню. Перекрывая TApplication.InitMenuBar соответствующим набором вложенных вызовов New, NewSubMenu, NewItem и NewLine, Turbo Vision выполняет это.

Методы

Init constructor Init(var Bounds: TRect; AMenu: PMenu); Создает полосу меню, заданную через Bounds, вызывая TMenuView.Init. GrowMode установлена в gfGrouHiX. Поле Options установлено в ofPreprocess для возможности работы с горячими клавишами. Поле меню установлено в AMenu, задавая элементы меню.

См. так же: TMenuView.Init, gfXXXX флаги grow mode, ofXXXX флаги опций, TMenuView.Menu

Draw procedure Draw; virtual; Перекрывается: Редко Рисует полосу меню палитрой по умолчанию. Поля Name и Disabled каждой записи TMenuItem в связанном списке читаются, чтобы установить элементы меню в корректный цвет. Текущий элемент Current подсвечивается.

GetItemRect procedure GetIteRect(Item: PMenuItem; var R: TRect); virtual; Перекрывается: Никогда Перекрывает абстрактный метод в TMenuView. Возвращает прямоугольник, занимаемый элементом меню в R. Используется для определения, находится ли отметка мышки в данном элементе меню.

См. так же: TMenuView.GetItemRect

Палитра

Полосы меню, как и все видимые элементы меню, используют палитру по умолчанию CMenuView для отображения элементов со 2 по 7 в палитру стандартной программы.

1 2 3 4 5 6 +====+====+====+====+====+====+ CMenuView | 2 | 3 | 4 | 5 | 6 | 7 | +==+=+==+=+==+=+==+=+==+=+==+=+ Нормальный текст -+ | | | | +-- Короткий выбранный Запрещенный текст -----+ | | +------ Запрещенный выбранный Короткий текст -------------+ +------------ Нормальный выбранный

 




Начало  Назад  Вперед