Дополнения к лабораторной работе №6

Дополнения к лабораторной работе №6

Заштриховать треугольник, круг, прямоугольник.

Появление на экране этих фигур должно быть со штриховкой.

Изменение параметров изображения

При рисовании линий и фигур, рассмотренных выше, используются компоненты класса TCanvas: перо (Pen) и кисть (Brush).

Различие между пером (Pen) и кистью (Brush) заключается в следующем: перо (Pen) используется при рисовании линий или рамок, а кисть (Brush) для заполнения фигуры.

Для изменения цвета линии, необходимо изменить соответствующее свойство пера, например:

Image.Picture.Bitmap.Canvas.Pen.Color:=clRed {красный цвет пера}

Использование после этого любых процедур рисования позволит получить линии контуров красного цвета. Возможные варианты значений указанного свойства: clGreen, clBlue и т.д.

Кроме того, имеется возможность изменить толщину и тип линии:

Image.Picture.Bitmap.Canvas.Pen.Width:=2 {линия толщиной 2}

По умолчанию толщина линии равна 1.

Image.Picture.Bitmap.Canvas.Pen.Style:=psDash

{ штриховая линия }

Возможные варианты значений указанного свойства: psDot – штриховая линии их коротких штрихов, psDashDot – штрихпунктирная линия. По умолчанию свойство имеет значение psSolid – сплошная линия.

Для заполнения внутренней области фигур (прямоугольника, эллипса и т.п.) используется кисть (Brush). Цвет кисти задается следующим образом:

Image.Picture.Bitmap.Canvas.Brush.Color:=clGreen

{ зеленый цвет кисти }

Кроме того, имеется возможность задать вид заполнения внутренней области:

Image.Picture.Bitmap.Canvas.Brush.Style:= bsFDiagonal

{ диагональная штриховка }

Возможные варианты значений указанного свойства:

Значение	Образец	Значение	Образец
bsSolid		bsCross
bsClear		bsDiagCross
bsBDiagonal		bsHorizontal
bsFDiagonal		bsVertical

procedure TForm1.Button1Click(Sender: TObject);

var

p:array[1..3] of TPoint;

begin

with Image1.Picture.Bitmap do

begin

Height:= Image1.Height;

Width:=Image1.Width;

end;

p[1].X:=10;

p[1].y:=10;

p[2].X:=10;

p[2].y:=200;

p[3].X:=150;

p[3].y:=150;

Image1.Picture.Bitmap.Canvas.Brush.Color:=clBlack;

Image1.Picture.Bitmap.Canvas.Brush.Style:= bsFDiagonal;

Image1.Picture.Bitmap.Canvas.Polygon(p);

end;

---

Дата добавления: 2015-08-28