Иллюстрированный самоучитель по Delphi 7 для начинающих

Компонент Animate

Таблица 11.2. Значения свойств компонента Animate1.

Свойство Значение
FileName bart.avi
Active False
Transparent True

После запуска программы в форме выводится первый кадр анимации. Программа обеспечивает два режима просмотра анимации: непрерывный и покадровый.

Кнопка Button1 используется как для инициализации процесса воспроизведения анимации, так и для его приостановки. Процесс непрерывного воспроизведения анимации инициирует процедура обработки события Onclick на кнопке Пуск, которая присваивает значение True свойству Active. Эта же процедура заменяет текст на кнопке Button1 с Пуск на Стоп.

Режим воспроизведения анимации выбирается при помощи переключателей RadioButton1 и RadioButton2. Процедуры обработки события Onclick на этих переключателях изменением значения свойства Enabled блокируют или, наоборот, делают доступными кнопки управления: активизации воспроизведения анимации (Button1), перехода к следующему (Button2) и предыдущему (Buttons) кадру. Во время непрерывного воспроизведения анимации процедура обработки события OnCkick на кнопке Стоп (Button1) присваивает значение False свойству Active и тем самым останавливает процесс воспроизведения анимации.

Компонент Animate позволяет программисту использовать в своих программах стандартные анимации Windows. Вид анимации определяется значением свойства СommonAVI. Значение свойства задается при помощи именованной константы. В табл. 11.3 приведены некоторые значения констант, вид анимации и описание процесса, для иллюстрации которого используется эти анимации.

Таблица 11.3. Значение свойства comonAVi определяет анимацию.

Значение Анимация Процесс
aviCopyFiles Иллюстрированный самоучитель по Delphi 7 для начинающих › Мультимедиа-возможности Delphi › Компонент Animate Копирование файлов
AviDeleteFile Иллюстрированный самоучитель по Delphi 7 для начинающих › Мультимедиа-возможности Delphi › Компонент Animate Удаление файла
aviRecycleFile Иллюстрированный самоучитель по Delphi 7 для начинающих › Мультимедиа-возможности Delphi › Компонент Animate Удаление файла в корзину
Если Вы заметили ошибку, выделите, пожалуйста, необходимый текст и нажмите CTRL + Enter, чтобы сообщить об этом редактору.