Listview & Imagelist_Create

[Alexanbar]

Есть Listview из MS Windows Common Controls 6.0. В этом же комплекте находится Imagelist.
При работе этих элементов в связке отрисовка 32 битных иконок происходит некорректно. Возникло желание использовать ф-ю Imagelist_Create.
Но вот беда! Listview подобный Imagrlist полностью игнорирует!!!

Если взятькомплект 5.0, то всё идёт нормально, т.е. переназначаем Imagelist с помощью посылки LVM_Setimagelist, далее это сообщение блокируем, и работаем с программно созданным Imagelist-ом.
Но, как известно, в 5.0 меньше уровень сервиса, да и код сильно менять не хочется.

[GSerg]

Ну что сказать, ну что сказать... (c)

Я вот как написал свой image list, так только его и юзаю
А как именно некорректно там всё происходит?

[tyomitch]

GSerg, где бы посмотреть на твой ImageList? Я его тоже хочу...

[hCORe]

И мне бы тоже

[GSerg]

Во как

Ладно, добавлю пару флагов из XP, которые я проигнорил, и выложу в кирпичах

[Alexanbar]

Если извлечь иконку для калькулятора, при отображении в Listview образуется дополнительная белая тень (см. рисунок).
В сам Imagrlist иконка записывается правилно (проверял отрисовкой на Picturebox с помощью DrawIconEx).

На vbaccelerator есть Imagеlist и Listview с поддержкой 32битных иконок.
Но там свои глюки, и методы и свойства называются по другому.

Опять же повторюсь:
Listview из 5.0 спокойно берёт Imagelist (через сообзение LVM_SetImagelist) Imagelist-ы, созданные по Imagelist_Create или же Imagelist c vbaccelerator, а Listview6.0 берёт только свои (из 6.0)

[Alexanbar]

Решил начать отрисовку клиентской части Listview, чтобы отрисовать иконки правильно. Постепенно процесс движется. Встретились две трудности:

1. Отрисовка иконок для SelecedItem . Иконки сидят в стандартном Imagelit (6.0). В номальном режиме отрисовываю DrwIconEx.
2. Не получается в режиме lvIcon сделать подписи с тремя точками, если текст не помещается. Ф-я DrawTextEx умеет это делать для однострочного случая.
3. Пока не додумался, как перехватить LabelEdit

[Alexanbar]

Для отрисовки иконок у SelectedItem пришлось дойти вот до какого идиотизма:
Создаю фиктивный Imagelist. Добавляю туда иконку, отрисовываю, Удаляю Imagelist.

Private Sub DrawSelectedIcon(ByVal hdc As Long, _
ByVal hIcon As Long, _
ByVal x As Long, y As Long, ByVal dx As Long, ByVal dy As Long)
Dim hIml As Long

hIml = ImageList_Create(dx, dy, ILC_MASK Or ILC_COLOR32, 1, 0)

ImageList_AddIcon hIml, hIcon
'ImageList_ReplaceIcon hIml, -1, hIcon
ImageList_Draw hIml, 0, hdc, x, y, ILD_SELECTED 'Or Or ILD_TRANSPARENT

ImageList_Destroy hIml
End Sub

[GSerg]

Зачем каждый раз? Пусть висит себе глобально

[Alexanbar]

В принципе, можно. Вместо уничтожения Imagelist-a делать удаление из него иконки.

Насчёт Label_Edit накопал информации в MSDN. Буду разбираться, что препринять.