THPDFPage.AddTextWatermark Method

Syntax

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

Περιγραφή

Το AddTextWatermark σχεδιάζει rotated transparent text στην τρέχουσα σελίδα. Καταχωρεί ExtGState με matching fill και stroke alpha, αποθηκεύει το current graphics state, εφαρμόζει το watermark font και fill color, εκπέμπει το κείμενο και επαναφέρει το προηγούμενο graphics state

Το Opacity γίνεται clamped στο range 0..1. Values κάτω από 1 απαιτούν PDF transparency support και απορρίπτονται από τα ίδια PDF/A και PDF/X profile gates που χρησιμοποιεί το RegisterExtGState. Χρησιμοποιήστε αυτή τη μέθοδο σε generated pages ή σε pages που επιλέχθηκαν μετά από LoadFromFile και BeginDoc

Example

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;

See Also