GDI+ 学习记录(15) 多边形 - Polygon

var
g:TGPGraphics;
p:TGPPen;
sb:TGPSolidBrush;
pts:array[0..4] of TGPPoint;
begin
g:=TGPGraphics.Create(Canvas.Handle);
g.Clear(aclWhite);

p:=TGPPen.Create(aclRed,2);
sb:=TGPSolidBrush.Create(aclBlack);

pts[0]:=MakePoint(50,10);
pts[1]:=MakePoint(200,10);
pts[2]:=MakePoint(250,60);
pts[3]:=MakePoint(200,110);
pts[4]:=MakePoint(50,110);

g.DrawPolygon(p,PGPPoint(@pts),Length(pts));{第二个参数是指针类型, 需亚转换}
g.FillPolygon(sb,pgppoint(@pts),Length(pts));{第三个参数是顶点数}

sb.Free;
p.Free;
g.Free;
end;