Построение фигур из линий

Bar(X1,Y1,X2,Y2:integer); cтроит закpашенный пpямоугольник, ис­пользуя установку SetFillStyle или SetFillPattern.

Bar3D(X1,Y1,X2,Y2:integer;Depth:word;Top:Boolean); строит закpа­шенный паpаллепипед. Depth  ширина боковой грани в пикселях . Top  логическая переменная, указывающая вычерчивать или нет верхнюю грань.

DrawPoly(NumPoints:word; var PolyPoints); cтроит контур многоу­гольника линией с заданными параметрами и цветом. NumPoints  коли­чество вершин многоугольника, PolyPoints может быть массивом, где пе­речисляются пары координат точек.

FillPoly(NumPoints: Word; var PolyPoints); cтроит закрашенный многоугольник. NumPoint - количество вершин многоугольника, PolyPoints  переменная без типа, содержащая NumPoints+1 пар координат вершин многоугольника.

FloodFill(X, Y: Integer; Border: Word); закрашивает цветом ог­раниченную область, используя текущий цвет и стиль закраски. X, Y  координаты точки, из которой производится заливка, Border указывает цвет линии, до которой производится закрашивание.

GetFillPattern(var FillPattern: FillPatternType); возвращает орнамент закраски, установленный процедурой SetFillPattern.

GetFillSettings(var FillInfo: FillSettingsType); возвращает те­кущий орнамент и цвет заполнения.

Rectangle(X1,Y1,X2,Y2:integer); рисует пpямоугольник текущим цветом и типом линий по веpхней левой и нижней пpавой точкам;

SetFillPattern(Pattern: FillPatternType; Color: Word); устанав­ливает орнамент рисунка и цвет для закрашивания фигур.

SetFillStyle(Pattern,Color:word); устанавливает обpазец штpихов­ки и цвет заполнения фигур.

Построение криволинейных фигур

Arc(X,Y:integer;StAng,EndAng,Radius:word); строит дугу окружности текущим цветом. (X,Y)  координаты центра окружности, StAng и EndAng  соответственно начальный и конечный углы, Radius  радиус ок­ружности.

Сircle(X,Y:integer;R:word); рисует текущим цветом окpужность pадиуса R, используя X,Y как кооpдинаты центpа.

Ellipse(X,Y:integer;StAngle,EndAngle:word; XRadius,YRadius:word); рисует дугу эллипса текущим цветом. X, Y  координаты центра, StAng­le и EndAngle - начальный и конечный угол дуги, XRadius и YRadius – горизонтальная и вертикальная полуоси эллипса.

Fillellipse(X,Y:integer;XR,YR:word) рисует закрашенный эллипс, используя (X,Y) как координаты центpа и XR, YR как гоpизонтальный и веpтикальный pадиусы.

GetArcCoords(var ArcCoords: ArcCoordsType); возвращает парамет­ры дуги или эллипса, построенной(го) последней(им).

PieSlice(X, Y: Integer; StAngle, EndAngle, Radius: Word); рису­ет и закрашивает сектор окружности, используя текущий цвет и тип ли­нии. X, Y  координаты центра, StAngle и EndAngle - соответственно на­чальный и конечный углы, Radius  радиус сектора.

Sector(x, y: Integer; StAngle,EndAngle, XRadius, YRadius: Word);строит закрашенный сектор эллипса с координатами центра (x,y), StAngle и EndAngle – начальный и конечный углы сектора, XRaius, YRadius  го­ризонтальная и вертикальная полуоси эллипса.

Работа с текстом

GetTextSettings(var TextInfo: TextSettingsType); возвращает те­кущие параметры шрифта через запись TextInfo, состоящую из пяти полей (шрифт, направление, размер символов, выравнивание).

OutText(Text:string); выводит текстовую строку на экран, начиная с текущей позиции.

OutTextXY(X,Y:integer; Text:string); выводит текст, начиная с за­данных координат (Х,Y).

SetTextJustify(Horiz, Vert: Word); задаёт способ выравнивания текста по отношению к текущему положению указателя координат. Horiz - горизонтальное (0 - левое, 1 - по центру, 2 - правое), Vert - верти­кальное выравнивание (0 - верхнее, 1 - нижнее).

SetTextStyle(Font, Direction: Word; CharSize: Word); устанавли­вает текущие тип шрифта (0...4), направления вывода текста (0 - гори­зонтальное, 1 - вертикальное) и размер символов.

SetUserCharSize(MultX, DivX, MultY, DivY: Word); задает коэффи­циенты увеличения ширины и высоты штриховых кодов.

TextHeight(TextString: string): Word; возвращает высоту текста TextString в пикселях.

TextWidth(TextString: string): Word; возвращает длину строки TextString в пикселях.