Реферат: Анімація в Delphi 7 0

lineto(200+x+s,137+y+n);

pen.Color:=buf;

end;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

titanic(x,y,form1.Color);

if n=-5 then

u:=1;

if n=5 then

u:=0;

if u=1 then

n:=n+1;

if u=0 then

n:=n-1;

if s<form1.ClientWidth then

s:=s+1

else

s:=0;

if x=0 then

z:=1;

if x=10 then

z:=0;

if y=0 then

k:=1;

if y=10 then

k:=0;

if z=1 then

x:=x+1;