- procedure ClrScr;
Очистка экрана.
Экран будет закрашен текущим цветом и стилем заливки (см. SetBrushColor и SetBrushStyle)
- procedure Rectangle(x1, y1, x2, y2 : Integer);
Нарисовать прямоугольник.
Параметры: (x1, y1) – координаты левого верхнего угла, (x2, y2) – правого нижнего.
Например, Rectangle(0, 0, 10, 10) выводит квадрат со стороной 10 и центром в точке (5, 5).
Фигура будет закрашена текущим цветом и стилем заливки (см. SetBrushColor и SetBrushStyle).
Граница фигуры будет нарисована текущим цветом и стилем пера (см. SetPenColor и SetPenStyle).
- procedure Ellipse(x1, y1, x2, y2 : Integer);
Нарисовать эллипс.
Параметры: (x1, y1) – координаты левого верхнего угла, (x2, y2) – правого нижнего.
Это углы описывающего прямоугольника. Сам прямоугольник на экран не выводится, он только задает размеры и местоположение вписанного эллипса.
Например, Ellipse(0, 0, 10, 10) выводит круг радиусом 5 с центром в точке (5, 5).
Фигура будет закрашена текущим цветом и стилем заливки (см. SetBrushColor и SetBrushStyle).
Граница фигуры будет нарисована текущим цветом и стилем пера (см. SetPenColor и SetPenStyle).
- procedure RoundRect(x1, y1, x2, y2, a, b : Integer);
Нарисовать прямоугольник со скругленными углами.
Параметры: (x1, y1) – координаты левого верхнего угла, (x2, y2) – правого нижнего; a и b – параметры закругления углов, чем они больше, тем больше скругляются углы.
Фигура будет закрашена текущим цветом и стилем заливки (см. SetBrushColor и SetBrushStyle).
Граница фигуры будет нарисована текущим цветом и стилем пера (см. SetPenColor и SetPenStyle).
- procedure Polygon(const points: array of TPoint);
Позволяет нарисовать закрашенный многоугольник. Points – массив вершин многоугольника.
TPoint = record
x, y : Integer;
end;
- procedure MoveTo(x, y : Integer);
Переместить курсор, не рисуя.
Параметры: (x, y) – координаты точки, в которую перейдет курсор.
Используется вместе с LineTo для рисования линий. Чтобы нарисовать отрезок из (a, b) в (c, d), используется пара вызовов:
MoveTo(a, b);
LineTo(c, d);
- procedure LineTo(x, y : Integer);
Переместить курсор, проводя линию.
Параметры: (x, y) – координаты точки, в которую перейдет курсор.
Используется вместе с MoveTo для рисования линий. Чтобы нарисовать отрезок из (a, b) в (c, d), используется пара вызовов:
MoveTo(a, b);
LineTo(c, d);
Поскольку LineTo тоже перемещает курсор, то для рисования ломаной достаточно последовательно вызывать LineTo:
MoveTo(0, 0);
LineTo(0, 5);
LineTo(5, 5);
LineTo(5, 0);
LineTo(0, 0);
Этот фрагмент рисует квадрат.
Линия будет нарисована текущим цветом и стилем пера (см. SetPenColor и SetPenStyle).
- procedure SetPixel(x, y : Integer; Color : TColor);
- function GetPixel(x, y : Integer) : TСolor;
Установить/получить цвет данного пикселя
|