40 lines
839 B
Plaintext
40 lines
839 B
Plaintext
Type TSDocxBordersParagraph = Class(TSDocxBorders)
|
|
Uses TSDocxEnumerations;
|
|
|
|
public
|
|
Function Init(Paragraph);
|
|
Function GetBorder(index);override;
|
|
|
|
private
|
|
paragraph_; // TOfficeObj("TParagraph")
|
|
|
|
End;
|
|
|
|
|
|
// ============== 实现 ================= //
|
|
Function TSDocxBordersParagraph.Init(paragraph);
|
|
Begin
|
|
paragraph_ := paragraph;
|
|
End;
|
|
|
|
Function TSDocxBordersParagraph.GetBorder(index);override;
|
|
Begin
|
|
obj := paragraph_.pPr.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;
|
|
|