Icons in TListView haben schwarzen Rand!

[mirage228]

Hallo,

ich habe mit dem Code für das Herausfinden von Icons von Dateitypen Icons bzw. Items in meine Listview gespeichert. Die Icons dieser Items haben nun das gewünschte Icon, nur mit einer sehr unschönen schwarzen Umrandung.

Der Code für die Listenerstellung:

Delphi-Quellcode:

procedure TMainForm.MailForm_AttachFile(const FileName: String);
var
  Item: TListItem;
  Icon : TIcon;
begin
  Item := TListItem.Create(lwMail_AttachmentList.Items);
  lwMail_AttachmentList.LargeImages := GlobalImageList;
  Icon := TIcon.Create;
  Icon.Handle := Properties.GetAssociatedIcon(ExtractFileExt(FileName), false);
  icon.Transparent := true;
  lwMail_AttachmentList.Items.BeginUpdate;
  Item := lwMail_AttachmentList.Items.Add;
  Item.ImageIndex := GlobalImageList.AddIcon(Icon);
  Item.Caption := ExtractFileName(FileName);
  lwMail_AttachmentList.Items.EndUpdate;
  Icon.Free;
  // Attachment liste hinzufügen
  Mail.Attachment.Add(Mail.CheckAttachment(FileName));
end;

Im Anhang ein Screenshot, wo die schwarzen Ränder zu sehen zu sehen sind