Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.028 c
15-1177416368
alex_***
2007-04-24 16:06
2007.05.27
Транзакции для распределенных систем. Кто использовал?


1-1175510957
Novice
2007-04-02 14:49
2007.05.27
Процедуры и функции в DLL


2-1178450998
Lobach
2007-05-06 15:29
2007.05.27
Как узнать строку в list box


15-1177678939
Сергей М.
2007-04-27 17:02
2007.05.27
People to Purple


15-1177485819
TCrash
2007-04-25 11:23
2007.05.27
документация по MS VisualStudio 7