1.8. Заполнения.

Процедура

Procedure SetFillStyle(Fill, Color: Word);

устанавливает стиль заполнения. Здесь Fill – тип заполнения; Color – цвет заполнения. С помощью заполнения можно покрывать какие-либо фрагменты изображения периодически повторяющимся узором. Для указания типа заполнения можно использовать следующие константы:

Const

EmptyFill = 0; {Заполнение фоном, узор отсутствует}

SolidFill = 1; {Сплошное заполнение}

LineFill = 2; {Заполнение ----}

LtSlashFill = 3; {Заполнение /////}

SlashFill = 4; {Заполнение утолщенными ///}

BkSlashFill = 5; {Заполнение утолщенными \\\}

LtBkSlashFill = 6; {Заполнение \\\\\}

HatchFill = 7; {Заполнение ++++}

XHatchFill = 8; {Заполнение ххххх}

InterleaveFill = 9; {Заполнение в прямоугольную клеточку}

WideDotFill = 10; {Заполнение редкими точками}

CloseDotFill = 11; {Заполнение частыми точками}

Процедура

Procedure FloodFole (X,Y: Integer; Border: Word);

заполняет произвольную замкнутую фигуру, используя текущий стиль заполнения (узор и цвет). Здесь – X,Y – координаты любой точки внутри замкнутой фигуры; Border – цвет граничной линии. Если фигура незамкнута, заполнение разольется по всему экрану.

Процедура

Procedure Bar (X1,Y1, X2, Y2: Integer);

заполняет прямоугольную область экрана, используя текущий образец узора и текущий цвет заполнения. Здесь (X1, Y1) – координаты левого верхнего угла, (X2, Y2) – правого нижнего угла запрашиваемой области.

Процедура

Procedure Bar3D(X1,Y1,X2, Y2, Depth:Integer;Top:Boolean);

вычерчивает трехмерное изображение параллелепипеда и закрашивает его переднюю грань. Здесь (X1,Y1) и (X2,Y2) – координаты левого верхнего и правого нижнего углов передней грани; Depth – третье измерение трехмерного изображения в пикселях (глубина); Top – способ изображения верхней грани. Если Top=True, верхняя грань параллелепипеда вычерчивается. В качестве значения этого параметра может использоваться одна из следующих констант, определенных в модуле Graph:

Const

TopOn = True;

TopOff = False;

При вычерчивании используется текущий стиль линий (SetLineStyle) и текущий цвет (SetColor). Передняя грань заливается текущим стилем заполнения (SetFillStyle).

Процедура

Procedure FillEllipsd (X, Y, RX, RY: Integer);

обводит линией и заполняет эллипс. Здесь X, Y – горизонтальный и вертикальный радиусы эллипса в пикселях. Эллипс обводится линией, заданной процедурами SetLineStyle и SetColor, и заполняется с использованием параметров, установленных процедурой SetFillStyle

Процедура

Procedure FillEllipse (X, Y, RX, RY: Integer);

Обводит линией и заполняет эллипс. Здесь X, Y – координаты центра; RX,RY – горизонтальные и вертикальные линии, заданные процедурами SetLine Style и SetColor, и заполняется с использованием параметров, установленных процедурой SetFillStyle.

Процедура

Pprocedure Sector (X,Y:Integer;BegA, EndA,RX, RY:Word);

вычерчивает и заполняет эллиптический сектор. Здесь BegA, EndA – соответственно начальный и конечный углы эллиптического сектора. Остальные параметры обращения аналогичны параметрам процедуры FillEllipse.

Процедура

Procedure PieSlice (X,Y:Integer;BegA,EndA,R:Word);

вычерчивает и заполняет сектор окружности. В отличие от процедуры Sector, указывается лишь один радиус R, остальные параметры аналогичны параметрам процедуры Sector.