THPDFPage.AddTextWatermark metódus

Szintaxis

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

Leírás

Az AddTextWatermark elforgatott, átlátszó szöveget rajzol az aktuális oldalra. Regisztrál egy ExtGState-et a megfelelő kitöltési és vonal alpha értékekkel, elmenti az aktuális grafikai állapotot, alkalmazza a vízjel betűtípusát és kitöltési színét, kibocsátja a szöveget, majd visszaállítja az előző grafikai állapotot

Az Opacity az 0..1 tartományba van korlátozva. Az 1 alatti értékek PDF átlátszósági támogatást igényelnek, és ugyanazok a PDF/A és PDF/X profilkapuk utasítják el őket, amelyeket a RegisterExtGState is használ. Használja ezt a metódust a generált oldalakon, vagy a LoadFromFile és BeginDoc hívása után kiválasztott oldalakon

Példa

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;

Lásd még