THPDFPage.AddTextWatermark Method

语法

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

说明

AddTextWatermark 在当前页面上绘制旋转的透明文本。它注册一个填充与描边 alpha 匹配的 ExtGState，保存当前图形状态，应用水印字体和填充色，写出文本，然后恢复先前的图形状态。

Opacity 被截断到 0..1 范围。低于 1 的值需要 PDF 透明度支持，会被与 RegisterExtGState 相同的 PDF/A 和 PDF/X 配置门禁拒绝。该方法用于生成的页面，或 LoadFromFile 与 BeginDoc 之后选定的页面。

示例

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;

另请参阅

• THPDFPage 方法
• RegisterLineGraphicsState
• Translate / Scale / Rotate