Помогите разобраться с hIcon и tBitmap!!!

← →
den303 © (2003-04-12 00:54) [0]

Привет всем! Заполняю TListBox именами файлов, а слева рисую связанные иконки.
Иконки извлекаю так:
var h:hicon;
h:=ExtractAssociatedIcon(HInstance,"путь к файлу","IconIndex");
А рисовать в TListBox можно только tBitmap. Как преобразовать hIcon в tBitmap?
PS: Пытался через TImage - появляются артефакты...

← →
Johnmen © (2003-04-12 00:57) [1]

Ищи в факах - ответ стандартизован...

← →
den303 © (2003-04-12 01:04) [2]

>Johnmen
Что-то не нашёл нигде...:-(
Не подскажешь?

← →
Johnmen © (2003-04-12 01:23) [3]

Если не найдешь и если никто не подскажет, попробую поискать в своих архивах. Но не раньше понедельника...:)

← →
Song © (2003-04-12 09:26) [4]

Не надо никуда преобразовать. Используй DrawIcon()

← →
den303 © (2003-04-12 23:49) [5]

>Johnmen
Поищи пожалуйста!!! Я подожду хоть до среды ;-) Заранее спасибо! Если тебе удобней - можешь на мыло...

>Song
Артефакты появляются и иконка нещадно убожится

Правильно, потому что иконка-то наверно 32х32?

>Song
Не знаю. Какую вытаскивает ExtractAssociatedIcon. Заодно не подскажешь, как КРАСИВО перевести 32x32 в 16x16?

Я так и думал. ExtractAssociatedIcon() возвращает иконку 32х32. И при рисовании через DrawIcon() она рисуется большая, а через DrawIconEx() если масштабировать её на 16х16, она рисуется, как Вы сказали, с артефактами.
Решением здесь будет использовать ExtractIconEx()+реестр или ShGetFileInfo(), чтобы достать маленькую иконку и рисовать её через DrawIconEx(). Тогда никаких артефактов не будет. В базе готовых решений, по-моему, такая ф-ия была.

Помогите разобраться с hIcon и tBitmap!!! Найти похожие ветки