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