在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
本例效果图:
//自定义虚线样式 var g: TGPGraphics; p: TGPPen; const dash: array[0..3] of Single = (5,2,15,10); {虚线样式数组, 数组维数大小任意} begin g := TGPGraphics.Create(Canvas.Handle); g.Clear(aclWhite); 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; |
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论