Динамическое изменение TIcon

[Рубик2]

Здравствуйте. Нужно рисовать индикатор на TIcon динамически и присваивать его значение TrayIcon.Icon.

Проблема в том, что у TIcon отсутствует Canvas, и рисовать на нем нельзя. Фон для TIcon хранится в TImageList.
Я делаю так: получаю ImageList.GetBitmap, затем на этом TBitmap рисую что нужно, делаю ImageList.Insert и затем ImageList.GetIcon, где и получаю иконку. Но при этом почему-то теряется прозрачность (иконка изначально 32-битная).
У ImageList стоит ColorDepth = cd32Bit.

Вопрос в том, как корректно нарисовать на 32-битной иконке (TIcon), получаемой из ImageList что-нибудь, например, прямоугольник.

Delphi 2010, Win 7

[mss]

Как преобразовать битмап в иконку

[Рубик2]

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

Как преобразовать битмап в иконку

Спасибо, я умею пользоваться гуглом и делал это перед тем, как задать вопрос.

[ZuBy]

ну пойди другим путем,

var
  ArrBitmap: array of TBitmap;

при загрузке иконок конвертируй в TBitmap

[NITROGEN_92]

Попробуй на 32-х битном битмапе рисовать. Или пользуйся маской, затем через hIcon грузи отдельно цвет и маску. Должна получиться иконка с прозрачностью.