Процедуры работы с текстом

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

Arc(X, Y: integer; Angle1, Angle2, R: Word) -вычерчивает дугу окружности от начального угла Angle1 до конечного угла Angle2 с радиусом R, точка (X,Y) используется как центр окружности.

Circle (X, Y: integer; R: word); -рисует окружность с радиусом R, точка (X,Y) считается центром окружности

Ellipse (X, Y: integer; SStart, SEnd: word; RadX, RadY: word); - рисует эллиптическую дугу от начального угла SStart до конечного угла SEnd, используя (X,Y) в качестве точки центра, а RadX, RadY - как горизонтальную и вертикальную оси.

FillEllipse (X, Y: integer; XRad, YRad: word); - рисует закрашенный эллипс, используя точку с координатами (X,Y) в качестве центра, a XRad и YRad - в качестве горизонтальной и вертикальной осей.

GetArcCoords(var Coords: ArcCoordsType); - получение координат последней дуги.

PieSlice (X, Y: integer; SStart, SEnd, R:word); - рисует и заполняет цветом сектор круга. Точка (X,Y) при этом используется в качестве центра окружности, а сектор рисуется от начального угла (SStart) до конечного угла (Send) с радиусом R.

Sector (X, Y: integer; SStart, SEnd, XRad, YRad: word); - вычерчивает и заполняет эллиптический сектор. Процедура использует (X,Y) как точку центра, параметры XRad, YRad определяют, соответственно, горизонтальный и вертикальный радиусы. Сектор вычерчивается от начального угла SStart до конечного угла SEnd. Сектор рисуется текущим цветом и закрашивается с использованием образца закраски и цвета, заданных с помощью процедур SetFillStyle или SetFillPattern.

GetTextSettings (var Textlnfo: TextSettingsType); - возвращает текущий тип текстового шрифта, его направление, размер и выравнивание, установленные с помощью процедур SetTextStyle и SetTextJustify.

OutText (TextString: String); -вывод последовательности символовв то место, в котором находится текущий указатель.

OutTextXY (X, Y: integer; S: string); - вывод последовательности символовв точке (Х, У). Если строка слишком длинная и выходит за пределы экрана или текущей области просмотра, то она усекается.

SetTextJustify (Goriz, Vert: word); - устанавливает значения выравнивания текста, которые используются процедурами OutText и OutTextXY.

SetTextStyle (Font: word; S: word; Size: CharSizeType); - устанавливает текущий шрифт Font, тип S и коэффициент размера символа Size. Процедура влияет на весь текстовый вывод, выполняемый процедурами OutText и OutTextXY.

SetUserCharSize (MultX, DivX, MultY, DivY: word); - позволяет пользователю изменять высоту и ширину символа для векторных шрифтов. Параметр MultX: DivX представляет собой отношение, умноженное для активного шрифта на обычную ширину. MultY: DivY — это отношение, умноженное для активного шрифта на нормальную высоту. Например, чтобы сделать шрифт вдвое выше, используйте для MultX значение 2, a DivX задайте равным 1 (2divl = 2).

Дата добавления: 2014-01-05