Лабopaторная работа № 3 Графика в Delphi, классы tFont (шрифт), tPen (перо), tBrush (кисть)
Цель работы:
Построить изображение следующего вида, где овал обозначен красным цветом, а надпись белым цветом.
ФОРМА
DELPHI
Рис3. Форма к лабораторной работе №4
Указания к работе
Перенесите на форму компонент PaintBox со страницы System
Выполните двойной щелчок по компоненту PaintBox и затем наберите текст программы:
Procedure Tform1.PaintBox1Paint (Sender: TObject);
var
x,y:integer;
begin
with paintbox1, canvas do
begin
brush.color:=clred;
ellipse(0, 0, width, height);
font.Name:=’arial’;
font.Size:=height div 5;
font.Style:=[fsbold,fsitalic];
font.Color:=clwhite;
x:=(width-textwidth(‘delphi’)) div 2;
y:=(height – textheight(‘d’)) div 2;
textout(x, y, ‘delphi’)
end;
end;
end.
Дополнительное задание: Внесите в рисунок следующие изменения: сама линия овала должна быть красным цветом, а внутренняя область овала закрашена синим цветом, причем узором в виде сетки, цвет текста обозначьте черным цветом. Для рисования линии овала используйте класс TPen (Перо). Используйте стиль кисти (свойство Style) bsCross (узор сеткой).
Лабopaторная работа № 4 Просмотр изображений с помощью компонентов
ОleContainer и Mediaplayer
Цель работы: Разработать приложения, предназначенные для просмотра изображений с помощью компонентов ОleContainer и Mediaplayer.
Указания к работе
Просмотр изображения с помощью компонента TОleContainer.
Создайте приложение с пустой формой и вставьте в нее главное меню TMainMenu c единственной командой Файл.
Поместите на форму компонент TOleContainer. Установите в его свойство Allign значение alClient.
Напишите такой обработчик события OnCreate для формы Form1:
Procedure TForm1.FormCreate (Sender : TObject);
Const
BMP_Name =
‘C:\Program Files\Common Files\Borland ‘+ ‘Shared\Images\Splash\16Cоlor\athena.bmp’;
begin
OleContainer1.CreateObjectFromFile(BMP_Name, False)
end;
Теперь можно использовать графический редактор Paint для редактирования изображения.
Команда главного меню Файл не задействована, но при запуске сервера происходит замена пунктов главного меню программы пунктами главного меню сервера.
Просмотр фильма с помощью компонента TMediaPlayer
Поместите на пустую форму две панели. Удалите содержимое их свойств Caption. Для нижней панели установите Align = alBottom, для верхней Align=alClient
Верхняя панель будет экраном для отображения изображения. Установите для нее Name = pnDisplay
Поместите на нижнюю панель компонент TMediaPlayer cо страницы System и введите в его свойство Display ссылку на панель pnDisplay. Раскройте список свойства FileName и выберите в нем файл
С:\Program Files\Borland\Delphi7\Demos\CoolStuf\speedis.avi.
Поместите в его свойство AutoOpen значение True.
Напишите такой обработчик события ОnResize для формы:
Procedure TForm1.DisplayResize(Sender: TObject);
begin
MediaPlayer1.DisplayRect:=
Rect(0,0, Display.Width, Display.Height);
end;
После щелчка мышью по кнопке
вы увидите рекламный ролик «speed
is Delphi».