procedure CreateAnnotation(const Annotation: TPdfAnnotation);
| Annotation | TPdfAnnotation. En post som beskriver merknaden som skal opprettes. Nøkkelfelt inkluderer SubType (merknadstype, f.eks. fremheving, tekstnotat, penn), Rect (avgrensningsrektangel i PDF-brukerrom-koordinater), Contents (merknadsteksten) og Color (merknadsfargen). Fyll ut alle relevante felt før posten sendes. |
CreateAnnotation legger til en ny merknad på den gjeldende siden ved hjelp av egenskapene oppgitt i TPdfAnnotation-posten. Merknaden tilføyes sidens merknadsarray og blir umiddelbart tilgjengelig via Annotation[AnnotationCount - 1].
TPdfAnnotation-posten fanger opp merknadstypen (SubType), dens posisjon på siden (Rect, i PDF-brukerrom-punkter med origo nederst til venstre), den synlige teksten eller verktøytipset (Contents) og visningsfargen (Color). Sett hvert felt som er relevant for den valgte subtypen før denne prosedyren kalles; usatte felt forblir på sine nullverdier.
Etter å ha opprettet merknader, kall SaveAs for å lagre endringene til disk. For å fjerne en merknad bruk DeleteAnnotation med passende 0-basert indeks.
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;