ПолеВыбора.ВыбранныйИзменен (ComboBox.SelectedItemChanged) Событие

Копировать

Перем ТФ, ПолеВыбора1;

Процедура ПриОткрытии() Экспорт
	ТФ.Верхний.Текст = "Выберите другой элемент в поле выбора.";
	ПолеВыбора1.УстановитьФокус();
	ПолеВыбора1.Развернуть();
	ТФ.ТаймерНачатьИОстановить(ЭтотОбъект, "ТаймерТик", 2000);
КонецПроцедуры

Процедура ТаймерТик() Экспорт
	Если ТФ.ПлатформаWin Тогда
		ТФ.ОтправитьКлавишуКонсоли(ТФ.КлавишиКонсоли.Enter);
	КонецЕсли;
КонецПроцедуры

Процедура ПолеВыбора1_ВыбранныйИзменен() Экспорт
	АргументыСобытия = ТФ.АргументыСобытия;
	ЭлементСпискаЗначений = АргументыСобытия.Значение;
	ТФ.Верхний.Текст = "Выберите другой элемент в поле выбора.
	|ПолеВыбора1_ВыбранныйИзменен = " + ТекущаяУниверсальнаяДатаВМиллисекундах() + "
	|Отправитель = " + АргументыСобытия.Отправитель + "
	|ИндексВыбранного = " + АргументыСобытия.ИндексВыбранного + "
	|Значение = " + ЭлементСпискаЗначений.Значение + "
	|Представление = " + ЭлементСпискаЗначений.Представление + "
	|";
КонецПроцедуры

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

ПолеВыбора1 = ТФ.Верхний.Добавить(ТФ.ПолеВыбора(0, 0));
ПолеВыбора1.ЦветоваяСхема = ТФ.Цвета.Основа;

СписокЗначений1 = ПолеВыбора1.Источник;
СписокЗначений1.Добавить("Дядя Фёдор - мальчик, у которого прозвище ""Дядя"".", "Дядя Фёдор");
СписокЗначений1.Добавить("Матроскин - кот, хозяйственный, имеет коров и собственное хозяйство.", "Матроскин");
СписокЗначений1.Добавить("Шарик - пёс, добрый, весёлый, простой, любит современные вещи.", "Шарик");
СписокЗначений1.Добавить("Галчонок. Очень хитрый, любит воровать еду пока никто не видит.", "Галчонок");
СписокЗначений1.Добавить("Игорь Иванович Печкин - почтальон, работающий в простоквашинском почтовом отделении.", "почтальон Печкин");
СписокЗначений1.Добавить("Вера Павловна - сестра Дяди Фёдора.", "Вера Павловна");
СписокЗначений1.Добавить("Тама-Тама - грызун неизвестной породы, изобретатель, художник.", "Тама-Тама");
СписокЗначений1.Добавить("Маргарита Егоровна (Мегеровна) - няня, нанятая родителями.", "Маргарита Егоровна");
СписокЗначений1.Добавить("Мама - мать Дяди Фёдора и Веры Павловны. Добрая, любящая. Хорошая хозяйка.", "Мама");
СписокЗначений1.Добавить("Папа - отец Дяди Фёдора и Веры Павловны. Добродушный, справедливый, с отличным чувством юмора.", "Папа");
СписокЗначений1.Добавить(3.14, "Число Пи");
СписокЗначений1.Добавить(ТФ, "ТерминалФормыДляОдноСкрипта");

ПолеВыбора1.ИндексВыбранного = 1;
ПолеВыбора1.Свернуть();

ПолеВыбора1.Икс = ТФ.Позиция.Абсолютно(1);
ПолеВыбора1.Игрек = ТФ.Позиция.Абсолютно(14);
ПолеВыбора1.ВыбранныйИзменен = ТФ.Действие(ЭтотОбъект, "ПолеВыбора1_ВыбранныйИзменен");

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

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

Копировать

Перем ТФ, ПолеВыбора1, ВыбранныйИзменен;

