THPDFPage.AddTextWatermark 메서드

Syntax

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

설명

AddTextWatermark는 current page에 rotated transparent text를 그립니다. Matching fill 및 stroke alpha가 있는 ExtGState를 등록하고 current graphics state를 저장한 뒤 watermark font와 fill color를 적용하고 text를 emit한 다음 이전 graphics state를 restore합니다

Opacity는 0..1 range로 clamp됩니다. 1보다 낮은 값은 PDF transparency support가 필요하며 RegisterExtGState가 사용하는 것과 같은 PDF/A 및 PDF/X profile gate에서 거부됩니다. 이 method는 generated page 또는 LoadFromFile 및 BeginDoc 뒤에 선택한 page에서 사용하십시오

Example

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;

See Also

• THPDFPage Methods
• RegisterLineGraphicsState
• Translate / Scale / Rotate