Создаю:
| Код | with TPlayerSprite.Create(Dxspriteengine1.Engine) do
begin
PixelCheck := True;
Image := form1.dxImageList1.Items.Find('player');
x:=100; y:=100;
Width := image.Width;
Height := Image.Height;
end;
with TImageSprite.Create(dxspriteengine1.Engine) do
begin
PixelCheck := True;
Image := form1.dxImageList1.Items.Find('border');
x:=400; y:=400;
Width := image.Width;
Height := Image.Height;
end; |
Обрабатываю:
| Код | procedure Tplayersprite.DoCollision(Sprite: TSprite; var Done: Boolean);
begin
application.Terminate;
Collision;
end;
|
Спрайты на экране я вижу, но при столкновении DoCollision не вызывается. Мой TPlayerSprite просто проходит сверху border`a |