Forum: Object-Pascal / Delphi-Language
Delphi
by delphinia,
11. Jun 2011
Ja genau verschwommen das Wort war das was ich suchte :)
Wie ich... na die Function oben genauso
ich habe nen Button in dem OnCLick steht
GetAssociatedIconEx(Image4);
procedure GetAssociatedIconEx(MyImage: TImage);
var
SHFileInfo: TSHFileInfo;
Forum: Object-Pascal / Delphi-Language
Delphi
by delphinia,
11. Jun 2011
Mit dem Code unten habe ich ein problem, dass die Icons alle verschwommen in meinem TImage sind.
warum bzw welche Lösung gibt es?
ExtractIcon kommt nicht in Frage, da ich schon das Icon brauche wie es Windows sieht. Wenn ich mir die Datei im Explorer anschaue ist alles gut...
procedure GetAssociatedIconEx(MyImage: TImage);
var
SHFileInfo: TSHFileInfo;
begin
FillChar(SHFileInfo,...