38 lines
686 B
Plaintext
38 lines
686 B
Plaintext
Type TSDocxBorderTable = Class(TSDocxBorder)
|
|
|
|
public
|
|
Function Create(application, table, borderType);
|
|
|
|
public
|
|
Function WriteLineStyle(value);override;
|
|
|
|
private
|
|
application_;
|
|
table_;
|
|
border_type_;
|
|
|
|
End;
|
|
|
|
|
|
// ============== 实现 ================= //
|
|
Function TSDocxBorderTable.Create(application, table, borderType);
|
|
Begin
|
|
application_ := application;
|
|
table_ := table;
|
|
border_type_ := borderType;
|
|
End;
|
|
|
|
|
|
// property
|
|
Function TSDocxBorderTable.WriteLineStyle(value);override;
|
|
Begin
|
|
for r:=1 to table_.Rows() do
|
|
begin
|
|
for c:=1 to table_.Cols() do
|
|
begin
|
|
cell := new TSDocxCell(application_, table_, r, c);
|
|
cell.Borders(border_type_).LineStyle := value;
|
|
end
|
|
end
|
|
End;
|