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

Информатика. Программирование в Delphi
326
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;
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
if MediaPlayer1.FileName<>'' then
if pause then
begin
MediaPlayer1.Play;
Timer1.Enabled:=true;
SpeedButton1.Glyph.LoadFromFile(dir+'Stop.bmp');
pause:=false;
end
else
begin
MediaPlayer1.Pause;
Timer1.Enabled:=false;
SpeedButton1.Glyph.LoadFromFile(dir+'Play.bmp');
pause:=true;
end;
end;
procedure TForm1.SpeedButton2Click(Sender: TObject);
var
rw,rh:integer;
dw,dh:integer;
l,t:integer;
begin
if not OpenDialog1.Execute then
exit;
if MediaPlayer1.FileName<>'' then
MediaPlayer1.Close;
MediaPlayer1.FileName:=OpenDialog1.FileName;
MediaPlayer1.Open;
pause:=true;
SpeedButton1.Glyph.LoadFromFile(dir+'Play.bmp');
Form1.Caption:=ExtractFileName(MediaPlayer1.FileName);
ProgressBar1.Min:=0;
ProgressBar1.Max:=MediaPlayer1.Length;