ЭлементПомеченАрг.Индекс (ItemCheckEventArgs.Index) Свойство

Копировать     Выделить всё

Перем Ф;

Процедура СписокЭлементов1_ЭлементПомечен() Экспорт
	Аргументы1 = Ф.ЭлементПомеченАрг();
	Сообщить("Аргументы1.Индекс = " + Аргументы1.Индекс);
	Сообщить("Аргументы1.НовоеЗначение = " + Аргументы1.НовоеЗначение);
	Сообщить("Аргументы1.ТекущееЗначение  = " + Аргументы1.ТекущееЗначение);
	Сообщить("============================");
КонецПроцедуры

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

СписокЭлементов1 = Форма1.ЭлементыУправления.Добавить(Ф.СписокЭлементов());
СписокЭлементов1.Стыковка = Ф.СтильСтыковки.Заполнение;
СписокЭлементов1.РежимОтображения = Ф.РежимОтображения.Список;

М3 = СтрРазделить(Ф.СвойстваОбъекта(Ф.Цвет()), Символы.ПС);
Для А = 0 По 20 Цикл
	М4 = СтрРазделить(М3[А], " ");
	ИмяЦвета = М4[0];
	Попытка
		Цв = Ф.Цвет(ИмяЦвета);
	Исключение
		Продолжить;
	КонецПопытки;
	СписокЭлементов1.Элементы.Добавить(Ф.ЭлементСпискаЭлементов(ИмяЦвета));
КонецЦикла;

СписокЭлементов1.Флажки = Истина;
СписокЭлементов1.ЭлементПомечен = Ф.Действие(ЭтотОбъект, "СписокЭлементов1_ЭлементПомечен");
СписокЭлементов1.Элементы.Элемент(2).Помечен = Истина;

Ф.ЗапуститьОбработкуСобытий();

Копировать     Выделить всё

Перем Ф, Индекс, НовоеЗначение, ТекущееЗначение;

Процедура СписокЭлементов1_ЭлементПомечен() Экспорт
	Аргументы1 = Ф.ЭлементПомеченАрг();
	Индекс = Аргументы1.Индекс;
	НовоеЗначение = Аргументы1.НовоеЗначение;
	ТекущееЗначение  = Аргументы1.ТекущееЗначение;
КонецПроцедуры

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll");
Ф = Новый ФормыДляОдноСкрипта();
Форма1 = Ф.Форма();
Форма1.Отображать = Истина;
Форма1.Показать();
Форма1.Активизировать();
Ф.РазрешитьСобытия = Истина;

СписокЭлементов1 = Форма1.ЭлементыУправления.Добавить(Ф.СписокЭлементов());
СписокЭлементов1.Стыковка = Ф.СтильСтыковки.Заполнение;
СписокЭлементов1.РежимОтображения = Ф.РежимОтображения.Список;

М3 = СтрРазделить(Ф.СвойстваОбъекта(Ф.Цвет()), Символы.ПС);
Для А = 0 По 20 Цикл
	М4 = СтрРазделить(М3[А], " ");
	ИмяЦвета = М4[0];
	Попытка
		Цв = Ф.Цвет(ИмяЦвета);
	Исключение
		Продолжить;
	КонецПопытки;
	СписокЭлементов1.Элементы.Добавить(Ф.ЭлементСпискаЭлементов(ИмяЦвета));
КонецЦикла;

СписокЭлементов1.Флажки = Истина;
СписокЭлементов1.ЭлементПомечен = Ф.Действие(ЭтотОбъект, "СписокЭлементов1_ЭлементПомечен");
СписокЭлементов1.Элементы.Элемент(2).Помечен = Истина;

Форма1.Активизировать();

Сообщить(?(
Индекс = 2 и 
НовоеЗначение = 1 и 
ТекущееЗначение = 0
, "", "!!! ") + "ЭлементПомеченАрг.Индекс (ItemCheckEventArgs.Index) Свойство" + " " + ТекущаяДата());