Дуги, окружности и другие кривые

procedure Arc(X, Y: integer; StAngle, EndAngle, Radius: word);

Рисует дугу с радиусом Radius от начального угла StAngle к конечному EndAngle, используя (X,Y) как центр. Углы измеряются в градусах против часовой стрелки. Используется текущий цвет и стиль линий.

procedure GetArcCoords(var ArcCoords: ArcCoordsType);

Получает координаты последней выведенной дуги процедурой Arc.

procedure Circle(X, Y: integer; Radius: word);

Рисует окружность с центром в точке (X,Y) и радиусом Radius.

procedure Ellipse(X, Y: integer; StAngle, EndAngle: word;
XRadius, YRadius: word);

Рисует эллиптическую дугу с центром в точке (X,Y) от начального угла StAngle к конечному EndAngle с радиусами XRAdius и YRadius (горизонтальные и вертикальные оси).

procedure FillEllipse(X, Y: integer; XRadius, YRadius: word);

Рисует и заполняет эллипс с полуосями XRadius и YRadius, используя (X,Y) как центр.

procedure GetAspectRatio(var Xasp, Yasp: word);

Возвращает два числа XAsp и YAsp, которые указывают как одинаковые по количеству пикселов длины сторон X и Y относятся друг к другу. Это позволяет вычислить относительный аспект разрешения экрана XAsp / YAsp. Используется при выводе правильных квадратов и окружностей.

procedure SetAspectRatio(Xasp, Yasp: word);

Изменяет значение относительного аспекта.

procedure PieSlice(X, Y: integer; StAngle, EndAngle, Radius: word);

Рисует и заполняет сектор круга с центром в точке (X,Y, радиусом Radius от начального угла StAngle к конечному EndAngle.

procedure Sector(X, Y: Integer; StAngle, EndAngle, XRadius, YRadius: word);

Рисует и заполняет сектор эллипса с центром в точке (X,Y), полуосями XRadius и YRadius от начального угла StAngle к конечному EndAngle.

Цвет и палитра

procedure SetBkColor(Color: word);

Устанавливает цвет фона.

procedure SetColor(Color: word);

Устанавливает основной цвет, которым будет осуществляться рисование.

function GetBkColor: word;

Возвращает текущий фоновый цвет.

function GetColor: word;

Возвращает текущий основной цвет.

Не нашли, что искали? Воспользуйтесь поиском: