OfficeVba/docx/TSDocxColumns.tsf

87 lines
1.9 KiB
Plaintext

Type TSDocxColumns = Class
public
Function Create(application, 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 Application read ReadApplication;
property Borders read ReadBorders;
property Count read ReadCount;
property Creator read ReadCreator;
property First read ReadFirst;
property Last read ReadLast;
property NestingLevel read ReadNestingLevel;
property Parent read ReadParent;
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 ReadParent();
Function ReadNestingLevel();
Function ReadLast();
Function ReadFirst();
Function ReadCreator();
Function ReadCount();
Function ReadBorders();
Function ReadApplication();
End;
// ============== 实现 ================= //
Function TSDocxColumns.Create(application, table);
Begin
application_ := application;
table_ := table;
End;
Function Operator TSDocxColumns.[](index);
Begin
return new TSDocxColumn(application_, table_, index);
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;