Ich drucke mir den Inhalt von TImage wie folgt aus:
Delphi-Quellcode:
procedure TVorschau2.Button1Click(Sender: TObject);
var rect : TRect;
begin
if PrinterSetupDialog1.Execute then begin
with printer.canvas do begin
Printer.BeginDoc;
rect:=Bounds(-10,-10,printer.pagewidth div 2,printer.pageheight div 2);
StretchDraw(Rect,image1.picture.Graphic);
Printer.EndDoc;
end;
end;
Leider wird die Größe von Timage auf dem Druckergebnis nicht beibehalten. Wie könnte man dieses Problem lösen?