Компонент delphi Animate предназначен для воспроизведения анимации (видеоклип в формате .avi) на форме. Данный компонент возможно настроить как заранее, так и динамически, в ходе работы приложения.
Загрузка клипа осуществляется при помощи обращения к свойству FileName, в котором указывается имя файла с расширением .avi, либо указав в свойстве CommonAVI название одного из стандартных клипов ОС Windows.
Значения свойств CommonAVI
Название | Содержание |
aviNone | Имя клипа указано при помощи свойства FileName |
aviFindFile | Поиск файла |
aviFindFolder | Поиск папки |
aviFindComputer | Поиск компьютера |
aviCopyFile | Копирование одного файла |
aviCopyFiles | Копирование нескольких файлов |
aviRecycleFile | Удаление файла в корзину |
aviEmptyRecycle | Удаление содержимого корзины |
aviDeleteFile | Удаление файла |
Размер стандартных клипов ОС Windows бывает разным, поэтому, для свойства AutoSize рекомендуется указать значение True. В свойстве Transparent указывается, будет клип прозрачным или с использованием основного цвета.
Прежде чем запустить клип, его необходимо открыть. Для этого в свойстве Open задается значение True. При этом выбранный клип загружается в память, и подготавливается к воспроизведению. Во время открытия клипа генерируется сообщение OnOpen, в обработчике которого можно задать начальные значения тех или иных свойств.
Свойства FrameHeight и FrameWidth определяют высоту и ширину кадров в пикселях, а FrameCount – их количество. Также при помощи свойства Repetitions можно задать число повторений клипа.
Свойство Timers позволяет синхронизировать демонстрацию клипа с сообщениями таймера , при значении True. Свойства StartFrame и StopFrame определяют диапазон отображаемых кадров клипа.
Чтобы начать демонстрацию клипа, необходимо сгенерировать событие OnStart. Для этого требуется установить значение True для свойства Active. Для прерывания показа необходимо сгенерировать событие OnStop, при помощи метода Stop. Метод Reset позволяет сделать текущим первый кадр, в то время как метод Seek – позволяет продемонстрировать конкретный кадр.
1 2 3 4 5 6 7 8 9 10 | procedure TForm1.Button1Click(Sender: TObject); begin Animate1.Open:=true; Animate1.Active:=true; end; end. |