Переключатель.ПометкаИзменена (RadioButton.CheckChanged) Свойство

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

Перем Ф;

Процедура Переключатель1_ПометкаИзменена() Экспорт
	Сообщить("Переключатель1_ПометкаИзменена");
КонецПроцедуры

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

Переключатель1 = Ф.Переключатель();
Форма1.ЭлементыУправления.Добавить(Переключатель1);
Переключатель1.Положение = Ф.Точка(20, 20);
Переключатель1.Текст = "Переключатель1";
Переключатель1.Ширина = 350;
Переключатель1.АвтоПометка = Истина;
Переключатель1.Помечен = Истина;
Переключатель1.ПометкаИзменена = Ф.Действие(ЭтотОбъект, "Переключатель1_ПометкаИзменена");

Переключатель2 = Форма1.ЭлементыУправления.Добавить(Ф.Переключатель());
Переключатель2.Ниже(Переключатель1, 10);
Переключатель2.Ширина = Переключатель1.Ширина;
Переключатель2.Текст = "Переключатель2";
	
Ф.ЗапуститьОбработкуСобытий();

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

Перем Ф,  ПометкаИзменена;

Процедура Переключатель1_ПометкаИзменена() Экспорт
	ПометкаИзменена = Истина;
КонецПроцедуры

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

Переключатель1 = Ф.Переключатель();
Форма1.ЭлементыУправления.Добавить(Переключатель1);
Переключатель1.Положение = Ф.Точка(20, 20);
Переключатель1.Текст = "Переключатель1";
Переключатель1.Ширина = 350;
Переключатель1.АвтоПометка = Истина;
Переключатель1.Помечен = Истина;
Переключатель1.ПометкаИзменена = Ф.Действие(ЭтотОбъект, "Переключатель1_ПометкаИзменена");

Переключатель2 = Форма1.ЭлементыУправления.Добавить(Ф.Переключатель());
Переключатель2.Ниже(Переключатель1, 10);
Переключатель2.Ширина = Переключатель1.Ширина;
Переключатель2.Текст = "Переключатель2";

ПометкаИзменена = Ложь;

Ф.ВызватьСобытие(Переключатель1, "ПометкаИзменена");

Сообщить(?(
Переключатель1.ПометкаИзменена.ИмяМетода = "Переключатель1_ПометкаИзменена" и 
ПометкаИзменена
, "", "!!! ") + "Переключатель.ПометкаИзменена (RadioButton.CheckChanged) Свойство" + " " + ТекущаяДата());