THPDFPage.AddTextWatermark Método

Sintaxis

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

Descripción

AddTextWatermark dibuja texto transparente rotado en la página actual. Registra un ExtGState con alfa de relleno y trazo coincidentes, guarda el estado gráfico actual, aplica la fuente y el color de relleno de la marca de agua, emite el texto y restaura el estado gráfico anterior

Opacity se ajusta al intervalo 0..1 Los valores inferiores a 1 requieren compatibilidad con transparencia PDF y se rechazan mediante las mismas validaciones de perfil PDF/A y PDF/X usadas por RegisterExtGState. Use este método en páginas generadas o en páginas seleccionadas después de LoadFromFile y BeginDoc

Ejemplo

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;

Véase también