Функции DrawIcon и ExtractAssociatedIcon. Динамически создаваемый TImage. Иконка не прозрачна.

[Crivel]

Есть image. Требуется вывести иконку. Но только у некоторых иконок задний фон прозрачен. Иконку получаю с помощью функций DrawIcon и ExtractAssociatedIcon. Создаётся рисуется иконка так:

img:= TImage.Create(Form2);
ico :=ExtractAssociatedIcon(hInstance,PWIDECHAR('c:\'+Files.Strings[i]),ICONINDEX); 
img.Transparent := true;
img.Left := x;
img.Top := y;
img.Width := 32;
img.Height := 50;
img.Parent := Self;
DrawIcon(img.Canvas.Handle,0,0,ico);
img.Canvas.TextOut(1,35,Files.Strings[i]);
img.AutoSize := true;
img.OnMouseMove := DesktopItemMouseMove;
img.Show;

Как я писал выше всё работает прекрасно за исключением прозрачности. У некоторых иконок да, задний фон прозрачен, но не у всех. Кто поможет - буду очень благодарен, потому как в гугле не чего не нашёл.

Заранее благодарен.

P.S. ещё вопрос, может кто подскажет, вот при рисовании текста, есть возможность переноса текста. Т.е. когда рисование через Canvas.TextOut?

[mihali4]

А TransрarentColor не пробовали указывать?

[Crivel]

В битмапе?

img.Picture.Bitmap.TransparentColor := clWhite;

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

[mutabor]

Знакомая проблема. Тут видимо проблема в функции ExtractAssociatedIcon, или же проблема в самом типе TIcon. В общем таким способом иконки в весьма поганом качестве извлекаются.
Сейчас возникла идея, попробуй не в TIcon, а в TImage.Picture.Icon ее загрузить, TImage иконки хорошо отображает.