Hallo,
ich möchte PDF-Watermarks mit folgendem Code erzeugen, die PDF-Seiten sollen DIN-A4 sein:
Code
image := TImage.Create(nil);
res := Screen.PixelsPerInch;
w := Round(21 / 2.54 * res);
h := Round(29.7 / 2.54 * res);
PDFPrinter1.StartWatermark('Hintergrund_1', w, h, res, res);
image.Picture.LoadFromFile(ExtractFilePath(Application.ExeName) + 'Background.jpg');
PDFPrinter1.Canvas.StretchDraw(Rect(0, 0, w, h), image.Picture.Graphic);
PDFPrinter1.EndWatermark;
image.Free;
Das Image soll bildfüllend eingebettet werden, ist aber ca. 20% größer als die Seite.
Wie komme ich an die Höhe / Breite von PDFPrinter1.Canvas?
PDFPrinter1.XPixelsPerInch ist so groß wie res, also 96.
Hat PageWidth / PageHeight bei StartWatermark eine andere Einheit wie das Rect beim Canvas.StretchDraw?
Danke
Ciao
Stefan