ЗначениеСвойстваИзмененоАрг.ИзмененныйЭлемент (PropertyValueChangedEventArgs.ChangedItem) Свойство

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

Перем Ф;

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

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

СеткаСвойств1 = Форма1.ЭлементыУправления.Добавить(Ф.СеткаСвойств());
СеткаСвойств1.ОтображатьПанельИнструментов = Истина;
СеткаСвойств1.Стыковка = Ф.СтильСтыковки.Заполнение;
СеткаСвойств1.ВыбранныйОбъект = Форма1;
СеткаСвойств1.ЗначениеСвойстваИзменено = Ф.Действие(ЭтотОбъект, "СеткаСвойств1_ЗначениеСвойстваИзменено");
	
Ф.ЗапуститьОбработкуСобытий();

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

Перем Ф, ИзмененныйЭлементЗначение;

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

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

СеткаСвойств1 = Форма1.ЭлементыУправления.Добавить(Ф.СеткаСвойств());
СеткаСвойств1.ОтображатьПанельИнструментов = Истина;
СеткаСвойств1.Стыковка = Ф.СтильСтыковки.Заполнение;
СеткаСвойств1.ВыбранныйОбъект = Форма1;
СеткаСвойств1.ЗначениеСвойстваИзменено = Ф.Действие(ЭтотОбъект, "СеткаСвойств1_ЗначениеСвойстваИзменено");

Если Ф.ПлатформаWin Тогда
	СеткаСвойств1.ВыбранныйЭлементСетки = СеткаСвойств1.ЭлементыСетки.Элемент(45);
	СеткаСвойств1.Фокус();
	Приостановить(1000);
	Ф.ОтправитьКлавиши("{TAB}");
	Приостановить(1000);
	Ф.ОтправитьКлавиши("{DEL}");
	Приостановить(1000);
	НовоеЧисло = Число(СеткаСвойств1.ВыбранныйЭлементСетки.Значение) + 10;
	Ф.ОтправитьКлавиши("" + НовоеЧисло);
	Приостановить(1000);
	Ф.ОтправитьКлавиши("{ENTER}");
	Приостановить(1000);
	Форма1.Активизировать();
	
	Сообщить(?(ИзмененныйЭлементЗначение = НовоеЧисло, "", "!!! ") + "ЗначениеСвойстваИзмененоАрг.ИзмененныйЭлемент (PropertyValueChangedEventArgs.ChangedItem) Свойство" + " " + ТекущаяДата());
Иначе
	Сообщить(?(Истина, "", "!!! ") + "ЗначениеСвойстваИзмененоАрг.ИзмененныйЭлемент (PropertyValueChangedEventArgs.ChangedItem) Свойство" + " " + ТекущаяДата());
КонецЕсли;