53-сурет
Жұмысты орындау бағдарламасы:
unit tir_;
public
{ Public declarations }
{процедуралар хабарламасының мұнда орналасуы, бет бейнесі салынатын пішінге процедура жақын болсын дегендіктен }
procedure PaintFace(x,y: integer); // бет бейнесін салады
procedure EraseFace(x,y: integer); // бет бейнені өшіреді
end;
var
Form1: TForm1;
fx,fy: integer; // бет бейненің координаттары
n: integer; // тышқан батырмасын шерту саны
p: integer; // тигізу саны
implementation
// бет бейнені салу
procedure TForm1.PaintFace(x,y: integer);
begin
Canvas.Pen.Color := clBlack; // сызықтар түсі
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
// пішінмен сәйкес келетін шекарасы мен боялым түсін беру.
//Өзі орнатылатын пішін түсі - clBtnFace (Object Inspector –ді қара)
Canvas.Pen.Color := clBtnFace; // шеңбер түсі
Canvas.Brush.Color := clBtnFace; // боялым түсі
Canvas.Ellipse(x,y,x+30,y+30);
end;
{$R *.dfm}
Достарыңызбен бөлісу: | 
