procedure CreateAnnotation(const Annotation: TPdfAnnotation);
| Annotation | TPdfAnnotation. Un record che descrive l'annotazione da creare. I campi chiave includono SubType (tipo di annotazione, ad es. evidenziazione, nota di testo, ink), Rect (rettangolo di delimitazione in coordinate dello spazio utente PDF), Contents (il testo dell'annotazione) e Color (il colore dell'annotazione). Compila tutti i campi rilevanti prima di passare il record |
CreateAnnotation aggiunge una nuova annotazione alla pagina corrente usando le proprietà fornite nel record TPdfAnnotation. L'annotazione viene accodata all'array delle annotazioni della pagina e diventa immediatamente accessibile tramite Annotation[AnnotationCount - 1]
Il record TPdfAnnotation cattura il tipo di annotazione (SubType), la sua posizione sulla pagina (Rect, in punti dello spazio utente PDF con origine in basso a sinistra), il testo visibile o il tooltip (Contents) e il colore di visualizzazione (Color). Imposta ogni campo rilevante per il sottotipo scelto prima di chiamare questa procedura; i campi non impostati restano ai loro valori zero
Dopo aver creato annotazioni, chiama SaveAs per persistere le modifiche su disco. Per rimuovere un'annotazione usa DeleteAnnotation con l'indice a base zero appropriato
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;