Delphi下的GDI+编程[5] 绘制直线-自定义虚线[转]

本例效果图：

 

//自定义虚线样式

var

  g: TGPGraphics;

  p: TGPPen;

const

  dash: array[0..3] of Single = (5,2,15,10); {虚线样式数组, 数组维数大小任意}

begin

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

  g.Clear(aclWhite);

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

 

  g.DrawLine(p, 11, 11, 333, 11);

  p.SetDashPattern(@dash, Length(dash)); {设置虚线}

  g.DrawLine(p, 11, 33, 333, 33);

 

  p.Free;

  g.Free;

end;