Ну не могу я разобратся с TImageList... :(

← →
TankMan © (2004-04-26 18:15) [0]

Вобщем пытался я пытался динамически заполнить этот TImageList, но так и не получилось :(... вобщем цель такова - мне нужно просканить папку на предмет наличия в ней jpg gif и bmp, а потом положить эти все картинки в ImageList... ну вот не получается и все :(... пример кода которым я пытаюсь все это сделать, ниже:

try
im:=TImage.Create(self);
im.Picture.LoadFromFile(Aname); //Aname - хранится путь к файлу
Bit:=TBitMap.Create;
Bit.Width:=im.Picture.Width;
Bit.Height:=im.Picture.Height;
Bit.Assign(im.Picture.Graphic);
Image1.Picture.Graphic:=bit; //другая image на форме расположенная
ImageList1.Add(bit,nil);
finally
im.free;
end;
.......... и ничего :(....

← →
TankMan © (2004-04-26 20:59) [1]

Ну ответь те же ктонибудь... не могу решить эту проблему :(((

← →
kas-t (2004-04-27 00:21) [2]

По своему опыту знаю что в ImageList не могут находится картинки с разными размерами. Т.е. если у тебя в ImageList в свойствах Width и Heigth прописанно 16х16 то картинки с другими размерами (больше установленных), туда уже не полезут.
--
может я и ошибаюсь.

← →
TankMan © (2004-04-27 17:06) [3]

Так и всетаки, насколько я знаю что картинки по размеру не привышающему установленный в ImageList не влазят туда, а остальные должны... по идее, но вот ImageList.Count... выдает что-то странное... где вообще нужно смотреть колличество картинок в этом компоненте?... и почему при выполнении кода, который я привел, imagelist, насколько я понял так и не заполнился :(

← →
Gero © (2004-04-27 17:56) [4]

> где вообще нужно смотреть колличество картинок в этом компоненте?

ImageList.Count

А картинки bmp загружаешь?

← →
TankMan © (2004-04-27 18:55) [5]

Ну получается что да... а вообще, я открываю jpg и перевожу изображение в TBitMap,... вобщем посмотри по коду, но вот... почему-то насколько я понимаю ImageList не заполняется, исходя из того что все картинки должны отображатся в компоненте ImageWindow или как-то так, а он отображает всего одну последнюю картинку почему-то :(... вообще при поиске картинок, я добавляю пути к этим картинкам в листбокс, и там получается записей 160, а вот ImageCount при этом показывает....1500 с чем-то там... вобщем что-то не реальное...
У меня нет под рукой, да и вообще книги с подробным описанием этого компонента, поэтому не могу разобратся...
А еще, как например обратится к 10 картинке?... я для того чтобы проверить, хочу узнать...

← →
Gero © (2004-04-27 19:53) [6]

> А еще, как например обратится к 10 картинке

GetBitmap

← →
miwa © (2004-04-27 19:57) [7]

> А еще, как например обратится к 10 картинке?

F1: TCustomImageList.GetBitmap
Use the GetBitmap method to obtain a particular image in the image list as a bitmap object. Index denotes the index of the image. GetBitmap assigns the image to the TBitmap object passed in as the Image parameter.

← →
TankMan © (2004-04-27 22:49) [8]

Так и всетаки... мой код не работает... точнее код работает неправильно... потому что в итоге, когда заканчивается процесс поиска, в listbox-е находится 11 ссылок на файл, а вот Count ImageList-а показывает - 1, и ImageWindow, показывает самую последнюю картинку :(... почему так?

У тебя хоть uses JPEG подключен?

все нормально... я сделал как хотел, проблема была в размерах изображений... вот я и закосячился.. :)...
Но вот есть другая проблема... gif не открываетя TImage :(... ошибку выдает :(....

> gif не открываетя TImage :(... ошибку выдает :(....

Естественно. TImage gif не поддерживает.
Юзай TGifImage из RxLib.

Ну не могу я разобратся с TImageList... :( Найти похожие ветки