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 anexa al arreglo de anotaciones de la página y queda inmediatamente accesible mediante Annotation[AnnotationCount - 1]
El registro TPdfAnnotation captura 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 la información emergente (Contents) y el color de visualización (Color). Establezca todos los campos relevantes para el subtipo elegido antes de llamar a este procedimiento; los campos sin establecer quedan en sus valores cero
Después de crear anotaciones, llame a SaveAs para persistir los cambios en el disco. Para eliminar una anotación use DeleteAnnotation con el índice basado en cero correspondiente
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;