procedure CreateAnnotation(const Annotation: TPdfAnnotation);
| Annotation | TPdfAnnotation. Ein Datensatz, der die zu erzeugende Anmerkung beschreibt. Zu den wichtigsten Feldern gehören SubType (Anmerkungstyp, z. B. Hervorhebung, Textnotiz, Freihand), Rect (Begrenzungsrechteck in PDF-User-Space-Koordinaten), Contents (der Anmerkungstext) und Color (die Anmerkungsfarbe). Füllen Sie alle relevanten Felder aus, bevor Sie den Datensatz übergeben |
CreateAnnotation fügt der aktuellen Seite eine neue Anmerkung unter Verwendung der im TPdfAnnotation-Datensatz angegebenen Eigenschaften hinzu. Die Anmerkung wird an das Anmerkungs-Array der Seite angehängt und ist sofort über Annotation[AnnotationCount - 1] zugänglich
Der TPdfAnnotation-Datensatz erfasst den Anmerkungstyp (SubType), seine Position auf der Seite (Rect, in PDF-User-Space-Punkten mit dem Ursprung unten links), den sichtbaren Text oder Tooltip (Contents) und die Anzeigefarbe (Color). Setzen Sie jedes Feld, das für den gewählten Untertyp relevant ist, bevor Sie diese Prozedur aufrufen; nicht gesetzte Felder behalten ihren Nullwert
Nach dem Erzeugen von Anmerkungen rufen Sie SaveAs auf, um die Änderungen dauerhaft auf die Festplatte zu schreiben. Um eine Anmerkung zu entfernen, verwenden Sie DeleteAnnotation mit dem entsprechenden nullbasierten Index
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;