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
David F.