77 lines
2.0 KiB
Plaintext
77 lines
2.0 KiB
Plaintext
Type TSDocxCells = Class(TSVbaBase)
|
|
|
|
public
|
|
Function Init(table, row, column);
|
|
Function Operator[](index);
|
|
|
|
private
|
|
table_; // TOfficeObj("TTable")
|
|
row_;
|
|
column_;
|
|
|
|
public
|
|
// Methods
|
|
Function Add(BeforeCell);
|
|
Function AutoFit();
|
|
Function Delete(ShiftCells);
|
|
Function DistributeHeight();
|
|
Function DistributeWidth();
|
|
Function Item(Index);
|
|
Function Merge();
|
|
Function SetHeight(RowHeight, HeightRule);
|
|
Function SetWidth(ColumnWidth, RulerStyle);
|
|
Function Split(NumRows, NumColumns, MergeBeforeSplit);
|
|
|
|
// Properties
|
|
property Borders read ReadBorders;
|
|
property Count read ReadCount;
|
|
property Height read ReadHeight write WriteHeight;
|
|
property HeightRule read ReadHeightRule write WriteHeightRule;
|
|
property NestingLevel read ReadNestingLevel;
|
|
property PreferredWidth read ReadPreferredWidth write WritePreferredWidth;
|
|
property PreferredWidthType read ReadPreferredWidthType write WritePreferredWidthType;
|
|
property Shading read ReadShading;
|
|
property VerticalAlignment read ReadVerticalAlignment write WriteVerticalAlignment;
|
|
property Width read ReadWidth write WriteWidth;
|
|
Function WriteWidth();
|
|
Function ReadWidth();
|
|
Function WriteVerticalAlignment();
|
|
Function ReadVerticalAlignment();
|
|
Function ReadShading();
|
|
Function WritePreferredWidthType();
|
|
Function ReadPreferredWidthType();
|
|
Function WritePreferredWidth();
|
|
Function ReadPreferredWidth();
|
|
Function ReadNestingLevel();
|
|
Function WriteHeightRule();
|
|
Function ReadHeightRule();
|
|
Function WriteHeight();
|
|
Function ReadHeight();
|
|
Function ReadCount();
|
|
Function ReadBorders();
|
|
|
|
End;
|
|
|
|
// ============== 实现 ================= //
|
|
Function TSDocxCells.Init(table, row, column);
|
|
Begin
|
|
table_ := table;
|
|
row_ := row;
|
|
column_ := column;
|
|
End;
|
|
|
|
Function Operator TSDocxCells.[](index);
|
|
Begin
|
|
row := ifnil(row_) ? index : row_;
|
|
column := ifnil(column_) ? index : column_;
|
|
cell_obj := new TSDocxCell(self.Application, self.Creator, self);
|
|
cell_obj.Init(nil, table_, row, column);
|
|
return cell_obj;
|
|
End;
|
|
|
|
// function
|
|
Function TSDocxCells.Item(Index);
|
|
Begin
|
|
return self[Index];
|
|
End;
|