1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
| procedure TForm1.Button1Click(Sender: TObject);
var
points: array [1..4] of TPoint;
i: Integer;
begin
points[1].X := 50;
points[1].Y := 50;
points[2].X := 200;
points[2].Y := 150;
points[3].X := 10;
points[3].Y := 70;
points[4].X := 300;
points[4].Y := 30;
Canvas.Pen.Color := clYellow;
Canvas.Rectangle(points[1].X, points[1].Y, points[2].X, points[2].Y);
Canvas.Pen.Color := clNavy;
Canvas.Arc(points[1].x, points[1].y, points[2].x, points[2].y,
points[3].x, points[3].y, points[4].x, points[4].y,);
Canvas.Pen.Color := clRed;
for i := 1 to 4 do
Canvas.Rectangle(points[i].X - 2,
points[i].Y - 2,
points[i].X + 2,
points[i].Y + 2);
Canvas.Pen.Color := clGreen;
Canvas.MoveTo((points[1].X + points[2].X) div 2,
(points[1].Y + points[2].Y) div 2);
Canvas.LineTo(points[3].X, points[3].Y);
Canvas.Pen.Color := clGreen;
Canvas.MoveTo((points[1].X + points[2].X) div 2,
(points[1].Y + points[2].Y) div 2);
Canvas.LineTo(points[4].X, points[4].Y);
end; |
