Methode THPDFPage.AddTextWatermark

Syntax

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

Beschreibung

AddTextWatermark zeichnet gedrehten transparenten Text auf der aktuellen Seite; es registriert einen ExtGState mit passendem Füll- und Strich-Alpha, speichert den aktuellen Grafikzustand, wendet die Wasserzeichen-Schriftart und -Füllfarbe an, gibt den Text aus und stellt den vorherigen Grafikzustand wieder her

Opacity wird auf den Bereich 0..1 begrenzt; Werte unter 1 erfordern PDF-Transparenzunterstützung und werden von denselben PDF/A- und PDF/X-Profilfiltern abgelehnt, die auch von RegisterExtGState verwendet werden; verwenden Sie diese Methode auf generierten Seiten oder auf Seiten, die nach LoadFromFile und BeginDoc ausgewählt wurden

Beispiel

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;

Siehe auch