Скачиваний:
10
Добавлен:
15.06.2014
Размер:
1.73 Кб
Скачать
unit Fig;
interface
uses graphics;
Type
Toval=class(Tobject)
x,y,r:integer;
Color:Tcolor;
Canvas:Tcanvas;
constructor Create (x0,y0,r0:integer; color0:Tcolor; canvas0:Tcanvas);
procedure show; virtual;
procedure move(dx,dy:integer);
procedure rot;
end;
Tface=class(Toval)
eye:Tcolor;
eye1,eye2:byte;
constructor create(x0,y0:integer;canvas0:Tcanvas);
procedure show; override;
procedure podmignut;
procedure normeyes;
procedure otkrytrot;
end;
implementation
constructor Toval.Create;
begin;
inherited create;
x:=x0;
y:=y0;
r:=r0;
color:=color0;
canvas:=canvas0;
end;
procedure Toval.show;
begin;
with canvas do
begin
pen.color:=clBlack;
brush.color:=color;
Ellipse(x-r+10,y-r,x+r-10,y+r);
end;
end;
procedure Toval.move;
begin
canvas.Brush.Color:=clbtnface;
canvas.Pen.Color:=clbtnface;
canvas.Ellipse(x-r,y-r,x+r,y+r);
x:=x+dx;
y:=y+dy;
show;
rot
end;
constructor Tface.Create;
begin
inherited create(x0,y0,100,clYellow,canvas0);
normeyes
end;
procedure Tface.normeyes;
begin
eye:=clAqua;
eye1:=6;
eye2:=6;
end;
procedure Tface.show;
var xi,yi,h,i:integer;
begin
inherited show;
canvas.Brush.Color:=eye;
for i:=1 to 2 do begin
case i of
1:begin
xi:=x-35;
h:=eye1;
end;
2:begin
xi:=x+35;
h:=eye2
end
end;
yi:=y-10;
canvas.Ellipse(xi-13,yi+15,xi+13,yi-15);
end;
end;
procedure Toval.rot;
begin
canvas.Arc(x-30,y,x+30,y+70,x-30,y+40,x+30,y+40);
end;
procedure Tface.podmignut;
begin
eye1:=4;
eye2:=4;
eye:=clYellow;
end;
procedure Tface.otkrytrot;
begin
canvas.brush.color:=clFuchsia;
canvas.ellipse(x-30,y,x+30,y+70);
end;
end.
Соседние файлы в папке лицо открывает рот и глаза
  • #
    15.06.20143.05 Кб10Fig.dcu
  • #
    15.06.20141.73 Кб10Fig.pas
  • #
    15.06.20141.7 Кб10Fig.~pas
  • #
    15.06.2014209 б10Project1.dpr
  • #
    15.06.2014236 б10Project1.~dpr
  • #
    15.06.20141.11 Кб10Pvar4.dof
  • #
    15.06.2014215 б10Pvar4.dpr