АргументыСобытия.ИгрекЭкрана (EventArgs.ScreenY) Свойство

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

Перем ДФ, Абзац1;

Процедура Абзац1_ПриНажатииМыши() Экспорт
	Абзац1.Текст = "
|ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "
|ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "
|ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "
|ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "
|ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "
|ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "
|";
КонецПроцедуры

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

Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац());
Абзац1.Текст = "";
Абзац1.Стиль.Высота = 200;
Абзац1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой");
Абзац1.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "Абзац1_ПриНажатииМыши");

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