ПанельМеню.ЦветоваяСхема (MenuBar.ColorScheme) Свойство

Копировать

Перем ТФ, ПанельМеню1, Текст, ЦветоваяСхема1;

Процедура ПриОткрытии() Экспорт
	ЦветОбычного = ПанельМеню1.ЦветОбычного();
	Нормальный = ЦветоваяСхема1.Нормальный;
	ТФ.Верхний.Текст = ТФ.Верхний.Текст + "
	|ПанельМеню1.ЦветОбычного = " + ЦветОбычного + "
	|ЦветоваяСхема1.Нормальный = " + Нормальный + "
	|";
КонецПроцедуры

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

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

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

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

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

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

ЦветоваяСхема1 = ТФ.ЦветоваяСхема();
ЦветоваяСхема1.Нормальный = ТФ.Атрибут(ТФ.Цвет.Синий, ТФ.Цвет.Серый);
ПанельМеню1.ЦветоваяСхема = ЦветоваяСхема1;

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

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

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

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

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

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

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

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

Копировать

Перем ТФ, ПанельМеню1, Текст, ЦветоваяСхема1, ЦветОбычного, Нормальный;

Процедура ПриОткрытии() Экспорт
	ЦветОбычного = ПанельМеню1.ЦветОбычного();
	Нормальный = ЦветоваяСхема1.Нормальный;
	ТФ.Верхний.Текст = ТФ.Верхний.Текст + "
	|ПанельМеню1.ЦветОбычного = " + ЦветОбычного + "
	|ЦветоваяСхема1.Нормальный = " + Нормальный + "
	|";
КонецПроцедуры

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

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

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

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

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

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

ЦветоваяСхема1 = ТФ.ЦветоваяСхема();
ЦветоваяСхема1.Нормальный = ТФ.Атрибут(ТФ.Цвет.Синий, ТФ.Цвет.Серый);
ПанельМеню1.ЦветоваяСхема = ЦветоваяСхема1;

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

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

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

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

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

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

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

Сообщить(?(
ТипЗнч(Нормальный) = Тип("ТфАтрибут")
, "", "!!! ") + "ПанельМеню.ЦветоваяСхема (MenuBar.ColorScheme) Свойство" + " " + ТекущаяДата() + Символы.ПС);