1<?xml version="1.0" encoding="UTF-8"?>
2<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
3<script:module xmlns:script="http://openoffice.org/2000/script" script:name="table_CellProperties" script:language="StarBasic">
4
5
6'*************************************************************************
7'
8' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
9'
10' Copyright 2000, 2010 Oracle and/or its affiliates.
11'
12' OpenOffice.org - a multi-platform office productivity suite
13'
14' This file is part of OpenOffice.org.
15'
16' OpenOffice.org is free software: you can redistribute it and/or modify
17' it under the terms of the GNU Lesser General Public License version 3
18' only, as published by the Free Software Foundation.
19'
20' OpenOffice.org is distributed in the hope that it will be useful,
21' but WITHOUT ANY WARRANTY; without even the implied warranty of
22' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
23' GNU Lesser General Public License version 3 for more details
24' (a copy is included in the LICENSE file that accompanied this code).
25'
26' You should have received a copy of the GNU Lesser General Public License
27' version 3 along with OpenOffice.org.  If not, see
28' <http://www.openoffice.org/license.html>
29' for a copy of the LGPLv3 License.
30'
31'*************************************************************************
32'*************************************************************************
33
34
35
36' Be sure that all variables are dimensioned:
37option explicit
38
39
40Dim bOK As Boolean
41Dim oTB As Variant, oldVal As Variant
42Dim newVal As Variant, valToSet As Variant
43
44
45
46Sub RunTest()
47
48'*************************************************************************
49' SERVICE:
50' com.sun.star.table.CellProperties
51'*************************************************************************
52On Error Goto ErrHndl
53    Dim aCellStyles(1) As String
54
55    aCellStyles(0) = "Result"
56    aCellStyles(1) = "Default"
57    PropertyTester.TestProperty("CellStyle", aCellStyles())
58
59    PropertyTester.TestProperty("CellBackColor")
60
61    PropertyTester.TestProperty("IsCellBackgroundTransparent")
62
63    Dim aNumberFormats(1) As Integer
64    aNumberFormats(0) = 2
65    aNumberFormats(1) = 1
66    PropertyTester.TestProperty("NumberFormat", aNumberFormats())
67
68    PropertyTester.TestProperty("ShadowFormat")
69
70    PropertyTester.TestProperty("HoriJustify")
71
72    PropertyTester.TestProperty("VertJustify")
73
74    PropertyTester.TestProperty("Orientation")
75
76    PropertyTester.TestProperty("CellProtection")
77
78    Test.StartMethod("TableBorder")
79
80    Dim oTBNew As New com.sun.star.table.TableBorder
81    bOK = true
82    oldVal = oObj.TableBorder.Distance
83    Out.Log("value of 'TableBorder.Distance' before: "+oldVal)
84    oTBNew = oObj.TableBorder
85    Out.Log("setting value: "+ (oldVal + 20))
86    oTBNew.Distance = oldVal + 20
87    oObj.setPropertyValue("TableBorder", oTBNew)
88    newVal = oObj.TableBorder.Distance
89    Out.Log("value of 'TableBorder.Distance' after: "+newVal)
90    bOK = bOK AND (newVal = oTBNew.Distance)
91    Test.MethodTested("TableBorder", bOK)
92
93    PropertyTester.TestProperty("IsTextWrapped")
94
95    Dim nRotate(1) As Integer
96    nRotate(0) = 30999
97    nRotate(1) = 4500
98    PropertyTester.TestProperty("RotateAngle",nRotate())
99
100    PropertyTester.TestProperty("RotateReference")
101
102    PropertyTester.TestProperty("AsianVerticalMode")
103Exit Sub
104ErrHndl:
105    Test.Exception()
106    bOK = false
107    resume next
108End Sub
109</script:module>
110