Автор B-Boy Andre задал вопрос в разделе Другие языки и технологии
Lazarus Загрузка изображений из каталога в ImageList и получил лучший ответ
Ответ от Алексей Молчанов[гуру]
В imagelist можно добавлять изображения при конструировании программы. В контекстном меню компонента выбираешь "Редактор ImageList" и грузишь то, что тебе надо.
Если тебе надо загружать в imagelist по ходу программы, то используй следующее:
var
BitmapImage : TBitmap;
begin
BitmapImage := TBitmap.Create;
BitmapImage.LoadFromFile('d: est.bmp');
ImageList1.CreateSize(BitmapImage.Width, BitmapImage.Height);
ImageList1.Add(BitmapImage, nil);
FreeAndNil(BitmapImage);
end;
Подводный камень в том, что так он принимает только BMP изображения
=====================================================
UPDATE:
Способ, чтобы добавлять в imagelist файлы png
var
BmpPicture : TBitmap;
PngPicture : TPortableNetworkGraphic;
begin
{ Грузим png }
PngPicture := TPortableNetworkGraphic.Create;
PngPicture.LoadFromFile('d:Test.png');
{ Конвертим в bmp }
BmpPicture := TBitmap.Create;
BmpPicture.Assign(PngPicture);
ImageList1.CreateSize(BmpPicture.Width, BmpPicture.Height);
ImageList1.Add(BmpPicture, nil);
FreeAndNil(BmpPicture);
FreeAndNil(PngPicture);
end;