procedure CreateAnnotation(const Annotation: TPdfAnnotation);
| Annotation | TPdfAnnotation. Post som beskriver annoteringen som ska skapas. Nyckelfälten är SubType (annoteringstyp, t.ex. highlight, textnotering, ink), Rect (omslutande rektangel i PDF:s användarytekoordinater), Contents (annoteringens text) och Color (annoteringens färg). Fyll i alla relevanta fält innan posten skickas in |
CreateAnnotation lägger till en ny annotering på den aktuella sidan med egenskaperna som anges i TPdfAnnotation-posten. Annoteringen läggs till i sidans annoteringsarray och blir omedelbart åtkomlig via Annotation[AnnotationCount - 1].
TPdfAnnotation-posten fångar annoteringstypen (SubType), dess position på sidan (Rect, i PDF-användarytespunkter med origo längst ner till vänster), den synliga texten eller verktygstipset (Contents) och visningsfärgen (Color). Ange varje fält som är relevant för den valda undertypen innan denna procedur anropas; osatta fält lämnas på sina nollvärden.
Efter att du har skapat annoteringar anropar du SaveAs för att bevara ändringarna på disk. Använd DeleteAnnotation med rätt 0-baserade index för att ta bort en annotering
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;