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
37' Be sure that all variables are dimensioned:
38option explicit
39
40
41Dim bOK As Boolean
42Dim oTB As Variant, oldVal As Variant
43Dim newVal As Variant, valToSet As Variant
44
45
46
47Sub RunTest()
48
49'*************************************************************************
50' SERVICE:
51' com.sun.star.table.CellProperties
52'*************************************************************************
53On Error Goto ErrHndl
54    Dim aCellStyles(1) As String
55
56    aCellStyles(0) = "Result"
57    aCellStyles(1) = "Default"
58    PropertyTester.TestProperty("CellStyle", aCellStyles())
59
60    PropertyTester.TestProperty("CellBackColor")
61
62    PropertyTester.TestProperty("IsCellBackgroundTransparent")
63
64    Dim aNumberFormats(1) As Integer
65    aNumberFormats(0) = 2
66    aNumberFormats(1) = 1
67    PropertyTester.TestProperty("NumberFormat", aNumberFormats())
68
69    PropertyTester.TestProperty("ShadowFormat")
70
71    PropertyTester.TestProperty("HoriJustify")
72
73    PropertyTester.TestProperty("VertJustify")
74
75    PropertyTester.TestProperty("Orientation")
76
77    PropertyTester.TestProperty("CellProtection")
78
79    Test.StartMethod("TableBorder")
80
81    Dim oTBNew As New com.sun.star.table.TableBorder
82    bOK = true
83    oldVal = oObj.TableBorder.Distance
84    Out.Log("value of 'TableBorder.Distance' before: "+oldVal)
85    oTBNew = oObj.TableBorder
86    Out.Log("setting value: "+ (oldVal + 20))
87    oTBNew.Distance = oldVal + 20
88    oObj.setPropertyValue("TableBorder", oTBNew)
89    newVal = oObj.TableBorder.Distance
90    Out.Log("value of 'TableBorder.Distance' after: "+newVal)
91    bOK = bOK AND (newVal = oTBNew.Distance)
92    Test.MethodTested("TableBorder", bOK)
93
94    PropertyTester.TestProperty("IsTextWrapped")
95
96    Dim nRotate(1) As Integer
97    nRotate(0) = 30999
98    nRotate(1) = 4500
99    PropertyTester.TestProperty("RotateAngle",nRotate())
100
101    PropertyTester.TestProperty("RotateReference")
102
103    PropertyTester.TestProperty("AsianVerticalMode")
104Exit Sub
105ErrHndl:
106    Test.Exception()
107    bOK = false
108    resume next
109End Sub
110</script:module>
111