Скачать: CL | DM;

Создание спрайтов   Найти похожие ветки 

← →
RyDmi   (2004-07-21 01:10) [0]

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


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;



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

---

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

> RyDmi   (21.07.04 01:10)

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

---

← →
Белый Крыс ©   (2004-07-21 12:10) [2]

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

---

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

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

---

← →
RyDmi ©   (2004-07-21 19:21) [4]

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

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

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

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.037 c