Стиль.Фильтр (Style.Filter) Свойство

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

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

Изображение1 = ДФ.Изображение();
Форма1.ДобавитьДочерний(Изображение1);
Изображение1.Источник = "maslenica10.jpg";
Изображение1.Стиль.Ширина = 200;

ФильтрИзображений1 = ДФ.ФильтрИзображений();
ФильтрИзображений1.Размытие = 2;
ФильтрИзображений1.Яркость = 200;
ФильтрИзображений1.Контраст = 200;
ФильтрИзображений1.Тень = ДФ.Тень(30, 30, 10, 20, ДФ.Цвет.Серебристый);
ФильтрИзображений1.ОттенкиСерого = 70;
ФильтрИзображений1.ПоворотОттенка = 30;
ФильтрИзображений1.Инверсия = 30;
ФильтрИзображений1.Непрозрачность = 30;
ФильтрИзображений1.Насыщенность = 8;
ФильтрИзображений1.Ретро = 50;

Изображение1.Стиль.Фильтр = ФильтрИзображений1;

Изображение2 = ДФ.Изображение();
Форма1.ДобавитьДочерний(Изображение2);
Изображение2.Источник = "img_flwr.gif";
Изображение2.Стиль.Фильтр = ДФ.ФильтрИзображений(2, 200, 200, ДФ.Тень(30, 30, 10, 20, ДФ.Цвет.Серебристый), 70, 30, 30, 30, 8, 50);

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