82 lines
1.8 KiB
Plaintext
82 lines
1.8 KiB
Plaintext
Type TSDocxColumns = Class(TSVbaBase)
|
|
|
|
public
|
|
Function Init(table);
|
|
Function Operator[](index);
|
|
|
|
private
|
|
application_;
|
|
table_;
|
|
|
|
public
|
|
Function Add(BeforeColumn);
|
|
Function AutoFit();
|
|
Function Delete();
|
|
Function DistributeWidth();
|
|
Function Item(Index);
|
|
Function Select();
|
|
Function SetWidth(ColumnWidth, RulerStyle);
|
|
|
|
property Borders read ReadBorders;
|
|
property Count read ReadCount;
|
|
property First read ReadFirst;
|
|
property Last read ReadLast;
|
|
property NestingLevel read ReadNestingLevel;
|
|
property PreferredWidth read ReadPreferredWidth write WritePreferredWidth;
|
|
property PreferredWidthType read ReadPreferredWidthType write WritePreferredWidthType;
|
|
property Shading read ReadShading;
|
|
property Width read ReadWidth write WriteWidth;
|
|
Function WriteWidth();
|
|
Function ReadWidth();
|
|
Function ReadShading();
|
|
Function WritePreferredWidthType(value);
|
|
Function ReadPreferredWidthType();
|
|
Function WritePreferredWidth(value);
|
|
Function ReadPreferredWidth();
|
|
Function ReadNestingLevel();
|
|
Function ReadLast();
|
|
Function ReadFirst();
|
|
Function ReadCount();
|
|
Function ReadBorders();
|
|
|
|
End;
|
|
|
|
// ============== 实现 ================= //
|
|
Function TSDocxColumns.Init(table);
|
|
Begin
|
|
table_ := table;
|
|
End;
|
|
|
|
Function Operator TSDocxColumns.[](index);
|
|
Begin
|
|
column_obj := new TSDocxColumn(self.Application, self.Creator, self);
|
|
column_obj.Init(table_, index);
|
|
return column_obj;
|
|
End;
|
|
|
|
// function
|
|
Function TSDocxColumns.Item(Index);
|
|
Begin
|
|
return self[Index];
|
|
End;
|
|
|
|
//property
|
|
Function TSDocxColumns.ReadCount();
|
|
Begin
|
|
return table_.Cols();
|
|
End;
|
|
|
|
Function TSDocxColumns.WritePreferredWidthType(value);
|
|
Begin
|
|
End;
|
|
Function TSDocxColumns.ReadPreferredWidthType();
|
|
Begin
|
|
End;
|
|
|
|
Function TSDocxColumns.WritePreferredWidth(value);
|
|
Begin
|
|
End;
|
|
Function TSDocxColumns.ReadPreferredWidth();
|
|
Begin
|
|
End;
|