Application.SetMenu

(таблица) Таблица данных меню, индексированная следующими ключами:

КЛЮЧ KEY	ТИП TYPE	ОПИСАНИЕ DESCRIPTION
ID	число	Числовой идентификатор (ID) пункта меню.
Text	строка	Текст пункта меню. Используем символ & перед буквой для определения мнемоники. Отметим, что для создания пункта разделителя, устанавливаем Text пункта как "---". В этом случае пункты ID, Checked, Enabled и SubTable игнорируются. Разделитель пунктов не будет запускать событие On Menu.
IconID	число	Индекс (указатель) иконок, начинающийся с 0, из Image List - Списка изображений указанный на Menu Bar - панели меню чтобы использовать для пункта меню.
Enabled	логический	Разрешен ли пункт меню.
Checked	логический	Отмечен ли пункт меню.
SubMenu	таблица	Численно индексированная таблица таблиц пунктов меню. Она создает всплывающее меню для этого пункта. Отметим, что если SubTable определен, этот пункт меню никогда не запустит событие On Menu. Взамен, событие будут запускать его подпункты.

-- Create a table containing all menu information
-- Создать таблицу, содержащую всю информацию меню
tblMenu = {};
tblMenu[1] = {};
tblMenu[1].Text = "&New Menu";
tblMenu[1].ID = 100;
tblMenu[1].Checked = false;
tblMenu[1].Enabled = true;
tblMenu[1].SubMenu = {};
tblMenu[1].SubMenu[1] = {};
tblMenu[1].SubMenu[1].Text = "&SubItem 1";
tblMenu[1].SubMenu[1].ID = 101;
tblMenu[1].SubMenu[1].Checked = false;
tblMenu[1].SubMenu[1].Enabled = true;
tblMenu[1].SubMenu[2] = {};
tblMenu[1].SubMenu[2].Text = "S&ubItem 2";
tblMenu[1].SubMenu[2].ID = 102;
tblMenu[1].SubMenu[2].Checked = false;
tblMenu[1].SubMenu[2].Enabled = true;

-- Set the menu based on the info in the above table
-- Устанавливаем меню, основываясь на данных из вышеуказанной таблицы
Application.SetMenu(tblMenu);

Во время работы скрипта создается типовое меню. Заметьте пожалуйста, что для работы этого примера, параметр "Show menu bar - Показать панель меню" должен быть отмечен в диалоговом окне панели меню (Menu Bar).