Du meinst weil ich es nicht wieder frei gebe?
War auch nur zum testen aber dennoch wesentlich weniger Code aber hast recht, richtig wäre natürlich:
Delphi-Quellcode:
var
Image : TBitmap;
//...
try
Image := GetFormImage;
PDF.VCLCanvas.Draw(120, 75, Image);
finally
Image.free;
end;
Ich glaube eher umgekehrt (vergrößert), deswegen würde ich gerne die Auflösung des Bildes anpassen, wenn möglich. Und was ich als "Code dafür gefunden habe (
https://www.delphi-treff.de/tipps-tr...afik-glaetten/) ist leider unvollständig (zu wenig Parameter, Variable nicht definiert) und mir leider aktuell noch zu hoch zum korrigieren.