Кадры.Добавить (Frames.Add) Метод

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

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

Блок0 = Форма1.ДобавитьДочерний(ДФ.Блок()); // Этот блок будет вращаться.
Блок0.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный);
Блок0.Стиль.Ширина = 45;
Блок0.Стиль.Высота = 45;
Блок0.Стиль.Отступ = ДФ.Отступ(100, , , 100);

// Создадим одельные кадры.
Кадр01 = ДФ.Стиль();
Кадр01.ОтступСлева = 10;
Кадр01.Сдвиг = ДФ.Поворот(0);
Кадр01.Смещение = 0; // Для первого и последнего кадра задать смещение во времени обязятельно.
Кадр02 = ДФ.Стиль();
Кадр02.ОтступСлева = 300;
Кадр02.Сдвиг = ДФ.Поворот(180);
Кадр02.Смещение = 1; // Для первого и последнего кадра задать смещение во времени обязятельно.
// Соберем одельные кадры.
Кадры0 = ДФ.Кадры();
Кадры0.Имя = "вращение"; // Обязательно задаем имя.
Кадры0.Добавить(Кадр01);
Кадры0.Добавить(Кадр02);

Блок1 = Блок0.ДобавитьДочерний(ДФ.Блок()); // Этот блок будет масштабироваться.
Блок1.Стиль.Позиция = ДФ.Позиция.Относительно;
Блок1.Стиль.Ширина = 45;
Блок1.Стиль.Высота = 45;
Блок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный);
Блок1.Стиль.РадиусГраницы = ДФ.РадиусГраницы(5, 5, 5, 5);
Блок1.Стиль.ЦветТекста = ДФ.Цвет.Зеленый;
Блок1.ДобавитьДочерний(ДФ.Абзац()).Текст = "Блок1";

// Создадим одельные кадры.
Кадр1 = ДФ.Стиль();
Кадр1.ЦветФона = ДФ.Цвет.Серый;
Кадр1.ЦветТекста = ДФ.Цвет.Бирюзовый;
Кадр1.Сдвиг = ДФ.Масштаб(1, 1);
Кадр1.Смещение = 0; // Для первого и последнего кадра задать смещение во времени обязятельно.
Кадр2 = ДФ.Стиль();
Кадр2.ЦветФона = ДФ.Цвет.Лаванда;
Кадр2.ЦветТекста = ДФ.Цвет.Красный;
Кадр2.Сдвиг = ДФ.Масштаб(2, 2);
Кадр2.Смещение = 0.33;
Кадр3 = ДФ.Стиль();
Кадр3.ЦветФона = ДФ.Цвет.БледноЖелтый;
Кадр3.ЦветТекста = ДФ.Цвет.Васильковый;
Кадр3.Сдвиг = ДФ.Масштаб(3.5, 3.5);
Кадр3.Смещение = 0.66;
Кадр4 = ДФ.Стиль();
Кадр4.ЦветФона = ДФ.Цвет.Красный;
Кадр4.ЦветТекста = ДФ.Цвет.Черный;
Кадр4.Сдвиг = ДФ.Масштаб(4.5, 4.5);
Кадр4.Смещение = 1; // Для первого и последнего кадра задать смещение во времени обязятельно.
// Соберем одельные кадры.
Кадры1 = ДФ.Кадры();
Кадры1.Имя = "масштаб"; // Обязательно задаем имя.
Кадры1.Добавить(Кадр1);
Кадры1.Добавить(Кадр2);
Кадры1.Добавить(Кадр3);
Кадры1.Добавить(Кадр4);

Стиль1 = ДФ.Стиль(); // Обязательно создаем стиль для кадров.
Стиль1.Кадры = Кадры1;
Анимация1 = ДФ.СвойстваАнимации(Кадры1.Имя, 3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, -1, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, ДФ.Состояние.Запущена);
Блок1.Стиль.Анимация = Анимация1;

Стиль0 = ДФ.Стиль(); // Обязательно создаем стиль для кадров.
Стиль0.Кадры = Кадры0;
Анимация0 = ДФ.СвойстваАнимации(Кадры0.Имя, 3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, -1, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, ДФ.Состояние.Запущена);
Блок0.Стиль.Анимация = Анимация0;

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