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;