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

[Xo66um]

Всем привет.
Собственно, проблема состоит в том, что значки (icon) в ListView отображаются некорректно. Т.е. мелкие детали, которые должны быть прозрачными - становятся просто черными.

Загружаю значки в ListView из ImageList таким образом:

with ListView.Items.Add do
  begin
   Caption := 'Значок папки';
   ImageIndex := 0;
  end;

И даже проверил как значки хранятся в ImageList, путем загрузки в TImage.
Получается, что отрисовка значков неправильная именно у ListView.

Скриншот прикрепляю (слева - значок в ListView, справа - этот же значок из ImageList)

Может есть какой-нибудь способ правильного отображения значков в ListView?

[Sibedir]

Да не, всё нормально.
Безымянный.jpg
Delphi ХЕ3
Win XP

[Xo66um]

Sibedir, ну это квадратный значок, с такими и у меня проблем не возникает)

Delphi 7

[Sibedir]

Давай сюда свой не квадратный значек

[Xo66um]

Sibedir, не надо мне доказывать что XE умеет правильно отображать значки) Мне нужно решить проблему с ListView в Delphi 7) Ведь до появления новых версий люди как-то делали правильное отображение значков...

[Sibedir]

То есть иконку ты потерял.

[Xo66um]

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

То есть иконку ты потерял.

Ради иконки эту тему посещать не нужно. Проблема не в иконке, а в ListView. И не в XE3, а в Delphi 7.

[Аватар]

Проблема не в иконке, а в ListView

Чего так сразу? Выложи сюда вложением иконку и свойства ImageList покажи

[Xo66um]

Да не в иконке дело, это ведь понятно...

 with ImageList do
  begin
   Width := 32;
   Height := 32;
   Masked := True;
  end;

Проблему пока решил перерисовкой icon в bmp на белом фоне. Но этот метод не особо нравится, т.к. это не позволяет изменять цвет фона самого ListView, и вообще была мысль в качестве фона ListView сделать картинку... Но может есть другие, более правильные методы?

[Аватар]

Ну вот Д7
ImageList.Height:=32
ImageList.Width:=32
ListView.LargeImage:=ImageList