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

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

Создание спрайтов [Delphi, Windows]

RyDmi ©   (2004-07-21 01:10:00) 

Как мне создать массив спрайтов?
Пробовал так:


var p:array [1..7] of TPlayer;

procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
for i:=1 to 7 do begin
with P[i].Create(Dxspriteengine1.Engine) do
begin
 PixelCheck := True;
 Image := form1.dxImageList1.Items.Find('Pla');
 X := 350;
 Y := 200;
 Width := Image.Width;
 Height := Image.Height;
end;
end;

end;



Гадость какая-то... Помогите правильно сделать, ПЛЗ.

---

RyDmi   (2004-07-21 19:21:00) [1]

Спасибо за советы.

> ПсихЪ_задумчивый   (21.07.04 13:22) [3]

Обязательно зайду на сайт.

---

ПсихЪ_задумчивый   (2004-07-21 13:22:00) [2]

Позволю себе ещё раз порекламировать мою сдохшую надстройку над DelphiX. На сайте http://tzlab.amillo.netнайдёшь то, что тебе нужно. Называется P7Gfx. Конкретно смотри файл p7_strite.pas. Можешь сразу и юзать, но лучше под себя перепиши, оставив структуру. Или вообще насмотревшись на этот пример напиши то, что тебе нужно.

---

Белый Крыс   (2004-07-21 12:10:00) [3]

2 ПсихЪ_задумчивый
Как жестоко ;)
2 RyDmi
Тем не менее ПсихЪ прав. Зайди в ветку о конкурсах и качай исходники первого конкурса. Большая часть сделана на DirectDraw - то, что тебе нужно, пока. Потом дальше пойдешь.

---

ПсихЪ_задумчивый   (2004-07-21 09:54:00) [4]

> RyDmi   (21.07.04 01:10)

А ты уверен, что хочешь делать правильно? Ну, сам напросился:
1. Переходи на АПИ (пункт не обязателен)
2. Пиши свой класс спрайтов
3. Делай...

---

Наверх