'************************************************************************* ' ' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. ' ' Copyright 2008 by Sun Microsystems, Inc. ' ' OpenOffice.org - a multi-platform office productivity suite ' ' $RCSfile: text_BaseFrameProperties.xba,v $ ' ' $Revision: 1.4 $ ' ' This file is part of OpenOffice.org. ' ' OpenOffice.org is free software: you can redistribute it and/or modify ' it under the terms of the GNU Lesser General Public License version 3 ' only, as published by the Free Software Foundation. ' ' OpenOffice.org is distributed in the hope that it will be useful, ' but WITHOUT ANY WARRANTY; without even the implied warranty of ' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ' GNU Lesser General Public License version 3 for more details ' (a copy is included in the LICENSE file that accompanied this code). ' ' You should have received a copy of the GNU Lesser General Public License ' version 3 along with OpenOffice.org. If not, see ' ' for a copy of the LGPLv3 License. ' '************************************************************************* '************************************************************************* ' Be sure that all variables are dimensioned: option explicit Sub RunTest() '************************************************************************* ' INTERFACE: ' com.sun.star.text.BaseFrameProperties '************************************************************************* On Error Goto ErrHndl Dim bOK As Boolean oObj.SizeProtected = false PropertyTester.TestProperty("ShadowFormat") Dim nPages(0 to 2) As Integer nPages(0) = 1 nPages(1) = 3 nPages(2) = 1 PropertyTester.TestProperty("AnchorPageNo",nPages()) PropertyTester.TestProperty("BackColor") PropertyTester.TestProperty("BackGraphicURL") PropertyTester.TestProperty("BackGraphicFilter") PropertyTester.TestProperty("BackGraphicLocation") PropertyTester.TestProperty("LeftBorder") PropertyTester.TestProperty("RightBorder") PropertyTester.TestProperty("TopBorder") PropertyTester.TestProperty("BottomBorder") PropertyTester.TestProperty("BorderDistance") PropertyTester.TestProperty("LeftBorderDistance") PropertyTester.TestProperty("RightBorderDistance") PropertyTester.TestProperty("TopBorderDistance") PropertyTester.TestProperty("BottomBorderDistance") PropertyTester.TestProperty("BackTransparent") PropertyTester.TestProperty("ContentProtected") PropertyTester.TestProperty("LeftMargin") PropertyTester.TestProperty("RightMargin") PropertyTester.TestProperty("TopMargin") PropertyTester.TestProperty("BottomMargin") Dim aRelative(2) As Integer aRelative(0) = 10 aRelative(1) = 20 aRelative(2) = 0 PropertyTester.TestProperty("RelativeHeight", aRelative()) PropertyTester.TestProperty("RelativeWidth", aRelative()) PropertyTester.TestProperty("Height") PropertyTester.TestProperty("Width") PropertyTester.TestProperty("IsSyncWidthToHeight") PropertyTester.TestProperty("IsSyncHeightToWidth") Dim aHoriOrient(3) As Integer aHoriOrient(0) = com.sun.star.text.HoriOrientation.RIGHT aHoriOrient(1) = com.sun.star.text.HoriOrientation.CENTER aHoriOrient(2) = com.sun.star.text.HoriOrientation.LEFT aHoriOrient(3) = com.sun.star.text.HoriOrientation.NONE PropertyTester.TestProperty("HoriOrient", aHoriOrient()) PropertyTester.TestProperty("HoriOrientPosition") Dim aHoriRelations(3) As Integer aHoriRelations(0) = com.sun.star.text.RelOrientation.FRAME aHoriRelations(1) = com.sun.star.text.RelOrientation.CHAR aHoriRelations(2) = com.sun.star.text.RelOrientation.PAGE_LEFT aHoriRelations(3) = com.sun.star.text.RelOrientation.PAGE_RIGHT PropertyTester.TestProperty("HoriOrientRelation", aHoriRelations()) Dim aVertOrient(3) As Integer aVertOrient(0) = com.sun.star.text.VertOrientation.TOP aVertOrient(1) = com.sun.star.text.VertOrientation.CENTER aVertOrient(2) = com.sun.star.text.VertOrientation.BOTTOM aVertOrient(3) = com.sun.star.text.VertOrientation.NONE PropertyTester.TestProperty("VertOrient", aVertOrient()) PropertyTester.TestProperty("VertOrientPosition", aVertOrient()) Dim aVertRelations(3) As Integer aVertRelations(0) = com.sun.star.text.RelOrientation.FRAME aVertRelations(1) = com.sun.star.text.RelOrientation.CHAR aVertRelations(2) = com.sun.star.text.RelOrientation.PAGE_LEFT aVertRelations(3) = com.sun.star.text.RelOrientation.PAGE_RIGHT PropertyTester.TestProperty("VertOrientRelation", aVertRelations()) PropertyTester.TestProperty("HyperLinkURL") PropertyTester.TestProperty("HyperLinkTarget") PropertyTester.TestProperty("HyperLinkName") PropertyTester.TestProperty("Opaque") PropertyTester.TestProperty("PageToggle") PropertyTester.TestProperty("PositionProtected") PropertyTester.TestProperty("Print") PropertyTester.TestProperty("ServerMap") oObj.SizeProtected = false PropertyTester.TestProperty("Size") PropertyTester.TestProperty("SizeProtected") oObj.SizeProtected = false PropertyTester.TestProperty("Surround") PropertyTester.TestProperty("SurroundAnchorOnly") PropertyTester.TestProperty("AnchorFrame") Exit Sub ErrHndl: Test.Exception() bOK = false resume next End Sub