Type TSDocxBordersParagraph = Class(TSDocxBorders)
Uses TSDocxEnumerations;

public
	Function Init(Paragraph);
	Function GetBorder(index);override;

private
	pr_;  // TOfficeObj("TwpPr")

End;


// ============== 实现 ================= //
Function TSDocxBordersParagraph.Init(pr);
Begin
	pr_ := pr;
End;

Function TSDocxBordersParagraph.GetBorder(index);override;
Begin
	obj := pr_.Bdr;
	case index of
		TSDocxEnumerations.wdBorderBottom():
			border := obj.Bottom;
		TSDocxEnumerations.wdBorderLeft():
			border := obj.Left;
		TSDocxEnumerations.wdBorderRight():
			border := obj.Right;
		TSDocxEnumerations.wdBorderTop():
			border := obj.Top;
		TSDocxEnumerations.wdBorderHorizontal():
			border := obj.Between;
		else
			raise "段落不支持该边框类型";
	end;
	return border;
End;