-сурет Жұмысты орындау бағдарламасы

public

{процедуралар хабарламасының мұнда орналасуы, бет бейнесі салынатын пішінге процедура жақын болсын дегендіктен }

procedure PaintFace(x,y: integer); // бет бейнесін салады

procedure EraseFace(x,y: integer); // бет бейнені өшіреді

end;

var

fx,fy: integer; // бет бейненің координаттары

n: integer; // тышқан батырмасын шерту саны

p: integer; // тигізу саны

implementation

// бет бейнені салу

procedure TForm1.PaintFace(x,y: integer);

begin

Canvas.Brush.Color := clYellow; // боялым түсі

// бет бейнені салу

Canvas.Ellipse(x,y,x+30,Y+30); // беті

Canvas.Ellipse(x+9,y+10,x+11,y+13); // сол көзі

Canvas.Ellipse(x+19,y+10,x+21,y+13); //оң көзі

Canvas.Arc(x+4,y+4,x+26,y+26,x,y+20,x+30,y+20); //күлкісі

end;

procedure TForm1.EraseFace(x,y: integer);

begin

// пішінмен сәйкес келетін шекарасы мен боялым түсін беру.

Canvas.Pen.Color := clBtnFace; // шеңбер түсі

Canvas.Brush.Color := clBtnFace; // боялым түсі

Canvas.Ellipse(x,y,x+30,y+30);

end;

{$R *.dfm}