Delphi-PRAXiS - Delphi Icon auf Printer.canvas malen?

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)

- - Delphi Icon auf Printer.canvas malen? (https://www.delphipraxis.net/127736-icon-auf-printer-canvas-malen.html)

Icon auf Printer.canvas malen?

Hallo,

ich schaffe es einfach nicht, ein Icon mittels DrawIconEx auf den Printer.canvas zu zeichnen.
(Übrigens kriege ich es damit auch nicht auf einen Bitmap.Canvas hin!)
Per Umwandlung das Icons in eine Bitmap und anschließende Ausgabe dieser Bitmap "gestrecht" (mit StretchDIBits) ist es kein Problem.

Das Problem ist aber, dass ich "nur" den Iconhandle habe (SHGetFileInfo) und natürlich kein TIcon erzeugen kann, dem ich das Handle übergebe und das ich dann wieder freigebe. Ich brauche das Iconhandle bzw. das Icon dahinter natürlich noch im System.
(Vor dem Freigeben des erzeugten TIcon icon.handle:=0 oder Icon.assign(nil) geht auch nicht!)

Was mache ich falsch bzw. wie funktioniert das?
Habt Ihr einen Tipp?

Gruß
Mattze

Re: Icon auf Printer.canvas malen?

OK,

habe ich geklärt.
Ich kann zwar immer noch nicht Icons auf den Printer.canvas malen, aber das Freigeben nach Umwandlung in eine Bitmap ohne, dass das "echte" Icon freigegeben wird, funktioniert jetzt.
Ich kannte nur mal wieder eine Methode nicht!
Icon.releasehandle macht das! Eigentlich das gleiche, wie Icon.handle:=nil, aber so einfach funktioniert es scheinbar nicht.

Gruß
Mattze