完善range
This commit is contained in:
@@ -0,0 +1,717 @@
|
||||
Type TSDocxParagraphFormat = Class(TSVbaBase)
|
||||
Uses TSDocxEnumerations;
|
||||
|
||||
public
|
||||
Function Init(docx, pPr);
|
||||
Function Apply();virtual;
|
||||
Function ReWrite(pr);virtual;
|
||||
|
||||
protected
|
||||
docx_;
|
||||
pr_; // TOfficeObj("TwpPr")
|
||||
|
||||
public
|
||||
// Methods
|
||||
Function CloseUp();virtual;
|
||||
Function IndentCharWidth(Count);virtual;
|
||||
Function IndentFirstLineCharWidth(Count);virtual;
|
||||
Function OpenOrCloseUp();virtual;
|
||||
Function OpenUp();virtual;
|
||||
Function Reset();virtual;
|
||||
Function Space1();virtual;
|
||||
Function Space15();virtual;
|
||||
Function Space2();virtual;
|
||||
Function TabHangingIndent(Count);virtual;
|
||||
Function TabIndent(Count);virtual;
|
||||
|
||||
// Properties
|
||||
property AddSpaceBetweenFarEastAndAlpha read ReadAddSpaceBetweenFarEastAndAlpha write WriteAddSpaceBetweenFarEastAndAlpha;
|
||||
property AddSpaceBetweenFarEastAndDigit read ReadAddSpaceBetweenFarEastAndDigit write WriteAddSpaceBetweenFarEastAndDigit;
|
||||
property Alignment read ReadAlignment write WriteAlignment;
|
||||
property AutoAdjustRightIndent read ReadAutoAdjustRightIndent write WriteAutoAdjustRightIndent;
|
||||
property BaseLineAlignment read ReadBaseLineAlignment write WriteBaseLineAlignment;
|
||||
property Borders read ReadBorders;
|
||||
property CharacterUnitFirstLineIndent read ReadCharacterUnitFirstLineIndent write WriteCharacterUnitFirstLineIndent;
|
||||
property CharacterUnitLeftIndent read ReadCharacterUnitLeftIndent write WriteCharacterUnitLeftIndent;
|
||||
property CharacterUnitRightIndent read ReadCharacterUnitRightIndent write WriteCharacterUnitRightIndent;
|
||||
property CollapsedByDefault read ReadCollapsedByDefault write WriteCollapsedByDefault;
|
||||
property DisableLineHeightGrid read ReadDisableLineHeightGrid write WriteDisableLineHeightGrid;
|
||||
property Duplicate read ReadDuplicate;
|
||||
property FarEastLineBreakControl read ReadFarEastLineBreakControl write WriteFarEastLineBreakControl;
|
||||
property FirstLineIndent read ReadFirstLineIndent write WriteFirstLineIndent;
|
||||
property HalfWidthPunctuationOnTopOfLine read ReadHalfWidthPunctuationOnTopOfLine write WriteHalfWidthPunctuationOnTopOfLine;
|
||||
property HangingPunctuation read ReadHangingPunctuation write WriteHangingPunctuation;
|
||||
property Hyphenation read ReadHyphenation write WriteHyphenation;
|
||||
property KeepTogether read ReadKeepTogether write WriteKeepTogether;
|
||||
property KeepWithNext read ReadKeepWithNext write WriteKeepWithNext;
|
||||
property LeftIndent read ReadLeftIndent write WriteLeftIndent;
|
||||
property LineSpacing read ReadLineSpacing write WriteLineSpacing;
|
||||
property LineSpacingRule read ReadLineSpacingRule write WriteLineSpacingRule;
|
||||
property LineUnitAfter read ReadLineUnitAfter write WriteLineUnitAfter;
|
||||
property LineUnitBefore read ReadLineUnitBefore write WriteLineUnitBefore;
|
||||
property MirrorIndents read ReadMirrorIndents write WriteMirrorIndents;
|
||||
property NoLineNumber read ReadNoLineNumber write WriteNoLineNumber;
|
||||
property OutlineLevel read ReadOutlineLevel write WriteOutlineLevel;
|
||||
property PageBreakBefore read ReadPageBreakBefore write WritePageBreakBefore;
|
||||
property ReadingOrder read ReadReadingOrder write WriteReadingOrder;
|
||||
property RightIndent read ReadRightIndent write WriteRightIndent;
|
||||
property Shading read ReadShading;
|
||||
property SpaceAfter read ReadSpaceAfter write WriteSpaceAfter;
|
||||
property SpaceAfterAuto read ReadSpaceAfterAuto write WriteSpaceAfterAuto;
|
||||
property SpaceBefore read ReadSpaceBefore write WriteSpaceBefore;
|
||||
property SpaceBeforeAuto read ReadSpaceBeforeAuto write WriteSpaceBeforeAuto;
|
||||
property Style read ReadStyle write WriteStyle;
|
||||
property TabStops read ReadTabStops write WriteTabStops;
|
||||
property TextboxTightWrap read ReadTextboxTightWrap write WriteTextboxTightWrap;
|
||||
property WidowControl read ReadWidowControl write WriteWidowControl;
|
||||
property WordWrap read ReadWordWrap write WriteWordWrap;
|
||||
Function WriteWordWrap(value);virtual;
|
||||
Function ReadWordWrap();virtual;
|
||||
Function WriteWidowControl(value);virtual;
|
||||
Function ReadWidowControl();virtual;
|
||||
Function WriteTextboxTightWrap(value);virtual;
|
||||
Function ReadTextboxTightWrap();virtual;
|
||||
Function WriteTabStops(value);virtual;
|
||||
Function ReadTabStops();virtual;
|
||||
Function WriteStyle(value);virtual;
|
||||
Function ReadStyle();virtual;
|
||||
Function WriteSpaceBeforeAuto(value);virtual;
|
||||
Function ReadSpaceBeforeAuto();virtual;
|
||||
Function WriteSpaceBefore(value);virtual;
|
||||
Function ReadSpaceBefore();virtual;
|
||||
Function WriteSpaceAfterAuto(value);virtual;
|
||||
Function ReadSpaceAfterAuto();virtual;
|
||||
Function WriteSpaceAfter(value);virtual;
|
||||
Function ReadSpaceAfter();virtual;
|
||||
Function ReadShading();virtual;
|
||||
Function WriteRightIndent(value);virtual;
|
||||
Function ReadRightIndent();virtual;
|
||||
Function WriteReadingOrder(value);virtual;
|
||||
Function ReadReadingOrder();virtual;
|
||||
Function WritePageBreakBefore(value);virtual;
|
||||
Function ReadPageBreakBefore();virtual;
|
||||
Function WriteOutlineLevel(value);virtual;
|
||||
Function ReadOutlineLevel();virtual;
|
||||
Function WriteNoLineNumber(value);virtual;
|
||||
Function ReadNoLineNumber();virtual;
|
||||
Function WriteMirrorIndents(value);virtual;
|
||||
Function ReadMirrorIndents();virtual;
|
||||
Function WriteLineUnitBefore(value);virtual;
|
||||
Function ReadLineUnitBefore();virtual;
|
||||
Function WriteLineUnitAfter(value);virtual;
|
||||
Function ReadLineUnitAfter();virtual;
|
||||
Function WriteLineSpacingRule(value);virtual;
|
||||
Function ReadLineSpacingRule();virtual;
|
||||
Function WriteLineSpacing(value);virtual;
|
||||
Function ReadLineSpacing();virtual;
|
||||
Function WriteLeftIndent(value);virtual;
|
||||
Function ReadLeftIndent();virtual;
|
||||
Function WriteKeepWithNext(value);virtual;
|
||||
Function ReadKeepWithNext();virtual;
|
||||
Function WriteKeepTogether(value);virtual;
|
||||
Function ReadKeepTogether();virtual;
|
||||
Function WriteHyphenation(value);virtual;
|
||||
Function ReadHyphenation();virtual;
|
||||
Function WriteHangingPunctuation(value);virtual;
|
||||
Function ReadHangingPunctuation();virtual;
|
||||
Function WriteHalfWidthPunctuationOnTopOfLine(value);virtual;
|
||||
Function ReadHalfWidthPunctuationOnTopOfLine();virtual;
|
||||
Function WriteFirstLineIndent(value);virtual;
|
||||
Function ReadFirstLineIndent();virtual;
|
||||
Function WriteFarEastLineBreakControl(value);virtual;
|
||||
Function ReadFarEastLineBreakControl();virtual;
|
||||
Function ReadDuplicate();virtual;
|
||||
Function WriteDisableLineHeightGrid(value);virtual;
|
||||
Function ReadDisableLineHeightGrid();virtual;
|
||||
Function WriteCollapsedByDefault(value);virtual;
|
||||
Function ReadCollapsedByDefault();virtual;
|
||||
Function WriteCharacterUnitRightIndent(value);virtual;
|
||||
Function ReadCharacterUnitRightIndent();virtual;
|
||||
Function WriteCharacterUnitLeftIndent(value);virtual;
|
||||
Function ReadCharacterUnitLeftIndent();virtual;
|
||||
Function WriteCharacterUnitFirstLineIndent(value);virtual;
|
||||
Function ReadCharacterUnitFirstLineIndent();virtual;
|
||||
Function ReadBorders(index);virtual;
|
||||
Function WriteBaseLineAlignment(value);virtual;
|
||||
Function ReadBaseLineAlignment();virtual;
|
||||
Function WriteAutoAdjustRightIndent(value);virtual;
|
||||
Function ReadAutoAdjustRightIndent();virtual;
|
||||
Function WriteAlignment(value);virtual;
|
||||
Function ReadAlignment();virtual;
|
||||
Function WriteAddSpaceBetweenFarEastAndDigit(value);virtual;
|
||||
Function ReadAddSpaceBetweenFarEastAndDigit();virtual;
|
||||
Function WriteAddSpaceBetweenFarEastAndAlpha(value);virtual;
|
||||
Function ReadAddSpaceBetweenFarEastAndAlpha();virtual;
|
||||
|
||||
End;
|
||||
|
||||
|
||||
// ============== 实现 ================= //
|
||||
Function TSDocxParagraphFormat.Init(docx, pPr);
|
||||
Begin
|
||||
docx_ := docx;
|
||||
pr_ := pPr;
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormat.Apply();virtual;
|
||||
Begin
|
||||
pr_.Update("first");
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormat.ReWrite(pr);virtual;
|
||||
Begin
|
||||
self.Reset();
|
||||
rpr := pr.Root().FirstChildElement("w:pPr");
|
||||
if not ifObj(rpr) then return;
|
||||
marshal := rPr.Marshal()[0];
|
||||
node := class(TSXml).GetNode(pr_.Root(), "w:pPr", "first");
|
||||
class(TSXml).UpdateNode(node, marshal["attributes"], marshal["children"]);
|
||||
End;
|
||||
|
||||
// Methods
|
||||
Function TSDocxParagraphFormat.CloseUp();virtual;
|
||||
Begin
|
||||
self.SpaceBefore := 0;
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormat.IndentCharWidth(Count);virtual;
|
||||
Begin
|
||||
pr_.LeftIndent := Count * 210;
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormat.IndentFirstLineCharWidth(Count);virtual;
|
||||
Begin
|
||||
self.FirstLineIndent := Count;
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormat.OpenOrCloseUp();virtual;
|
||||
Begin
|
||||
self.SpaceBefore := self.SpaceBefore > 0 ? 0 : 12;
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormat.OpenUp();virtual;
|
||||
Begin
|
||||
self.SpaceBefore := 12;
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormat.Reset();virtual;
|
||||
Begin
|
||||
pr_.Delete();
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormat.Space1();virtual;
|
||||
Begin
|
||||
self.LineSpacingRule := TSDocxEnumerations.wdLineSpaceSingle();
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormat.Space15();virtual;
|
||||
Begin
|
||||
self.LineSpacingRule := TSDocxEnumerations.wdLineSpace1pt5();
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormat.Space2();virtual;
|
||||
Begin
|
||||
self.LineSpacingRule := TSDocxEnumerations.wdLineSpaceDouble();
|
||||
End;
|
||||
|
||||
// property
|
||||
Function TSDocxParagraphFormat.WriteWordWrap(value);virtual;
|
||||
Begin
|
||||
pr_.WordWrap := value ? true : false;
|
||||
End;
|
||||
Function TSDocxParagraphFormat.ReadWordWrap();virtual;
|
||||
Begin
|
||||
return pr_.Value("WordWrap");
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormat.WriteWidowControl(value);virtual;
|
||||
Begin
|
||||
pr_.WidowControl := value ? true : false;
|
||||
End;
|
||||
Function TSDocxParagraphFormat.ReadWidowControl();virtual;
|
||||
Begin
|
||||
return pr_.Value("WidowControl");
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormat.WriteTextboxTightWrap(value);virtual;
|
||||
Begin
|
||||
case value of
|
||||
TSDocxEnumerations.wdTightAll():
|
||||
pr_.TextboxTightWrap := "allLines";
|
||||
TSDocxEnumerations.wdTightFirstAndLastLines():
|
||||
pr_.TextboxTightWrap := "firstAndLastLine";
|
||||
TSDocxEnumerations.wdTightFirstLineOnly():
|
||||
pr_.TextboxTightWrap := "firstLineOnly";
|
||||
TSDocxEnumerations.wdTightLastLineOnly():
|
||||
pr_.TextboxTightWrap := "LastLineOnly";
|
||||
TSDocxEnumerations.wdTightNone():
|
||||
pr_.TextboxTightWrap := "none";
|
||||
end;
|
||||
End;
|
||||
Function TSDocxParagraphFormat.ReadTextboxTightWrap();virtual;
|
||||
Begin
|
||||
value := pr_.Value("TextboxTightWrap");
|
||||
case value of
|
||||
"allLines":
|
||||
return TSDocxEnumerations.wdTightAll();
|
||||
"firstAndLastLine":
|
||||
return TSDocxEnumerations.wdTightFirstAndLastLines();
|
||||
"firstLineOnly":
|
||||
return TSDocxEnumerations.wdTightFirstLineOnly();
|
||||
"LastLineOnly":
|
||||
return TSDocxEnumerations.wdTightLastLineOnly();
|
||||
"none", nil:
|
||||
return TSDocxEnumerations.wdTightNone();
|
||||
end;
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormat.WriteStyle(value);virtual;
|
||||
Begin
|
||||
obj := docx_.StyleObject().GetStyle(value);
|
||||
if not obj then obj := docx_.StyleObject().AddDefaultStyle(value);
|
||||
pr_.StyleId := obj.StyleId;
|
||||
End;
|
||||
Function TSDocxParagraphFormat.ReadStyle();virtual;
|
||||
Begin
|
||||
id := pr_.Value("StyleId", 1);
|
||||
obj := docx_.StyleObject().GetStyleById(id);
|
||||
return obj.Name;
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormat.WriteSpaceBeforeAuto(value);virtual;
|
||||
Begin
|
||||
pr_.SpaceBeforeAuto := value ? true : false;
|
||||
End;
|
||||
Function TSDocxParagraphFormat.ReadSpaceBeforeAuto();virtual;
|
||||
Begin
|
||||
return pr_.Value("SpaceBeforeAuto") ? true : false;
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormat.WriteSpaceBefore(value);virtual;
|
||||
Begin
|
||||
pr_.SpaceBefore := value * 20;
|
||||
End;
|
||||
Function TSDocxParagraphFormat.ReadSpaceBefore();virtual;
|
||||
Begin
|
||||
return pr_.Value("SpaceBefore") / 20;
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormat.WriteSpaceAfterAuto(value);virtual;
|
||||
Begin
|
||||
pr_.SpaceAfterAuto := value ? true : false;
|
||||
End;
|
||||
Function TSDocxParagraphFormat.ReadSpaceAfterAuto();virtual;
|
||||
Begin
|
||||
return pr_.Value("SpaceAfterAuto") ? true : false;
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormat.WriteSpaceAfter(value);virtual;
|
||||
Begin
|
||||
pr_.SpaceAfter := value * 20;
|
||||
End;
|
||||
Function TSDocxParagraphFormat.ReadSpaceAfter();virtual;
|
||||
Begin
|
||||
return pr_.Value("SpaceAfter") / 20;
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormat.ReadShading();virtual;
|
||||
Begin
|
||||
shading_obj := new TSDocxShading(self.Application, self.Creator, self.Parent);
|
||||
shading_obj.Init(pr_.Shading);
|
||||
return shading_obj;
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormat.WriteRightIndent(value);virtual;
|
||||
Begin
|
||||
pr_.RightIndent := value * 20;
|
||||
End;
|
||||
Function TSDocxParagraphFormat.ReadRightIndent();virtual;
|
||||
Begin
|
||||
return pr_.Value("RightIndent") / 20;
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormat.WriteReadingOrder(value);virtual;
|
||||
Begin
|
||||
case value of
|
||||
TSDocxEnumerations.wdReadingOrderLtr():
|
||||
pr_.Bidi := false;
|
||||
TSDocxEnumerations.wdReadingOrderRtl():
|
||||
pr_.Bidi := true;
|
||||
end;
|
||||
End;
|
||||
Function TSDocxParagraphFormat.ReadReadingOrder();virtual;
|
||||
Begin
|
||||
value := pr_.Value("Bidi");
|
||||
case value of
|
||||
false: return TSDocxEnumerations.wdReadingOrderLtr();
|
||||
true: return TSDocxEnumerations.wdReadingOrderRtl();
|
||||
end;
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormat.WritePageBreakBefore(value);virtual;
|
||||
Begin
|
||||
pr_.PageBreakBefore := value ? true : false;
|
||||
End;
|
||||
Function TSDocxParagraphFormat.ReadPageBreakBefore();virtual;
|
||||
Begin
|
||||
return pr_.Value("PageBreakBefore");
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormat.WriteOutlineLevel(value);virtual;
|
||||
Begin
|
||||
case value of
|
||||
TSDocxEnumerations.wdOutlineLevel1():
|
||||
pr_.OutlineLevel := 0;
|
||||
TSDocxEnumerations.wdOutlineLevel2():
|
||||
pr_.OutlineLevel := 1;
|
||||
TSDocxEnumerations.wdOutlineLevel3():
|
||||
pr_.OutlineLevel := 2;
|
||||
TSDocxEnumerations.wdOutlineLevel4():
|
||||
pr_.OutlineLevel := 3;
|
||||
TSDocxEnumerations.wdOutlineLevel5():
|
||||
pr_.OutlineLevel := 4;
|
||||
TSDocxEnumerations.wdOutlineLevel6():
|
||||
pr_.OutlineLevel := 5;
|
||||
TSDocxEnumerations.wdOutlineLevel7():
|
||||
pr_.OutlineLevel := 6;
|
||||
TSDocxEnumerations.wdOutlineLevel8():
|
||||
pr_.OutlineLevel := 7;
|
||||
TSDocxEnumerations.wdOutlineLevel9():
|
||||
pr_.OutlineLevel := 8;
|
||||
TSDocxEnumerations.wdOutlineLevelBodyText():
|
||||
class(TSXml).RemoveNode(pr_.Root(), "w:outlineLvl");
|
||||
end;
|
||||
End;
|
||||
Function TSDocxParagraphFormat.ReadOutlineLevel();virtual;
|
||||
Begin
|
||||
value := pr_.Value("OutlineLevel");
|
||||
case value of
|
||||
0: return TSDocxEnumerations.wdOutlineLevel1();
|
||||
1: return TSDocxEnumerations.wdOutlineLevel2();
|
||||
2: return TSDocxEnumerations.wdOutlineLevel3();
|
||||
3: return TSDocxEnumerations.wdOutlineLevel4();
|
||||
4: return TSDocxEnumerations.wdOutlineLevel5();
|
||||
5: return TSDocxEnumerations.wdOutlineLevel6();
|
||||
6: return TSDocxEnumerations.wdOutlineLevel7();
|
||||
7: return TSDocxEnumerations.wdOutlineLevel8();
|
||||
8: return TSDocxEnumerations.wdOutlineLevel9();
|
||||
nil: return TSDocxEnumerations.wdOutlineLevelBodyText();
|
||||
end;
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormat.WriteNoLineNumber(value);virtual;
|
||||
Begin
|
||||
pr_.SuppressLineNumbers := value ? true : false;
|
||||
End;
|
||||
Function TSDocxParagraphFormat.ReadNoLineNumber();virtual;
|
||||
Begin
|
||||
return pr_.Value("SuppressLineNumbers");
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormat.WriteMirrorIndents(value);virtual;
|
||||
Begin
|
||||
pr_.MirrorIndents := value ? true : false;
|
||||
End;
|
||||
Function TSDocxParagraphFormat.ReadMirrorIndents();virtual;
|
||||
Begin
|
||||
return pr_.Value("MirrorIndents");
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormat.WriteLineUnitBefore(value);virtual;
|
||||
Begin
|
||||
pr_.BeforeLines := value * 100;
|
||||
End;
|
||||
Function TSDocxParagraphFormat.ReadLineUnitBefore();virtual;
|
||||
Begin
|
||||
return pr_.Value("BeforeLines") / 100;
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormat.WriteLineUnitAfter(value);virtual;
|
||||
Begin
|
||||
pr_.AfterLines := value * 100;
|
||||
End;
|
||||
Function TSDocxParagraphFormat.ReadLineUnitAfter();virtual;
|
||||
Begin
|
||||
return pr_.Value("AfterLines") / 100;
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormat.WriteLineSpacingRule(value);virtual;
|
||||
Begin
|
||||
case value of
|
||||
TSDocxEnumerations.wdLineSpace1pt5():
|
||||
pr_.LineSpacingRule := "auto";
|
||||
TSDocxEnumerations.wdLineSpaceAtLeast():
|
||||
pr_.LineSpacingRule := "atLeast";
|
||||
TSDocxEnumerations.wdLineSpaceDouble():
|
||||
pr_.LineSpacingRule := "auto";
|
||||
TSDocxEnumerations.wdLineSpaceExactly():
|
||||
pr_.LineSpacingRule := "exact";
|
||||
TSDocxEnumerations.wdLineSpaceMultiple():
|
||||
pr_.LineSpacingRule := "auto";
|
||||
TSDocxEnumerations.wdLineSpaceSingle():
|
||||
pr_.LineSpacingRule := "auto";
|
||||
end;
|
||||
End;
|
||||
Function TSDocxParagraphFormat.ReadLineSpacingRule();virtual;
|
||||
Begin
|
||||
value := pr_.Value("LineSpacingRule");
|
||||
case value of
|
||||
"atLeast":
|
||||
return TSDocxEnumerations.wdLineSpaceAtLeast();
|
||||
"exact":
|
||||
return TSDocxEnumerations.wdLineSpaceExactly();
|
||||
"auto":
|
||||
return TSDocxEnumerations.wdLineSpaceMultiple();
|
||||
end;
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormat.WriteLineSpacing(value);virtual;
|
||||
Begin
|
||||
pr_.LineSpacing := value * 20;
|
||||
End;
|
||||
Function TSDocxParagraphFormat.ReadLineSpacing();virtual;
|
||||
Begin
|
||||
return pr_.Value("LineSpacing") / 20;
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormat.WriteLeftIndent(value);virtual;
|
||||
Begin
|
||||
pr_.LeftIndent := value * 20;
|
||||
End;
|
||||
Function TSDocxParagraphFormat.ReadLeftIndent();virtual;
|
||||
Begin
|
||||
return pr_.Value("LeftIndent") / 20;
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormat.WriteKeepWithNext(value);virtual;
|
||||
Begin
|
||||
pr_.KeepWithNext := value ? true : false;
|
||||
End;
|
||||
Function TSDocxParagraphFormat.ReadKeepWithNext();virtual;
|
||||
Begin
|
||||
return pr_.Value("KeepWithNext");
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormat.WriteKeepTogether(value);virtual;
|
||||
Begin
|
||||
pr_.KeepTogether := value ? true : false;
|
||||
End;
|
||||
Function TSDocxParagraphFormat.ReadKeepTogether();virtual;
|
||||
Begin
|
||||
return pr_.Value("KeepTogether");
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormat.WriteHyphenation(value);virtual;
|
||||
Begin
|
||||
pr_.SuppressAutoHyphens := value ? false : true;
|
||||
End;
|
||||
Function TSDocxParagraphFormat.ReadHyphenation();virtual;
|
||||
Begin
|
||||
return pr_.Value("SuppressAutoHyphens") ? false : true;
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormat.WriteHangingPunctuation(value);virtual;
|
||||
Begin
|
||||
pr_.OverflowPunct := value ? true : false;
|
||||
End;
|
||||
Function TSDocxParagraphFormat.ReadHangingPunctuation();virtual;
|
||||
Begin
|
||||
return pr_.Value("TopLinePunct");
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormat.WriteHalfWidthPunctuationOnTopOfLine(value);virtual;
|
||||
Begin
|
||||
pr_.TopLinePunct := value ? true : false;
|
||||
End;
|
||||
Function TSDocxParagraphFormat.ReadHalfWidthPunctuationOnTopOfLine();virtual;
|
||||
Begin
|
||||
return pr_.Value("TopLinePunct");
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormat.WriteFirstLineIndent(value);virtual;
|
||||
Begin
|
||||
pr_.FirstLineIndent := value * 20;
|
||||
End;
|
||||
Function TSDocxParagraphFormat.ReadFirstLineIndent();virtual;
|
||||
Begin
|
||||
return pr_.Value("FirstLineIndent") / 20;
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormat.WriteFarEastLineBreakControl(value);virtual;
|
||||
Begin
|
||||
pr_.Kinsoku := value ? true : false;
|
||||
End;
|
||||
Function TSDocxParagraphFormat.ReadFarEastLineBreakControl();virtual;
|
||||
Begin
|
||||
return pr_.Value("Kinsoku");
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormat.ReadDuplicate();virtual;
|
||||
Begin
|
||||
return pr_;
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormat.WriteDisableLineHeightGrid(value);virtual;
|
||||
Begin
|
||||
pr_.SnapToGrid := value ? false : true;
|
||||
End;
|
||||
Function TSDocxParagraphFormat.ReadDisableLineHeightGrid();virtual;
|
||||
Begin
|
||||
return pr_.Value("SnapToGrid") ? false : true;
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormat.WriteCollapsedByDefault(value);virtual;
|
||||
Begin
|
||||
pr_.Collapsed := value ? true : false;
|
||||
End;
|
||||
Function TSDocxParagraphFormat.ReadCollapsedByDefault();virtual;
|
||||
Begin
|
||||
return pr_.Value("Collapsed");
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormat.WriteCharacterUnitRightIndent(value);virtual;
|
||||
Begin
|
||||
pr_.RightChars := value * 100;
|
||||
End;
|
||||
Function TSDocxParagraphFormat.ReadCharacterUnitRightIndent();virtual;
|
||||
Begin
|
||||
return pr_.Value("RightChars") / 100;
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormat.WriteCharacterUnitLeftIndent(value);virtual;
|
||||
Begin
|
||||
pr_.LeftChars := value * 100;
|
||||
End;
|
||||
Function TSDocxParagraphFormat.ReadCharacterUnitLeftIndent();virtual;
|
||||
Begin
|
||||
return pr_.Value("LeftChars") / 100;
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormat.WriteCharacterUnitFirstLineIndent(value);virtual;
|
||||
Begin
|
||||
if value > 0 then pr_.FirstLineChars := value * 100;
|
||||
else pr_.HangingChars := abs(value) * 100;
|
||||
End;
|
||||
Function TSDocxParagraphFormat.ReadCharacterUnitFirstLineIndent();virtual;
|
||||
Begin
|
||||
first_val := pr_.Value("FirstLineChars");
|
||||
if first_val then return integer(first_val / 100);
|
||||
hanging_val := pr_.Value("HangingChars");
|
||||
if hanging_val then return -integer(hanging_val / 100);
|
||||
return 0;
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormat.ReadBorders(index);virtual;
|
||||
Begin
|
||||
borders_obj := new TSDocxBordersParagraph(self.Application, self.Creator, self.Parent);
|
||||
borders_obj.Init(pr_);
|
||||
return ifnil(index) ? borders_obj : borders_obj[index];
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormat.WriteBaseLineAlignment(value);virtual;
|
||||
Begin
|
||||
case value of
|
||||
TSDocxEnumerations.wdBaselineAlignAuto():
|
||||
pr_.TextAlignment := "auto";
|
||||
TSDocxEnumerations.wdBaselineAlignBaseline():
|
||||
pr_.TextAlignment := "baseline";
|
||||
TSDocxEnumerations.wdBaselineAlignCenter():
|
||||
pr_.TextAlignment := "center";
|
||||
TSDocxEnumerations.wdBaselineAlignFarEast50():
|
||||
pr_.TextAlignment := "bottom";
|
||||
TSDocxEnumerations.wdBaselineAlignTop():
|
||||
pr_.TextAlignment := "top";
|
||||
end;
|
||||
End;
|
||||
Function TSDocxParagraphFormat.ReadBaseLineAlignment();virtual;
|
||||
Begin
|
||||
value := pr_.Value("TextAlignment");
|
||||
case value of
|
||||
"auto", nil:
|
||||
return TSDocxEnumerations.wdBaselineAlignAuto();
|
||||
"baseline":
|
||||
return TSDocxEnumerations.wdBaselineAlignBaseline();
|
||||
"center":
|
||||
return TSDocxEnumerations.wdBaselineAlignCenter();
|
||||
"bottom":
|
||||
return TSDocxEnumerations.wdBaselineAlignFarEast50();
|
||||
"top":
|
||||
return TSDocxEnumerations.wdBaselineAlignTop();
|
||||
end;
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormat.WriteAutoAdjustRightIndent(value);virtual;
|
||||
Begin
|
||||
pr_.AdjustRightInd := value ? true : false;
|
||||
End;
|
||||
Function TSDocxParagraphFormat.ReadAutoAdjustRightIndent();virtual;
|
||||
Begin
|
||||
return pr_.Value("AdjustRightInd");
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormat.WriteAlignment(value);virtual;
|
||||
Begin
|
||||
case value of
|
||||
TSDocxEnumerations.wdAlignParagraphCenter():
|
||||
pr_.Alignment := "center";
|
||||
TSDocxEnumerations.wdAlignParagraphDistribute():
|
||||
pr_.Alignment := "distribute";
|
||||
TSDocxEnumerations.wdAlignParagraphJustify():
|
||||
pr_.Alignment := "both";
|
||||
TSDocxEnumerations.wdAlignParagraphJustifyHi():
|
||||
pr_.Alignment := "highKashida";
|
||||
TSDocxEnumerations.wdAlignParagraphJustifyLow():
|
||||
pr_.Alignment := "lowKashida";
|
||||
TSDocxEnumerations.wdAlignParagraphJustifyMed():
|
||||
pr_.Alignment := "mediumKashida";
|
||||
TSDocxEnumerations.wdAlignParagraphLeft():
|
||||
pr_.Alignment := "left";
|
||||
TSDocxEnumerations.wdAlignParagraphRight():
|
||||
pr_.Alignment := "right";
|
||||
TSDocxEnumerations.wdAlignParagraphThaiJustify():
|
||||
pr_.Alignment := "thaiDistribute";
|
||||
end;
|
||||
End;
|
||||
Function TSDocxParagraphFormat.ReadAlignment();virtual;
|
||||
Begin
|
||||
value := pr_.Value("Alignment");
|
||||
case value of
|
||||
"center":
|
||||
return TSDocxEnumerations.wdAlignParagraphCenter();
|
||||
"distribute":
|
||||
return TSDocxEnumerations.wdAlignParagraphDistribute();
|
||||
"both", nil:
|
||||
return TSDocxEnumerations.wdAlignParagraphJustify();
|
||||
"highKashida":
|
||||
return TSDocxEnumerations.wdAlignParagraphJustifyHi();
|
||||
"lowKashida":
|
||||
return TSDocxEnumerations.wdAlignParagraphJustifyLow();
|
||||
"mediumKashida":
|
||||
return TSDocxEnumerations.wdAlignParagraphJustifyMed();
|
||||
"left":
|
||||
return TSDocxEnumerations.wdAlignParagraphLeft();
|
||||
"right":
|
||||
return TSDocxEnumerations.wdAlignParagraphRight();
|
||||
"thaiDistribute":
|
||||
return TSDocxEnumerations.wdAlignParagraphThaiJustify();
|
||||
end;
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormat.WriteAddSpaceBetweenFarEastAndDigit(value);virtual;
|
||||
Begin
|
||||
pr_.AutoSpaceDN := value ? true : false;
|
||||
End;
|
||||
Function TSDocxParagraphFormat.ReadAddSpaceBetweenFarEastAndDigit();virtual;
|
||||
Begin
|
||||
return pr_.Value("AutoSpaceDN");
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormat.WriteAddSpaceBetweenFarEastAndAlpha(value);virtual;
|
||||
Begin
|
||||
pr_.AutoSpaceDE := value ? true : false;
|
||||
End;
|
||||
Function TSDocxParagraphFormat.ReadAddSpaceBetweenFarEastAndAlpha();virtual;
|
||||
Begin
|
||||
return pr_.Value("AutoSpaceDE");
|
||||
End;
|
||||
|
||||
@@ -0,0 +1,563 @@
|
||||
Type TSDocxParagraphFormatRange = Class(TSDocxParagraphFormat)
|
||||
Uses TSDocxEnumerations;
|
||||
|
||||
public
|
||||
Function Init(docx, rangeObj);
|
||||
Function Apply();override;
|
||||
Function ReWrite(value);override;
|
||||
|
||||
private
|
||||
Function CallFunction(pf, value);overload;
|
||||
Function CallFunction(pf);overload;
|
||||
|
||||
private
|
||||
paragraph_arr_;
|
||||
|
||||
public
|
||||
// Methods
|
||||
Function CloseUp();override;
|
||||
Function IndentCharWidth(Count);override;
|
||||
Function IndentFirstLineCharWidth(Count);override;
|
||||
Function OpenOrCloseUp();override;
|
||||
Function OpenUp();override;
|
||||
Function Reset();override;
|
||||
Function Space1();override;
|
||||
Function Space15();override;
|
||||
Function Space2();override;
|
||||
Function TabHangingIndent(Count);override;
|
||||
Function TabIndent(Count);override;
|
||||
|
||||
// property
|
||||
Function WriteWordWrap(value);override;
|
||||
Function ReadWordWrap();override;
|
||||
Function WriteWidowControl(value);override;
|
||||
Function ReadWidowControl();override;
|
||||
Function WriteTextboxTightWrap(value);override;
|
||||
Function ReadTextboxTightWrap();override;
|
||||
Function WriteTabStops(value);override;
|
||||
Function ReadTabStops();override;
|
||||
Function WriteStyle(value);override;
|
||||
Function ReadStyle();override;
|
||||
Function WriteSpaceBeforeAuto(value);override;
|
||||
Function ReadSpaceBeforeAuto();override;
|
||||
Function WriteSpaceBefore(value);override;
|
||||
Function ReadSpaceBefore();override;
|
||||
Function WriteSpaceAfterAuto(value);override;
|
||||
Function ReadSpaceAfterAuto();override;
|
||||
Function WriteSpaceAfter(value);override;
|
||||
Function ReadSpaceAfter();override;
|
||||
Function ReadShading();override;
|
||||
Function WriteRightIndent(value);override;
|
||||
Function ReadRightIndent();override;
|
||||
Function WriteReadingOrder(value);override;
|
||||
Function ReadReadingOrder();override;
|
||||
Function WritePageBreakBefore(value);override;
|
||||
Function ReadPageBreakBefore();override;
|
||||
Function WriteOutlineLevel(value);override;
|
||||
Function ReadOutlineLevel();override;
|
||||
Function WriteNoLineNumber(value);override;
|
||||
Function ReadNoLineNumber();override;
|
||||
Function WriteMirrorIndents(value);override;
|
||||
Function ReadMirrorIndents();override;
|
||||
Function WriteLineUnitBefore(value);override;
|
||||
Function ReadLineUnitBefore();override;
|
||||
Function WriteLineUnitAfter(value);override;
|
||||
Function ReadLineUnitAfter();override;
|
||||
Function WriteLineSpacingRule(value);override;
|
||||
Function ReadLineSpacingRule();override;
|
||||
Function WriteLineSpacing(value);override;
|
||||
Function ReadLineSpacing();override;
|
||||
Function WriteLeftIndent(value);override;
|
||||
Function ReadLeftIndent();override;
|
||||
Function WriteKeepWithNext(value);override;
|
||||
Function ReadKeepWithNext();override;
|
||||
Function WriteKeepTogether(value);override;
|
||||
Function ReadKeepTogether();override;
|
||||
Function WriteHyphenation(value);override;
|
||||
Function ReadHyphenation();override;
|
||||
Function WriteHangingPunctuation(value);override;
|
||||
Function ReadHangingPunctuation();override;
|
||||
Function WriteHalfWidthPunctuationOnTopOfLine(value);override;
|
||||
Function ReadHalfWidthPunctuationOnTopOfLine();override;
|
||||
Function WriteFirstLineIndent(value);override;
|
||||
Function ReadFirstLineIndent();override;
|
||||
Function WriteFarEastLineBreakControl(value);override;
|
||||
Function ReadFarEastLineBreakControl();override;
|
||||
Function ReadDuplicate();override;
|
||||
Function WriteDisableLineHeightGrid(value);override;
|
||||
Function ReadDisableLineHeightGrid();override;
|
||||
Function WriteCollapsedByDefault(value);override;
|
||||
Function ReadCollapsedByDefault();override;
|
||||
Function WriteCharacterUnitRightIndent(value);override;
|
||||
Function ReadCharacterUnitRightIndent();override;
|
||||
Function WriteCharacterUnitLeftIndent(value);override;
|
||||
Function ReadCharacterUnitLeftIndent();override;
|
||||
Function WriteCharacterUnitFirstLineIndent(value);override;
|
||||
Function ReadCharacterUnitFirstLineIndent();override;
|
||||
Function ReadBorders(index);override;
|
||||
Function WriteBaseLineAlignment(value);override;
|
||||
Function ReadBaseLineAlignment();override;
|
||||
Function WriteAutoAdjustRightIndent(value);override;
|
||||
Function ReadAutoAdjustRightIndent();override;
|
||||
Function WriteAlignment(value);override;
|
||||
Function ReadAlignment();override;
|
||||
Function WriteAddSpaceBetweenFarEastAndDigit(value);override;
|
||||
Function ReadAddSpaceBetweenFarEastAndDigit();override;
|
||||
Function WriteAddSpaceBetweenFarEastAndAlpha(value);override;
|
||||
Function ReadAddSpaceBetweenFarEastAndAlpha();override;
|
||||
|
||||
End;
|
||||
|
||||
|
||||
// ============== 实现 ================= //
|
||||
Function TSDocxParagraphFormatRange.Init(docx, rangeObj);
|
||||
Begin
|
||||
class(TSDocxParagraphFormat).Init(docx, nil);
|
||||
paragraph_arr_ := sselect distinct(["tparagraph"]) from rangeObj.data_ end;
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormatRange.Apply();override;
|
||||
Begin
|
||||
CallFunction(ThisFunction(class(TSDocxParagraphFormat).Apply), nil);
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormatRange.ReWrite(value);override;
|
||||
Begin
|
||||
CallFunction(ThisFunction(class(TSDocxParagraphFormat).ReWrite), value);
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormatRange.CallFunction(pf, value);overload;
|
||||
Begin
|
||||
for i:=0 to length(paragraph_arr_)-1 do
|
||||
begin
|
||||
pr_ := paragraph_arr_[i].pPr;
|
||||
if not ifObj(pr_.Root()) then continue;
|
||||
##pf(value);
|
||||
end
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormatRange.CallFunction(pf);overload;
|
||||
Begin
|
||||
ret := nil;
|
||||
for i:=0 to length(paragraph_arr_)-1 do
|
||||
begin
|
||||
pr_ := paragraph_arr_[i].pPr;
|
||||
if not ifObj(pr_.Root()) then continue;
|
||||
cur := ##pf();
|
||||
if ifnil(ret) then ret := cur;
|
||||
if ret <> cur then return TSDocxEnumerations.wdUndefined();
|
||||
end
|
||||
return ret;
|
||||
End;
|
||||
|
||||
// Methods
|
||||
Function TSDocxParagraphFormatRange.CloseUp();override;
|
||||
Begin
|
||||
CallFunction(ThisFunction(class(TSDocxParagraphFormat).CloseUp), nil);
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormatRange.IndentCharWidth(Count);override;
|
||||
Begin
|
||||
CallFunction(ThisFunction(class(TSDocxParagraphFormat).IndentCharWidth), Count);
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormatRange.IndentFirstLineCharWidth(Count);override;
|
||||
Begin
|
||||
CallFunction(ThisFunction(class(TSDocxParagraphFormat).IndentFirstLineCharWidth), Count);
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormatRange.OpenOrCloseUp();override;
|
||||
Begin
|
||||
CallFunction(ThisFunction(class(TSDocxParagraphFormat).OpenOrCloseUp), nil);
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormatRange.OpenUp();override;
|
||||
Begin
|
||||
CallFunction(ThisFunction(class(TSDocxParagraphFormat).OpenOrCloseUp), nil);
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormatRange.Reset();override;
|
||||
Begin
|
||||
CallFunction(ThisFunction(class(TSDocxParagraphFormat).Reset), nil);
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormatRange.Space1();override;
|
||||
Begin
|
||||
CallFunction(ThisFunction(class(TSDocxParagraphFormat).Space1), nil);
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormatRange.Space15();override;
|
||||
Begin
|
||||
CallFunction(ThisFunction(class(TSDocxParagraphFormat).Space15), nil);
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormatRange.Space2();override;
|
||||
Begin
|
||||
CallFunction(ThisFunction(class(TSDocxParagraphFormat).Space2), nil);
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormatRange.TabHangingIndent(Count);override;
|
||||
Begin
|
||||
CallFunction(ThisFunction(class(TSDocxParagraphFormat).TabHangingIndent), Count);
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormatRange.TabIndent(Count);override;
|
||||
Begin
|
||||
CallFunction(ThisFunction(class(TSDocxParagraphFormat).TabIndent), Count);
|
||||
End;
|
||||
|
||||
// property
|
||||
Function TSDocxParagraphFormatRange.WriteWordWrap(value);override;
|
||||
Begin
|
||||
CallFunction(ThisFunction(class(TSDocxParagraphFormat).WriteWordWrap), value);
|
||||
End;
|
||||
Function TSDocxParagraphFormatRange.ReadWordWrap();override;
|
||||
Begin
|
||||
return CallFunction(ThisFunction(class(TSDocxParagraphFormatRange).ReadWordWrap));
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormatRange.WriteWidowControl(value);override;
|
||||
Begin
|
||||
CallFunction(ThisFunction(class(TSDocxParagraphFormat).WriteWidowControl), value);
|
||||
End;
|
||||
Function TSDocxParagraphFormatRange.ReadWidowControl();override;
|
||||
Begin
|
||||
return CallFunction(ThisFunction(class(TSDocxParagraphFormatRange).ReadWidowControl));
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormatRange.WriteTextboxTightWrap(value);override;
|
||||
Begin
|
||||
CallFunction(ThisFunction(class(TSDocxParagraphFormat).WriteTextboxTightWrap), value);
|
||||
End;
|
||||
Function TSDocxParagraphFormatRange.ReadTextboxTightWrap();override;
|
||||
Begin
|
||||
return CallFunction(ThisFunction(class(TSDocxParagraphFormatRange).ReadTextboxTightWrap));
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormatRange.WriteTabStops(value);override;
|
||||
Begin
|
||||
CallFunction(ThisFunction(class(TSDocxParagraphFormat).WriteTabStops), value);
|
||||
End;
|
||||
Function TSDocxParagraphFormatRange.ReadTabStops();override;
|
||||
Begin
|
||||
return CallFunction(ThisFunction(class(TSDocxParagraphFormatRange).ReadTabStops));
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormatRange.WriteStyle(value);override;
|
||||
Begin
|
||||
CallFunction(ThisFunction(class(TSDocxParagraphFormat).WriteStyle), value);
|
||||
End;
|
||||
Function TSDocxParagraphFormatRange.ReadStyle();override;
|
||||
Begin
|
||||
return CallFunction(ThisFunction(class(TSDocxParagraphFormatRange).ReadStyle));
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormatRange.WriteSpaceBeforeAuto(value);override;
|
||||
Begin
|
||||
CallFunction(ThisFunction(class(TSDocxParagraphFormat).WriteSpaceBeforeAuto), value);
|
||||
End;
|
||||
Function TSDocxParagraphFormatRange.ReadSpaceBeforeAuto();override;
|
||||
Begin
|
||||
return CallFunction(ThisFunction(class(TSDocxParagraphFormatRange).ReadSpaceBeforeAuto));
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormatRange.WriteSpaceBefore(value);override;
|
||||
Begin
|
||||
CallFunction(ThisFunction(class(TSDocxParagraphFormat).WriteSpaceBefore), value);
|
||||
End;
|
||||
Function TSDocxParagraphFormatRange.ReadSpaceBefore();override;
|
||||
Begin
|
||||
return CallFunction(ThisFunction(class(TSDocxParagraphFormatRange).ReadSpaceBefore));
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormatRange.WriteSpaceAfterAuto(value);override;
|
||||
Begin
|
||||
CallFunction(ThisFunction(class(TSDocxParagraphFormat).WriteSpaceAfterAuto), value);
|
||||
End;
|
||||
Function TSDocxParagraphFormatRange.ReadSpaceAfterAuto();override;
|
||||
Begin
|
||||
return CallFunction(ThisFunction(class(TSDocxParagraphFormatRange).ReadSpaceAfterAuto));
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormatRange.WriteSpaceAfter(value);override;
|
||||
Begin
|
||||
CallFunction(ThisFunction(class(TSDocxParagraphFormat).WriteSpaceAfter), value);
|
||||
End;
|
||||
Function TSDocxParagraphFormatRange.ReadSpaceAfter();override;
|
||||
Begin
|
||||
return CallFunction(ThisFunction(class(TSDocxParagraphFormatRange).ReadSpaceAfter));
|
||||
End;
|
||||
|
||||
// TODO
|
||||
Function TSDocxParagraphFormatRange.ReadShading();override;
|
||||
Begin
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormatRange.WriteRightIndent(value);override;
|
||||
Begin
|
||||
CallFunction(ThisFunction(class(TSDocxParagraphFormat).WriteRightIndent), value);
|
||||
End;
|
||||
Function TSDocxParagraphFormatRange.ReadRightIndent();override;
|
||||
Begin
|
||||
return CallFunction(ThisFunction(class(TSDocxParagraphFormatRange).ReadRightIndent));
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormatRange.WriteReadingOrder(value);override;
|
||||
Begin
|
||||
CallFunction(ThisFunction(class(TSDocxParagraphFormat).WriteReadingOrder), value);
|
||||
End;
|
||||
Function TSDocxParagraphFormatRange.ReadReadingOrder();override;
|
||||
Begin
|
||||
return CallFunction(ThisFunction(class(TSDocxParagraphFormatRange).ReadReadingOrder));
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormatRange.WritePageBreakBefore(value);override;
|
||||
Begin
|
||||
CallFunction(ThisFunction(class(TSDocxParagraphFormat).WritePageBreakBefore), value);
|
||||
End;
|
||||
Function TSDocxParagraphFormatRange.ReadPageBreakBefore();override;
|
||||
Begin
|
||||
return CallFunction(ThisFunction(class(TSDocxParagraphFormatRange).ReadPageBreakBefore));
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormatRange.WriteOutlineLevel(value);override;
|
||||
Begin
|
||||
CallFunction(ThisFunction(class(TSDocxParagraphFormat).WriteOutlineLevel), value);
|
||||
End;
|
||||
Function TSDocxParagraphFormatRange.ReadOutlineLevel();override;
|
||||
Begin
|
||||
return CallFunction(ThisFunction(class(TSDocxParagraphFormatRange).ReadOutlineLevel));
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormatRange.WriteNoLineNumber(value);override;
|
||||
Begin
|
||||
CallFunction(ThisFunction(class(TSDocxParagraphFormat).WriteNoLineNumber), value);
|
||||
End;
|
||||
Function TSDocxParagraphFormatRange.ReadNoLineNumber();override;
|
||||
Begin
|
||||
return CallFunction(ThisFunction(class(TSDocxParagraphFormatRange).ReadNoLineNumber));
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormatRange.WriteMirrorIndents(value);override;
|
||||
Begin
|
||||
CallFunction(ThisFunction(class(TSDocxParagraphFormat).WriteMirrorIndents), value);
|
||||
End;
|
||||
Function TSDocxParagraphFormatRange.ReadMirrorIndents();override;
|
||||
Begin
|
||||
return CallFunction(ThisFunction(class(TSDocxParagraphFormatRange).ReadMirrorIndents));
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormatRange.WriteLineUnitBefore(value);override;
|
||||
Begin
|
||||
CallFunction(ThisFunction(class(TSDocxParagraphFormat).WriteLineUnitBefore), value);
|
||||
End;
|
||||
Function TSDocxParagraphFormatRange.ReadLineUnitBefore();override;
|
||||
Begin
|
||||
return CallFunction(ThisFunction(class(TSDocxParagraphFormatRange).ReadLineUnitBefore));
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormatRange.WriteLineUnitAfter(value);override;
|
||||
Begin
|
||||
CallFunction(ThisFunction(class(TSDocxParagraphFormat).WriteLineUnitAfter), value);
|
||||
End;
|
||||
Function TSDocxParagraphFormatRange.ReadLineUnitAfter();override;
|
||||
Begin
|
||||
return CallFunction(ThisFunction(class(TSDocxParagraphFormatRange).ReadLineUnitAfter));
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormatRange.WriteLineSpacingRule(value);override;
|
||||
Begin
|
||||
CallFunction(ThisFunction(class(TSDocxParagraphFormat).WriteLineSpacingRule), value);
|
||||
End;
|
||||
Function TSDocxParagraphFormatRange.ReadLineSpacingRule();override;
|
||||
Begin
|
||||
return CallFunction(ThisFunction(class(TSDocxParagraphFormatRange).ReadLineSpacingRule));
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormatRange.WriteLineSpacing(value);override;
|
||||
Begin
|
||||
CallFunction(ThisFunction(class(TSDocxParagraphFormat).WriteLineSpacing), value);
|
||||
End;
|
||||
Function TSDocxParagraphFormatRange.ReadLineSpacing();override;
|
||||
Begin
|
||||
return CallFunction(ThisFunction(class(TSDocxParagraphFormatRange).ReadLineSpacing));
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormatRange.WriteLeftIndent(value);override;
|
||||
Begin
|
||||
CallFunction(ThisFunction(class(TSDocxParagraphFormat).WriteLeftIndent), value);
|
||||
End;
|
||||
Function TSDocxParagraphFormatRange.ReadLeftIndent();override;
|
||||
Begin
|
||||
return CallFunction(ThisFunction(class(TSDocxParagraphFormatRange).ReadLeftIndent));
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormatRange.WriteKeepWithNext(value);override;
|
||||
Begin
|
||||
CallFunction(ThisFunction(class(TSDocxParagraphFormat).WriteKeepWithNext), value);
|
||||
End;
|
||||
Function TSDocxParagraphFormatRange.ReadKeepWithNext();override;
|
||||
Begin
|
||||
return CallFunction(ThisFunction(class(TSDocxParagraphFormatRange).ReadKeepWithNext));
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormatRange.WriteKeepTogether(value);override;
|
||||
Begin
|
||||
CallFunction(ThisFunction(class(TSDocxParagraphFormat).WriteKeepTogether), value);
|
||||
End;
|
||||
Function TSDocxParagraphFormatRange.ReadKeepTogether();override;
|
||||
Begin
|
||||
return CallFunction(ThisFunction(class(TSDocxParagraphFormatRange).ReadKeepTogether));
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormatRange.WriteHyphenation(value);override;
|
||||
Begin
|
||||
CallFunction(ThisFunction(class(TSDocxParagraphFormat).WriteHyphenation), value);
|
||||
End;
|
||||
Function TSDocxParagraphFormatRange.ReadHyphenation();override;
|
||||
Begin
|
||||
return CallFunction(ThisFunction(class(TSDocxParagraphFormatRange).ReadHyphenation));
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormatRange.WriteHangingPunctuation(value);override;
|
||||
Begin
|
||||
CallFunction(ThisFunction(class(TSDocxParagraphFormat).WriteHangingPunctuation), value);
|
||||
End;
|
||||
Function TSDocxParagraphFormatRange.ReadHangingPunctuation();override;
|
||||
Begin
|
||||
return CallFunction(ThisFunction(class(TSDocxParagraphFormatRange).ReadHangingPunctuation));
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormatRange.WriteHalfWidthPunctuationOnTopOfLine(value);override;
|
||||
Begin
|
||||
CallFunction(ThisFunction(class(TSDocxParagraphFormat).WriteHalfWidthPunctuationOnTopOfLine), value);
|
||||
End;
|
||||
Function TSDocxParagraphFormatRange.ReadHalfWidthPunctuationOnTopOfLine();override;
|
||||
Begin
|
||||
return CallFunction(ThisFunction(class(TSDocxParagraphFormatRange).ReadHalfWidthPunctuationOnTopOfLine));
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormatRange.WriteFirstLineIndent(value);override;
|
||||
Begin
|
||||
CallFunction(ThisFunction(class(TSDocxParagraphFormat).WriteFirstLineIndent), value);
|
||||
End;
|
||||
Function TSDocxParagraphFormatRange.ReadFirstLineIndent();override;
|
||||
Begin
|
||||
return CallFunction(ThisFunction(class(TSDocxParagraphFormatRange).ReadFirstLineIndent));
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormatRange.WriteFarEastLineBreakControl(value);override;
|
||||
Begin
|
||||
CallFunction(ThisFunction(class(TSDocxParagraphFormat).WriteFarEastLineBreakControl), value);
|
||||
End;
|
||||
Function TSDocxParagraphFormatRange.ReadFarEastLineBreakControl();override;
|
||||
Begin
|
||||
return CallFunction(ThisFunction(class(TSDocxParagraphFormatRange).ReadFarEastLineBreakControl));
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormatRange.ReadDuplicate();override;
|
||||
Begin
|
||||
return CallFunction(ThisFunction(class(TSDocxParagraphFormatRange).ReadDuplicate));
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormatRange.WriteDisableLineHeightGrid(value);override;
|
||||
Begin
|
||||
CallFunction(ThisFunction(class(TSDocxParagraphFormat).WriteDisableLineHeightGrid), value);
|
||||
End;
|
||||
Function TSDocxParagraphFormatRange.ReadDisableLineHeightGrid();override;
|
||||
Begin
|
||||
return CallFunction(ThisFunction(class(TSDocxParagraphFormatRange).ReadDisableLineHeightGrid));
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormatRange.WriteCollapsedByDefault(value);override;
|
||||
Begin
|
||||
CallFunction(ThisFunction(class(TSDocxParagraphFormat).WriteCollapsedByDefault), value);
|
||||
End;
|
||||
Function TSDocxParagraphFormatRange.ReadCollapsedByDefault();override;
|
||||
Begin
|
||||
return CallFunction(ThisFunction(class(TSDocxParagraphFormatRange).ReadCollapsedByDefault));
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormatRange.WriteCharacterUnitRightIndent(value);override;
|
||||
Begin
|
||||
CallFunction(ThisFunction(class(TSDocxParagraphFormat).WriteCharacterUnitRightIndent), value);
|
||||
End;
|
||||
Function TSDocxParagraphFormatRange.ReadCharacterUnitRightIndent();override;
|
||||
Begin
|
||||
return CallFunction(ThisFunction(class(TSDocxParagraphFormatRange).ReadCharacterUnitRightIndent));
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormatRange.WriteCharacterUnitLeftIndent(value);override;
|
||||
Begin
|
||||
CallFunction(ThisFunction(class(TSDocxParagraphFormat).WriteCharacterUnitLeftIndent), value);
|
||||
End;
|
||||
Function TSDocxParagraphFormatRange.ReadCharacterUnitLeftIndent();override;
|
||||
Begin
|
||||
return CallFunction(ThisFunction(class(TSDocxParagraphFormatRange).ReadCharacterUnitLeftIndent));
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormatRange.WriteCharacterUnitFirstLineIndent(value);override;
|
||||
Begin
|
||||
CallFunction(ThisFunction(class(TSDocxParagraphFormat).WriteCharacterUnitFirstLineIndent), value);
|
||||
End;
|
||||
Function TSDocxParagraphFormatRange.ReadCharacterUnitFirstLineIndent();override;
|
||||
Begin
|
||||
return CallFunction(ThisFunction(class(TSDocxParagraphFormatRange).ReadCharacterUnitFirstLineIndent));
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormatRange.ReadBorders(index);override;
|
||||
Begin
|
||||
// 重组一个新的range_arr_
|
||||
arr := array();
|
||||
for i:=0 to length(paragraph_arr_)-1 do
|
||||
arr[i]["entirety"] := paragraph_arr_[i].Root();
|
||||
borders_obj := new TSDocxBordersRange(self.Application, self.Creator, self.Parent);
|
||||
borders_obj.Init(arr);
|
||||
return ifnil(index) ? borders_obj : borders_obj.Item(index);
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormatRange.WriteBaseLineAlignment(value);override;
|
||||
Begin
|
||||
CallFunction(ThisFunction(class(TSDocxParagraphFormat).WriteBaseLineAlignment), value);
|
||||
End;
|
||||
Function TSDocxParagraphFormatRange.ReadBaseLineAlignment();override;
|
||||
Begin
|
||||
return CallFunction(ThisFunction(class(TSDocxParagraphFormatRange).ReadBaseLineAlignment));
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormatRange.WriteAutoAdjustRightIndent(value);override;
|
||||
Begin
|
||||
CallFunction(ThisFunction(class(TSDocxParagraphFormat).WriteAutoAdjustRightIndent), value);
|
||||
End;
|
||||
Function TSDocxParagraphFormatRange.ReadAutoAdjustRightIndent();override;
|
||||
Begin
|
||||
return CallFunction(ThisFunction(class(TSDocxParagraphFormatRange).ReadAutoAdjustRightIndent));
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormatRange.WriteAlignment(value);override;
|
||||
Begin
|
||||
CallFunction(ThisFunction(class(TSDocxParagraphFormat).WriteAlignment), value);
|
||||
End;
|
||||
Function TSDocxParagraphFormatRange.ReadAlignment();override;
|
||||
Begin
|
||||
return CallFunction(ThisFunction(class(TSDocxParagraphFormatRange).ReadAlignment));
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormatRange.WriteAddSpaceBetweenFarEastAndDigit(value);override;
|
||||
Begin
|
||||
CallFunction(ThisFunction(class(TSDocxParagraphFormat).WriteAddSpaceBetweenFarEastAndDigit), value);
|
||||
End;
|
||||
Function TSDocxParagraphFormatRange.ReadAddSpaceBetweenFarEastAndDigit();override;
|
||||
Begin
|
||||
return CallFunction(ThisFunction(class(TSDocxParagraphFormatRange).ReadAddSpaceBetweenFarEastAndDigit));
|
||||
End;
|
||||
|
||||
Function TSDocxParagraphFormatRange.WriteAddSpaceBetweenFarEastAndAlpha(value);override;
|
||||
Begin
|
||||
CallFunction(ThisFunction(class(TSDocxParagraphFormat).WriteAddSpaceBetweenFarEastAndAlpha), value);
|
||||
End;
|
||||
Function TSDocxParagraphFormatRange.ReadAddSpaceBetweenFarEastAndAlpha();override;
|
||||
Begin
|
||||
return CallFunction(ThisFunction(class(TSDocxParagraphFormatRange).ReadAddSpaceBetweenFarEastAndAlpha));
|
||||
End;
|
||||
|
||||
Reference in New Issue
Block a user