Окно.ПанельМеню (Window.MenuBar) Свойство

Копировать

Перем ТФ, Окно1;

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

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

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

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

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

ПанельМеню1 = ТФ.ПанельМеню();

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

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

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

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

Окно1 = ТФ.Окно("Окно1");
Окно1.Текст = "
|
|Давным-давно в городке на берегу Средиземного моря 
|жил старый столяр Джузеппе по прозванию Сизый Нос.
|Однажды ему попалось под руку полено, обыкновенное 
|полено для топки очага в зимнее время.
|– Неплохая вещь, – сказал сам себе Джузеппе, – можно 
|смастерить из него что-нибудь вроде ножки для стола…";
ТФ.Верхний.Добавить(Окно1);

Окно1.ПанельМеню = ПанельМеню1;

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

Копировать

Перем Окно1, ПанельМеню;

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

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

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

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

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

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

ПанельМеню1 = ТФ.ПанельМеню();

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

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

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

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

Окно1 = ТФ.Окно("Окно1");
Окно1.Текст = "Давным-давно в городке на берегу Средиземного моря 
|жил старый столяр Джузеппе по прозванию Сизый Нос.
|Однажды ему попалось под руку полено, обыкновенное 
|полено для топки очага в зимнее время.
|– Неплохая вещь, – сказал сам себе Джузеппе, – можно 
|смастерить из него что-нибудь вроде ножки для стола…";
ТФ.Верхний.Добавить(Окно1);

Окно1.ПанельМеню = ПанельМеню1;

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

Сообщить(?(
ПанельМеню = ПанельМеню1
, "", "!!! ") + "Окно.ПанельМеню (Window.MenuBar) Свойство" + " " + ТекущаяДата() + Символы.ПС);