procedure CreateAnnotation(const Annotation: TPdfAnnotation);
| Annotation | TPdfAnnotation. Um registo que descreve a anotação a criar. Os campos principais incluem SubType (tipo de anotação, por ex. realce, nota de texto, tinta), Rect (retângulo delimitador em coordenadas do espaço de utilizador PDF), Contents (o texto da anotação) e Color (a cor da anotação). Preencha todos os campos relevantes antes de passar o registo |
CreateAnnotation adiciona uma nova anotação à página atual usando as propriedades fornecidas no registo TPdfAnnotation. A anotação é acrescentada ao array de anotações da página e torna-se imediatamente acessível via Annotation[AnnotationCount - 1]
O registo TPdfAnnotation captura o tipo de anotação (SubType), a sua posição na página (Rect, em pontos do espaço de utilizador PDF com a origem no canto inferior esquerdo), o texto visível ou tooltip (Contents) e a cor de apresentação (Color). Defina todos os campos relevantes para o subtipo escolhido antes de chamar este procedimento; os campos não definidos ficam com os seus valores zero
Depois de criar anotações, chame SaveAs para persistir as alterações no disco. Para remover uma anotação use DeleteAnnotation com o índice baseado em 0 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;