'************************************************************************* ' ' Licensed to the Apache Software Foundation (ASF) under one ' or more contributor license agreements. See the NOTICE file ' distributed with this work for additional information ' regarding copyright ownership. The ASF licenses this file ' to you under the Apache License, Version 2.0 (the ' "License"); you may not use this file except in compliance ' with the License. You may obtain a copy of the License at ' ' http://www.apache.org/licenses/LICENSE-2.0 ' ' Unless required by applicable law or agreed to in writing, ' software distributed under the License is distributed on an ' "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY ' KIND, either express or implied. See the License for the ' specific language governing permissions and limitations ' under the 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