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

x:=x-1;

if k=1 then

y:=y+1;

if k=0 then

y:=y-1;

titanic(x,y,clWhite);

end;

procedure TForm1.FormActivate(Sender: TObject);

begin

with form1.Canvas do

begin

pen.Color:=clWhite;

moveto(0,160);

lineto(300,160);

end;

n:=0;

x:=0;

y:=10;

Form1.Color:=clNavy;

Timer1.Interval:=50;

s:=-100;

end;

procedure TForm1.SpeedButton1Click(Sender: TObject);

begin

form1.Close;

end;

procedure TForm1.SpeedButton2Click(Sender: TObject);

begin

if timer1.Interval<1000 then