ЛАБОРАТОРНАЯ РАБОТА №31 Тема: Разработка поекта создания и использования мультимедийных возможностей
Цель:Сформировать умения создавать проект с использованием мультимедийных возможностей
Программное обеспечение: DELPHI
Оснащение:персональный компьютер, практикум
Время проведения: 2 уч. часа
Литература:
1. Фаронов В.В. Delphi. Программирование на языке высокого уровня: Учебник для вузов. 49-51, 400-483.
2. Бобровский С.И. Delphi 7. Учебный курс. СПб.: Питер, 2008. С. 151-182.
3. Чертик А.А., Борисок В.В., Корвель Ю.И. Delphi. Трюки и эффекты. СПб.: Питер, 2007. С. 10-48, 72-90.
4. Флёнов М.Е. Delphi в шутку и в серьез: что умеют хакеры. СПб.: Питер, 2006. С. 15-102.
ВОПРОСЫ ВХОДНОГО КОНТРОЛЯ:
1. Перечислите компоненты страницы Win32, их назначение, свойства, методы.
2. Перечислите компоненты страницы System, Dialogs и Samples, их назначение, свойства, методы.
СОДЕРЖАНИЕ РАБОТЫ:Разработать проект с использованием компонентов страниц Standard, Additional и Win32.
Форму подписать: Фамилия Имя (учащегося), №(группы)-(номер подгруппы)-(номер по списку).
На форме расположить три компоненты TPanel из страницы Standard, указав соответственно их свойства соответственно в Align: снизу; заполнить оставшееся пространство; отсутствуют.
На панели, которая расположена снизу, расположить компоненту ТMediaPlayer.
Для панели, которая заполняет оставшееся пространство, активировать действие OnResize или дополнить еще одним компонентом TPanel и разработать подпрограмму увеличения/уменьшения экрана отображения анимации в соответствии с увеличением/уменьшением размера формы.
Описать свойства и действия компоненты MediaPlayer.
Образец выполнения задания
procedure TForm1.pnDisplayResize(Sender: TObject);
Begin
MediaPlayer1.DisplayRect := Rect(0, 0,
Panel1.Width, Panel1.Height);
end;
МЕТОДИЧЕСКИЕ УКАЗАНИЯ
procedure TForm1.FormResize(Sender: TObject);
Begin
MediaPlayer1.Width := Panel2.Width;
MediaPlayer1.Height := Panel2.Height;
end;
procedure TForm1.pnDisplayClick(Sender: TObject);
Begin
Panel2.Visible := not Panel2.Visible;
End;
procedure TForm1.pnDisplayResize(Sender: TObject);
Var i:real;
Begin
i := pnDisplay.Height / pnDisplay.Width;
if(i<(3/4)) then
Begin
Panel1.Height:=pnDisplay.Height;
Panel1.Width:= Panel1.Height*4 div 3;
Panel1.Left := ((pnDisplay.Width - Panel1.Width)div 2) -5;
Panel1.Top := 2;
End
Else
Begin
Panel1.Width:=pnDisplay.Width;
Panel1.Height:= Panel1.Width*3 div 4;
Panel1.Top := ((pnDisplay.Height - Panel1.Height)div 2) -5;
Panel1.Left:=2;
End;
MediaPlayer1.DisplayRect := Rect(0,0, Panel1.Width,Panel1.Height);
End;
End.
ВОПРОСЫ ВЫХОДНОГО КОНТРОЛЯ:
Опишите компоненты Animate и MediaPlayer.
ДОМАШНЕЕ ЗАДАНИЕ
Выучить компоненты Animate и MediaPlayer, их назначение, свойства, методы.