procedure CreateAnnotation(const Annotation: TPdfAnnotation);
| Annotation | TPdfAnnotation. רשומה המתארת את ההערה ליצירה. שדות מפתח כוללים את SubType (סוג ההערה, למשל הדגשה, הערת טקסט, דיו), Rect (מלבן התחום בקואורדינטות מרחב המשתמש של PDF), Contents (טקסט ההערה), ו-Color (צבע ההערה). יש למלא את כל השדות הרלוונטיים לפני העברת הרשומה |
CreateAnnotation מוסיף הערה חדשה לדף הנוכחי באמצעות המאפיינים המסופקים ברשומת TPdfAnnotation. ההערה מתווספת למערך ההערות של הדף והופכת לזמינה מיד דרך Annotation[AnnotationCount - 1]
רשומת TPdfAnnotation לוכדת את סוג ההערה (SubType), את מיקומה בדף (Rect, בנקודות מרחב המשתמש של PDF כאשר ראשית הצירים בפינה השמאלית-תחתונה), את הטקסט הגלוי או הטיפ המוקפץ (Contents), ואת צבע התצוגה (Color). יש להגדיר כל שדה הרלוונטי לסוג-המשנה הנבחר לפני קריאה לפרוצדורה זו; שדות שלא הוגדרו יישארו בערכי האפס שלהם
לאחר יצירת הערות, יש לקרוא ל-SaveAs כדי לשמור את השינויים לדיסק. כדי להסיר הערה יש להשתמש ב-DeleteAnnotation עם האינדקס המבוסס-אפס המתאים
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;