ЭлементМеню (MenuItem) Конструктор

Копировать

Перем ТФ, ПунктМеню, ПунктМеню1, Текст;

Процедура ПриОткрытии() Экспорт
	ПунктМеню = ПунктМеню1;
КонецПроцедуры

Процедура Файл_Нажатие() Экспорт
	ТФ.Верхний.Текст = Текст + "Файл " + ТекущаяУниверсальнаяДатаВМиллисекундах();
КонецПроцедуры

Процедура Справка_Нажатие() Экспорт
	ТФ.Верхний.Текст = Текст + "Справка " + ТекущаяУниверсальнаяДатаВМиллисекундах();
КонецПроцедуры

Процедура Открыть_Нажатие() Экспорт
	ТФ.Верхний.Текст = Текст + "Открыть " + ТекущаяУниверсальнаяДатаВМиллисекундах();
КонецПроцедуры

Процедура Выход_Нажатие() Экспорт
	ТФ.Верхний.Текст = Текст + "Выход " + ТекущаяУниверсальнаяДатаВМиллисекундах();
КонецПроцедуры

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptTerminalGui\OneScriptTerminalGui\bin\Debug\OneScriptTerminalGui.dll");
ТФ = Новый ТерминалФормыДляОдноСкрипта();

ПанельМеню1 = ТФ.Верхний.Добавить(ТФ.ПанельМеню());

ПунктМеню1 = ПанельМеню1.ПодМеню.Добавить(ТФ.ПунктМеню("Файл"));
ПунктМеню1.Нажатие = ТФ.Действие(ЭтотОбъект, "Файл_Нажатие");

ЭлементМеню1 = ПунктМеню1.Элементы.Добавить(ТФ.ЭлементМеню("_Открыть"));
ЭлементМеню1.Нажатие = ТФ.Действие(ЭтотОбъект, "Открыть_Нажатие");

ЭлементМеню2 = ПунктМеню1.Элементы.Добавить(ТФ.ЭлементМеню("_Выход"));
ЭлементМеню2.Подсказка = "Выход";
ЭлементМеню2.Нажатие = ТФ.Действие(ЭтотОбъект, "Выход_Нажатие");

ПунктМеню2 = ПанельМеню1.ПодМеню.Добавить(ТФ.ПунктМеню("Справка"));
ПунктМеню2.Подсказка = "Справка";
ПунктМеню2.Нажатие = ТФ.Действие(ЭтотОбъект, "Справка_Нажатие");

Текст = "
|
|
|
|
|
|
|Кликните по элементам панели меню.
|";
ТФ.Верхний.Текст = Текст;

ТФ.ПриОткрытии = ТФ.Действие(ЭтотОбъект, "ПриОткрытии");

ТФ.Запуск();

Копировать

Перем ТФ, ЭлементМеню, ЭлементМеню1, Текст;

Процедура ПриОткрытии() Экспорт
	ЭлементМеню = ЭлементМеню1;
КонецПроцедуры

Процедура Файл_Нажатие() Экспорт
	ТФ.Верхний.Текст = Текст + "Файл " + ТекущаяУниверсальнаяДатаВМиллисекундах();
КонецПроцедуры

Процедура Справка_Нажатие() Экспорт
	ТФ.Верхний.Текст = Текст + "Справка " + ТекущаяУниверсальнаяДатаВМиллисекундах();
КонецПроцедуры

Процедура Открыть_Нажатие() Экспорт
	ТФ.Верхний.Текст = Текст + "Открыть " + ТекущаяУниверсальнаяДатаВМиллисекундах();
КонецПроцедуры

Процедура Выход_Нажатие() Экспорт
	ТФ.Верхний.Текст = Текст + "Выход " + ТекущаяУниверсальнаяДатаВМиллисекундах();
КонецПроцедуры

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptTerminalGui\OneScriptTerminalGui\bin\Debug\OneScriptTerminalGui.dll");
ТФ = Новый ТерминалФормыДляОдноСкрипта();

ПанельМеню1 = ТФ.Верхний.Добавить(ТФ.ПанельМеню());

ПунктМеню1 = ПанельМеню1.ПодМеню.Добавить(ТФ.ПунктМеню("Файл"));
ПунктМеню1.Нажатие = ТФ.Действие(ЭтотОбъект, "Файл_Нажатие");

ЭлементМеню1 = ПунктМеню1.Элементы.Добавить(ТФ.ЭлементМеню("_Открыть"));
ЭлементМеню1.Нажатие = ТФ.Действие(ЭтотОбъект, "Открыть_Нажатие");

ЭлементМеню2 = ПунктМеню1.Элементы.Добавить(ТФ.ЭлементМеню("_Выход"));
ЭлементМеню2.Подсказка = "Выход";
ЭлементМеню2.Нажатие = ТФ.Действие(ЭтотОбъект, "Выход_Нажатие");

ПунктМеню2 = ПанельМеню1.ПодМеню.Добавить(ТФ.ПунктМеню("Справка"));
ПунктМеню2.Подсказка = "Справка";
ПунктМеню2.Нажатие = ТФ.Действие(ЭтотОбъект, "Справка_Нажатие");

Текст = "
|
|
|
|
|
|
|Кликните по элементам панели меню.
|";
ТФ.Верхний.Текст = Текст;

ТФ.ПриОткрытии = ТФ.Действие(ЭтотОбъект, "ПриОткрытии");
ТФ.ЗапуститьИЗавершить();

Сообщить(?(
ТипЗнч(ЭлементМеню) = Тип("ТфЭлементМеню")
, "", "!!! ") + "ЭлементМеню (MenuItem) Конструктор" + " " + ТекущаяДата() + Символы.ПС);