Процедура ПриОткрытии() Экспорт
	ТФ.Верхний.Текст = "Выберите другой элемент в поле выбора.";
	ПолеВыбора1.УстановитьФокус();
	ПолеВыбора1.Развернуть();
	ТФ.ТаймерНачатьИОстановить(ЭтотОбъект, "ТаймерТик", 2000);
КонецПроцедуры

Процедура ТаймерТик() Экспорт
	Если ТФ.ПлатформаWin Тогда
		ТФ.ОтправитьКлавишуКонсоли(ТФ.КлавишиКонсоли.Enter);
	КонецЕсли;
КонецПроцедуры

Процедура ПолеВыбора1_ВыбранныйИзменен() Экспорт
	АргументыСобытия = ТФ.АргументыСобытия;
	ЭлементСпискаЗначений = АргументыСобытия.Значение;
	ТФ.Верхний.Текст = "Выберите другой элемент в поле выбора.
	|ПолеВыбора1_ВыбранныйИзменен = " + ТекущаяУниверсальнаяДатаВМиллисекундах() + "
	|Отправитель = " + АргументыСобытия.Отправитель + "
	|ИндексВыбранного = " + АргументыСобытия.ИндексВыбранного + "
	|Значение = " + ЭлементСпискаЗначений.Значение + "
	|Представление = " + ЭлементСпискаЗначений.Представление + "
	|";
	ВыбранныйИзменен = Истина;
	ТФ.ТаймерНачатьИОстановить(ЭтотОбъект, "ТаймерТик1");
КонецПроцедуры

Процедура ТаймерТик1() Экспорт
	ТФ.Завершить();
КонецПроцедуры

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

ПолеВыбора1 = ТФ.Верхний.Добавить(ТФ.ПолеВыбора(0, 0));
ПолеВыбора1.ЦветоваяСхема = ТФ.Цвета.Основа;

СписокЗначений1 = ПолеВыбора1.Источник;
СписокЗначений1.Добавить("Дядя Фёдор - мальчик, у которого прозвище ""Дядя"".", "Дядя Фёдор");
СписокЗначений1.Добавить("Матроскин - кот, хозяйственный, имеет коров и собственное хозяйство.", "Матроскин");
СписокЗначений1.Добавить("Шарик - пёс, добрый, весёлый, простой, любит современные вещи.", "Шарик");
СписокЗначений1.Добавить("Галчонок. Очень хитрый, любит воровать еду пока никто не видит.", "Галчонок");
СписокЗначений1.Добавить("Игорь Иванович Печкин - почтальон, работающий в простоквашинском почтовом отделении.", "почтальон Печкин");
СписокЗначений1.Добавить("Вера Павловна - сестра Дяди Фёдора.", "Вера Павловна");
СписокЗначений1.Добавить("Тама-Тама - грызун неизвестной породы, изобретатель, художник.", "Тама-Тама");
СписокЗначений1.Добавить("Маргарита Егоровна (Мегеровна) - няня, нанятая родителями.", "Маргарита Егоровна");
СписокЗначений1.Добавить("Мама - мать Дяди Фёдора и Веры Павловны. Добрая, любящая. Хорошая хозяйка.", "Мама");
СписокЗначений1.Добавить("Папа - отец Дяди Фёдора и Веры Павловны. Добродушный, справедливый, с отличным чувством юмора.", "Папа");
СписокЗначений1.Добавить(3.14, "Число Пи");
СписокЗначений1.Добавить(ТФ, "ТерминалФормыДляОдноСкрипта");

ПолеВыбора1.ИндексВыбранного = 1;
ПолеВыбора1.Свернуть();

ПолеВыбора1.Икс = ТФ.Позиция.Абсолютно(1);
ПолеВыбора1.Игрек = ТФ.Позиция.Абсолютно(14);
ПолеВыбора1.ВыбранныйИзменен = ТФ.Действие(ЭтотОбъект, "ПолеВыбора1_ВыбранныйИзменен");

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

Сообщить(?(
ВыбранныйИзменен
, "", "!!! ") + "ПолеВыбора.ВыбранныйИзменен (ComboBox.SelectedItemChanged) Событие" + " " + ТекущаяДата() + Символы.ПС);