Mein Problem erkennt man auf dem Bild...
Auf dem Bild (zweites) sieht man, das diverse Icons ausgefranzt sind.
Wie bekomme ich eine bessere Ansicht hin?
Ausserdem wird wenn ich per DrawIcon - auf TImage anwende - bekomme ich einen weissen Hintergrund. dieser sollte natürlich auch neutrl (Transparent) sein.
Siehe erstes Bild
Danke Euch für ein paar Tipps
ps.: so lade ich die Icons,,,
Quelltext
1: 2: 3: 4:
| SHGetFileInfo(PChar(pfad_t + SearchRec.Name), 0, FileInfo, SizeOf(FileInfo), SHGFI_DISPLAYNAME); FileName := PChar(pfad_t + SearchRec.Name); ExtractIconEx(FileName, 1, LargeIcon, SmallIcon, 1); DrawIcon(Image1.Canvas.Handle, x, y, LargeIcon); |