TEventClass - This file is containing all the code that needs to be modified to create
a new postcard.
Createparams -
FreeAll - Cat2:=Tsprite.
AppName
WndTitle
XWindowPos
YWindowPos
Anim
EventClass
procedure Createparams(hdc:Thandle);
procedure FreeAll;
Cat2:=Tsprite.CreateFmRes('CATPAWS',transparent,Compressed,23,hdc);
Screen2.GraphMng.AddGraph(Cat2);
with cat2 do begin
Nonvalid.add(TNonValidPeriod.create(time1,1000000));
posx:=0;
posy:=300;
ImageRefresh:=5;
end;
Cat13:=Tsprite.CreateFmRes('CAT13',transparent,Compressed,1,hdc);
Screen2.GraphMng.AddGraph(Cat13);
with cat13 do begin
bounce:=true;
speedx:=10;
speedy:=10;
posx:=120;
posy:=200;
ImageRefresh:=50;
end;
Cat22:=Tsprite.CreateFmRes('CAT22',transparent,Compressed,1,hdc);
Screen3.GraphMng.AddGraph(Cat22);
with cat22 do begin
(*Nonvalid.add(TNonValidPeriod.create(time1,1000000));*)
posx:=330;
posy:=450;
ImageRefresh:=5;
end;
{Star2:=Tsprite.CreateFmRes('STAR',transparent,Compressed,1,hdc);
Screen3.GraphMng.AddGraph(Star2);
with Star2 do begin
bounce:=true;
posx:=300;
posy:=300;
Speedx:=-10;
speedy:=-10;
ImageRefresh:=1;
end;
Star3:=Tsprite.CreateFmRes('STAR',transparent,Compressed,1,hdc);
Screen3.GraphMng.AddGraph(Star3);
with Star3 do begin
bounce:=true;
posx:=500;
posy:=400;
Speedx:=-10;
speedy:=-5;
ImageRefresh:=1;
end;
Star4:=Tsprite.CreateFmRes('STAR',transparent,Compressed,1,hdc);
Screen3.GraphMng.AddGraph(Star4);
with Star4 do begin
bounce:=true;
posx:=300;
posy:=300;
Speedx:=10;
speedy:=-5;
ImageRefresh:=1;
end;
SpriteWolf:=Tsprite.CreateFmRes('WOLF',transparent,Compressed,6,hdc);
Star1.GraphMng.AddGraph(SpriteWolf);
with SpriteWolf do begin
bounce:=false;
reversed:=true;
posx:=0;
posy:=50;
Speedx:=10;
Speedy:=0;
ImageRefresh:=2;
end;
SpriteSanta:=Tsprite.CreateFmRes('SCLAUS',transparent,Compressed,9,hdc);
Screen1.GraphMng.AddGraph(SpriteSanta);
with SpriteSanta do begin
(* Nonvalid.add(TNonValidPeriod.create(10000,13000));
Nonvalid.add(TNonValidPeriod.create(20000,1000000)); *)
reversed:=true;
bounce:=true;
posx:=100;
posy:=0;
Speedx:=-10;
speedy:=10;
ImageRefresh:=2;
end;
Mouse:=Tsprite.CreateFmRes('MOUSE',transparent,Compressed,20,hdc);
GraphMng.AddGraph(Mouse);
with Mouse do begin
bounce:=true;
reversed:=true;
posx:=0;
posy:=340;
Speedx:=5;
Speedy:=0;
ImageRefresh:=1;
end;
Worker:=Tsprite.CreateFmRes('WORKER',transparent,Compressed,10,hdc);
GraphMng.AddGraph(Worker);
with Worker do begin
Displayed:=false;
(*NonValid.add(TNonValidPeriod.create(5000,10000));
NonValid.add(TNonValidPeriod.create(15000,20000));
NonValid.add(TNonValidPeriod.create(25000,1000000));*)
posx:=300;
posy:=200;
ImageRefresh:=1;
end;
AppName = 'CardEng'
WndTitle = ' >>>>>>> Press a key'
Window Title
XWindowPos = 200
Window Title
YWindowPos = 0
Window position on screen
Anim : Tanim
EventClass : TEventClass