Команды ДЛЯ изменения ЦВЕТА и ТИПА кисти (заливки)

SetBrushColor (color)	Устанавливает цвет кисти, задаваемый color.
SetBrushStyle (bs)	Устанавливает стиль кисти, задаваемый параметромbs

СТИЛИ КИСТИ

bsSolid		bsCross		bsHorizontal		bsBDiagonal
bsClear		bsDiagCross		bsVertical		bsFDiagonal

ВЫПОЛНЕНИЕ ПРАКТИЧЕСКИХ ЗАДАНИЙ

4.1. Написать программу, выводящую на экран монитора линии, нарисованные разным стилем.

Program Figury;

uses GraphABC;

Begin

SetWindowSize (600,300);

SetPenWidth(5);

SetPenColor(clBrown); SetBrushColor(clYellow);

rectangle (40,80,200,160);

SetPenColor(clRed); SetBrushColor(clAqua);

circle (300,120,40);

end.

4.2. Написать программу, которая выводит на экран знак STOP.

4.3. Написать программу, которая выводит на экран линии

Program Linii;