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