Julian I am trying to paint a watermark behind the print of a PDF. The watermark is a JPEG loaded into a TPicture. See comments in the code for the problem. Can you help me, please.
I am using the following code:
Code
var
Watermark: TPicture;
procedure TMyObject.WPPDFExportBeforePrintPage(Sender: TObject; Number,
FromPos, Length: Integer);
{Print watermark on WPPDFExport.Canvas}
begin
TWPPDFExport(Sender).UseWatermark('water');
end;
procedure TMyObject.WPPDFExportBeginDoc(Sender: TObject);
var
LRes: integer;
LRect: TRect;
begin
with (TWPPDFExport(Sender)) do
begin
LRes := Screen.PixelsPerInch;
LRect.Left := 0;
LRect.Top := 0;
LRect.Right := MulDiv(Source.Header.PageWidth, LRes, 1440);
LRect.Bottom := MulDiv(Source.Header.PageHeight, LRes, 1440);
StartWatermark('water', LRect.Right, LRect.Bottom, LRes, LRes);
try
{If I use this version no watermark shows}
//DrawTGraphic(0,0,0,0, Merge.Watermark.Graphic);
{If I use this version the watermark paints in the bottom left of
each page, about 3 cm square on an A4 sheet. It should fill
the page.}
Canvas.StretchDraw(LRect, Watermark.Graphic);
finally
EndWatermark;
end;
end;
end;
Alles anzeigen
[/code]