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

Вниз

Работа с памятью   Найти похожие ветки 

 
ПсихЪ_задумчивый   (2004-07-22 15:06) [40]

Пока читал - запутался окончательно... (:
Так что нижеследующее скорее всего к ветке не относится.
1. Каждая картинка загружается один раз в массив спрайтов SprArr класса TSprite. Класс пишется вручну.

SetLength( SprArr, SprCount ); // SprCount - число спрайтов
for i := 0 to SprCount - 1 do
begin
 SprArr[i] := TSprite.Create();
 SprArr.LoadFromFile( IntToStr( i )+".bmp" ); // это к примеру
end;

2. Когда нужно сделать много ракет, то мы делаем:

SetLength( RocetArr, RocetCount );
for i := 0 to RocetCount - 1 do
begin
 RocetArr[i] := TRocet.Create(); // Тут можно сразу параметры задать
 RocetArr[i].SpritePointer := @SprArr[ROCET_SPRITE_NUMBER];
end;

При отрисовки ракет:

for i := 0 to RocetCount - 1 do
 // Если у тебя SpritePointer : TPointer;
 TSprite( RocetArr.SpritePointer ).Draw( RocetArr.SprX, RocetArr.SprY );
 // Если SpritePointer : PSprite; (PSprite : ^TSprite), тогда
 RocetArr.SpritePointer.Draw( RocetArr.SprX, RocetArr.SprY );


Вот, вряд ли это кому-нибудь пригодится. А про спрайты ещё добавлю, что удобнее делать единый интерфейс управления массивом спрайтов, что-то типа SpriteList.



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

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

Наверх




Память: 0.53 MB
Время: 0.102 c
14-1098697418
iboard
2004-10-25 13:43
2004.11.14
Вот что можно написать на KOL :)


1-1099132875
olevacho
2004-10-30 14:41
2004.11.14
как создать службу на Делфи


3-1097500706
AleXqwq
2004-10-11 17:18
2004.11.14
MySQL component for Delphi, not trial


14-1098885350
VID
2004-10-27 17:55
2004.11.14
FIBPlus 5.x


6-1094221548
Wahnsinng
2004-09-03 18:25
2004.11.14
создание сайта