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);

Aprašas

AddTextWatermark nupiešia pasuktą permatomą tekstą dabartiniame puslapyje. Jis užregistruoja ExtGState su atitinkančia užpildo ir brūkšnio alfa, išsaugo dabartinę grafikos būseną, pritaiko vandens ženklo šriftą ir užpildo spalvą, išveda tekstą ir atkuria ankstesnę grafikos būseną

Nepermatomumas apribojamas iki 0..1 intervalo. Vertės, mažesnės nei 1, reikalauja PDF skaidrumo palaikymo ir yra atmetamos tų pačių PDF/A ir PDF/X profilio vartų, kuriuos naudoja RegisterExtGState. Naudokite šį metodą generuojamiems puslapiams arba puslapiams, pasirinktiems po LoadFromFile ir 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