AOO410/main/qadevOOo/tests/basic/ifc/sheet/TableAutoFormatField/sheet_TableAutoFormatField.xba

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sheet_TableAutoFormatField" script:language="StarBasic">


'*************************************************************************
'
'  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.
'
'*************************************************************************







Sub RunTest()

'*************************************************************************
' SERVICE: 
' com.sun.star.sheet.TableAutoFormatField
'*************************************************************************
On Error Goto ErrHndl
    Dim bOK As Boolean


    PropertyTester.TestProperty("CharFontName")

    Dim aHeightArray(3) As Double
    aHeightArray(0) = 10
    aHeightArray(1) = 20.1
    aHeightArray(2) = 25.2
    aHeightArray(3) = 30.3
    PropertyTester.TestProperty("CharHeight",aHeightArray())

    Dim aWeightArray(9) As Integer
    with com.sun.star.awt.FontWeight
        aWeightArray(0) = .DONTKNOW
        aWeightArray(1) = .THIN
        aWeightArray(2) = .ULTRALIGHT
        aWeightArray(3) = .LIGHT
        aWeightArray(4) = .SEMILIGHT
        aWeightArray(5) = .NORMAL
        aWeightArray(6) = .SEMIBOLD
        aWeightArray(7) = .BOLD
        aWeightArray(8) = .ULTRABOLD
        aWeightArray(9) = .BLACK
    end with
    PropertyTester.TestProperty("CharWeight", aWeightArray())

    PropertyTester.TestProperty("CharPosture")

    PropertyTester.TestProperty("CharUnderline")

    PropertyTester.TestProperty("CharCrossedOut")

    PropertyTester.TestProperty("CharContoured")

    PropertyTester.TestProperty("CharShadowed")

    PropertyTester.TestProperty("CharColor")

' ### The following property was not found in correspond IDL file! ###
    PropertyTester.TestProperty("CharLocale")

    PropertyTester.TestProperty("CellBackColor")

    PropertyTester.TestProperty("IsCellBackgroundTransparent")

    PropertyTester.TestProperty("ShadowFormat")

    PropertyTester.TestProperty("ParaRightMargin")

    PropertyTester.TestProperty("ParaLeftMargin")

    PropertyTester.TestProperty("ParaBottomMargin")

    PropertyTester.TestProperty("ParaTopMargin")

    PropertyTester.TestProperty("RotateReference")

    PropertyTester.TestProperty("RotateAngle")

    PropertyTester.TestProperty("Orientation")

    PropertyTester.TestProperty("IsTextWrapped")

    PropertyTester.TestProperty("VertJustify")

    PropertyTester.TestProperty("HoriJustify")

    PropertyTester.TestProperty("CharPostureComplex")

    PropertyTester.TestProperty("CharPostureAsian")

    PropertyTester.TestProperty("CharWeightComplex", aWeightArray())

    PropertyTester.TestProperty("CharWeightAsian", aWeightArray())

    PropertyTester.TestProperty("CharHeightComplex", aHeightArray())

    PropertyTester.TestProperty("CharHeightAsian", aHeightArray())

    PropertyTester.TestProperty("CharFontPitchComplex")

    PropertyTester.TestProperty("CharFontPitchAsian")

    PropertyTester.TestProperty("CharFontPitch")

    PropertyTester.TestProperty("CharFontFamilyComplex")

    PropertyTester.TestProperty("CharFontFamilyAsian")

    PropertyTester.TestProperty("CharFontFamily")

    PropertyTester.TestProperty("CharFontCharSetComplex")

    PropertyTester.TestProperty("CharFontCharSetAsian")

    PropertyTester.TestProperty("CharFontCharSet")

    PropertyTester.TestProperty("CharFontStyleNameComplex")

    PropertyTester.TestProperty("CharFontStyleNameAsian")

    PropertyTester.TestProperty("CharFontStyleName")

    PropertyTester.TestProperty("CharFontNameComplex")

    PropertyTester.TestProperty("CharFontNameAsian")


'
    PropertyTester.TestProperty("TableBorder")

Exit Sub
ErrHndl:
    Test.Exception()
    bOK = false
    resume next
End Sub
</script:module>