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