procedure CreateAnnotation(const Annotation: TPdfAnnotation);
| Annotation | TPdfAnnotation. Registro que describe la anotación a crear. Los campos clave incluyen SubType (tipo de anotación, p. ej. resaltado, nota de texto, tinta), Rect (rectángulo delimitador en coordenadas del espacio de usuario PDF), Contents (el texto de la anotación) y Color (el color de la anotación). Rellene todos los campos relevantes antes de pasar el registro. |
CreateAnnotation añade una anotación nueva a la página actual usando las propiedades suministradas en el registro TPdfAnnotation. La anotación se añade al array de anotaciones de la página y queda accesible de inmediato mediante Annotation[AnnotationCount - 1].
El registro TPdfAnnotation recoge el tipo de anotación (SubType), su posición en la página (Rect, en puntos del espacio de usuario PDF con el origen en la esquina inferior izquierda), el texto visible o el tooltip (Contents) y el color de visualización (Color). Establezca cada campo relevante para el subtipo elegido antes de llamar a este procedimiento; los campos sin establecer quedan en su valor cero.
Tras crear anotaciones, llame a SaveAs para persistir los cambios en disco. Para eliminar una anotación use DeleteAnnotation con el índice basado en cero adecuado.
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;