// Fill and stroke var G: tgpgraphics; P: tgppen; SB: tgpsolidbrush; begin G: = tgpgraphics. create (canvas. handle); SB: = tgpsolidbrush. create (makecolor (255,255,255); P: = tgppen. create (makecolor (255, 0, 0), 6); G. fillrectangle (SB, 0, 0, self. clientwidth, self. clientheight); {fill form rectangle} G. drawrectangle (p, 11, 111,111); {rectangular stroke} sb. setcolor (makecolor (255,255, 0); G. fillrectangle (SB, 111,111,); {filled rectangle} p. free; sb. free; G. free; end;
// Rectangular group var G: tgpgraphics; P: tgppen; SB: tgpsolidbrush; RS: array [0 .. 1] of tgprect; begin G: = tgpgraphics. create (canvas. handle); SB: = tgpsolidbrush. create (makecolor (255,255,255); P: = tgppen. create (makecolor (255, 0), 2); RS [0]. x: = 11; RS [0]. y: = 11; RS [0]. width: = 88; RS [0]. height: = 111; RS [1]. x: = 111; RS [1]. y: = 122; RS [1]. width: = 88; RS [1]. height: = 111; G. drawrectangles (p, pgprect (@ Rs), length (RS); G. fillrectangles (SB, pgprect (@ Rs), length (RS); p. free; sb. free; G. free; end;