text_CellProperties.xba

   1:The first three lines are XML header. You should pay attention with script name
   2:<?xml version="1.0" encoding="UTF-8"?>
   3:<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
   4:<script:module xmlns:script="http://openoffice.org/2000/script" script:name="text_CellProperties" script:language="StarBasic">
   5:
   6:The GNU header
   7:'*************************************************************************
   8:'*  CSV-Tags
   9:'*  $RCSfile: text_CellProperties.html,v $ 
  10:'*
  11:'*  $Revision: 1.1 $ 
  12:'*
  13:'*  last change:$Date: 2004/03/10 16:30:03 $ 
  14:'*
  15:'*  The Contents of this file are made available subject to the terms of
  16:'*  either of the following licenses
  17:'*
  18:'*         - GNU Lesser General Public License Version 2.1
  19:'*         - Sun Industry Standards Source License Version 1.1
  20:'*
  21:'*  Sun Microsystems Inc., October, 2000
  22:'*
  23:'*  GNU Lesser General Public License Version 2.1
  24:'*  =============================================
  25:'*  Copyright 2000 by Sun Microsystems, Inc.
  26:'*  901 San Antonio Road, Palo Alto, CA 94303, USA
  27:'*
  28:'*  This library is free software; you can redistribute it and/or
  29:'*  modify it under the terms of the GNU Lesser General Public
  30:'*  License version 2.1, as published by the Free Software Foundation.
  31:'*
  32:'*  This library is distributed in the hope that it will be useful,
  33:'*  but WITHOUT ANY WARRANTY; without even the implied warranty of
  34:'*  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  35:'*  Lesser General Public License for more details.
  36:'*
  37:'*  You should have received a copy of the GNU Lesser General Public
  38:'*  License along with this library; if not, write to the Free Software
  39:'*  Foundation, Inc., 59 Temple Place, Suite 330, Boston,
  40:'*  MA  02111-1307  USA
  41:'*
  42:'*
  43:'*  Sun Industry Standards Source License Version 1.1
  44:'*  =================================================
  45:'*  The contents of this file are subject to the Sun Industry Standards
  46:'*  Source License Version 1.1 (the "License"); You may not use this file
  47:'*  except in compliance with the License. You may obtain a copy of the
  48:'*  License at http://www.openoffice.org/license.html.
  49:'*
  50:'*  Software provided under this License is provided on an "AS IS" basis,
  51:'*  WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
  52:'*  WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
  53:'*  MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
  54:'*  See the License for the specific provisions governing your rights and
  55:'*  obligations concerning the Software.
  56:'*
  57:'*  The Initial Developer of the Original Code is: Sun Microsystems, Inc.
  58:'*
  59:'*  Copyright: 2000 by Sun Microsystems, Inc.
  60:'*
  61:'*  All Rights Reserved.
  62:'*
  63:'*  Contributor(s): _______________________________________
  64:'*
  65:'*
  66:'*************************************************************************
  67:
  68:use "option explicit" to define all local variables
  69:option explicit  
  70:
  71:'*************************************************************************
  72:This Interface/Service test depends on the following GLOBAL variables,
  73:which must be specified in the object creation:
  74:This interface test depends on some variables which must created and
  75:filled at the object creation. In this case none.
  76:
  77:Sub RunTest()
  78:
  79:'*************************************************************************
  80:' SERVICE: 
  81:' com.sun.star.text.CellProperties
  82:'*************************************************************************
  83:On Error Goto ErrHndl
  84:    Dim bOK As Boolean
  85:The function TestProperty() from module PropertyTester of BasicBridge.sxw
  86:test the property
  87:    PropertyTester.TestProperty("BackColor")
  88:
  89:    PropertyTester.TestProperty("BackGraphicURL")
  90:
  91:    PropertyTester.TestProperty("BackGraphicFilter")
  92:
  93:    PropertyTester.TestProperty("BackGraphicLocation")
  94:
  95:    PropertyTester.TestProperty("NumberFormat")
  96:
  97:    PropertyTester.TestProperty("BackTransparent")
  98:
  99:    PropertyTester.TestProperty("LeftBorder")
 100:
 101:    PropertyTester.TestProperty("RightBorder")
 102:
 103:    PropertyTester.TestProperty("TopBorder")
 104:
 105:    PropertyTester.TestProperty("BottomBorder")
 106:
 107:    PropertyTester.TestProperty("LeftBorderDistance")
 108:
 109:    PropertyTester.TestProperty("RightBorderDistance")
 110:
 111:    PropertyTester.TestProperty("TopBorderDistance")
 112:
 113:    PropertyTester.TestProperty("BottomBorderDistance")
 114:
 115:    PropertyTester.TestProperty("UserDefinedAttributes")
 116:
 117:    PropertyTester.TestProperty("TextSection")
 118:if the property needs special test parameters you can them define here. In
 119:this case the property will be set at first to TRUE and finaly to FALSE.
 120:    Dim myParams(2) As Boolean
 121:    myParams(0) = true
 122:    myParams(1) = false
 123:    PropertyTester.TestProperty("IsProtected", myParams())
 124:
 125:    PropertyTester.TestProperty("CellName")
 126:
 127:    Dim orient(9) as Integer
 128:    orient(0) = com.sun.star.text.VertOrientation.NONE
 129:    orient(1) = com.sun.star.text.VertOrientation.TOP
 130:    orient(2) = com.sun.star.text.VertOrientation.CENTER
 131:    orient(3) = com.sun.star.text.VertOrientation.BOTTOM
 132:    orient(4) = com.sun.star.text.VertOrientation.CHAR_TOP
 133:    orient(5) = com.sun.star.text.VertOrientation.CHAR_CENTER
 134:    orient(6) = com.sun.star.text.VertOrientation.CHAR_BOTTOM
 135:    orient(7) = com.sun.star.text.VertOrientation.LINE_TOP
 136:    orient(8) = com.sun.star.text.VertOrientation.LINE_CENTER
 137:    orient(9) = com.sun.star.text.VertOrientation.LINE_BOTTOM
 138:this property accept only special values. An Array was filled with the
 139:values. PropertyTest now iterates over every index of the Array and set
 140:the values to the property. The test has OK status if all of the values 
 141:could set.
 142:    PropertyTester.TestProperty("VertOrient", orient())
 143:
 144:Exit Sub
 145:ErrHndl:
 146:    Test.Exception()
 147:    bOK = false
 148:    resume next
 149:End Sub
 150:</script:module>