Delphi визуалды программалау ортасы
-сурет Жұмысты орындау бағдарламасы
жүктеу/скачать 1,51 Mb.
|
Delphi
| 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} жүктеу/скачать 1,51 Mb. Достарыңызбен бөлісу:
|