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

Информатика. Программирование в Delphi
319
// видеофильм будет отображаться на компоненте Panel1
MediaPlayer1.Display:=Panel1;
//заголовок компонента
Panel1.Caption:='';
//внешние границы
Panel1.BevelInner:= bvLowered;
//внутренние границы
Panel1.BevelOuter:= bvLowered;
//цвет компонента
Panel1.Color:=clBlack;
//в Label1 будут выводиться текущее время просмотра фильма и
// через слеш −полное время фильма
//заголовок компонента
Label1.Caption:='';
//кнопка SpeedButton1 предназначена для запуска/останова фильма
//прозрачность
SpeedButton1.Flat:=true;
//кнопка SpeedButton2 предназначена для выбора фильма
//прозрачность
SpeedButton2.Flat:=true;
//количество изображений
SpeedButton1.NumGlyphs:=1;
//количество изображений
SpeedButton2.NumGlyphs:=1;
//вывод изображения на кноку
SpeedButton1.Glyph.LoadFromFile(dir+'Play.bmp');
//вывод изображения на кноку
SpeedButton2.Glyph.LoadFromFile(dir+'Open.bmp');
//фильтр компонента
OpenDialog1.Filter:='AVI files (*.avi)|*.avi';
//начальный каталог
OpenDialog1.InitialDir:=GetCurrentDir;
//видео не воспроизводится
pause:=true;
//тип шрифта
Label2.Font.Name:='Arial';
//размер шрифта
Label2.Font.Size:=14;
end;
9. В инспекторе объектов для кнопки SpeedButton1 создайте процедуру
SpeedButton1Click – обработчик события OnClick.
//выполняется при щелчке по кнопке SpeedButton1
procedure TForm1.SpeedButton1Click(Sender: TObject);