Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.15;
Скачать: CL | DM;

Вниз

Collision&Анимированный спрайт   Найти похожие ветки 

 
MagG0T   (2002-04-06 18:36) [0]

Господа!
Каким образом сделать анимированный спрайт (т.е. как менять участки картинки кадров)?
Как организовать столкновение спрайтов одного класса - через обычный Collision ни как:(


 
JibSkeart ©   (2002-04-11 09:39) [1]

type
TSprite = class(TImageSprite)
end;

procedure TForm1.FormCreate(Sender: TObject);
Var Sprite:TImageSprite;
begin
Sprite := TSprite.Create(DXSpriteEngine.Engine);
with TSprite(Sprite) do
begin
Image := DXImageList.Items.Find("sprite");
AnimStart:=0;
AnimLooped:=true;
AnimCount:=6;
AnimSpeed:=100/1000;
x:=100;
y:=100;
Z := 0;
end;
end;

procedure TForm1.DXTimerTimer(Sender: TObject; LagCount: Integer);
begin
DXSpriteEngine.Move(1);
DXDraw.Surface.Fill(15);
DXSpriteEngine.Draw;
DXDraw.Flip;
end;

Взято со странички DADDY DelphiX



Страницы: 1 вся ветка

Текущий архив: 2002.08.15;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.012 c
1-48047
SemFLY
2002-08-03 23:57
2002.08.15
Подскажите, как можно решить такую проблему…


1-48063
snoup
2002-08-02 20:17
2002.08.15
Скажите как программно узнать ОС котороя стоит на машине


14-48307
RomanKulhc
2002-07-18 19:23
2002.08.15
Vinchestery Fujitsu


14-48275
MBo
2002-07-18 12:13
2002.08.15
---|Ветка была без названия|---


14-48266
MAN-IN-RED
2002-07-19 13:24
2002.08.15
Где в Киеве можно купить Xbox?