GDI + Learning Record (2): Paint line cap-cap

// Line cap var G: tgpgraphics; P: tgppen; begin G: = tgpgraphics. create (canvas. handle); P: = tgppen. create (aclblue, 8); p. setstartcap (linecaparrowanchor); {start line cap} p. setendcap (linecaproundanchor); {finish line cap} G. drawline (p, 20, 20,300,175); p. free; G. free; end;

  
 

Line cap style sheet:

Delphi	Microsoft	description
linecapanchormask	anchormask	specifies the mask used to check whether the wire cap is an anchor cap.
linecaparrowanchor	arrowanchor	specifies an arrow-shaped anchor cap.
linecapcustom	Custom	specify the custom line cap.
linecapdiamondanchor	diamondanchor	specify the Diamond Head cap.
linecapflat	flat	specify the flat cap.
linecapnoanchor	noanchor	no anchor is specified.
linecapround	round	specify the circle cap.
linecaproundanchor	roundanchor	specifies the round anchor cap.
linecapsquare	Square	specify a line cap.
linecapsquareanchor	squareanchor	the specified side of the anchor cap.
linecaptriangle	triangle	specifies the triangle cap.