procedure CreateAnnotation(const Annotation: TPdfAnnotation);
| Annotation | TPdfAnnotation. Um registro descrevendo a anotação a ser criada. Campos chave incluem SubType (tipo de anotação, ex: realce, nota de texto, tinta), Rect (retângulo delimitador em coordenadas de espaço de usuário PDF), Contents (o texto da anotação) e Color (a cor da anotação). Preencha todos os campos relevantes antes de passar o registro. |
CreateAnnotation adiciona uma nova anotação à página atual usando as propriedades fornecidas no registro TPdfAnnotation. A anotação é anexada ao array de anotações da página e se torna imediatamente acessível via Annotation[AnnotationCount - 1].
O registro TPdfAnnotation captura o tipo de anotação (SubType), sua posição na página (Rect, em pontos de espaço de usuário PDF com a origem no canto inferior esquerdo), o texto visível ou dica de ferramenta (Contents) e a cor de exibição (Color). Defina todo campo relevante para o subtipo escolhido antes de chamar este procedimento; campos não definidos são deixados com seus valores zero.
Após criar anotações, chame SaveAs para persistir as alterações no disco. Para remover uma anotação use DeleteAnnotation com o índice baseado em zero apropriado.
var
Ann: TPdfAnnotation;
begin
Pdf1.PageIndex := 0;
FillChar(Ann, SizeOf(Ann), 0);
Ann.SubType := asHighlight;
Ann.Rect.Left := 72.0;
Ann.Rect.Bottom := 680.0;
Ann.Rect.Right := 300.0;
Ann.Rect.Top := 695.0;
Ann.Contents := 'Key figure — review before sign-off';
Ann.Color := clYellow;
Pdf1.CreateAnnotation(Ann);
Pdf1.SaveAs('output_annotated.pdf');
end;