//线帽 var g: TGPGraphics; p: TGPPen; begin g:=TGPGraphics.Create(Canvas.Handle); g.Clear(aclWhite); p:=TGPPen.Create(aclRed,5); p.SetStartCap(LineCapArrowAnchor);{起点线帽} p.SetEndCap(LineCapRoundAnchor);{终点线帽} g.DrawLine(p,30,50,200,50); g.Free; p.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 | 指定三角线帽。 |