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

Description

AddTextWatermark na trenutno stran nariše zasukano prozorno besedilo. Registrira ExtGState z ustrezno alfa za zapolnitev in obris, shrani trenutno grafično stanje, uporabi font in barvo zapolnitve vodnega žiga, izpiše besedilo in obnovi prejšnje grafično stanje

Opacity je pripeta na razpon 0..1. Vrednosti pod 1 zahtevajo podporo za preglednost PDF in jih iste profile PDF/A ter PDF/X zavrnejo kot RegisterExtGState. To metodo uporabite na ustvarjenih straneh ali na straneh, izbranih po LoadFromFile in BeginDoc

Primer

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;

Glejte tudi