Type TSDocxBorders = Class public Function Create(application, borders); Function Operator[](index);virtual; private application_; borders_; public Function ApplyPageBordersToAllSections(); Function Item(Index); property AlwaysInFront read ReadAlwaysInFront write WriteAlwaysInFront; property Application read ReadApplication; property Count read ReadCount; property Creator read ReadCreator; 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 Parent read ReadParent; 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 ReadParent(); 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 ReadCreator(); Function ReadCount(); Function ReadApplication(); Function WriteAlwaysInFront(); Function ReadAlwaysInFront(); End; // ============== 实现 ================= // Function TSDocxBorders.Create(application, borders); Begin application_ := application; borders_ := borders; End; Function Operator TSDocxBorders.[](index);virtual; Begin return new TSDocxBorder(application_, borders_, index); End; // function Function TSDocxBorders.Item(Index); Begin return self[Index]; End; // property