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;