Практическая работа №27 «Создание элементарных графических объектов» по дисциплине Основы программирования


Практическая работа №27
Тема: «Создание элементарных графических объектов».
Цель работы – изучить принципы создания простых графических изображений с помощью основных свойств графических объектов; закрепить полученные знания при создании программного продукта.
Наименование объектов контроля и оценки:
У1. Работать в среде программирования.
З4. Принципы структурного и модульного программирования.
З5. Принципы объектно-ориентированного программирования.
Закрепить назначение и свойства объектов:
Button.
Form.
Shape.
PaintBox.
Теоретическая часть
Компонент TShape
Простейшие графические объекты типа круг, квадрат.
Вид объекта указывается в свойстве Shape.
Свойство Pen определяет цвет и тип границы объекта.
Brush задаёт цвет и тип заполнения объекта.
Рисование на канве
Многие компоненты имеют свойство Canvas, представляющее собой область компонента, на которой можно рисовать или отображать готовые изображения.
Свойство Canvas имеют: форма, PaintBox, Image.
Начало координат канвы находится в левом верхнем углу.
Каждая точка канвы имеет координаты X и Y.
Свойства Canvas
Brush – кисть, является объектом со своим набором свойств:
Color – цвет заливки
Font – шрифт, которым выводится текст
Pen: Tрen – карандаш, определяет вид линий; является объектом с набором свойств
Pixels[x,y: integer]: TСolor – двумерный массив элементов изображения, с его помощью можно получить доступ к каждой отдельной точке изображения
Пример. Canvas.Pixels[20, 10]:= clRed
Методы Canvas
Procedure Arc (X1,Y1,X2,Y2,X3,Y3,X4,Y4: integer) – дуга, где (Х1,Y1) и (X2,Y2) – левый верхний и правый нижний углы прямоугольника, в который вписана эта дуга, а (X3,Y3) и (X4,Y4) – начальная и конечная точки дуги.
Procedure Chord (X1,Y1,X2,Y2,X3,Y3,X4,Y4: integer) – сегмент, аналогично дуге.
Procedure Ellipse (X1,Y1,X2,Y2: integer) – эллипс, где (X1,Y1) и (X2,Y2) – левый верхний и правый нижний углы прямоугольника, в который он вписан.
Procedure Pie (X1,Y1,X2,Y2,X3,Y3,X4,Y4: LongInt) – сектор, аналогично дуге.
Procedure Polygon (Points: array of TPoint) – многоугольник. Пример – Canvas.Polygon([Point(10,10), Point(30,10), Point(130,30), Point(240,120)])
Procedure Polyline (Points: array of TPoint) – ломаная (аналогично многоугольнику)
Procedure Rectangle (X1,Y1,X2,Y2: integer) – прямоугольник
Procedure RoundRect (X1,Y1,X2,Y2,X3,Y3: integer) – скруглённый прямоугольник, где (X1,Y1) и (X2,Y2) левый верхний и правый нижний углы прямоугольника, X3 – количество пикселей скруглённых по X, Y3 – количество пикселей скруглённых по Y.
Procedure FillRect (const Rec
·t: TRect) – заполняет прямоугольную область текущим цветом (установленным в Brush.Color), где Rect определяет прямоугольную область. Пример – Image1.Canvas.FillRect (Rect (0, 0, 200, 200))
Procedure FloodFill (X,Y: integer; Color: Tcolor; FillStyle: TFillStyle) – заполняет замкнутую область на канве, где X,Y – внутренняя точка, Color – цвет границы, FillStyle = (fsSurface, fsBorder), где fsSurface заполняет область до цвета Color fsBorder - всё не равное Color
TextOut, TextRect –ввод текста. При выводе текста используется шрифт канвы. При использовании TextRect текст выводится только внутри указанного прямоугольника.
Примеры.
Image1.Canvas.Pen.Color:=clYellow (цвет рисования фигуры)
Image1.Canvas.Brush.Color:=clRed (цвет заполнения фигуры)
Image1.Canvas.Brush.Style:=bsSolid (стиль заполнения)
Image1.Canvas.Rectangle(10,10,100,90) (прямоугольник)
Задание. Изучить свойства объекта Shape. Разбить исходный объект на координаты. Составить план построения объекта. Составить план использования цвета линий и заливки. Добавить на форму объекты вывода данных и управления.
Разработать графический объект, соответствующий номеру вашего варианта.
Номер варианта
Графическое изображение
Номер варианта
Графическое изображение

1
13 SHAPE \* MERGEFORMAT 141513 SHAPE \* MERGEFORMAT 1415

2
13 SHAPE \* MERGEFORMAT 141513 SHAPE \* MERGEFORMAT 1415

Номер варианта
Графическое изображение
Номер варианта
Графическое изображение

3

13 SHAPE \* MERGEFORMAT 1415

4

13 SHAPE \* MERGEFORMAT 1415

5

13 SHAPE \* MERGEFORMAT 1415
6

13 SHAPE \* MERGEFORMAT 1415


7

13 SHAPE \* MERGEFORMAT 1415

8
13 SHAPE \* MERGEFORMAT 1415

9

13 SHAPE \* MERGEFORMAT 1415

10

13 SHAPE \* MERGEFORMAT 1415


Номер варианта
Графическое изображение
Номер варианта
Графическое изображение

11

13 SHAPE \* MERGEFORMAT 1415
12

13 SHAPE \* MERGEFORMAT 1415

13 SHAPE \* MERGEFORMAT 1415


13



13 SHAPE \* MERGEFORMAT 1415

13
13 EMBED PBrush 1415

15
13 SHAPE \* MERGEFORMAT 1415 13 SHAPE \* MERGEFORMAT 1415 13 SHAPE \* MERGEFORMAT 1415


Содержание отчёта:
Номер, тема и цель практической работы.
Текст задания.
Интерфейс рабочего приложения.
Код разработанного программного продукта.

















Root Entry

Приложенные файлы

  • doc pr27
    Размер файла: 642 kB Загрузок: 3