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

//虚线样式
var
  g: TGPGraphics;
  p: TGPPen;
begin
  g := TGPGraphics.Create(Canvas.Handle);
  p := TGPPen.Create(MakeColor(255,255,0,0),3);

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

  p.SetDashStyle(DashStyleDashDot); {设置虚线样式}
  g.DrawLine(p, 11, 33, 333, 33);   {绘制任何形状都是可以的}

  p.Free;
  g.Free;
end;


//自定义虚线样式
var
  g: TGPGraphics;
  p: TGPPen;
const
  dash: array[0..3] of Single = (5,2,15,10); {虚线样式数组, 数组维数大小任意}
begin
  g := TGPGraphics.Create(Canvas.Handle);
  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;

虚线样式表:

Delphi	微软	说明
DashStyleCustom	Custom	指定用户定义的自定义划线段样式。
DashStyleDash	Dash	指定由划线段组成的直线。
DashStyleDashDot	DashDot	指定由重复的划线点图案构成的直线。
DashStyleDashDotDot	DashDotDot	指定由重复的划线点点图案构成的直线。
DashStyleDot	Dot	指定由点构成的直线。
DashStyleSolid	Solid	指定实线。