OfficeVba/docx/TSDocxRow.tsf

102 lines
2.5 KiB
Plaintext

Type TSDocxRow = Class(TSVbaBase)
Uses TSDocxEnumerations;
public
Function Init(table, row);
private
table_;
row_;
public
Function ConvertToText(Separator, NestedTables);
Function Delete();
Function Select();
Function SetHeight(RowHeight, HeightRule);
Function SetLeftIndent(LeftIndent, RulerStyle);
property Alignment read ReadAlignment write WriteAlignment;
property AllowBreakAcrossPages read ReadAllowBreakAcrossPages write WriteAllowBreakAcrossPages;
property Borders read ReadBorders;
property Cells read ReadCells;
property HeadingFormat read ReadHeadingFormat write WriteHeadingFormat;
property Height read ReadHeight write WriteHeight;
property HeightRule read ReadHeightRule write WriteHeightRule;
property ID read ReadID write WriteID;
property Index read ReadIndex;
property IsFirst read ReadIsFirst;
property IsLast read ReadIsLast;
property LeftIndent read ReadLeftIndent write WriteLeftIndent;
property NestingLevel read ReadNestingLevel;
property Next read ReadNext;
property Previous read ReadPrevious;
property Range read ReadRange;
property Shading read ReadShading;
property SpaceBetweenColumns read ReadSpaceBetweenColumns write WriteSpaceBetweenColumns;
Function WriteSpaceBetweenColumns();
Function ReadSpaceBetweenColumns();
Function ReadShading();
Function ReadRange();
Function ReadPrevious();
Function ReadNext();
Function ReadNestingLevel();
Function WriteLeftIndent();
Function ReadLeftIndent();
Function ReadIsLast();
Function ReadIsFirst();
Function ReadIndex();
Function WriteID();
Function ReadID();
Function WriteHeightRule();
Function ReadHeightRule();
Function WriteHeight();
Function ReadHeight();
Function WriteHeadingFormat();
Function ReadHeadingFormat();
Function ReadCells();
Function ReadBorders();
Function WriteAllowBreakAcrossPages();
Function ReadAllowBreakAcrossPages();
Function WriteAlignment();
Function ReadAlignment();
End;
// ============== 实现 ================= //
Function TSDocxRow.Init(table, row);
Begin
table_ := table;
row_ := row;
End;
// function
Function TSDocxRow.Delete();
Begin
table_.DeleteCell(row_, nil);
End;
Function TSDocxRow.Select();
Begin
End;
Function TSDocxRow.SetHeight(RowHeight, HeightRule);
Begin
case HeightRule of
TSDocxEnumerations.wdRowHeightAtLeast:
begin
end
TSDocxEnumerations.wdRowHeightAuto:
begin
end
TSDocxEnumerations.wdRowHeightExactly:
begin
end
end;
End;
Function TSDocxRow.SetLeftIndent(LeftIndent, RulerStyle);
Begin
End;