Delphi GDI+學習記錄(2): 畫筆線帽 - Cap

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