GDI+ 学习记录(3) 虚线画笔 - Dash

//虚线样式
var
  g:TGPGraphics;
  p:TGPPen;
begin
  g:=TGPGraphics.Create(Canvas.Handle);
  g.Clear(aclWhite);
  p:=TGPPen.Create(aclRed,5);
  g.DrawLine(p,30,50,200,50);{实线} 

  p.SetDashStyle(DashStyleDashDot);{设置虚线样式}
  g.DrawLine(p,30,60,200,60);{绘制任何形状都是可以的}
  g.Free;
  p.Free;
end;//虚线样式
var
  g:TGPGraphics;
  p:TGPPen;