GDI+ 学习记录(3): 虚线画笔 - Dash
GDI+ 学习记录(3): 虚线画笔 - Dash
涂孟超 发表于3年前
GDI+ 学习记录(3): 虚线画笔 - Dash
  • 发表于 3年前
  • 阅读 15
  • 收藏 0
  • 点赞 0
  • 评论 0

腾讯云 十分钟定制你的第一个小程序>>>   

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


共有 人打赏支持
粉丝 13
博文 2004
码字总数 14107
×
涂孟超
如果觉得我的文章对您有用,请随意打赏。您的支持将鼓励我继续创作!
* 金额(元)
¥1 ¥5 ¥10 ¥20 其他金额
打赏人
留言
* 支付类型
微信扫码支付
打赏金额:
已支付成功
打赏金额: