procedure CreateAnnotation(const Annotation: TPdfAnnotation);
| Annotation | TPdfAnnotation. Rekord opisujący adnotację do utworzenia. Kluczowe pola to SubType (typ adnotacji, np. highlight, text note, ink), Rect (prostokąt ograniczający we współrzędnych przestrzeni użytkownika PDF), Contents (tekst adnotacji) oraz Color (kolor adnotacji) Wypełnij wszystkie istotne pola przed przekazaniem rekordu |
CreateAnnotation dodaje nową adnotację do bieżącej strony, korzystając z właściwości przekazanych w rekordzie TPdfAnnotation Adnotacja jest dopisywana do tablicy adnotacji strony i staje się natychmiast dostępna przez Annotation[AnnotationCount - 1]
Rekord TPdfAnnotation opisuje typ adnotacji (SubType), jej położenie na stronie (Rect, w punktach przestrzeni użytkownika PDF z początkiem w lewym dolnym rogu), widoczny tekst lub podpowiedź (Contents) oraz kolor wyświetlania (Color) Ustaw każde pole istotne dla wybranego podtypu przed wywołaniem tej procedury; niewypełnione pola pozostają z wartościami zerowymi
Po utworzeniu adnotacji wywołaj SaveAs, aby utrwalić zmiany na dysku Aby usunąć adnotację, użyj DeleteAnnotation z odpowiednim indeksem liczonym od zera
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;