Type TSDocxBorderTable = Class(TSDocxBorder)

public
	Function Init(table, borderType);

public
	Function WriteLineStyle(value);override;

private
	table_;
	border_type_;

End;


// ============== 实现 ================= //
Function TSDocxBorderTable.Init(table, borderType);
Begin
	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(self.Application, self.Creator, self.Parent);
			cell.Init(table_, r, c);
			cell.Borders(border_type_).LineStyle := value;
		end
	end
End;