OOP
4procedure
TStvorec.ukaz;
4begin
4 g.Pen.Color:=f;
4 g.Brush.Style:=bsClear;
4 g.Rectangle(x-r,y-r,x+r,y+r); vid:=true;
4end;
4
4procedure
TStvorec.skry;
4begin
4 g.Pen.Color:=clWhite;
4 g.Brush.Style:=bsClear;
4 g.Rectangle(x-r,y-r,x+r,y+r); vid:=false;
4end;