Delphi GDI+学习记录（2）: 画笔线帽 - Cap

Delphi GDI+学习记录（2）: 画笔线帽 - Cap2012-03-20 cnblogs 万一

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