随笔 - 2146  文章 - 97 评论 - 11761 trackbacks - 253

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

  p.SetStartCap(LineCapArrowAnchor); {起点线帽}
  p.SetEndCap(LineCapRoundAnchor);   {终点线帽}

  g.DrawLine(p, 20, 20, 300, 175);

  p.Free;
  g.Free;
end;

线帽样式表:

Delphi 微软 说明
LineCapAnchorMask AnchorMask 指定用于检查线帽是否为锚头帽的掩码。
LineCapArrowAnchor ArrowAnchor 指定箭头状锚头帽。
LineCapCustom Custom 指定自定义线帽。
LineCapDiamondAnchor  DiamondAnchor  指定菱形锚头帽。
LineCapFlat Flat 指定平线帽。
LineCapNoAnchor NoAnchor 指定没有锚。
LineCapRound Round 指定圆线帽。
LineCapRoundAnchor RoundAnchor 指定圆锚头帽。
LineCapSquare Square 指定方线帽。
LineCapSquareAnchor SquareAnchor 指定方锚头帽。
LineCapTriangle Triangle 指定三角线帽。


posted on 2007-12-27 13:51 万一 阅读(...) 评论(...) 编辑 收藏