Delphi GDI + Learning Record (3): Dashed brush

//虚线样式
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;

Dashed style sheet:

Delphi	Microsoft	Description
Dashstylecustom	Custom	Specifies the user-defined custom underline segment style.
Dashstyledash	Dash	Specifies a line made up of an underlined segment.
Dashstyledashdot	Dashdot	Specifies a line formed by a repeating dotted pattern.
Dashstyledashdotdot	Dashdotdot	Specifies a line consisting of a pattern of repeating dotted dots.
Dashstyledot	Dot	Specifies a line consisting of dots.
Dashstylesolid	Solid	Specifies a solid line.