Проблема со значками в ListView

[Xo66um]

Ну так и у меня те же свойства. А свойства ListView можно? Я его тоже динамически создаю просто.

[Аватар]

Какие там свойства, только LargeImage изменил. Свойства ImageList выставить до загрузки иконок

[Xo66um]

Странно, сейчас попробовал через палитру создать оба компонента и в OnCreate добавил Item, все в порядке. А почему с динамически создаваемым ListView такая проблема?

 ListView := TListView.Create(Self);
 with ListView do
  begin
   Parent := Form1;
   ViewStyle := vsIcon;
   Top := 8;
   Left := 8;
   Width := 500;
   Height := 400;
  end;
 ListView.LargeImages := ImageList;

[Sibedir]

А как ты создаешь ImageList? И главное, как ты в него иконку грузишь?

К сожелению пора идти спать, но на вскидку:
может помогут небольшие танцы с бубном и работа с иконками напрямую через API-шные ф-ии аля какздесь (2010.12) Полупрозрачная иконка.zip

[Xo66um]

Нене, ImageList точно в порядке, т.к. что с динамическим, что с палитры компонентов - одинаково отображаются значки в ListView. А вот если скажем динамический ImageList и ListView с палитры - то все нормально. С чем это связано?

Хотя и тут есть грабли. Значок в ListView (с палитры) рисуется на белом фоне, на "проблемных" участках. Попробуйте у ListView выставить фон черным цветом, то это видно будет.

Прикрепил исходник динамически создаваемых компонентов.

К сожелению пора идти спать, но на вскидку:
может помогут небольшие танцы с бубном и работа с иконками напрямую через API-шные ф-ии аля какздесь

Спасибо, завтра попробую, может что и получится. Тоже баиньки пора
Но наверное лучше просто в OnCustomDrawItem рисовать нужные иконки... В общем, не знаю)

[Sibedir]

Xo66um, дело не простое. Нужен спец по виндам и апям.
Короче. Беру твою иконку и назначаю как иконку для папки на рабочем столе:
16bit.jpg
Меняю свойства экрана на 32-х битные цвета и опля:
32bit.jpg
При этом в программе нужно

 with ImageList do
  begin
   Width := 32;
   Height := 32;
   BkColor := ListView.Color;
  end;

Как-то получается, что при 16-bit полупрозрачности не работают.
Нужно вручную или программно на битмапе (с цветом фона как у ListView) рисовать твою иконку (111111.bmp) и грузить в ImageList этот битмап. Ну или программно половинить иконку на цвета и маску и грузить их в ImageList обе.

[Xo66um]

Странно, а у меня - нет
Как была белая тень, так белая тень и осталась...
Я сегодня все утро тестировал различные варианты, пытаясь убрать мусор с картинки, но получалось то же самое, что и ListView рисует, правда, чуть лучше, но не то все-равно...

Скинь исходник, пожалуйста, гляну как там сделано, и в D7 заодно проверю)

Как-то получается, что при 16-bit полупрозрачности не работают.
Нужно вручную или программно на битмапе (с цветом фона как у ListView) рисовать твою иконку (Вложение 69492) и грузить в ImageList этот битмап. Ну или программно половинить иконку на цвета и маску и грузить их в ImageList обе.

А, ну вот я так и делал сначала, рисовал картинку на фоне с цветом как у ListView (говорил об этом в этом посте)

Проблему пока решил перерисовкой icon в bmp на белом фоне.

И вот попробовал сегодня также по примеру (который ты вчера прикреплял) по маске сделать картинку. Вышло, но рисовать маску пришлось вручную, т.к. программное создание маски на прозрачность не реагирует, хотя может нужен немного другой алгоритм, с определением "мягкости" цвета пикселя.

[Sibedir]

Щас я на работе, потому исходник на XE3
Проблема со значками в ListView.zip // ПЕРЕЗАЛИЛ
При 32-битном качестве цветопередачи, всё ОК

Но все-таки кажется вариант с отрисовкой на битмапе самый 100 пудовый.

[Xo66um]

Да, думаю этот вариант самый оптимальный, если не требуется манипулировать с фоном ListView в рантайме. В общем, методы у нас сошлись, только я программно рисую битмап и пихаю его в ImageList, но не суть.
Сегодня еще попробую поколдовать с созданием нормальной маски для изображения, если все получится, то выложу сюда исходник.

UPD:
В общем, ничего не получилось... Хотел использовать метод от Peter Below, но глядя на то, какой результат он возвращает - решил сделать чуть иначе.
Собственно, исходник прикрепляю, кому интересно - посмотрите.
Там есть две маски, по которым на выходе получаются разные варианты картинок, и метод простой генерации маски.

P.S.
За основу взят пример от Sibedir из этого поста.

[Vapaamies]

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

При 32-битном качестве цветопередачи, всё ОК

Мне кажется, что проблема тут не в Delphi, не в ListView и даже не в Windows, а в самом значке. Значок 32-битный, а 32-битные значки корректно могут отображаться только в 32-битной цветности, если не путаю. В системах с меньшей цветностью Windows автоматически подставляет менее ажурные значки, поэтому в ней всё работает. Ради этого все системные значки составные, содержат в себе по несколько изображений разного размера и цветности, отчего занимают много места, раздувая общий размер файлов и библиотек, а косвенно и саму ОС. Красота требует жертв.