Компонент tAnimate
TAnimate |
|
Проигрыватель видео клипов формата *.avi.
Свойства:
Active: Boolean;
- разрешает/запрещает демонстрацию клипа;
FileName: TFileName;
- связывает компонент с avi-файлом;
Display: TWinControl;
- задает окно, в котором будет происходить вывод (по умолчанию Display=nil).
Компонент tDateTimePicker
TDateTimePicker |
|
Компонент TDateTimePicker предназначен для ввода и/или отображения даты и времени.
Свойства:
Date: TDate;
- содержит введенную дату;
DateFormat: TDTDateFormat = (dfShort, dfLong)
- определяет формат показа даты;
Kind: TDate;
TimeKind = (dtkDate, dtkTime);
- определяет содержимое компоненты;
Time: TTime;
- содержит введенное время.
Компонент tMediaPlayer
TMediaPlayer |
|
Компонент TMediaPlayer позволяет управлять различными устройствами мультимедиа, которые имеют MCI (Media Control Interface) совместимый драйвер.
Свойства:
FileName: TFileName;
- имя воспроизводимого файла (*.avi, *.wav, *.mid);
AutoOpen: Boolean;
- автоматически определять устройство по расширению файла;
Display: TWinControl;
- задает окно, в котором будет происходить вывод (по умолчанию Display := nil;).
Пример.
U
nit
DemoTMediaPlayer;
Interface
Type
TForm1 = class (TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
Timer1: TTimer;
Animate1: TAnimate;
ProgressBar1: TProgressBar;
DateTimePicker1: TDateTimePicker;
BitBtn1:
TBitBtn;
MediaPlayer1: TMadiaPlayer;
Procedure PageControl1Change( );
Procedure FormCreat( );
Procedure Timer1Timer( );
Procedure BitBtn1Click( );
end;
var
Form1: TForm1;
Implemantation
Procedure TForm1.FormCreate( );
begin
Timer1.Interval := 10;
DateTimePicker1.Date := Date;
MediaPlayer.AutoOpen := true;
MadiaPlayer.FileName := ’...’;
Animate1.FileName := ’...’;
end;
Procedure TForm1.PageControl1Change( );
begin
if PageControl1.ActiveControl = TabSheet1 then
ProgressBar1.Position := 0;
if PageControl1.ActiveControl = TabSheet2 then
begin
Timer1.Enabled := false;
Animate1.Active := false;
ProgressBar1.Position := 0;
end;
end;
Procedure TForm1.Timer1Timer( );
begin
ProgressBar1.Position := ProgressBar1.Position + 1;
if ProgressBar1.Position >= ProgressBar1.Max then
begin
ProgressBar1.Position := 0;
Timer1.Enabled := false;
Animate1.Active := false;
end;
end;
Procedure TForm1.Timer1Timer( );
begin
Animate1.Active := true;
Timer1.Enabled := true;
end;
end.
СРЕДСТВА СОЗДАНИЯ АНИМАЦИИ
Компонент 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.