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         //指定三角线帽。