procedure CreateAnnotation(const Annotation: TPdfAnnotation);
| Annotation | TPdfAnnotation. Un enregistrement décrivant l’annotation à créer. Les champs clés incluent SubType (type d’annotation, par ex. surlignage, note texte, encre), Rect (rectangle englobant en coordonnées d’espace utilisateur PDF), Contents (le texte de l’annotation) et Color (la couleur de l’annotation). Remplissez tous les champs pertinents avant de passer l’enregistrement |
CreateAnnotation ajoute une nouvelle annotation à la page actuelle en utilisant les propriétés fournies dans l'enregistrement TPdfAnnotation. L'annotation est ajoutée au tableau d'annotations de la page et devient immédiatement accessible via Annotation[AnnotationCount - 1].
L'enregistrement TPdfAnnotation capture le type d'annotation (SubType), sa position sur la page (Rect, en points PDF user-space avec l'origine en bas à gauche), le texte visible ou l'info-bulle (Sommaire) et la couleur d'affichage (Color). Renseignez tous les champs pertinents pour le sous-type choisi avant d'appeler cette procédure ; les champs non renseignés conservent leur valeur nulle.
Après la création des annotations, appelez SaveAs pour persister les changements sur disque. Pour supprimer une annotation, utilisez DeleteAnnotation avec l'indice 0-based approprié.
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;