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

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

Как одну из картинок ImageList загружать в Image? [D5]


i2e ©   (2004-03-30 15:52:00) 

Чую, что просто, как сапог, но то ли вечер поздний, то ли чего - заклинило меня.
Люди, кто знает?


i2e   (2004-03-31 10:45:00) [1]

А еще можно так:


ImageList.Draw(SomeImage.Canvas, 0,0, 3); // 0,0- координаты. 3- порядковый номер рисунка
SomeImage.Repaint; // а эта строка - просто находка :) без нее не перерисовывается. Я не знал.


Этот вариант и предыдущий работают.
Спасибо всем.


Mitechka   (2004-03-31 10:08:00) [2]

ImageList: TImageList;
SomeImage: TImage;

ImageList.GetBitmap(3,SomeImage.Picture.Bitmap);
SomeImage.Repaint;

Классы, которые кустом, лучше не надо :)


i2e   (2004-03-31 09:04:00) [3]

Чего-то не могу разобраться, куда его пристроить.
Из ImageList1 пытаюсь грузить картинку с номером '3' в Image1.
Пусто.


 tmpImage:  TCustomImageList;
 tmpBitmap: TBitmap;
...

tmpImage := TCustomImageList.Create(ImageList1);
tmpImage.AddImages(ImageList1);
tmpImage.GetBitmap(3, tmpBitmap);
Image1.Picture.Bitmap := tmpBitmap;


Чего-то не хватает или совсем лажа? Ну не умею я с изображениями работать..


Алхимик   (2004-03-30 19:29:00) [4]

GetBitmap(Index: Integer; Image: TBitmap);


Наверх

Титульная страница Поиск, карта сайта Написать письмо