Стр. 323 - Информатика. Программирование в среде Delphi. Часть 1

Информатика. Программирование в Delphi
323
//если имя файла выбрано
if MediaPlayer1.FileName<>'' then
begin
//позиция индикатора
ProgressBar1.Position:=round(ProgressBar1.Max*X /
ProgressBar1.Width);
//позиция фильма
MediaPlayer1.Position:=ProgressBar1.Position;
//вычисление процента
pr:=round(ProgressBar1.Position*100 / ProgressBar1.Max);
//вывод процента
Label1.Caption:=IntToStr(pr)+'%';
//получение текущего времени показа фильма
GetHMS(MediaPlayer1.Position,hh,mm,ss);
//вывод текущего и полного времени показа фильма
Label2.Caption:=GetHHMMSS(hh,mm,ss)+#32+'\'+#32+
GetHHMMSS(h,m,s);
//если видео не воспроизводится
if not pause then
//воспроизведение файла
MediaPlayer1.Play;
end;
end;
13. Запустите приложение. Откройте любой avi файл рис. 27.7.
Рис. 27.7