Icons in TListView haben schwarzen Rand!

[FriFra]

Zitat von the_master:

Ach so! Dann kann muss man es eben so lassen.

musst Du nicht Das ist wohl ein Bug in der Implementierung der ImageList-Komponente...

Bau einfach folgenden Code in dein FormCreate ein:

Delphi-Quellcode:

var
  SHFileInfo: TSHFileInfo;
  SysIcons: THandle;
begin
  try
    SysIcons := SHGetFileInfo(PChar(copy(ParamStr(0), 1, 3)), 0, SHFileInfo,
      SizeOf(SHFileInfo), SHGFI_SYSICONINDEX or SHGFI_SMALLICON or
      SHGFI_ICON);
  finally
    DestroyIcon(SHFileInfo.hIcon);
  end;
  ImageList1.Handle := SysIcons;
  ImageList1.Clear;
...

Danach kannst Du Programmicons mit Alphablending (schwarze Ränder) in deine ImageList einfügen und sie werden korrekt angezeigt.