THPDFPage.AddTextWatermark Method

Sintaxe

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

Descrição

AddTextWatermark desenha texto transparente rotacionado na página atual. Ele registra um ExtGState com alfa de preenchimento e traço correspondentes, salva o estado gráfico atual, aplica a fonte e a cor de preenchimento da marca d'água, emite o texto e restaura o estado gráfico anterior

Opacity é limitado ao intervalo 0..1. Valores abaixo de 1 exigem suporte a transparência PDF e são rejeitados pelos mesmos gates de perfil PDF/A e PDF/X usados por RegisterExtGState. Utilize este método em páginas geradas ou em páginas selecionadas após LoadFromFile e BeginDoc

Exemplo

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;

Consulte também