Delphi下的GDI+编程[4] 绘制直线-虚线样式[转]

本例效果图：

//虚线样式

var

  g: TGPGraphics;

  p: TGPPen;

begin

  g := TGPGraphics.Create(Canvas.Handle);

  g.Clear(aclWhite);

  p := TGPPen.Create(MakeColor(255,255,0,0),3);

 

  g.DrawLine(p, 11, 11, 200, 11);   {实线}

  p.SetDashStyle(DashStyleDashDot); {设置画笔类型，这里设置为虚线型}

  g.DrawLine(p, 11, 33, 200, 33);     {绘制任何形状都是可以的}

 

  p.Free;

  g.Free;

end;

 

虚线样式表:

 

DashStyleCustom            //指定用户定义的自定义划线段样式。

DashStyleDash              //指定由划线段组成的直线。

DashStyleDashDot           //指定由重复的划线点图案构成的直线。

DashStyleDashDotDot        //指定由重复的划线点点图案构成的直线。

DashStyleDot               //指定由点构成的直线。

DashStyleSolid              //指定实线。