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

Информатика. Программирование в Delphi
322
dh:=Panel1.Height-6;
//ширина кадра
dw:=round(dh*rh/rw);
//координаты левого верхнего угла кадра
l:=(Panel1.Width div 2) - (dw div 2);
t:=3;
end;
//размеры отображаемого видео
//ширина и высота кадра
MediaPlayer1.DisplayRect:=Rect(l,t,dw,dh);
end;
11. В инспекторе объектов для таймера Timer1 создайте процедуру
Timer1Timer для обработки события OnTimer.
//выполняется периодически через заданные интервалы времени
procedure TForm1.Timer1Timer(Sender: TObject);
var
//процент заполнености индикатора
pr:byte;
//текущее время фильма
hh,mm,ss:byte;
begin
//позиция индикатора
ProgressBar1.Position:=MediaPlayer1.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);
end;
12. В инспекторе объектов для компонента ProgressBar1 создайте проце-
дуру ProgressBar1MouseDown для обработки события OnMouseDown.
//выполняется при щелчке кнопки мыши по компоненту ProgressBar1
procedure TForm1.ProgressBar1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
//процент заполнености индикатора
pr:byte;
//текущее время фильма
hh,mm,ss:byte;
begin