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:

zusammenfalten · markieren

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

Icons in TListView haben schwarzen Rand!

Icons in TListView haben schwarzen Rand!

Forumregeln