Metoda THPDFPage.AddTextWatermark

Sintaxă

procedure AddTextWatermark(
  const Text    : WideString;
  X, Y          : Single;
  Angle         : Extended;
  Opacity       : Single;
  const FontName: AnsiString;
  FontStyle     : TFontStyles;
  FontSize      : Single;
  Color         : TColor);

Descriere

AddTextWatermark desenează text transparent rotit pe pagina curentă. Înregistrează un ExtGState cu alpha potrivit pentru umplere și contur, salvează starea grafică curentă, aplică fontul și culoarea de umplere ale filigranului, emite textul și restaurează starea grafică anterioară

Opacity este limitat la intervalul 0..1 Valorile sub 1 necesită suport PDF pentru transparență și sunt respinse de aceleași porți de profil PDF/A și PDF/X folosite de RegisterExtGState. Folosiți această metodă pe pagini generate sau pe pagini selectate după LoadFromFile și BeginDoc

Exemplu

PDF.LoadFromFile('Input.pdf');
PDF.FileName := 'Watermarked.pdf';
PDF.BeginDoc;
for I := 0 to PDF.PagesCount - 1 do
begin
  PDF.CurrentPageNumber := I;
  PDF.CurrentPage.AddTextWatermark(
    'CONFIDENTIAL', 105, 430, -35, 0.22, 'Arial', [fsBold], 56, clSilver);
end;
PDF.EndDoc;

Vezi și