summaryrefslogtreecommitdiff
path: root/testautomation/chart2/required/ch2_updt_calc.bas
blob: 02cc2c883269e6f421e8fee00885d586a2c1320b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
'encoding UTF-8  Do not remove or change this line!
'**************************************************************************
' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
' 
' Copyright 2000, 2010 Oracle and/or its affiliates.
'
' OpenOffice.org - a multi-platform office productivity suite
'
' This file is part of OpenOffice.org.
'
' OpenOffice.org is free software: you can redistribute it and/or modify
' it under the terms of the GNU Lesser General Public License version 3
' only, as published by the Free Software Foundation.
'
' OpenOffice.org is distributed in the hope that it will be useful,
' but WITHOUT ANY WARRANTY; without even the implied warranty of
' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
' GNU Lesser General Public License version 3 for more details
' (a copy is included in the LICENSE file that accompanied this code).
'
' You should have received a copy of the GNU Lesser General Public License
' version 3 along with OpenOffice.org.  If not, see
' <http://www.openoffice.org/license.html>
' for a copy of the LGPLv3 License.
'
'/************************************************************************
'*
'* owner : oliver.craemer@oracle.com
'*
'* short description : Resource Test for all chart specific menues
'*
'\************************************************************************************************

sub main
    use "chart2\tools\ch_tools_common.inc"
    use "chart2\tools\ch_tools_chart_type.inc"
    use "chart2\tools\ch_tools_titles.inc"
    use "chart2\tools\ch_tools_axes.inc"
    use "chart2\tools\ch_tools_grids.inc"
    use "chart2\tools\ch_tools_legend.inc"
    use "chart2\tools\ch_tools_data_labels.inc"
    use "chart2\tools\ch_tools_statistics.inc"
    use "chart2\tools\ch_tools_tab_pages.inc"
    use "chart2\tools\ch_tools_select.inc"
    use "chart2\required\includes\ch2_wizard.inc"
    use "chart2\required\includes\ch2_file.inc"
    use "chart2\required\includes\ch2_view.inc"
    use "chart2\required\includes\ch2_insert_ctl.inc"
    use "chart2\required\includes\ch2_insert.inc"
    use "chart2\required\includes\ch2_format.inc"
    use "chart2\required\includes\ch2_format1.inc"
    use "chart2\required\includes\ch2_window.inc"
    use "chart2\required\includes\ch2_toolbars.inc"
    use "chart2\required\includes\ch2_menu.inc"
    use "chart2\required\includes\ch2_ole.inc"

    Call hStatusIn("Chart2", "ch2_updt_calc.bas")

    printlog "----------------------------------------"
    printlog "C h a r t 2   i n  S p r e a d s h e e t"
    printlog "           U p d a t e t e s t"
    printlog "----------------------------------------"
    printLog Chr(13) + "-----------  Chart2 Wizard  ------------"
    Call tCreateNewChart
    printLog Chr(13) + "-----------  Chart2 Menu  ------------"
    call tMainMenu        
    printLog Chr(13) + "----------  Chart2 File Menu  ----------"
    call tFileClose
    call tFileSaveAsOTS
    call tFileSaveAsSXC
    call tFileSaveAsSTC
    call tFileSaveAsXLS
    call tFileSaveAsXLT
    call tFileSaveAsSDC
    call tFileSaveAsVOR
    call tFileReload                
    printLog Chr(13) + "----------  Chart2 View Menu -----------"
    Call tViewToolbars
    Call tViewToolbarsCustomize
    Call tViewFullScreen              
    printLog Chr(13) + "--------  Chart2 Insert Menu  ----------"
    call tInsertTitle
    call tInsertAxes
    call tInsertGrids
    call tInsertLegend
    call tInsertDataLabels
    call tInsertTrendLines
    call tInsertMeanValueLines
    call tInsertYErrorBars
    call tInsertSpecialCharacter
    printLog Chr(13) + "-------- Chart2 CTL Features  ----------"
    call tTitleTextDirection
    call tLegendTextDirection
    call tXAxisTextDirection
    call tDataSeriesTextDirection
    call tEquationTextDirection
    call tDataPointTextDirection
    printlog Chr(13) + "---------  Chart2 Format Menu  ---------"
    call tFormatObjectProperties
    call tFormatObjectPropertiesPieChart
    call tFormatPositonAndSize
    call tFormatArrangement
    Call tFormatTitleMaintitle
    Call tFormatTitleSubtitle
    Call tFormatTitleXAxistitle
    Call tFormatTitleYAxistitle
    Call tFormatTitleZAxistitle
    Call tFormatTitleAllTitles
    Call tFormatAxisXAxis
    Call tFormatAxisYAxis
    Call tFormatAxisZAxis
    Call tFormatAxisSecondaryXAxis
    Call tFormatAxisSecondaryYAxis
    Call tFormatAxisAllAxes
    Call tFormatXAxisMainGrid
    Call tFormatYAxisMainGrid
    Call tFormatZAxisMainGrid
    call tFormatXAxisMinorGrid
    Call tFormatYAxisMinorGrid
    Call tFormatAllAxesGrids
    Call tFormatLegend
    Call tFormatChartWall
    Call tFormatChartFloor
    Call tFormatChartArea
    Call tFormatChartType
    call tFormatDataRanges
    Call tFormat3DView                
    printlog Chr(13) + "---------  Chart2 Window Menu  ---------"
    Call tWindowNewWindowAndClose
    printLog Chr(13) + "----------  Chart2 Toolbars  -----------"      
    Call tDrawBar
    printLog Chr(13) + "--------- Chart2 as OLE object ---------"
    Call tChartOLE("WRITER")
    Call tChartOLE("CALC")
    Call tChartOLE("IMPRESS")
    Call tChartOLE("DRAW")
    Call tChartOLE("HTML")
    Call tChartOLE("MASTERDOCUMENT")       
    Call hStatusOut
    
end sub
'
'-------------------------------------------------------------------------------
'
sub LoadIncludeFiles             
    use "global\system\includes\master.inc"
    use "global\system\includes\gvariabl.inc"
    use "global\tools\includes\optional\t_set_standard_controls.inc"
    use "global\tools\includes\optional\t_ole.inc"
    Call GetUseFiles 
    gApplication = "CALC"
end sub