Лабораторная работа №8 (9)
Обработка графической информации в Delphi
Цель работы: изучение программных способов формирования графических изображений в интегрированной среде разработки Delphi.
Задание
Создать папку, проект, блок-схему алгоритма, таблицу компонентов формы, таблицу значений свойств компонентов формы и Object Pascal программу для рисования геометрического объекта согласно варианту.
Вариант №9.
Ход работы
Таблица компонентов
Объект |
Назначение |
Button1 |
Кнопка активации процедуры рисования. |
Image1 |
Объект для вывода графического изображения. |
Таблица значений свойств компонентов формы
Свойство |
Значение |
Form1.Caption |
Графика |
Button1. |
Рисовать. |
Image1 |
|
![]() |
![]() |
![]() |
![]() |
Рисунок 1 – Блок-схема
Рисунок 2 – Форма
Код программы
procedure TForm1.Button1Click(Sender: TObject);
var x,y:integer;
begin
x:=clientwidth div 2;
y:=clientheight div 2;
with canvas do
begin
pen.Width:=3;
roundrect(x-60,y-110,x+60,y-70,20,20);
roundrect(x-50,y-100,x+50,y-70,20,20);
rectangle(x-160,y-80,x+160,y+80);
moveto(x-160,y-40);lineto(x-120,y-80);
moveto(x+160,y-40);lineto(x+120,y-80);
moveto(x-160,y+40);lineto(x-120,y+80);
moveto(x+160,y+40);lineto(x+120,y+80);
roundrect(x+40,y+45,x+120,y+60,10,10);
end;
end;
end.
Рисунок 3 – Вид окна программы
Вывод: в ходе данной лабораторной работы приобретены навыки в работе с графическими данными в интегрированной среде разработки Delphi. Использовался объект Canvas, который представляет собой поверхность, на которую можно выводить текст и иные графические изображения - линии, прямоугольники, эллипсы и т.д. Но при ближайшем рассмотрении можно увидеть, что этот холст представляет собой плоскость, состоящую из отдельных точек - пикселей. Пиксель - это базовый элемент графического ввода, представляющий собой отдельную точку. Работая с холстом посредством методов, предоставляемых классом TCanvas, можно выводить не только точки, но и текст, линии, прямоугольники, многоугольники, окружности, и даже готовые изображения. В коде программы использован оператор with, который был применен к объекту Canvas, что позволило не прописывать обращение к нему при построении различных геометрических фигур.
По умолчанию перо имеет черный цвет. Для изменения цвета необходимо ввести переменную Self , скрытый параметр для каждого метода в объекте. Он позволяет методу обратиться к объекту. Затем Canvas.Pen.Color:= и выбрать нужный цвет линии, в данном случае – красный (clRed). Пример:
procedure TForm1.Button1Click(Sender: TObject);
var x,y:integer;
begin
x:=clientwidth div 2;
y:=clientheight div 2;
with canvas do
begin
pen.Width:=3;
roundrect(x-60,y-110,x+60,y-70,20,20);
Self.Canvas.Pen.Color:=clRed;
roundrect(x-50,y-100,x+50,y-70,20,20);
Self.Canvas.Pen.Color:=clBlack;
end;
end;
end.
© ООО «Знанио»
С вами с 2009 года.