THPDFPage.AddTextWatermark Methode

Syntaxis

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

Beschrijving

AddTextWatermark tekent geroteerde transparante tekst op de huidige pagina. Het registreert een ExtGState met overeenkomende fill- en stroke alpha, slaat de huidige graphics state op, past het watermark-lettertype en de fillkleur toe, voert de tekst uit en herstelt de vorige graphics state

Opacity wordt afgeknepen tot het bereik 0..1 Waarden onder 1 vereisen PDF-transparantieondersteuning en worden geweigerd door dezelfde PDF/A- en PDF/X-profielcontroles die worden gebruikt door RegisterExtGState. Gebruik deze methode op gegenereerde pagina's of op pagina's die zijn geselecteerd na LoadFromFile en BeginDoc

Voorbeeld

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;

Zie ook