Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Мультимедиа в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 03.07.2010, 01:47   #1
Petros
 
Регистрация: 02.07.2010
Сообщений: 3
По умолчанию Вопрос по Timage

Допустим в программе есть массив(10х10) из Timage.Как вывести сетку из тайлов(BMP 20*20 в файле в папке с программой) не используя Canvas и правильно оперируя с конструкторами и параметрами всех Timage?
Petros вне форума Ответить с цитированием
Старый 03.07.2010, 02:14   #2
DomiNick
Студент, не
Старожил
 
Аватар для DomiNick
 
Регистрация: 29.01.2009
Сообщений: 2,067
По умолчанию

Не совсем понял... Canvas уже изначально есть в TImage, как не использовать?
Что именно требуется сделать?

Может просто нужно менять Left/Top/Width/Height ?
I am the First of Cyber Evolution...
I am the First to Program your Future...
DomiNick вне форума Ответить с цитированием
Старый 03.07.2010, 02:19   #3
Roof
Форумчанин
 
Аватар для Roof
 
Регистрация: 01.02.2007
Сообщений: 785
По умолчанию

Цитата:
массив(10х10) из Timage
по-моему, это что-то странное
DrawGrid - разве не подходит для
Цитата:
вывести сетку из тайлов(BMP 20*20 в файле в папке с программой)
Мм??
Изо всей благодати
В руках крепко сжатых
Я донесу только капли
Roof вне форума Ответить с цитированием
Старый 03.07.2010, 03:26   #4
Petros
 
Регистрация: 02.07.2010
Сообщений: 3
По умолчанию

я делаю так:
Код:
...
map[x,y]:=Timage.Create(Form1);
map[x,y].Top:=x*20;
map[x,y].Left:=y*20;
map[x,y].Width:=20;
map[x,y].Height:=20;
map[x,y].Picture.Bitmap.LoadfromFile('tile.bmp');
...
Но ничего не отображается!

Последний раз редактировалось Petros; 03.07.2010 в 03:27. Причина: ошибка
Petros вне форума Ответить с цитированием
Старый 03.07.2010, 06:34   #5
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

а разве не надо parent устанавливать?(owner(владелец, или обьект который отвечает за уничтожение) и parent(родитель, тот кто содержит в себе компонент) разные вещи)
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Старый 04.07.2010, 14:57   #6
DomiNick
Студент, не
Старожил
 
Аватар для DomiNick
 
Регистрация: 29.01.2009
Сообщений: 2,067
По умолчанию

Цитата:
а разве не надо parent устанавливать?
Совершенно верно...
Хотя помниться у меня некоторые динамически создаваемые компоненты работали и без этого...

Код:
map: Array [0..9, 0..9] Of TImage;

...

В общем как-то так:
Procedure TForm1.Button1Click(Sender: TObject);
Var x, y: Integer;
Begin
For x:=0 To 9 Do
      For y:=0 To 9 Do
            begin
            map[x,y]:=Timage.Create(Form1);
            map[x,y].Name:='map_'+IntToStr(x)+'_'++IntToStr(y); // имя таки-надо бы давать...
            map[x,y].Parent:=Form1;
            map[x,y].Width:=20;
            map[x,y].Height:=20;
            map[x,y].Left:=y*20;
            map[x,y].Top:=x*20;
            map[x,y].Picture.LoadFromFile('E:\tile.bmp');
            // map[x,y].Visible:=True; // иногда бывает необходимо...
            End;
End;

А вообще было бы гораздо лучше и правильнее использовать один TImage и рисовать в нём вручную всё что нужно.....
I am the First of Cyber Evolution...
I am the First to Program your Future...

Последний раз редактировалось DomiNick; 04.07.2010 в 16:34.
DomiNick вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
TImage maxvodo.dll Мультимедиа в Delphi 3 24.10.2008 21:29
Timage Черничный Компоненты Delphi 10 04.07.2008 12:50
Timage RealSHELS Общие вопросы Delphi 7 05.05.2008 20:12
Timage RealSHELS Общие вопросы Delphi 2 03.05.2008 23:23
TImage Andrey9392 Компоненты Delphi 6 06.04.2007 10:43