Как из TImageList'a, состоящий из PNG, вывести нужный в TImage

[fedorov2012]

Есть TImageList (DelphiXE), состоящий из картинок PNG размером 32х32, как из такого ImageList вывести нужную картинку в TImage.
Если написать:
код Pascal/Delphi

ImageList.Draw(Image.Canvas, 0, 0, IndexIcon);

то Png выводится в TImage, но фон не прозрачный, а белый, как будто при выполнении этого кода Png превращается в Bitmap и уже Bitmap выводится.

[alextrof94]

Лучше png картинки храни в ресурсах, так проще всего, а оттуда уже в имаги, какие хочешь, грузи напрямую. Тоже этим долго мучался.

[fedorov2012]

Сообщение от alextrof94

Лучше png картинки храни в ресурсах, так проще всего, а оттуда уже в имаги, какие хочешь, грузи напрямую. Тоже этим долго мучался.

К сожалению нет возможности загнать все в ресурсы (проект давний), что можете посоветовать при работе с ImageList'ом

[alextrof94]

Сообщение от fedorov2012

К сожалению нет возможности загнать все в ресурсы (проект давний), что можете посоветовать при работе с ImageList'ом

где то читал, что можно использовать маски, т.е. хранишь в 24бит (bmp) изображения в imagelist, и по 8бит маски (ч/с/б тоже в bmp), а затем перемножая их получаешь что хочешь, собственно как раз так и происходит хранение альфа канала, в отдельных 8ми битах на пиксель. особенно вглубь не копал, потому как в тот момент как раз хотел изучить ресы, изучил - радуюсь)

[jone]

если не ошибаюсь то в имг листе есть индексы картинок

[alextrof94]

Сообщение от jone

если не ошибаюсь то в имг листе есть индексы картинок

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

[fedorov2012]

Если в Image1 загрузить Png-картинку прямо с диска, а в Image2
загрузить через код:

ImageList.Draw(Image.Canvas, 0, 0, IndexIcon);

То выглядеть внешне они будут по-разному, во втором случае некачественно, появляется окантовка белая.

Также не помогло:

ms := TMemoryStream.Create;
lIcon := TIcon.Create;
try
  lIcon.SetSize(32, 32);
  lIcon.Transparent := True;
  ImageList.GetIcon(IconNum, lIcon);
  ImageList.SaveToStream(ms);
  ms.Seek(0, soFromBeginning);
  Image.Picture.Graphic.LoadFromStream(ms); //ВЫДАЕТСЯ ОШИБКА
finally
  lIcon.Free;
  ms.Free;
end

[ReportCube]

TransparentColor установите нужный - получите прозрачность

[fedorov2012]

Сообщение от ReportCube

TransparentColor установите нужный - получите прозрачность

1. У какого компонента поставить?
2. Почему второй код не работает?

[alextrof94]

Я же говорю, мучался с этим долго, в итоге нашел 2 выхода, хранить файлы в ресурсах, или же хранить 8-бит маску отдельно от 24-битного изображения, а затем при загрузке изображения перемножать 24бит на 8бит, получая тем самым 32 битное изображение с альфа-каналом. А transparentcolor применяется там где нет альфа-канала, а только фон надо убрать одноцветный (например зеленый #00FF00).