Delphi下的GDI+编程[3] 绘制直线-线帽

//线帽
var
g: TGPGraphics;
p: TGPPen;
begin
g := TGPGraphics.Create(Canvas.Handle);
p:= TGPPen.Create(aclBlue, 5);

p.SetStartCap(LineCapArrowAnchor); {起点线帽，这里是箭头状锚头帽}
p.SetEndCap(LineCapRoundAnchor);   {终点线帽，这里是圆形锚头帽}
g.DrawLine(p, 20, 20, 220, 100);

p.Free;
g.Free;
end;
--------------------------------------------------------------------------------

线帽样式表:

LineCapAnchorMask       //指定用于检查线帽是否为锚头帽的掩码。
LineCapArrowAnchor      //指定箭头状锚头帽。
LineCapCustom            //指定自定义线帽。
LineCapDiamondAnchor    //指定菱形锚头帽。
LineCapFlat               //指定平线帽。
LineCapNoAnchor          //指定没有锚。
LineCapRound             //指定圆线帽。
LineCapRoundAnchor       //指定圆锚头帽。
LineCapSquare            //指定方线帽。
LineCapSquareAnchor     //指定方锚头帽。
LineCapTriangle         //指定三角线帽。