Icons in TListView haben schwarzen Rand!

[TimonWorld]

Sorry...

Hab's schon selber entdeckt wie man Icons anfügt!


Habe aber was anderes zu fragen:

Ich habe versucht eine dafür passende T(New)ImageList erstellt, aber die Icons die ich hinzufüge sind immer nur 5 mal 5 Pixel groß:

Delphi-Quellcode:

constructor TNewImageList.Create(AOwner: TComponent);
var
  SHFileInfo: TSHFileInfo;
  SysIcons: THandle;
begin
  inherited Create(AOwner);
  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;
  Self.Handle := SysIcons;
end;

Gruß,
Timon.