Создание спрайтов

← →
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. Можешь сразу и юзать, но лучше под себя перепиши, оставив структуру. Или вообще насмотревшись на этот пример напиши то, что тебе нужно.

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

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

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

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