Элемент.ФокусПолучен (Element.Focused) Событие

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

Перем ДФ, Абзац1, ФокусПолучен;

Процедура Абзац1_ФокусПолучен() Экспорт
	// Сообщить("Абзац1_ФокусПолучен");
	ФокусПолучен = Истина;
	Сообщить(?(
	ФокусПолучен
	, "", "!!! ") + "ФокусПолучен_Абзац_событие.os" + " " + ТекущаяДата());
	// ДФ.ЗавершитьРаботу();
КонецПроцедуры

Процедура Абзац1_ФокусПотерян() Экспорт
	// Сообщить("Абзац1_ФокусПотерян");
КонецПроцедуры

ФокусПолучен = Ложь;

ПодключитьВнешнююКомпоненту("C:\444\111\DeclarativeForms\DeclarativeForms\bin\Debug\DeclarativeForms.dll");
ДФ = Новый ДекларативныеФормы();
Форма1 = ДФ.Форма;
Форма1.НачальнаяШирина = 300;
Форма1.НачальнаяВысота = 200;
Форма1.Позиция = ДФ.ПозицияФормы.Центр;

Абзац1 = ДФ.Абзац();
Абзац1.Родитель = Форма1;
Абзац1.Текст = "Это Абзац1";
Абзац1.Стиль.ЦветФона = ДФ.Цвет.Красный;
Абзац1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Абзац1_ФокусПолучен");
Абзац1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Абзац1_ФокусПотерян");
Абзац1.Редактируемый = Истина;

Абзац2 = ДФ.Абзац();
Абзац2.Родитель = Форма1;
Абзац2.Текст = "Это Абзац2";
Абзац2.Стиль.ЦветФона = ДФ.Цвет.Голубой;
Абзац2.Редактируемый = Истина;

Абзац1.Фокус();

Форма1.Открыть();