40 lines
795 B
Plaintext
40 lines
795 B
Plaintext
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;
|
|
|