Лабораторная работа №8 (9) Обработка графической информации в Delphi Цель работы: изучение программных способов формирования графических изображений в интегрированной среде разработки Delphi.

Лабораторная работа №8 (9)

Обработка графической информации в Delphi

Цель работы: изучение программных способов формирования графических изображений в интегрированной среде разработки Delphi.

Задание

Создать папку, проект, блок-схему алгоритма, таблицу компонентов формы, таблицу значений свойств компонентов формы и Object Pascal программу для рисования геометрического объекта согласно варианту.

Вариант №9.

Ход работы

Таблица компонентов

Таблица значений свойств компонентов формы

                                   Рисунок 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.