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="drawing_MeasureProperties" 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
40
41Sub RunTest()
42
43'*************************************************************************
44' SERVICE:
45' com.sun.star.drawing.MeasureProperties
46'*************************************************************************
47On Error Goto ErrHndl
48
49    Dim bOK As Boolean
50
51    PropertyTester.TestProperty("MeasureBelowReferenceEdge")
52
53    PropertyTester.TestProperty("MeasureHelpLine1Length")
54
55    PropertyTester.TestProperty("MeasureHelpLine2Length")
56
57    PropertyTester.TestProperty("MeasureHelpLineDistance")
58
59    PropertyTester.TestProperty("MeasureHelpLineOverhang")
60
61    Test.StartMethod("MeasureKind")
62    bOK = true
63
64    oObj.MeasureKind = com.sun.star.drawing.MeasureKind.STANDARD
65    bOK = bOK AND oObj.MeasureKind = com.sun.star.drawing.MeasureKind.STANDARD
66
67    oObj.MeasureKind = com.sun.star.drawing.MeasureKind.RADIUS
68    bOK = bOK AND oObj.MeasureKind = com.sun.star.drawing.MeasureKind.RADIUS
69
70    Test.MethodTested("MeasureKind", bOK)
71
72    PropertyTester.TestProperty("MeasureLineDistance")
73
74    PropertyTester.TestProperty("MeasureOverhang")
75
76    PropertyTester.TestProperty("MeasureShowUnit")
77
78    PropertyTester.TestProperty("MeasureTextAutoAngle")
79
80    PropertyTester.TestProperty("MeasureTextAutoAngleView")
81
82    PropertyTester.TestProperty("MeasureTextFixedAngle")
83
84    Test.StartMethod("MeasureTextHorizontalPosition")
85    bOK = true
86
87    oObj.MeasureTextHorizontalPosition = com.sun.star.drawing.MeasureTextHorzPos.AUTO
88    bOK = bOK AND oObj.MeasureTextHorizontalPosition = com.sun.star.drawing.MeasureTextHorzPos.AUTO
89
90    oObj.MeasureTextHorizontalPosition = com.sun.star.drawing.MeasureTextHorzPos.LEFTOUTSIDE
91    bOK = bOK AND oObj.MeasureTextHorizontalPosition = com.sun.star.drawing.MeasureTextHorzPos.LEFTOUTSIDE
92
93    Test.MethodTested("MeasureTextHorizontalPosition", bOK)
94
95    Test.StartMethod("MeasureTextVerticalPosition")
96    bOK = true
97
98    oObj.MeasureTextVerticalPosition = com.sun.star.drawing.MeasureTextVertPos.AUTO
99    bOK = bOK AND oObj.MeasureTextVerticalPosition = com.sun.star.drawing.MeasureTextVertPos.AUTO
100
101    oObj.MeasureTextVerticalPosition = com.sun.star.drawing.MeasureTextVertPos.EAST
102    bOK = bOK AND oObj.MeasureTextVerticalPosition = com.sun.star.drawing.MeasureTextVertPos.EAST
103
104    Test.MethodTested("MeasureTextVerticalPosition", bOK)
105
106    PropertyTester.TestProperty("MeasureTextIsFixedAngle")
107
108    PropertyTester.TestProperty("MeasureTextRotate90")
109
110    PropertyTester.TestProperty("MeasureTextUpsideDown")
111
112    PropertyTester.TestProperty("MeasureDecimalPlaces")
113
114Exit Sub
115ErrHndl:
116    Test.Exception()
117    bOK = false
118    resume next
119End Sub
120</script:module>
121