[delphi]GDI+ 学习记录(3): 虚线画笔 – Dash

  • A+
所属分类:[开发技巧]

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

  • 我的微信
  • 这是我的微信扫一扫
  • weinxin
  • 我的微信公众号
  • 我的微信公众号扫一扫
  • weinxin
广告也精彩
avatar
广告也精彩

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: