THPDFPage.AddTextWatermark メソッド

構文

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

説明

AddTextWatermark は、現在のページに回転した透明なテキストを描画します 塗りつぶしとストロークのアルファ値が一致する ExtGState を登録し、 現在のグラフィックス状態を保存して、透かしのフォントと塗りつぶしの色を適用し、 テキストを出力して、前のグラフィックス状態を復元します。

Opacity は 0..1 の範囲にクランプされます 1 より小さい値は PDF の透過性のサポートを必要とし、 RegisterExtGState で使用されるのと同じ PDF/A および PDF/X プロファイルゲートによって拒否されます 生成されたページ、または LoadFromFile および BeginDoc の後に選択されたページでこのメソッドを使用してください。

例

PDF.LoadFromFile('Input.pdf');
PDF.File名前 := '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