- var
- SpriteRec : TRect; //Bewegungs Rec
- CollRec : TRect; //Kollisions Rec
- begin
- ...
- //Collisionsbox erstellen
- ImageObject := TGLImageSprite(SpriteCollision);
- with ImageObject do begin
- CollRec.Left := Image.X;
- CollRec.Top := Image.Y;
- CollRec.Right := Image.X+Image.Width;
- CollRec.Bottom:= Image.Y+Image.Height;
- end;
- Form1.Canvas.FillRect(CollRec);
- GoSprite := TGLImageSprite(Sprite);
- with GoSprite do begin
- SpriteRec.Left := Image.x;
- SpriteRec.Top := Image.y;
- SpriteRec.Right := Image.x+Image.Width;
- SpriteRec.Bottom:= Image.y+Image.Height;
- end;
- Form1.Canvas.FillRect(SpriteRec);