Шупрута В.В. - Delphi 2005 - Учимся программировать (1080891), страница 51
Текст из файла (страница 51)
Фактически оноопределяет, как будет формироваться цвет точек линии в зависимости от цветаточек холста, через которые эта линия проходит. По умолчанию цвет линииопределяется значением свойства Color, однако программист может задатьнесколько режимов отображения, которые приведены в табл. 8.4.Таблица 8.4 т Значения констант, задающих различные режимы отображения линииКонстантаЦвет линииpmBlackЧерный цвет линии, не зависит от цвета, определяемого свойством c o l o rpmWhiteБелый цвет линии, не зависит от цвета, определяемого свойством C o l o rpmNotЦвет точки является инверсным по отношению к цвету холста, в который выводитсяточка линииртсоруЦвет линии определяется значением свойства C o l o rpmNotCopyЦвет линии определяется как инверсный по отношению значению свойства C o l o rНиже приведен пример использования объекта ТРеп. В этом примереприведена процедура обработки события FormPaint, которая рисуетнесколько фигур с использованием объекта ТРеп.// Использование установок карандаша.procedure TForml.FormPaint(Sender: TObj e c t ) ;11-3166ГЛАВА 8 • Изучаем основы работы с графикой в Win 3 2beginCanvas .Pen.Width:=2;Canvas .Pen.Color:=clRed;Canvas .Ellipse(100,150,10,20) ;Canvas .Pen.Width:=3;Canvas .Pen.Color:=clBlue;Canvas .Rectangle(200,120,150,20)Canvas .Pen.Color:=clGreen;Canvas .Ellipse(120,60,100,10);Canvas .Pen.Width:=1,•Canvas .Pen.Color;=clBlack;Canvas .Pen.Style:=psDot;Canvas .Rectangle(90Д60,120,180)end;КистьИнструмент «кисть» (Canvas.
Brush) используется для закраски внутреннихобластей геометрических фигур. Например, фрагмент кода следующего видаCanvas.Brush.Style:=bsSolid;Canvas.Brush.Color:=clRed;Canvas.Rectangle(10,10,200,150);рисует закрашенный прямоугольник красного цвета.Основные свойства кисти показаны в табл. 8.5.Таблица 8.5 т Основные свойства объекта TBrushКонстантаЦвет линииColorЦвет закраски областиStyleСтиль заполнения областиСвойство S t y l e задает стиль заполнения области.
Стиль области определяет, каким образом будет заштрихована (закрашена) область. Значения констант, задающих стиль заполнения области, приведены в табл. 8.6.Таблица 8.6 т Константы, задающие стиль заполнения (закраски области)КонстантаЦвет линииbsSolidСплошная заливка областиbsClearОбласть не закрашиваетсяbsHorizontalОбласть заполняется горизонтальной штриховкойbsVerticalОбласть заполняется вертикальной штриховкойКарандаш и кисть - основные инструменты для рисованияТаблица 8.6 т Константы, задающие стиль заполнения (закраски области) (окончание)tКонстантаЦвет линииbsCrossОбласть заполняется штриховкой в клеткуbsFDiagonalОбласть заполняется диагональной штриховкой с наклоном линий впередbsBDiagonalОбласть заполняется диагональной штриховкой с наклоном линий назадbsDiagCrossОбласть заполняется диагональной штриховкой s клеткуbsSoMbsdearbsVertfcaРис.
8.3 т Пример использования кистиДалее приведен пример программы, демонстрирующий использованиекисти. Программа, окно которой приведено на рис. 8.3, выводит несколькопрямоугольных областей, заполненных различными вариантами штриховки.Текст программы приведен в листинге 8.2.Листинг 8.2 т Текст программы, демонстрирующей вариант использования кистиunitUnitl;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics,Controls, Forms, Dialogs, ExtCtrls;typeTForml = class(TForm)procedure FormPaint(Senderi TObject);private{ Private declarations }publicI Public declarations }end;var•ГЛАВА 8 т Изучает основы работы с графикой в Win32Forml: TForml;implementation{$R *.dfm}// Использование установок кисти.procedure TForml.FormPaint(Sender: TObject);constst_name:array [1..8] of string =('bsSolid','bsClear','bsHorizontal','bsVertical','bsCross','bsFDiagonal','bsBDiagonal','bsDiagCross'); // Имена стилей отображения.var// Координаты выводаx,y:integer;// прямоугольника.// Длина и высота_width,_height:integer;// прямоугольника.// Тип используемой дляbr_style:TBrushStyle;// закраски кисти.// Номер стиля кисти.k:integer;i,j:integer;// Переменные-счетчики циклов// для отображения// восьми прямоугольников.beginy:=30;_width:=65;„height:=40;for i:=l to 2 dobeginx:=10;for j:=1 to 4 dobegin// k задает номер стиля.case k of1:br_style:=bsSolid;2:br_style:=bsClear;3:br_style:=bsHorizontal;4:br_style:=bsVertical;5:br_style:=bsCross;6:br_style:=bsFDiagonal;7:br_style:=bsBDiagonal;8:br_style:=bsDiagCross;end;// Рисуем закрашенный прямоугольник.Canvas.Brush.Color:=clBlack;Изучаем основные графические примитивыCanvas.Brush.Style:=br_style;Canvas.Rectangle(x,y,x+_width,y+_height);// Подписываем название стиля.Canvas.Brush.Style:=bsClear;Canvas.TextOut(x,y-15,st_name[k]);x:=x+_width+40;:end ;у:=y+_height+40 ;end;end*;end.Изучаем основные графические примитивыЛюбой создаваемый нами рисунок представляет собой совокупность графических примитивов - точек, линий, окружностей, прямоугольников и т.п.
Дляизображения подобных примитивов используются соответствующие методы,некоторые из которых приведены в табл. 8.7.Таблица 8.7 т Методы вычерчивания основных графических примитивовМетодДействиеMoveTo ( х , у )Перемещает в указанную позицию (х, у) карандаш. Не вычерчиваетLineTo ( x , y )Рисует линию. Рисование осуществляется из текущей позицииникаких графических примитивовкарандаша в позицию (х, у)P o l y L i n e (P_Array)Rectangle(xl,yl,x2,y2)Рисует ломаную линию. Метод работает аналогично, в качествепараметров в данном случае передается массив точек (х, у) узловых точек ломаной линииРисует прямоугольник.
Параметры x l , у 1, х 2 , у 2 - координатынаходящихся на одной диагонали углов прямоугольникаRoundRect ( x l , y l ,х2 ,у2 ,хЗ ,уЗ) Рисует скругленный прямоугольник. Первые четыре параметрааналогичны, пара (хЗ, уЗ) задает эллипс, четверть которогоиспользуется для округленияF i l l R e c t (P_Rect)Рисует закрашенный прямоугольник. В качестве параметрапередается структура типа TRect - координаты точек,ограничивающих прямоугольную областьFrameRect (P_Rect)Рисует контур прямоугольника.
В качестве параметра передаетсяструктура типа TRect - координаты точек, ограничивающихпрямоугольную областьPolygon (p_Array)Рисует многоугольник. В качестве параметров в данном случаепередается массив точек (х, у) -узловых точек ломаной линииEllipse(xl,yl,x2,y2)Рисует эллипс. Параметры x l . y l , х2, у2 - координаты диагональныхуглов области, внутри которой вычерчивается эллипсГЛАВА 8 • Изучаем основы работы с графикой в Win32Таблица 8.7 • Методы вычерчивания основных графических примитивов (окончание)МетодДействиеArc(xl,yl,x2,y2,x3,y3,x4,y4)Рисует дугу. Параметры x l , у 1, х2,у2 - задают область, в которуювписан эллипс, (хЗ, уЗ)-начальную точку дуги, (х4, у4) - конечнуюточку дугиP i e ( x l , y l , x 2 , y 2 , x 3 , y 3 , x 4 , y 4 ) Рисует сектор.
Параметры аналогичны параметрам метода ArcPixels [x,у ]Свойство для доступа к точкам (пикселям). Меняя цвет точек, можно«рисовать» на поверхностиДалее подробно разберем методы вычерчивания графических примитивов.ЛинияДля рисования прямой линии используется метод LineTo. В качестве параметров метода используются координаты точки, в которую из текущего местоположения карандаша должна быть проведена линия:<Компонент>.Canvas.LineTo(x,у)Н а п р и м е р , м ы хотим нарисовать л и н и ю и з т о ч к и ( 0 , 0 ) в точку ( 1 0 0 , 1 0 0 ) .Тогда н а р и с о в а т ь нашу л и н и ю м о ж н о инструкцией:Forml.Canvas.MoveTo(0,0);Forml.Canvas.LineTo(100,100) ;Ломаную линию можно нарисовать, используя метод PolyLine.
В общемвиде инструкция рисования ломаной линии выглядит следующим образом:<Компонент>.Canvas.PolyLine(P_array);где P_array - массив узловых точек типа TPoint. Каждый элемент этогомассива представляет собой пару координат узловой точки (х, у).В качестве примера использования данных методов приведу программу,отображающую динамику (график) изменения стоимости ценных бумаг стечением времени.
Предполагается, что массив p r i c e содержит информациюо стоимости в определенные моменты времени.Текст программы приведен в листинге 8.3.Листинг 8.3 тТекст программы, поясняющей использование методов LineTo и PolyLineunitUnitl;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics,Controls, Forms, Dialogs;Изучаем основные графические примитивыtypeTForml = class(TForm)procedure FormPaint(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForml: TForml;implementation{$R *.dfm}procedure TForml.FormPaint(Sender: TObj ect);const// Массив значений подписей к оси X.1Ы1:array [1..7] of string = ('понедельник',1вторник','среда','четверг','пятница','суббота',1воскресенье');varхО,уО:integer;// Центр координат.dx,dy:integer;// Шаг координатной сетки.х,у:integer;// Текущие значения координат.„height:integer; // Высота области отображения._width:integer;// Ширина области отображения.lbl_Y:real;// Оцифровка осей координат (ось Y) .dlbl_Y:integer;// Шаг оцифровки (ось Y).i:integer;price:array[l.
.7] of TPoint; //Массив значений стоимости ценных бумаг.begin// Определение начальных значений переменных.х0:=40; у0:=320; // Положение центра координат в (40,320).dx:=80; dy:=40; // Шаг по оси X = 80, по оси Y = 40.lbl_Y:=3200;// Минимальное значение стоимости.dlbl_Y:=100;// Шаг приращения значения стоимости._height:=3 00;// Высота координатной сетки (ось Y).. _width:=600;// Длина координатной сетки (ось X).// Заполняем массив значений стоимости ценных бумаг (точек TPoint)for i:=l to 7 do price[i].x:=40+80*i; // Координата х.// Это значения функции - стоимость, координата у.ГЛАВА 8 • Изучаем основы работы с графикой в Win32price[l].y:=140;price[2].y:=180;price[3].у:=160;price[4] .y.=260;price[5].y:=120;price[6].у:=180;price[7].у:=200;// Выполняем рисование.with Forml.Canvas dobeginPen.Style:=psSolid;Pen.Width;=1;Pen.Color:=clBlack;// Рисуем оси координат.Moveto(x0,y0);LineTo(xO,yO-_height);Moveto(x0,y0);.
![](https://s.studizba.com/z.php?f=/templates/si/i/noavatar.png&w=100&h=100&t=1"){kind=avatar}
