run-time, TImageList и ICONки

[Человек_Борща]

Доброго времени суток!

Собственно проблема:
В режме Run-time создается TImagelist вот такой:

  fImages := TImageList.Create(nil);
  fImages.DrawingStyle := dsTransparent;
  fImages.BkColor := clNone; //Пробовал и clFuchsia, фон стал розовым

Далее извлекается иконка из exe файла, 16 размера, и помещается в этот ImageList.

В итоге, в VirtualStringTree иконка рисуется на черном фоне.
В реалиях, при сбросе иконки на диск, фон иконки - прозрачный.
Что-то не так с ImageList, вот только что?


PROBLEM SOLVED

Solution:

  fImages := TImageList.Create(nil);
  fImages.DrawingStyle := dsTransparent;
  fImages.BkColor := clFuchsia;
  fImages.ColorDepth:=cd32Bit;  //<< -- !!!