Icon Extract zu PNG

[schwa226]

Hi,

ich weis es gibt sicher schon viele Themen dazu, aber ich bekomme es trotzdem einfach nicht auf die Reihe.

Ich lade mir mit diesem Code:

Delphi-Quellcode:

            Filter:=0;
            MyIcon:=TIcon.Create;
            MyIcon.Transparent := True;
            MyIcon.Handle:=ExtractAssociatedIcon(hInstance, PChar('c:\windows\notepad.exe'), Filter);
            Image1.canvas.draw(0,0,MyIcon);
            ButtonPanel.Buttons.Items[i].Picture.Assign(Image1.Picture);

das Icon in MyIcon.

Wie bekomme ich das nun zu PNG, damit die TRansparents nicht verloren geht? Der TMS-Button wo ich es nutzen will kann PNG.
Jedoch habe ich immer Ränder herum (Transparents verloren) wenn ich MyIcon in ein TImage lade und dieses dann per Picture.Assign auf den Button lege.

Wenn ich direkt ein PNG lade passt es mit der Transparent.

Arbeite mit RAD 2009!!

Danke!