Компонент 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.