给一个PolyPolygon的例子。(25分)

给一个PolyPolygon的例子，分不多，全给了。

Polypolygon函数画一组多边形,和Polygon不同,他画的多边形不封闭.
但内部还是用Brush填充

一个完全没有实际意义的纯例子：
通过polypolygon在一个paintbox上同时画一个四边型和一个三角形
type
TPoints=array [0..6] of Tpoint;
TPoses=array [0..1] of integer;

procedure TForm1.Button1Click(Sender: TObject);
var
points: TPoints;
poses: TPoses;
begin
points[0]:=point(0,0);
points[1]:=point(10,10);
points[2]:=point(20,10);
points[3]:=point(10,20);
points[4]:=point(30,30);
points[5]:=point(40,40);
points[6]:=point(25,40);
poses[0]:=4;
poses[1]:=3;
polypolygon(PaintBox1.canvas.handle,points[0],poses[0],2);
end;

接受答案了.