Delphi. Трюки и эффекты

Листинг 5.5. Обработчик выбора анимационных роликов

//Выбор стандартной анимации

procedure TFormViewAnim.RadioGroupSelectAnimEffectsClick(Sender:

TObject);

begin

//Устанавливаем доступность кнопок управления

bnStopView.Enabled := False;

bnStartView.Enabled := True;

//Устанавливаем значение свойства CommonAVI

StandartAnimate.CommonAVI :=

TypeofAVI[RadioGroupSelectAnimEffects.ItemIndex];

//Если анимация не выбрана, делаем недоступной

//кнопку старта показа

if RadioGroupSelectAnimEffects.ItemIndex = 0

then bnStartView.Enabled := False

else bnStopView.Enabled := True;

end;

Значения индексов (RadioGroupSelectAnimEf f ects. Itemlndex) переключателей соответствуют порядковым номерам в массиве Typeof AVI, который содержит возможные значения свойства CommonAVI.

При нажатии кнопки начала показа происходит вызов метода Play компонента Animate и устанавливается доступность кнопок управления показом:

...

//Старт показа

procedure TFormViewAnim.bnStartViewClick(Sender: TObject);

begin

//Начинаем показ выбранной анимации

StandartAnimate.Play(1, StandartAnimate.FrameCount, 0);

bnStartView.Enabled := False;

bnStopView.Enabled := True;

end;

Обработчик кнопки Стоп основан на вызове метода Stop компонента Animate и выглядит следующим образом:

...

procedure TFormViewAnim.bnStopViewClick(Sender: TObject);

begin

//Остановка показа анимации

StandartAnimate.Stop;

bnStartView.Enabled := True;

bnStopView.Enabled := False;

end;

Зачастую компонент Animate используется при создании панелей инструментов для добавления в них анимационных пиктограмм, которые оживляют форму и служат для индикации того, что программа выполняет ту или иную обработку данных. Воспроизведение изображения может осуществляться, например, при нажатии кнопки в панели инструментов или по истечении заданного интервала времени.

Компонент Animate обеспечивает воспроизведение только простых AVI-файлов. С той же целью можно использовать компонент MediaPlayer, который с функциональной точки зрения значительно сложнее и обеспечивает много других мультимедийных возможностей.

5.4. Разработка звукового проигрывателя

Обладая достаточно большим багажом знаний о мультимедийных компонентах Delphi, мы вплотную подошли к созданию программы-проигрывателя. В рамках этой книги разработка многофункционального сложного проигрывателя не предусматривается, но создание легко реализуемого приложения с набором необходимых функций будет рассмотрено. Таким образом, приступим к проектированию проигрывателя. Для начала определим набор необходимых функций. В качестве базовых возможностей любого проигрывателя как видео-, так и аудиофайлов выделяют: непосредственно воспроизведение выбранного файла, возможность кратковременной остановки и возобновления воспроизведения (функция паузы), остановки, перемещение позиции воспроизведения (перемотка). Необходимыми также являются показ времени проигрывания и имя воспроизводимого файла. Как известно, компонент MediaPLayer поддерживает почти все эти функции, за исключением двух последних. Следовательно, MediaPLayer практически идеально подходит на роль основного элемента разрабатываемого проигрывателя.

Итак, создаем новый проект приложения. Соответствующим образом настраиваем свойства формы программы. Убираем кнопку максимизации, в данном случае она является лишней: устанавливаем значение False свойству biMaximaze, которое находится на вкладке Borderlcons. Устанавливаем BorderStyle равным bsSingle. Это не позволит пользователю изменять размеры формы. Для удобства использования проигрыватель появляется в центре экрана, следовательно, свойство Position устанавливаем как poScreenCenter. Настраиваем цвета, в рассматриваемом случае Color равно clInactiveCaptionText.