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

转载于:https://www.cnblogs.com/keyvip/archive/2010/10/10/1847283.html