Delphi GDI+学习记录（3）: 虚线画笔 - Dash

Delphi GDI+学习记录（3）: 虚线画笔 - Dash2012-03-20 cnblogs 万一

//虚线样式
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	指定实线。