In this example:
Code File:
Unit unit1; interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, stdctrls, extctrls; Type tform1 = Class (tform) checkbox1: tcheckbox; procedure formcreate (Sender: tobject); Procedure formpaint (Sender: tobject); Procedure checkbox1click (Sender: tobject); end; var form1: tform1; implementation {$ R *. DFM} procedure tform1.formcreate (Sender: tobject); begin checkbox1.caption: = 'close path'; end; Procedure tform1.formpaint (Sender: tobject); begin setbkmode (canvas. handle, transparent); beginpath (canvas. handle); canvas. moveTo (10, clientheight Div 2); canvas. lineto (clientwidth Div 2, 10); canvas. lineto (clientwidth-10, clientheight Div 2); If checkbox1.checked then closefigure (canvas. handle); endpath (canvas. handle); canvas. pen. color: = clred; strokepath (canvas. handle); end; Procedure tform1.checkbox1click (Sender: tobject); begin repaint; end.
Form file:
Object form1: tform1 left = 373 Top = 260 caption = 'form1 'clientheight = 175 clientwidth = 234 color = clbtnface font. charset = default_charset font. color = clwindowtext font. height =-11 font. name = 'tahoma 'font. style = [] oldcreateorder = false position = podesigned oncreate = formcreate onpaint = formpaint pixelsperinch = 96 textheight = 13 object checkbox1: tcheckbox left = 80 top = 136 width = 97 Height = 17 caption = 'checkbox1' taborder = 0 onclick = checkbox1click endend