Unit userpar

Classes

TEventClass - This file is containing all the code that needs to be modified to create a new postcard.

Functions

Createparams -
FreeAll - Cat2:=Tsprite.

Types

Constants

AppName
WndTitle
XWindowPos
YWindowPos

Variables

Anim
EventClass


Functions


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;

Types


Constants

AppName = 'CardEng'

WndTitle = ' >>>>>>> Press a key'

Window Title

XWindowPos = 200

Window Title

YWindowPos = 0

Window position on screen

Variables

Anim : Tanim

EventClass : TEventClass