37 lines
656 B
Plaintext
37 lines
656 B
Plaintext
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;
|