Menu - HiAsm

Вверх ↑

Пакеты		-
HiAsm4

Windows

Компоненты

Интерфейс

Стандартные

- Menu

Краткое описание

Компонент позволяет использовать оконное меню в текущей форме.

Параметры

Menu - Определяет пункты меню (для пропуска пункта используется знак -)

Методы

doInit - Создать меню

События

onSelectStr - Событие происходит при клике на пункте меню и выдает в поток строку этого пункта

onSelectNum - Событие происходит при клике на пункте меню и выдает в поток порядковый индекс этого пункта (начинается с 0)

Свойства

Handle - Возвращает идентификатор меню для управления им из других элементов

Данные

Array - Массив строк, элементы которого требуется вставить в меню

Замечания

Единственной задачей компонента является выдача в поток заголовка выбранного(нажатого) пункта меню, поэтому использовать два одинаковых названия строго не рекомендуется. Данный компонент позволяет создавать оконное меню с любой степенью вложенности. Для этого используется два зарезервированных названия для пунктов:

( - указывает на начало вложенного подменю,
) - указывает на конец вложенного подменю.

Примеры

Пример ниже создаст два основных пункта главного меню программы и одно подменю для пункта "Файл":

Файл(
Открыть
-
Выход
)
О программе

Add(MainForm,51201,203,98)
{
 Caption="Пример использования Menu"
}
Add(Menu,5981278,287,98)
{
 Menu=#4:Файл|1:(|7:Открыть|1:(|9:Открыть 1|9:Открыть 2|1:)|1:-|5:Выход|1:)|11:О программе|
 Point(onSelectNum)
 link(onSelectStr,15899669:doText,[])
 link(onSelectNum,3124971:doText,[(331,111)(331,153)])
}
Add(Label,15899669,343,98)
{
 Top=80
 Width=389
 Height=33
 Font=[MS Sans Serif,18,0,0,1]
 Caption="Текс меню"
 AutoSize=1
 Alignment=2
}
Add(Label,3124971,343,147)
{
 Top=120
 Width=389
 Height=33
 Font=[MS Sans Serif,18,0,0,1]
 Caption="Порядковый номер"
 AutoSize=1
 Alignment=2
}

Пример использования компонента Menu для вызова событий меню по их индексу

Add(MainForm,3627141,273,168)
{
 Caption="Пример использования Menu"
}
Add(Menu,126380,126,154)
{
 Menu=#4:File|1:(|4:Open|1:(|6:Open 1|6:Open 2|1:)|4:Exit|
 Point(onSelectNum)
 link(onSelectNum,2345105:doEvent,[])
}
Add(IndexToChanel,2345105,189,161)
{
 Count=5
 link(onEvent2,3547710:doMessage,[(247,174)(247,90)])
 link(onEvent4,14746715:doMessage,[(259,188)(259,132)])
 link(onEvent5,3627141:doClose,[])
}
Add(Message,3547710,273,84)
{
 Message="Open"
}
Add(Message,14746715,273,126)
{
 Message="Open 2"
}

Примечание: использование в качестве имени пункта символа "-" создаст так называемый разделитель - горизонтальную полосу, который обычно выступает в качестве визуальной границы между группами схожих по смыслу пунктов меню.

Обновление элемента: [svn]Menu.pas[/svn]

BB-code статьи для вставки

Всего комментариев: 0

(комментарии к статье еще не добавлены)

Комментарий ...