[T-dayne]

В Icon есть иконка, мне нужно добавить ее на ListView, делаю через

Код:

Imagelist.addicon(icon);

, при этом, качество иконки оставляет желать лучшего(нет прозрачности):

Так вот, как сделать нормальное отображение в ListView иконки?
Спасибо.

[Marvel]

а выложи-ка иконку

[T-dayne]

Marvel, эм, зачем? Иконку получаю с помощью ряда API функций, качество у нее нормальное, кстати говоря, если добавить ее в Image то все отлично с прозрачностью. Т.е. видимо проблема с ListView

Ну если нужно:

[Marvel]

щас посмотрим

[Marvel]

в ImageList какой размер задаёшь иконке? 32x32?

[T-dayne]

Marvel
да, вот свойства:

Код:

object Imglist: TImageList
    AllocBy = 1
    Height = 32
    Width = 32
    Left = 160
    Top = 72
  end

[Marvel]

можно сделать так (но это не совсем правильное решение, но фон будет прозрачный, то есть белый):

Код:

const
  ExtrFileName = 'C:\WINDOWS\system32\notepad.exe';
var
  icon: TIcon;
  bmp: TBitmap;
begin
  icon := TIcon.Create;
  icon.Handle := ExtractIcon(Handle, PChar(ExtrFileName), 0);
  bmp := TBitmap.Create;
  bmp.Width := Icon.Width;
  bmp.Height := Icon.Height;
  bmp.Canvas.Draw(0,0,Icon);
  ImageList1.Add(bmp,nil);
  ListView1.Items.Add.ImageIndex := 0;
  bmp.Free;
  icon.Free;
end;

[T-dayne]

Marvel
Большое спасибо, прибавил репутации тебе.

[Marvel]

обращайтесь