Рисование геометрических фигур

Begin

Begin

with Canvas do

Pen.Style: = psDot; (Использовать пунктирную линию)

Brush.Color: = Color; (использовать цвет формы для фона)

(Нарисовать треугольник)

Polyline ([Point (20,100), Point (100, 20), Point(180, 100), Point(20, 100)]);

end;

end;

Rectangle (X1,Y1,X2,Y2:Integer) – рисует прямоугольник с левым верхним углом в точке (X1,Y1) и нижним правым углом в точке (X2,Y2). Прямоугольник рисуется текущими атрибутами кисти и пера.

RoundRect (X1,Y1,X2,Y2,X3,Y3: Integer) – рисует прямоугольник с закругленными углами. Углы рисуются как четверти эллипса с шириной X3 и высотой Y3.

Ellipse (X1,Y1,X2,Y2,: Integer) – рисует эллипс, вписанный в прямоугольник с левым верхним углом в точке (X1,Y1) и нижним правым углом в точке (X2,Y2). Прямоугольник рисуется текущими пером и кистью.

Polygon (Points: array of Tpoint) – рисует ломаную линию, соединяя точки массива Points. Ломаная замыкается отрезком из последней точки в первую, и полученная фигура заполняется текущей кистью.

Pie (X1,Y1,X2,Y2,X3,Y3,X4,Y4: Integer) – рисует сектор эллипса, вписанного в прямоугольник с координатами (X1,Y1) и (X2,Y2). Сектор определяется двумя радиусами эллипса, проходящими через точки (X3,Y3) и (X4,Y4).

Шаг 4. Давайте нарисуем какую-нибудь геометрическую фигуру., потребовав, чтобы размеры фигуры были пропорциональны размерам формы. Пусть это будет эллипс, вписанный в рабочую область формы.

Procedure Tform1. FormPaint (Sender: Tobject);

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