Delphi ActiveX Requires Chilkat v11.7.0+

Tile a Watermark Across a PDF Page

See more PDF Watermark Examples

Demonstrates a tiled watermark, which repeats the stamp over the whole page instead of placing it once. Tiling overrides position.align; tile.spacingX and spacingY set the gaps, and tile.stagger offsets alternate rows by half a tile so the pattern does not line up in columns. A faint tiled stamp carrying the name or address is the usual way to mark a document so that a leaked copy can be traced back, and zOrder back keeps it behind the text where it does not hinder reading. Delphi ActiveX

var
success: Integer;
pdf: TChilkatPdf;
json: TChilkatJsonObject;
jsonOut: TChilkatJsonObject;

begin
success := 0;

//  This example requires the Chilkat API to have been previously unlocked.
//  See Global Unlock Sample for sample code.

//  The PDF used in this example is available at long_report.pdf

pdf := TChilkatPdf.Create(Self);
success := pdf.LoadFile('qa_data/pdf/long_report.pdf');
if (success = 0) then
  begin
    Memo1.Lines.Add(pdf.LastErrorText);
    Exit;
  end;

json := TChilkatJsonObject.Create(Self);
json.UpdateString('type','text');

//  {date:FORMAT} is replaced per page when the watermark is added.  The other placeholders are
//  {page}, {pages} and {filename}; {{ gives a literal brace.
json.UpdateString('text','jdoe@example.com  {date:yyyy-MM-dd}');
json.UpdateString('id','trace');
json.UpdateString('zOrder','back');
json.UpdateNumber('font.size','14');
json.UpdateNumber('opacity','0.15');
json.UpdateNumber('rotation','30');

json.UpdateBool('tile.enabled',1);
json.UpdateNumber('tile.spacingX','60');
json.UpdateNumber('tile.spacingY','80');
json.UpdateBool('tile.stagger',1);

jsonOut := TChilkatJsonObject.Create(Self);
success := pdf.Watermark('add',json.ControlInterface,jsonOut.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(pdf.LastErrorText);
    Exit;
  end;
Memo1.Lines.Add('id: ' + jsonOut.StringOf('id') + ' pages: ' + jsonOut.StringOf('pages'));

success := pdf.WriteFile('qa_output/report_traced.pdf');
if (success = 0) then
  begin
    Memo1.Lines.Add(pdf.LastErrorText);
    Exit;
  end;

//  Sample output:

//  id: trace pages: 1-3