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

Вниз

DelphiX --- И СНОВА КАРТА   Найти похожие ветки 

← →
bulavkin   (2006-07-03 10:54) [0]

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

Я пытаюсь создать карту 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-03 11:40) [1]

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

---

← →
JUS ©   (2006-07-03 11:49) [2]

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

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

---

← →
bulavkin   (2006-07-03 11:55) [3]

Спасибо :)

---

← →
tButton ©   (2006-07-03 20:10) [4]

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

---

← →
Cash ©   (2006-07-04 11:05) [5]

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

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

---

← →
JUS ©   (2006-07-04 12:32) [6]

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

---

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

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

Наверх

Память: 0.48 MB
Время: 0.034 c