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

Информатика. Программирование в Delphi
320
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;
10. В инспекторе объектов для кнопки SpeedButton2 создайте процедуру
SpeedButton2Click для обработки события OnClick.
//выполняется при щелчке по кнопке SpeedButton2 (найти фильмы)
procedure TForm1.SpeedButton2Click(Sender: TObject);
var
//реальные ширина и высота кадров
rw,rh:integer;
//ширина и высота кадров на форме
dw,dh:integer;
//координаты левого верхнего угла кадра на форме
l,t:integer;
begin
//если пользователь нажал кнопку Отмена
if not OpenDialog1.Execute then
//выход из процедуры