Type TSDocxBorders = Class(TSVbaBase) public Function Operator[](index);virtual; Function GetBorder(index);virtual; public // Methods Function ApplyPageBordersToAllSections(); Function Item(Index);virtual; // Properties property AlwaysInFront read ReadAlwaysInFront write WriteAlwaysInFront; property Count read ReadCount; property DistanceFrom read ReadDistanceFrom write WriteDistanceFrom; property DistanceFromBottom read ReadDistanceFromBottom write WriteDistanceFromBottom; property DistanceFromLeft read ReadDistanceFromLeft write WriteDistanceFromLeft; property DistanceFromRight read ReadDistanceFromRight write WriteDistanceFromRight; property DistanceFromTop read ReadDistanceFromTop write WriteDistanceFromTop; property Enable read ReadEnable write WriteEnable; property EnableFirstPageInSection read ReadEnableFirstPageInSection write WriteEnableFirstPageInSection; property EnableOtherPagesInSection read ReadEnableOtherPagesInSection write WriteEnableOtherPagesInSection; property HasHorizontal read ReadHasHorizontal; property HasVertical read ReadHasVertical; property InsideColor read ReadInsideColor write WriteInsideColor; property InsideColorIndex read ReadInsideColorIndex write WriteInsideColorIndex; property InsideLineStyle read ReadInsideLineStyle write WriteInsideLineStyle; property InsideLineWidth read ReadInsideLineWidth write WriteInsideLineWidth; property JoinBorders read ReadJoinBorders write WriteJoinBorders; property OutsideColor read ReadOutsideColor write WriteOutsideColor; property OutsideColorIndex read ReadOutsideColorIndex write WriteOutsideColorIndex; property OutsideLineStyle read ReadOutsideLineStyle write WriteOutsideLineStyle; property OutsideLineWidth read ReadOutsideLineWidth write WriteOutsideLineWidth; property Shadow read ReadShadow write WriteShadow; property SurroundFooter read ReadSurroundFooter write WriteSurroundFooter; property SurroundHeader read ReadSurroundHeader write WriteSurroundHeader; Function WriteSurroundHeader(); Function ReadSurroundHeader(); Function WriteSurroundFooter(); Function ReadSurroundFooter(); Function WriteShadow(); Function ReadShadow(); Function WriteOutsideLineWidth(); Function ReadOutsideLineWidth(); Function WriteOutsideLineStyle(); Function ReadOutsideLineStyle(); Function WriteOutsideColorIndex(); Function ReadOutsideColorIndex(); Function WriteOutsideColor(); Function ReadOutsideColor(); Function WriteJoinBorders(); Function ReadJoinBorders(); Function WriteInsideLineWidth(); Function ReadInsideLineWidth(); Function WriteInsideLineStyle(); Function ReadInsideLineStyle(); Function WriteInsideColorIndex(); Function ReadInsideColorIndex(); Function WriteInsideColor(); Function ReadInsideColor(); Function ReadHasVertical(); Function ReadHasHorizontal(); Function WriteEnableOtherPagesInSection(); Function ReadEnableOtherPagesInSection(); Function WriteEnableFirstPageInSection(); Function ReadEnableFirstPageInSection(); Function WriteEnable(); Function ReadEnable(); Function WriteDistanceFromTop(); Function ReadDistanceFromTop(); Function WriteDistanceFromRight(); Function ReadDistanceFromRight(); Function WriteDistanceFromLeft(); Function ReadDistanceFromLeft(); Function WriteDistanceFromBottom(); Function ReadDistanceFromBottom(); Function WriteDistanceFrom(); Function ReadDistanceFrom(); Function ReadCount(); Function WriteAlwaysInFront(); Function ReadAlwaysInFront(); End; // ============== 实现 ================= // Function Operator TSDocxBorders.[](index);virtual; Begin border_obj := new TSDocxBorder(self.Application, self.Creator, self); border_obj.Init(GetBorder(index)); return border_obj; End; // function Function TSDocxBorders.Item(Index);virtual; Begin return self[Index]; End; // property