首页 > OOP语言 > Delphi > 正文

Delphi GDI+学习记录(15): 多边形 - Polygon
2012-08-22 18:51:17   来源:www.bianceng.cn   评论:0 点击:

暂时无描述信息

//多边形描边与填充

var
 g: TGPGraphics;
 p: TGPPen;
 sb: TGPSolidBrush;
 pts: array[0..4] of TGPPoint;
begin
 g := TGPGraphics.Create(Canvas.Handle);
 sb := TGPSolidBrush.Create(MakeColor(255,255,255));
 p := TGPPen.Create(MakeColor(255,0,0),4);
 pts[0].X := 11; pts[0].Y := 11;
 pts[1].X := 66; pts[1].Y := 111;
 pts[2].X := 88; pts[2].Y := 222;
 pts[3].X := 111; pts[3].Y := 88;
 pts[4].X := 222; pts[4].Y := 66;
 g.DrawPolygon(p, PGPPoint(@pts), Length(pts)); {第二个参数是指针类型, 需亚转换}
 g.FillPolygon(sb, PGPPoint(@pts), Length(pts)); {第三个参数是顶点数}
 p.Free;
 sb.Free;
 g.Free;
end;

相关热词搜索:

上一篇:Delphi GDI+学习记录(16): 贝塞尔曲线 - Bezier、Beziers
下一篇:Delphi GDI+学习记录(14): 饼图 - Pie

分享到: 收藏