SetPenColor(clRandom); // задали случайный цвет пера

SetPenWidth(3); // толщина пера - 3 пиксела

SetPenStyle(psSolid); // стиль пера "Сплошное перо"

DrawCircle(320,240, 220); // нарисовали сплошную окружность R=220

SetPenStyle(psDash); // стиль пера "Штриховое перо"

DrawCircle(320,240, 180); // нарисовали штриховую окружность R=180

SetPenStyle(psDot); // стиль пера "Пунктирное перо"

DrawCircle(320,240, 140); // нарисовали пунктирную окружность R=140

End.

 

 

Установка цвета и стиля заливок – Brush (Кисть)

Цвет и стиль заливки замкнутых графических элементов (например, кругов и прямоугольников) используется объект Brush (Кисть).

Процедуры кисти

SetBrushColor(C);	Цвет кисти – цвет сплошной заливки, С – переменная типа Color
SetBrushHatch(Hatch);	Стиль штриховки. В модуле GraphABC около 60 типов штриховки
SetHatchBrushBackgroundColor(С);	Цвет заднего плана штриховки, тип Color
SetBrushStyle(Style);	Стиль кисти, где Style принимает одно из 3х значений: bsClear – Прозрачная кисть. Закраска не происходит bsSolid – Сплошная кисть. Закрашивает замкнутую область цветом заданным в процедуре SetBrushColor(C); bsHatch – Штриховая кисть. Штрихует замкнутую область типом штриха заданным в процедуре SetBrushHatch(Hatch); и цветом заднего плана штриховки SetHatchBrushBackgroundColor(С);

 

План применения параметров кисти (* необязательный параметр):

1. Задать цвет кисти в SetBrushColor(C);

*2. Если нужно задать тип штриховки в SetBrushHatch(Hatch);

*3. Если нужно задать цвет заднего плана штриховки в SetHatchBrushBackgroundColor(С);

4. Применить эти параметры к текущей кисти в SetBrushStyle(Style);

5. Нарисовать замкнутую фигуру с заливкой (Rectangle, Circle)

Типы штриховки

Приведено несколько штриховок, на самом деле в модуле их около 60.

Значения свойства Hatch	Тип штриховки	Образец штриховки
bhCross	Прямоугольная клетка
bhDiagonalCross	Косоугольная клетка
bhBackwardDiagonal	Косой штрих / / / / /
bhForwardDiagonal	Косой штрих \ \ \ \ \
bhHorizontal	Штриховка горизонтальными линиями
bhVertical	Штриховка вертикальными линиями

 

Пример. Прямоугольники разных цветов и прозрачности.

Uses GraphABC;

Begin

SetBrushColor(clRed); //красный

FillRectangle(50,50,100,Window.Height - 50);

SetBrushColor(clGreen); //зелёный

FillRectangle(150,50,200,Window.Height - 50);

SetBrushColor(clBlue); //синий

FillRectangle(250,50,300,Window.Height - 50);

SetBrushColor(ARGB(127,255,0,0)); //красный, прозрачность 127

FillRectangle(20,100,420,150);

SetBrushColor(ARGB(63,0,255,0)); //зелёный, прозрачность 63

FillRectangle(20,200,420,250);

SetBrushColor(ARGB(31,0,0,255)); //синий, прозрачность 31

FillRectangle(20,300,420,350);

End.

 

Пример.Нарисуем три круга – с прозрачнм фоном, с желтой заливкой, со штриховкой на салатовом фоне. Обводку кругов не меняем (рисуется пером по умолчанию чёрного цвета).

Uses GraphABC;

Begin

Window.Clear(RGB(220,220,220));

SetBrushColor (clYellow); // Задали цвет кисти – clYellow (жёлтый)

SetBrushHatch (bhVertical); //Задали стиль штриховки – bhVertical (вертикаль)