procedure CreateAnnotation(const Annotation: TPdfAnnotation);
| Annotation | TPdfAnnotation. Įrašas, aprašantis kuriamą anotaciją. Pagrindiniai laukai: SubType (anotacijos tipas, pvz. paryškinimas, teksto pastaba, ink), Rect (ribojantysis stačiakampis PDF naudotojo erdvės koordinatėmis), Contents (anotacijos tekstas) ir Color (anotacijos spalva). Užpildykite visus aktualius laukus prieš perduodami įrašą. |
CreateAnnotation prideda naują anotaciją prie dabartinio puslapio naudodamas TPdfAnnotation įraše pateiktas savybes. Anotacija pridedama prie puslapio anotacijų masyvo ir tampa iš karto prieinama per Annotation[AnnotationCount - 1].
TPdfAnnotation įrašas fiksuoja anotacijos tipą (SubType), jos padėtį puslapyje (Rect, PDF naudotojo erdvės taškais su pradžia apatiniame kairiajame), matomą tekstą ar patarimą (Contents) ir rodymo spalvą (Color). Nustatykite kiekvieną su pasirinktu potipiu susijusį lauką prieš išvesdami šią procedūrą; nenustatyti laukai paliekami nulinėmis reikšmėmis.
Sukūrę anotacijų, iškvieskite SaveAs, kad išlaikytumėte pakeitimus diske. Norėdami pašalinti anotaciją, naudokite DeleteAnnotation su atitinkamu 0-pagrindo indeksu.
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;