Мультимедиа.
Для демонстрации мультимедийных свойств поместите на форму компоненты:
animate, MediaPlayer, Image, progressbar, OpenPictureDialog, FontDialog, ColorDialog, timer, 6 кнопок, 6 поясняющих меток.
Используйте приложение «Мультимедиа» из папки«Задания»
и папку «DataMM» для данных приложения. Создайте копию
программы.
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute then // если компонент существует
begin
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
Image1.Stretch:=True; // картинка принимает
размеры формы Image
end;
end;
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
animate1.FileName:='DataMM\File_Search.avi';
// имя анимации
animate1.Active:=true; // активизация
timer1.Enabled:=true; // включить таймер
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
progressbar1.Position:=progressbar1.Position+1; // активизация progressbar
if progressbar1.Position>=progressbar1.Max
then // если дошёл до конца
begin
timer1.Enabled:=false;
progressbar1.Position:=0;
animate1.Stop;
end;
end;
procedure
TForm1.BitBtn1Click(Sender: TObject);
begin
With MediaPlayer1 do // вместе с объектом
begin
Close;
// закрыть предыдущую запись
FileName:='DataMM\TADA.wav';
// имя файла
Open;
// открыть файл
Play; // играть
end;
end;
procedure TForm1.BitBtn4Click(Sender: TObject);
begin
// кнопка остановки анимации
animate1.Stop;
end;
procedure TForm1.BitBtn5Click(Sender: TObject); // Изменение
цвета
begin
If ColorDialog1.Execute then
Form1.Color:=ColorDialog1.Color;
end;
procedure TForm1.BitBtn6Click(Sender: TObject);
begin
If FontDialog1.Execute then
begin
// Изменение шрифта
Label1.Font:=FontDialog1.Font;
Label2.Font:=FontDialog1.Font;
Label3.Font:=FontDialog1.Font;
Label4.Font:=FontDialog1.Font;
Label5.Font:=FontDialog1.Font;
Label6.Font:=FontDialog1.Font;
end;
end;