Стиль.ИсточникПерспективы (Style.PerspectiveOrigin) Свойство

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

Перем ДФ, Результат1, Результат2, Блок1, ИсточникПерспективы1;

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

Процедура Ползунок2_Ввод() Экспорт
	Результат2.Значение = ДФ.АргументыСобытия.Значение;
	ИсточникПерспективы1.Игрек = ДФ.АргументыСобытия.Значение;
	Блок1.Стиль.ИсточникПерспективы = ИсточникПерспективы1;
КонецПроцедуры

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

БлокПолзунок1 = Форма1.ДобавитьДочерний(ДФ.Блок());

Ползунок1 = БлокПолзунок1.ДобавитьДочерний(ДФ.Ползунок());
Ползунок1.Максимум = 400;
Ползунок1.Минимум = -40;
Ползунок1.Значение = 150;
Ползунок1.Ввод = ДФ.Действие(ЭтотОбъект, "Ползунок1_Ввод");

БлокПолзунок1.ДобавитьДочерний(ДФ.НаправленныйТекст()).Текст = " по X = ";

Результат1 = БлокПолзунок1.ДобавитьДочерний(ДФ.Результат());
Результат1.Значение = Ползунок1.Значение;

БлокПолзунок2 = Форма1.ДобавитьДочерний(ДФ.Блок());

Ползунок2 = БлокПолзунок2.ДобавитьДочерний(ДФ.Ползунок());
Ползунок2.Максимум = 400;
Ползунок2.Минимум = -40;
Ползунок2.Значение = 150;
Ползунок2.Ввод = ДФ.Действие(ЭтотОбъект, "Ползунок2_Ввод");
Ползунок2.Стиль.Позиция = ДФ.Позиция.Статично;

БлокПолзунок2.ДобавитьДочерний(ДФ.НаправленныйТекст()).Текст = " по Y = ";

Результат2 = БлокПолзунок2.ДобавитьДочерний(ДФ.Результат());
Результат2.Значение = Ползунок2.Значение;

Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок());
Блок1.Стиль.Позиция = ДФ.Позиция.Относительно;
Блок1.Стиль.Отступ = ДФ.Отступ(, , , , Истина);
Блок1.Стиль.Ширина = 250;
Блок1.Стиль.Высота = 150;
Блок1.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10);
Блок1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный);
Блок1.Стиль.Перспектива = 125;
Блок1.Текст = "Блок1";

ИсточникПерспективы1 = ДФ.ИсточникПерспективы(0.5, 0.9);
Блок1.Стиль.ИсточникПерспективы = ИсточникПерспективы1;

Блок2 = Блок1.ДобавитьДочерний(ДФ.Блок());
Блок2.Стиль.Заполнение = ДФ.Заполнение(50, 50, 50, 50);
Блок2.Стиль.Позиция = ДФ.Позиция.Абсолютно;
Блок2.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный);
Блок2.Стиль.ЦветФона = ДФ.Цвет.Коралловый;
Блок2.Стиль.Сдвиг = ДФ.ПоворотИкс(45);
Блок2.Текст = "Алиса как можно вежливее объяснила, что немного заблудилась, а теперь разобралась, что к чему и что куда, и идет себе своей дорогой.";

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