GDI + Learning Record (13): arc-Arc

// Draw an arc var G: tgpgraphics; P: tgppen; begin G: = tgpgraphics. create (canvas. handle); P: = tgppen. create (makecolor (255, 0, 0), 2); G. drawarc (p, 11, 32, 300,200,); {parameter 2-5 is an elliptic} p. setcolor (makecolor (0,255, 0); G. drawarc (p, 11,32, 300,200, 90,90); {parameter 6 is the Arc Start degree, starting from the middle right} p. setcolor (makecolor (0, 0, 255); G. drawarc (p, 11, 32, 300,200,180, 90); {parameter 7 is the arc end point, which is the radian from the start point to the end point} p. setcolor (makecolor (255,255, 0); G. drawarc (p, 11, 32, 300,200,270, 90); {It's Just A circle} p. setcolor (makecolor (0, 0, 0); G. drawarc (p, 88,88, 200,100, 0,360); {if it is extended from 0 degrees, it is an elliptical line} p. free; G. free; end;