THPDFPage.AddTextWatermark-metode

Syntax

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

Beskrivelse

AddTextWatermarktegner roteret gennemsigtig tekst på den aktuelle side. Den registrerer en ExtGState med matchende fyld- og streg-alpha, gemmer den aktuelle grafik-tilstand, anvender vandmærkeskrifttypen og fyldfarven, udsender teksten og gendanner den forrige grafik-tilstand

Opacityer begrænset til området0..1Værdier under1kræver PDF-transparensunderstøttelse og afvises af de samme PDF/A- og PDF/X-profilbetingelser, som bruges afRegisterExtGState. Brug denne metode på genererede sider eller på sider valgt efterLoadFromFile and 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;

Se også

• THPDFPage-metoder
• RegisterLineGraphicsState
• Oversæt / Skaler / Roter