Moin, moin,
zum Ausdrucken benutze ich direkt die Canvas von Printer. Nun möchte ich auf jede Seite ein Bild in der Kopfzeile haben (JPG-Grafik). Das funktioniert prinzipiell auch ganz gut, ABER: obwohl die entsprechende Routine definitiv jedes Mal angesprungen wird (habe ich kontrolliert), erscheint die Grafik nicht immer. Ich kann keine Prozentzahl nennen, aber wenn ich viele Seiten hintereinander drucke, dann sind immer mal wieder Seiten dabei, bei denen die Grafik fehlt. Auf der nächsten Seite ist sie dann wieder da. Mache ich einen Denkfehler in meinem Code (nur der relevante Teil)?
Delphi-Quellcode:
Image2:=TImage.Create(NIL);
Image2.AutoSize:=TRUE; Image2.Stretch:=FALSE;
try
Image2.Picture.LoadFromFile(ImageDateiname);
EndY:=EndY-10-Image2.Height;
if FooterImageCenter then
x:=((Printer.PageWidth-Image2.Width) div 2)
else x:=StartX;
Printer.Canvas.StretchDraw(Rect(x,EndY+10,x+Image2.Width,EndY+Image2.Height),Image2.Picture.Graphic);
finally
Image2.Free;
end;
Danke im voraus.
cu
easywk