![]() Главная страница Случайная страница КАТЕГОРИИ: АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
Компонент 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.
|