44 lines
923 B
Plaintext
44 lines
923 B
Plaintext
Type TSDocxBordersCell = Class(TSDocxBorders)
|
|
Uses TSDocxEnumerations;
|
|
|
|
public
|
|
Function Init(cell);
|
|
Function GetBorder(index);override;
|
|
|
|
private
|
|
cell_;
|
|
|
|
End;
|
|
|
|
|
|
// ============== 实现 ================= //
|
|
Function TSDocxBordersCell.Init(cell);
|
|
Begin
|
|
cell_ := cell;
|
|
End;
|
|
|
|
Function TSDocxBordersCell.GetBorder(index);override;
|
|
Begin
|
|
obj := cell_.TcPr.Borders;
|
|
case index of
|
|
TSDocxEnumerations.wdBorderBottom():
|
|
border := obj.Bottom;
|
|
TSDocxEnumerations.wdBorderDiagonalDown():
|
|
border := obj.tl2br;
|
|
TSDocxEnumerations.wdBorderDiagonalUp():
|
|
border := obj.tr2bl;
|
|
TSDocxEnumerations.wdBorderHorizontal():
|
|
border := obj.InsideH;
|
|
TSDocxEnumerations.wdBorderLeft():
|
|
border := obj.Left;
|
|
TSDocxEnumerations.wdBorderRight():
|
|
border := obj.Right;
|
|
TSDocxEnumerations.wdBorderTop():
|
|
border := obj.Top;
|
|
TSDocxEnumerations.wdBorderVertical():
|
|
border := obj.InsideV;
|
|
end;
|
|
return border;
|
|
End;
|
|
|