Hallo Gemeinde,
gehört das hierher oder ins
VCL-Forum?
Ich möchte x-beliebige Dateien in einer Listview mit ihren originalen Icons darstellen.
Die Icons lese ich mittels SHGetFileInfo in ein TIcon. Dieses male ich in ein TImage und das Bitmap des TImage kommt in die TImageList. Wenn ich das nicht so mache, sondern nur das TIcon in die TImageList übernehme, dann kommen die wenigsten Icons korrekt in der TImageList an. Egal.
Der Witz ist: wenn das TImage (in dem gemalt wird) auf einer Form platziert wird (zwecks äugischer Kontrolle), dann sieht man ALLE Icons.
Wenn die TImageList im TListView verwendet wird, dann gibt es einzelne Icons, die einfach nur leer dargestellt werden. Also liegt die Vermutung nahe, daß die Grafiken nicht korrekt in der TImageList landen.
Was geht da ab?
Das hier funktioniert und zeigt immer ein richtiges Icon:
Delphi-Quellcode:
procedure GetInfoOfFile(
const AFileName : string
; var AIconImage : TImage
);
var
licnIcon : TIcon;
lsfiFileInfo: SHFILEINFO;
begin
licnIcon := TIcon.Create;
try
FillChar(lsfiFileInfo, SizeOf(lsfiFileInfo), 0);
SHGetFileInfo(PChar(AFileName), 0, lsfiFileInfo, SizeOf(lsfiFileInfo), SHGFI_ICON or SHGFI_LARGEICON);
licnIcon.Transparent := True;
licnIcon.Handle := lsfiFileInfo.hIcon;
if Assigned(AIconImage) then
begin
AIconImage.Canvas.FillRect(AIconImage.ClientRect);
AIconImage.Transparent := True;
AIconImage.Picture.Bitmap.TransparentColor := clWhite;
DrawIcon(AIconImage.Canvas.Handle, 0, 0, licnIcon.Handle);
end;
DestroyIcon(lsfiFileInfo.hIcon);
finally
licnIcon.Free;
end;
end;
Wenn man das Ganze erweitert durch:
AAddToImageList.AddMasked(AIconImage.Picture.Bitmap, AIconImage.Picture.Bitmap.TransparentColor);
dann sind in der TImageList manchmal leere Icons drin. Komich odr?