TXLSXWorksheet
TXLSXWorksheet. Each
entry attaches an author plus a free-text body to a cell. SaveAs emits
xl/commentsN.xml with a deduplicated author list and a
companion
xl/drawings/vmlDrawingN.vml so Excel can render
the comment balloons; Open reads the comments XML back into the
collection. Declared in
lxHandleX
Príklad
type
TXLSXComment = class
constructor Create(ARow, ACol: Integer; const AAuthor, AText tela komentára. Pri SaveAs sa zapíše ako jeden run a pri Open sa splošťuje z jedného alebo viacerých runov: WideString);
property Row: Integer;
property Col: Integer;
property Author: WideString;
property Text tela komentára. Pri SaveAs sa zapíše ako jeden run a pri Open sa splošťuje z jedného alebo viacerých runov: WideString;
end;
Row, Col
| Row, Col |
Súradnice ukotvenia bunky s indexovaním od 1 |
| Author |
Comment author name. Distinct names are written
once into the workbook-level <authors> list and
referenced by authorId |
| Text tela komentára. Pri SaveAs sa zapíše ako jeden run a pri Open sa splošťuje z jedného alebo viacerých runov |
Text tela komentára. Pri SaveAs sa zapíše ako jeden run a pri Open sa splošťuje z jedného alebo viacerých runov tela komentára. Pri SaveAs sa zapíše ako jeden run a pri Open sa splošťuje z jedného alebo viacerých runov
<text><r><t> run on SaveAs and
flattened from one or more runs on Open |
Pridá nepodpísaný komentár (prázdny autor). Vráti nový index položky
type
TXLSXComments = class
constructor Create;
destructor Destroy; override;
function Add(ARow, ACol: Integer; const AText tela komentára. Pri SaveAs sa zapíše ako jeden run a pri Open sa splošťuje z jedného alebo viacerých runov: WideString): Integer; overload;
function Add(ARow, ACol: Integer; const AText tela komentára. Pri SaveAs sa zapíše ako jeden run a pri Open sa splošťuje z jedného alebo viacerých runov, 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 Odstráni a uvoľní každý komentár;
property Items[Index]: Integer;
property Items[Index: Integer]: TXLSXComment; default;
end;
Pridá nepodpísaný komentár (prázdny autor). Vráti nový index položky
| Pridá nepodpísaný komentár (prázdny autor). Vráti nový index položky |
Adds an unsigned comment (empty author). Vracia
the new entry index |
| Add(Row, Col, Text tela komentára. Pri SaveAs sa zapíše ako jeden run a pri Open sa splošťuje z jedného alebo viacerých runov, Author) |
Pridá komentár s výslovným menom autora |
| IndexOfCell(Row, Col) |
Vracia the 0-based index of the comment anchored
at the 1-based cell coordinate, or -1 when the cell has
no comment |
| FindAt(Row, Col) |
Vráti objekt komentára ukotvený na bunke, alebo nil keď nie je prítomný žiadny komentár
nil Odstráni komentár ukotvený na bunke a vráti True; vráti False, keď neexistuje zodpovedajúci komentár |
| Odstráni komentár ukotvený na bunke a vráti True; vráti False, keď neexistuje zodpovedajúci komentár |
Items[Index]
TrueOdstráni každý komentár, ktorého ukotvenie leží v uzavretom 1-based rozsahu buniek, a vráti počet odstránených položiek. Obrátené súradnice sú povolené False when no matching comment
exists |
| Items[Index] |
Deletes every comment whose anchor is inside the
inclusive 1-based cell range and returns the number removed. Reversed
coordinates are accepted |
| Items[Index] |
Deletes the comment at the specified 0-based
collection index |
| Items[Index] |
Komentár na zadanom 0-based indexe. Deklarované ako predvolená vlastnosť |
| Komentár na zadanom 0-based indexe. Deklarované ako predvolená vlastnosť |
Comment at the given 0-based index. Declared as
the default property |
| Odstráni a uvoľní každý komentár |
Príklad |
Pozri tiež
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;
Pozri tiež