| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Анимированные спрайты в DelphiX

Timer ©   (2003-04-03 20:46:00) 

Не получается сделать анимированный спрайт. Вроде все делаю как в примере, но почему-то они не меняются. Пожалуйста если кто знает в чем проблема, помогите.

---

pavel_k   (2003-04-13 14:12:00) [1]

У меня была ошибка с палитрами, попробуй сделать вот это в самом начале (FormCreate):
ImageList.Items.MakeColorTable;
DXDraw.ColorTable := ImageList.Items.ColorTable; DXDraw.DefColorTable := ImageList.Items.ColorTable; DXDraw.UpdatePalette;
Мне помогло.
Или рисунки восьмибитными сделай.

---

Мор   (2003-04-13 03:50:00) [2]

Прогуляйся по DelphiGFX

---

Урб   (2003-04-07 19:51:00) [3]

Попробуй Анимы в DoMove перенести...

---

Timer   (2003-04-07 18:47:00) [4]

> http://mirgames.ru/index.php?section=articles&subj=dx&page=dxsamp1
> - ходи сюда

Даже с кодом отсюда не работает. Не понятно, что не так.

---

Daddy   (2003-04-04 10:32:00) [5]

http://mirgames.ru/index.php?section=articles&subj=dx&page=dxsamp1- ходи сюда

---

Axis_of_Evil   (2003-04-04 10:15:00) [6]

DoMove: inherited писал???????
// самая распространенная ошибка у моего друга

---

Timer   (2003-04-04 08:33:00) [7]

Что-то вроде этого

constructor TPlayer.Create(AParent: TSprite);
begin
inherited Create(AParent);
Image := MainForm.DXImageList.Items.Find("player");
Z := 2;
Width := Image.Width;
Height := Image.Height;

AnimCount := Image.PatternCount;
AnimStart := 0;
AnimLooped := true;
AnimSpeed := 15/1000;
AnimPos := 0;
end;


---

Карлсон   (2003-04-03 22:40:00) [8]

как говорится "код в студию!" (C - не мое).

---

Наверх