Компонент TAnimate

СРЕДСТВА СОЗДАНИЯ АНИМАЦИИ

TAnimate

На странице WIN 32 палитры компонент помещен компонент TAnimate. Он позволяет проигрывать видео клипы формата *.avi.

Свойства:

Active: Boolean;

- разрешает/запрещает демонстрацию клипа;

FileName: TFileName;

- связывает компонент с avi-файлом;

Display: TWinControl;

- задает окно, в котором будет происходить вывод (по умолчанию

Display:= nil).

Рассмотрим пример.

Поместим на форму компоненты: TAnimate, ProgressBar, Timer, MonthCalendar и BitBtn (см. фиг.1).

Листинг имеет вид:

unit DEMOAnimate;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics,

Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls,

ComCtrls;

type

TForm1 = class(TForm)

Animate1: TAnimate;

ProgressBar1: TProgressBar;

Timer1: TTimer;

BitBtn1: TBitBtn;

MonthCalendar1: TMonthCalendar;

procedure BitBtn1Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

Animate1.FileName:= 'cool.avi'; //Указываем файл с клипом

Animate1.Active:= True; //Запускаем клип

ProgressBar1.Show; //Показываем ProgressBar

Timer1.Enabled:= True; //Включаем таймер

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

ProgressBar1.Position:= ProgressBar1.Position + 1;

if ProgressBar1.Position >= ProgressBar1.Max then

begin

Timer1.Enabled:= False; //Выключаем таймер

ProgressBar1.Position:= 0; //Готовим новый запуск

ProgressBar1.Hide; //Прячем ProgressBar

Animate1.Stop //Останавливаем клип

end;

end;

end.

Дата добавления: 2014-01-07