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

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

DelphiX --- И СНОВА КАРТА [Delphi, Windows]

bulavkin ©   (2006-07-03 10:54:00) 

Желаю всем заглянувшим в топик хорошего начала рабочего дня!  

Я пытаюсь создать карту 100 на 100 квадратов из случайно выбранных из DXImageList спрайтов вот таким образом:

Constructor TMap.Create(aParent: TSprite);
var
i,j:integer;
Begin
Inherited Create(AParent); for i:=0 to 100 do
begin
for j:=0 to 100 do
begin
Image := MainForm.DXImageList.Items[Random(4)];
x:=x+100;
end;
x:=0;
y:=y+100;
end;
Height := Image.Height;
Width := Image.Width;
X := 0;
Y := 0;
Z := -1;
PixelCheck := False;
End;



Желаемый результат: Собсно карта 100х100 тайлов
А получается: Один тайл с координатами 0 0  

Поделитесь мудростью пожалуйста

---

JUS   (2006-07-04 12:32:00) [1]

Зато работает :-)))

---

Cash   (2006-07-04 11:05:00) [2]

tButton ©   (03.07.06 20:10) [4]:
Гы-гы-гы, такой байды даже !Я! на первых парах не делал! :)))

TMap же от TBackgroundSprite наследуется?
Тогда там есть Chips свойство, к нему SetMapSize, а Image один должен быть,
и в Chips надо совать индексы этого Image-а!

---

tButton   (2006-07-03 20:10:00) [3]

Constructor TMap.Create(aParent: TSprite);
var
 i,j:integer;
Begin
 Inherited Create(AParent);
 for i:=0 to 100 do
 begin
   for j:=0 to 100 do
   begin
     Image := MainForm.DXImageList.Items[Random(4)];
     x:=x+100;
   end;
   x:=0;
   y:=y+100;
 end;

 Height := Image.Height;
 Width := Image.Width;
 X := 0;
 Y := 0;
 Z := -1;
 PixelCheck := False;
End;
или чукча дурак, или циклы гоняются впустую, а присвоение происходит только после их прохода.

осмелюсь уточнить

> А получается: Один тайл с координатами 0 0

А получается: Один тайл с координатами
X = 0
Y = 0
Z = -1

---

bulavkin   (2006-07-03 11:55:00) [4]

Спасибо :)

---

JUS   (2006-07-03 11:49:00) [5]

http://webfile.ru/1011145качай отсюда, правдо в грамотности написания анимированных картинок не ручаюсь, этот "пример" был создан:
29 сентября 2004 г., 0:49:08 :-)

многово еще не умел, но зато ты найдеш ответ на свой вопрос:)

---

JUS   (2006-07-03 11:40:00) [6]

Давай скину тебе на мыло

---

Наверх