THPDFPage.AddTextWatermark Method

Syntax

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

Description

AddTextWatermark는 현재 페이지에 회전된 투명 텍스트를 그립니다. fill과 stroke의 alpha가 같은 ExtGState를 등록하고, 현재 그래픽 상태를 저장한 뒤 워터마크 폰트와 fill 색을 적용하고, 텍스트를 출력한 다음 이전 그래픽 상태를 복원합니다

Opacity는 0..1 범위로 제한됩니다. 1 미만의 값은 PDF 투명도 지원이 필요하며, RegisterExtGState와 동일한 PDF/A 및 PDF/X 프로파일 게이트에서 거부됩니다. 이 메서드는 생성한 페이지나, LoadFromFile과 BeginDoc 이후에 선택한 페이지에서 사용하세요

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