دعم تعليقات الخلايا في
TXLSXWorksheet. يُرفَق كل إدخال بمؤلف ونص إلى الخلية. يحفظ
xl/commentsN.xml التعليقات في
xl/drawings/vmlDrawingN.vml مع ملفات vmlDrawing المصاحبة
lxHandleXإعلان TXLSXComment
type
TXLSXComment = class
constructor Create(ARow, ACol: Integer; const AAuthor, AText: WideString);
property Row: Integer;
property Col: Integer;
property Author: WideString;
property Text: WideString;
end;
أعضاء TXLSXComment
| Row, Col | 1-مستند خلية anchor coordinates |
| Author | اسم مؤلف التعليق. تُكتب الأسماء المختلفة مرة واحدة في قائمة <authors> على مستوى المصنف وتُشار عبر authorId <authors> list and
referenced by authorId |
| Text | Comment body text. Written as a single
<text><r><t> نص جسم التعليق. يُكتب كتتابع واحد <text><r><t> عند SaveAs ويُسطَّح من تتابع واحد أو أكثر عند Open |
إعلان TXLSXComments
type
TXLSXComments = class
constructor Create;
destructor Destroy; override;
function Add(ARow, ACol: Integer; const AText: WideString): Integer; overload;
function Add(ARow, ACol: Integer; const AText, AAuthor: WideString): Integer; overload;
function IndexOfCell(ARow, ACol: Integer): Integer;
function FindAt(ARow, ACol: Integer): TXLSXComment;
function DeleteAt(ARow, ACol: Integer): Boolean;
function DeleteInRange(ARow1, ACol1, ARow2, ACol2: Integer): Integer;
procedure Delete(Index: Integer);
procedure Clear;
property Count: Integer;
property Items[Index: Integer]: TXLSXComment; default;
end;
أعضاء TXLSXComments
| Add(Row, Col, Text) | يضيف تعليقًا غير موقَّع (مؤلف فارغ). يعيد فهرس الإدخال الجديد |
| Add(Row, Col, Text, Author) | يضيف تعليقًا مع اسم مؤلف صريح |
| IndexOfCell(Row, Col) | يعيد الفهرس 0-based للعمود المرتبط عند إحداثي الخلية 1-based، أو -1 عندما لا تحتوي الخلية على تعليق -1 when the cell has
no comment |
| FindAt(Row, Col) | يعيد كائن التعليق المرتبط بالخلية، أو nil عندما لا يوجد تعليق
nil when no comment is present |
| DeleteAt(Row, Col) | تحذف التعليق المرسى على الخلية وتعيد
True; returns False يحذف التعليق المثبّت عند الخلية ويعيد True؛ ويعيد False عند عدم وجود تعليق مطابق |
| DeleteInRange(Row1, Col1, Row2, Col2) | يحذف كل تعليق تكون مرساته داخل نطاق الخلايا الشامل المعتمد على 1 ويعيد عدد العناصر المحذوفة. تُقبل الإحداثيات المعكوسة |
| Delete(Index) | يحذف التعليق عند فهرس المجموعة المعطى المعتمد على 0 |
| Count | عدد التعليقات في ورقة العمل |
| Items[Index] | التعليق عند الفهرس المعطى المعتمد على 0. معلن كخاصية افتراضية |
| Clear | يزيل ويحذف كل تعليق |
مثال
var
ws: TXLSXWorksheet;
begin
ws := Workbook.Sheets.Add('Reviews');
ws.Cells.Item[1, 1].Value := 'Q1 revenue';
ws.AddComment(1, 1, 'Numbers still pending review', 'Kevin');
// Equivalent through the collection:
ws.Comments.Add(2, 1, 'Auto-generated draft');
if ws.Comments.IndexOfCell(1, 1) >= 0 then
ws.Comments.DeleteAt(1, 1);
end;
انظر أيضاً