10.1. Порядок выполнения задания

Создать новый проект, содержащий одну форму. На форме разместить необходимые управляющие элементы. В заданиях, в которых требуется построить график, гистограмму или диаграмму по элементам массива, задаваемого пользователем, предусмотреть ввод элементов этого массива при помощи TStringGrid или TListView. Максимальное количество элементов в массиве для всех графиков равно 100.

Разместить на форме компонент TImage. Следует заметить, что метод Canvas имеется не только у компонента TImage, а практически у любого видимого компонента. Этот метод используется для того, чтобы разработчик программ на Delphi мог создавать свой дизайн для всех видимых компонент. Так, при помощи метода Canvas можно изменить, например, стандартный вид кнопки.

Для создания основных графических примитивов используются следующие дочерние методы родительского метода Canvas (перечислены только основные методы):

• MoveTo(X,Y) – передвигает графический курсор в позицию X,Y. Эта операция никак не проявляется (т.е. при ее выполнении ничего не отрисовывается), так как графический курсор невидим, однако она используется как вспомогательная для выполнения других графических операций.

• LineTo(X,Y) – рисует линию от текущего положения графического курсора до точки с координатами X,Y. Линия рисуется текущим цветом. По умолчанию текущий цвет – черный.

• Arc(X1, Y1, X2, Y2, X3, Y3, X4, Y4) – рисует дугу. Параметры X1, Y1, X2, Y2 описывают координаты прямоугольника, в который вписан элипс. Параметры X3, Y3 и X4, Y4 описывают координаты точек, ограничивающих дугу.

• Ellipse(X1, Y1, X2, Y2) – рисует элипс. Параметры X1, Y1, X2, Y2 описывают координаты прямоугольника, в который вписан элипс.

• FloodFill(X, Y, Color, FillStyle) – заливает замкнутую область цветом Color и стилем FillStyle. X, Y – координаты любой точки внутри области. Учтите, что область должна быть замкнутой, иначе заполнение разольется на весь экран.

• Rectangle(X1,Y1,X2,Y2) – рисует прямоугольник с координатами X1, Y1, X2, Y2.

• TextOut(X,Y,S) – Выводит текст S в позицию с координатами X,Y.

Для изменения текущего цвета выводимых линий и текста необходимо установить новый текущий цвет пера. Для этого используется свойство canvas.pen.color, которому присваивается значение либо стандартного цвета в виде предописанной константы, либо формируется новый цвет следующим образом:

Image1.Canvas.Pen.Color:=Tcolor($BBGGRR).

Здесь BBGGRR – интенсивности синей, зеленой и красной составляющей.

Для изменения текущего стиля заливки необходимо установить новый стиль для кисти. Для этого используется свойство canvas.brusch.style, которому присваивается значение стандартного типа заливки.

Для изменения текущего цвета заливки необходимо установить новый цвет для кисти. Для этого используется свойство canvas.brusch.color, которому присваивается значение по описанной выше схеме.

Для изменения текущего шрифта и его цвета необходимо установить новый текущий шрифт с помощью canvas.font.fontname и canvas.font.color. Аналогично можно установить размеры шрифта, курсив/обычный, жирный/нежирный и т.д.

Для всех графиков следует предусмотреть отрисовку осей координат и подписей данных.