Рисует прямоугольник, где: (X,Y)-координаты верхнего левого угла, (X1,Y1) - координаты правого нижнего угла прямоугольника (координаты главной диагонали).
А(X,Y)
B(X1,Y1)
Procedure Bar (X1, Y1, X2, Y2: integer)
Рисует полосу, используя текущий цвет и стиль. Иногда эту процедуру называют рисованием закрашенного прямоугольника.
А(X1,Y1)
B(X2,Y2)
Procedure Circle (X, Y, radius: integer)
Рисует окружность указанного радиуса с центром в точке (X,Y).
Procedure Arc (X, Y: integer; Angle1, Angl2, R: word)
Вычерчивает дугу окружности от начального угла Angle1 до конечного угла Angle2 с радиусом R. Точка (X, Y) используется как центр соответствующей дуге окружности.
Procedure Ellipse (X, Y: integer; Angle1, Angl2, RX, RY: word)
Вычерчивает дугу эллипса от начального угла Angle1 до конечного угла Angle2 с радиусом R. Точка (X, Y) используется как центр соответствующего дуге эллипса, а RX, RY – горизонтальная и вертикальная оси.
Procedure FillEllipse (X, Y: integer; RX, RY: word)
Вычерчивает закрашенный эллипс. Точка (X, Y) используется как центр эллипса, а RX, RY задают его горизонтальную и вертикальную оси.
Procedure Sector (X, Y: integer; Angle1, Angl2, RX, RY: word)
Вычерчивает и заполняет эллиптический сектор.
Procedure OutText (TextString: String)
Выводит на экран строку (текст) в то место, в котором находится текущий указатель.
