| blob | 64f42270ae2dbc45d0902ca12996048bb1041abb |
1 'encoding UTF-8 Do not remove or change this line!
2 '**************************************************************************
3 '* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
4 '*
5 '* Copyright 2008 by Sun Microsystems, Inc.
6 '*
7 '* OpenOffice.org - a multi-platform office productivity suite
8 '*
9 '* $RCSfile: ch2_format.inc,v $
10 '*
11 '* $Revision: 1.1 $
12 '*
13 '* last change: $Author: jsi $ $Date: 2008-06-13 14:27:01 $
14 '*
15 '* This file is part of OpenOffice.org.
16 '*
17 '* OpenOffice.org is free software: you can redistribute it and/or modify
18 '* it under the terms of the GNU Lesser General Public License version 3
19 '* only, as published by the Free Software Foundation.
20 '*
21 '* OpenOffice.org is distributed in the hope that it will be useful,
22 '* but WITHOUT ANY WARRANTY; without even the implied warranty of
23 '* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
24 '* GNU Lesser General Public License version 3 for more details
25 '* (a copy is included in the LICENSE file that accompanied this code).
26 '*
27 '* You should have received a copy of the GNU Lesser General Public License
28 '* version 3 along with OpenOffice.org. If not, see
29 '* <http://www.openoffice.org/license.html>
30 '* for a copy of the LGPLv3 License.
31 '*
32 '/************************************************************************
33 '*
34 '* owner : oliver.craemer@sun.com
35 '*
36 '* short description : Chart resource test - Menu FORMAT
37 '*
38 '************************************************************************
39 '*
40 ' #1 tFormatObjectProperties
41 ' #1 tFormatObjectPropertiesPieChart
42 ' #1 tFormatPositonAndSize
43 ' #1 tFormatArrangement
44 ' #1 tFormatTitleMaintitle
45 ' #1 tFormatTitleSubtitle
46 ' #1 tFormatTitleXAxistitle
47 ' #1 tFormatTitleYAxistitle
48 ' #1 tFormatTitleZAxistitle
49 ' #1 tFormatTitleAllTitles
50 ' #1 tFormatAxisXAxis
51 ' #1 tFormatAxisYAxis
52 ' #1 tFormatAxisZAxis
53 ' #1 tFormatAxisSecondaryXAxis
54 ' #1 tFormatAxisSecondaryYAxis
55 ' #1 tFormatAxisAllAxes
56 '*
57 '\************************************************************************
59 testcase tFormatObjectProperties
60 Dim iCountTabPg as integer
62 iCountTabPg = 0
64 printlog "Load simple chart document"
65 if fLoadVerySimpleChartAndSaveLocal() > 0 then
66 warnlog "Loading test document seems to have failed -> Check this out!"
67 goto endsub
68 endif
69 printlog "Select chart using navigator"
70 if fSelectFirstOLE = 0 then
71 printlog "Edit / Object / Edit"
72 EditObjectEdit
73 printlog "Select DataSeries A by toolbar selectorbox"
74 call fChartSelectElement (8)
75 printlog "Open the properties dialog by using the FormatSelection button in the toolbar"
76 FormatSelection.Click
77 printlog "Select tab page Options"
78 Kontext
79 iCountTabPg = Active.GetPageCount
80 if iCountTabPg <> 4 then
81 warnlog "Edit::Properties on a data series should have 4 tab pages but has " & iCountTabPg & "."
82 else
83 printlog "Edit::Properties on a data series has 4 tab pages."
84 endif
85 Active.SetPage TabDataSeriesOptions
86 '/// Check if tab page data series options exists
87 Kontext "TabDataSeriesOptions"
88 call DialogTest ( TabDataSeriesOptions )
89 '/// Check if tab page area exists
90 Kontext
91 Active.SetPage TabArea
92 Kontext "TabArea"
93 call DialogTest ( TabArea )
94 '/// Check if tab page transparency exists
95 Kontext
96 Active.SetPage TabTransparency
97 Kontext "TabTransparency"
98 call DialogTest ( TabTransparency )
99 '/// Check if tab page borders exists
100 Kontext
101 Active.SetPage TabFormatChartBorders
102 Kontext "TabFormatChartBorders"
103 call DialogTest ( TabFormatChartBorders )
104 '/// Close dialog with Cancel-button
105 TabFormatChartBorders.Cancel
106 '/// Close document
107 Kontext "DocumentCalc"
108 DocumentCalc.TypeKeys "<Escape>"
109 else
110 warnlog "It was not possible to select the chart object!"
111 endif
112 Call hCloseDocument
113 endcase
114 '
115 '-------------------------------------------------------------------------
116 '
117 testcase tFormatObjectPropertiesPieChart
118 Dim iCountTabPg as integer
120 iCountTabPg = 0
122 '///<u><b>Dialog test after invoking Format::Object Properties... on a pie chart</b></u>
123 '/// Load simple chart document
124 if fLoadVerySimpleChartAndSaveLocal() > 0 then
125 warnlog "Loading test document seems to have failed -> Check this out!"
126 goto endsub
127 endif
128 '/// Select chart using navigator
129 if fSelectFirstOLE = 0 then
130 '/// Edit / Object / Edit
131 EditObjectEdit
132 '/// Move to third object in Chart using TAB key (data series)
133 Kontext "DocumentChart"
134 '/// Format / Chart Type
135 if fInvokeChartTypeDialog() > 0 then
136 warnlog "Something went wrong trying to invoke the Chart Types dialog"
137 Call hCloseDocument
138 goto endsub
139 endif
140 if fSetChartType("pie") > 0 then
141 warnlog "Something went wrong trying to set the Chart Type to 'Pie'"
142 Call hCloseDocument
143 goto endsub
144 endif
145 if fCloseChartTypeDialogOK() > 0 then
146 warnlog "Something went wrong trying to leave the dialog with OK"
147 Call hCloseDocument
148 goto endsub
149 endif
150 '/// Move to data series in Chart
151 call fChartSelectElement (5)
152 printlog "Open the properties dialog by using the FormatSelection button in the toolbar"
153 FormatSelection.Click
154 '/// Select tab page Aligment
155 Kontext
156 iCountTabPg = Active.GetPageCount
157 if iCountTabPg <> 4 then
158 warnlog "Edit::Properties on a data series of a pie chart should have 4 tab pages but has " & iCountTabPg & "."
159 else
160 printlog "Edit::Properties on a data series on a pie chart has 4 tab pages."
161 endif
162 Active.SetPage TabChartPieOptions
163 '/// Check if tab page Options exists
164 Kontext "TabChartPieOptions"
165 call DialogTest ( TabChartPieOptions )
166 '/// Close dialog with Cancel-button
167 TabChartPieOptions.Cancel
168 '/// Close document
169 Kontext "DocumentCalc"
170 DocumentCalc.TypeKeys "<ESCAPE>"
171 else
172 warnlog "It was not possible to select the chart object!"
173 endif
174 Call hCloseDocument
175 endcase
176 '
177 '-------------------------------------------------------------------------------
178 '
179 testcase tFormatPositonAndSize
180 '///<u><b>Dialog test after invoking Format::PositionAndSize</b></u>
181 '/// Load simple chart document
182 if fLoadVerySimpleChartAndSaveLocal() > 0 then
183 warnlog "Loading test document seems to have failed -> Check this out!"
184 goto endsub
185 endif
186 '/// Select chart using navigator
187 call fSelectFirstOLE
188 '/// Edit / Object / Edit
189 EditObjectEdit
190 '/// Move to first object in Chart using TAB key
191 Kontext "DocumentChart"
192 DocumentChart.TypeKeys "<TAB>"
193 '/// Invoke Format::PositionAndSize
194 FormatPositionAndSizeChart
195 '/// Check if Position and Size dialog exists (single tab page)
196 Kontext "TabPositionAndSize"
197 call DialogTest ( TabPositionAndSize )
198 '/// Close dialog
199 TabPositionAndSize.Cancel
200 '/// Close document
201 Kontext "DocumentCalc"
202 DocumentCalc.TypeKeys "<Escape>"
203 Call hCloseDocument
204 endcase
205 '
206 '-------------------------------------------------------------------------------
207 '
208 testcase tFormatArrangement
209 dim sInputFile as string
210 dim iLoop as integer
211 sInputFile = convertpath(gTestToolPath & "chart2/required/input/ch_flexrange01.ods")
212 printlog "Open test document gtesttoolpath/chart2/required/input/ch_flexrange01.ods"
213 if fOpenTestDocumentAndInsertChart(sInputFile) then
214 Kontext "ChartType"
215 printlog "Choose the Chart type 'bar' (should be the second in the top-down list)"
216 if fSetChartType( "bar" ) > 0 then
217 warnlog "Something went wrong setting chart type to BAR. Testcase aborted"
218 Kontext "ChartWizard"
219 ChartWizard.Cancel
220 call hCloseDocument
221 goto endsub
222 endif
223 Kontext "ChartWizard"
224 printlog "Press OK button"
225 ChartWizard.OK
226 Kontext "DocumentChart"
227 printlog "Type twice <TAB> to select a data series to enable the menu entry."
228 DocumentChart.TypeKeys "<TAB>", 2, TRUE
229 Kontext "DocumentCalc"
230 DocumentCalc.UseMenu
231 printlog "Select 'Format' entry in main menu"
232 hMenuSelectNr(5) ' FORMAT
233 printlog "Select 'Arrangement' entry in 'Format'-menu"
234 hMenuSelectNr(3) ' ARRANGEMENT
235 printlog "Select enabled 'Send Backward' entry."
236 hMenuSelectNr(2)
237 Kontext "DocumentCalc"
238 DocumentCalc.UseMenu
239 printlog "Select 'Format' entry in main menu again"
240 hMenuSelectNr(5) ' FORMAT
241 printlog "Select 'Arrangement' entry in 'Format'-menu"
242 hMenuSelectNr(3) ' ARRANGEMENT
243 printlog "Select now enabled 'Bring Forward' entry."
244 hMenuSelectNr(1)
245 printlog "Close document"
246 Call hCloseDocument
247 else
248 warnlog "It was not possible to open the test document."
249 endif
250 endcase
251 '
252 '-------------------------------------------------------------------------------
253 '
254 testcase tFormatTitleMaintitle
255 '///<u><b>Dialog test after invoking Format::Title::MainTitle</b></u>
256 '/// Load simple chart document
257 if fLoadVerySimpleChartAndSaveLocal() > 0 then
258 warnlog "Loading test document seems to have failed -> Check this out!"
259 goto endsub
260 endif
261 '/// Select chart using navigator
262 call fSelectFirstOLE
263 '/// Edit / Object / Edit
264 EditObjectEdit
265 sleep(1)
266 '/// Format / Title / Main title
267 FormatTitleMainTitle
268 '/// Goto tab page Borders
269 Kontext
270 Active.SetPage TabFormatChartBorders
271 '/// Check if tab page Borders exists
272 Kontext "TabFormatChartBorders"
273 call DialogTest ( TabFormatChartBorders )
274 '/// Goto tab page Area
275 Kontext
276 Active.SetPage TabArea
277 '/// Check if tab page Area exists
278 Kontext "TabArea"
279 call DialogTest ( TabArea )
280 '/// Goto tab page Transparency
281 Kontext
282 Active.SetPage TabTransparency
283 '/// Check if tab page Transparency exists
284 Kontext "TabTransparency"
285 call DialogTest ( TabTransparency )
286 '/// Goto tab page Characters
287 Kontext
288 Active.SetPage TabFont
289 '/// Check if tab page Characters exists
290 Kontext "TabFont"
291 call DialogTest ( TabFont )
292 '/// Goto tab page Font Effects
293 Kontext
294 Active.SetPage TabFontEffects
295 '/// Check if tab page Font Effects exists
296 Kontext "TabFontEffects"
297 call DialogTest ( TabFontEffects )
298 '/// Goto tab page Alignment
299 Kontext
300 Active.SetPage TabFormatChartTitleAlignment
301 '/// Check if tab page Alignment exists
302 Kontext "TabFormatChartTitleAlignment"
303 call DialogTest ( TabFormatChartTitleAlignment )
304 '/// Close dialog
305 TabFormatChartTitleAlignment.Cancel
306 '/// Close document
307 Kontext "DocumentCalc"
308 DocumentCalc.TypeKeys "<Escape>"
309 Call hCloseDocument
310 endcase
311 '
312 '-------------------------------------------------------------------------------
313 '
314 testcase tFormatTitleSubtitle
315 '///<u><b>Dialog test after invoking Format::Title::Subtitle</b></u>
316 '/// Load simple chart document
317 if fLoadVerySimpleChartAndSaveLocal() > 0 then
318 warnlog "Loading test document seems to have failed -> Check this out!"
319 goto endsub
320 endif
321 '/// Select chart using navigator
322 call fSelectFirstOLE
323 '/// Edit / Object / Edit
324 EditObjectEdit
325 sleep(1)
326 '/// Insert / Title
327 if fInvokeTitlesDialog() > 0 then
328 warnlog "Something went wrong trying to invoke the Title dialog -> Check this out! (Previous log may help you)"
329 Call hCloseDocument
330 goto endsub
331 endif
332 Kontext "InsertTitleDialog"
333 '/// Set Subtitle
334 if fSetTitle( SubTitle , "Custom Subtitle" ) > 0 then
335 warnlog "Something went wrong setting the subtitle -> Check this out! (Previous log may help you)"
336 Call hCloseDocument
337 goto endsub
338 endif
339 '/// Close Title dialog
340 if fCloseTitlesDialogOK() > 0 then
341 warnlog "Something went wrong trying to close the Title dialog -> Check this out! (Previous log may help you)"
342 Call hCloseDocument
343 goto endsub
344 endif
345 '/// Format / Title / Subtitle
346 FormatTitleSubTitle
347 '/// Goto tab page Area
348 Kontext
349 Active.SetPage TabArea
350 '/// Check if tab page Area exists
351 Kontext "TabArea"
352 call DialogTest ( TabArea )
353 '/// Goto tab page Characters
354 Kontext
355 Active.SetPage TabFont
356 '/// Check if tab page Characters exists
357 Kontext "TabFont"
358 call DialogTest ( TabFont )
359 '/// Goto tab page Borders
360 Kontext
361 Active.SetPage TabFormatChartBorders
362 '/// Check if tab page Borders exists
363 Kontext "TabFormatChartBorders"
364 call DialogTest ( TabFormatChartBorders )
365 '/// Goto tab page Alignment
366 Kontext
367 Active.SetPage TabFormatChartTitleAlignment
368 '/// Check if tab page Alignment exists
369 Kontext "TabFormatChartTitleAlignment"
370 call DialogTest ( TabFormatChartTitleAlignment )
371 '/// Goto tab page Transparency
372 Kontext
373 Active.SetPage TabTransparency
374 '/// Check if tab page Transparency exists
375 Kontext "TabTransparency"
376 call DialogTest ( TabTransparency )
377 '/// Goto tab page Font Effects
378 Kontext
379 Active.SetPage TabFontEffects
380 '/// Check if tab page Font Effects exists
381 Kontext "TabFontEffects"
382 call DialogTest ( TabFontEffects )
383 '/// Close dialog with Cancel
384 TabFontEffects.Cancel
385 '/// Close document
386 Call hCloseDocument
387 endcase
388 '
389 '-------------------------------------------------------------------------------
390 '
391 testcase tFormatTitleXAxistitle
392 '///<u><b>Dialog test after invoking Format::Title::X Axis Title</b></u>
393 '/// Load simple chart document
394 if fLoadVerySimpleChartAndSaveLocal() > 0 then
395 warnlog "Loading test document seems to have failed -> Check this out!"
396 goto endsub
397 endif
398 '/// Select chart using navigator
399 call fSelectFirstOLE
400 '/// Edit / Object / Edit
401 EditObjectEdit
402 sleep(1)
403 '/// Insert / Title
404 if fInvokeTitlesDialog() > 0 then
405 warnlog "Something went wrong trying to invoke the Title dialog -> Check this out! (Previous log may help you)"
406 Call hCloseDocument
407 goto endsub
408 endif
409 Kontext "InsertTitleDialog"
410 '/// Set X Axis Title
411 if fSetTitle( TitleXaxis , "Custom X Axis Title" ) > 0 then
412 warnlog "Something went wrong setting the X Axis Title -> Check this out! (Previous log may help you)"
413 Call hCloseDocument
414 goto endsub
415 endif
416 '/// Close Title dialog
417 if fCloseTitlesDialogOK() > 0 then
418 warnlog "Something went wrong trying to close the Title dialog -> Check this out! (Previous log may help you)"
419 Call hCloseDocument
420 goto endsub
421 endif
422 '/// Format / Chart Type
423 if fInvokeChartTypeDialog() > 0 then
424 warnlog "Something went wrong trying to invoke the Chart Types dialog -> Check this out! (Previous log may help you)"
425 Call hCloseDocument
426 goto endsub
427 endif
428 '/// Change Chart type to Column + Line
429 if fSetChartType( "column_line" ) > 0 then
430 warnlog "Something went wrong setting chart type to Column + Line -> Check this out! (Previous log may help you)"
431 Call hCloseDocument
432 goto endsub
433 endif
434 '/// Close Chart Type dialog
435 if fCloseChartTypeDialogOK() > 0 then
436 warnlog "Something went wrong trying to close the Chart Type dialog -> Check this out! (Previous log may help you)"
437 Call hCloseDocument
438 goto endsub
439 endif
440 '/// Format / Title / X Axis Title
441 FormatTitleX_Axis
442 '/// Goto tab page Font Effects
443 Kontext
444 Active.SetPage TabFontEffects
445 '/// Check if tab page Font Effects exists
446 Kontext "TabFontEffects"
447 call DialogTest ( TabFontEffects )
448 '/// Goto tab page Transparency
449 Kontext
450 Active.SetPage TabTransparency
451 '/// Check if tab page Transparency exists
452 Kontext "TabTransparency"
453 call DialogTest ( TabTransparency )
454 '/// Goto tab page Borders
455 Kontext
456 Active.SetPage TabFormatChartBorders
457 '/// Check if tab page Borders exists
458 Kontext "TabFormatChartBorders"
459 call DialogTest ( TabFormatChartBorders )
460 '/// Goto tab page Alignment
461 Kontext
462 Active.SetPage TabFormatChartTitleAlignment
463 '/// Check if tab page Alignment exists
464 Kontext "TabFormatChartTitleAlignment"
465 call DialogTest ( TabFormatChartTitleAlignment )
466 '/// Goto tab page Characters
467 Kontext
468 Active.SetPage TabFont
469 '/// Check if tab page Characters exists
470 Kontext "TabFont"
471 call DialogTest ( TabFont )
472 '/// Goto tab page Area
473 Kontext
474 Active.SetPage TabArea
475 '/// Check if tab page Area exists
476 Kontext "TabArea"
477 call DialogTest ( TabArea )
478 '/// Close dialog
479 TabArea.Cancel
480 '/// Close document
481 Call hCloseDocument
482 endcase
483 '
484 '-------------------------------------------------------------------------------
485 '
486 testcase tFormatTitleYAxistitle
487 '///<u><b>Dialog test after invoking Format::Title::Y Axis Title</b></u>
488 '/// Load simple chart document
489 if fLoadVerySimpleChartAndSaveLocal() > 0 then
490 warnlog "Loading test document seems to have failed -> Check this out!"
491 goto endsub
492 endif
493 '/// Select chart using navigator
494 call fSelectFirstOLE
495 '/// Edit / Object / Edit
496 EditObjectEdit
497 sleep(1)
498 '/// Insert / Title
499 if fInvokeTitlesDialog() > 0 then
500 warnlog "Something went wrong trying to invoke the Title dialog -> Check this out! (Previous log may help you)"
501 Call hCloseDocument
502 goto endsub
503 endif
504 Kontext "InsertTitleDialog"
505 '/// Set Y Axis Title
506 if fSetTitle( TitleYaxis , "Custom Y Axis Title" ) > 0 then
507 warnlog "Something went wrong setting the Y Axis Title -> Check this out! (Previous log may help you)"
508 Call hCloseDocument
509 goto endsub
510 endif
511 '/// Close Title dialog
512 if fCloseTitlesDialogOK() > 0 then
513 warnlog "Something went wrong trying to close the Title dialog -> Check this out! (Previous log may help you)"
514 Call hCloseDocument
515 goto endsub
516 endif
517 '/// Format / Chart Type
518 if fInvokeChartTypeDialog() > 0 then
519 warnlog "Something went wrong trying to invoke the Chart Types dialog -> Check this out! (Previous log may help you)"
520 Call hCloseDocument
521 goto endsub
522 endif
523 '/// Change Chart type to STOCK
524 if fSetChartType( "stock" ) > 0 then
525 warnlog "Something went wrong setting chart type to STOCK -> Check this out! (Previous log may help you)"
526 Call hCloseDocument
527 goto endsub
528 endif
529 '/// Close Chart Type dialog
530 if fCloseChartTypeDialogOK() > 0 then
531 warnlog "Something went wrong trying to close the Chart Type dialog -> Check this out! (Previous log may help you)"
532 Call hCloseDocument
533 goto endsub
534 endif
535 '/// Format / Title / Y Axis Title
536 FormatTitleY_Axis
537 '/// Goto tab page Transparency
538 Kontext
539 Active.SetPage TabTransparency
540 '/// Check if tab page Transparency exists
541 Kontext "TabTransparency"
542 call DialogTest ( TabTransparency )
543 '/// Goto tab page Alignment
544 Kontext
545 Active.SetPage TabFormatChartTitleAlignment
546 '/// Check if tab page Alignment exists
547 Kontext "TabFormatChartTitleAlignment"
548 call DialogTest ( TabFormatChartTitleAlignment )
549 '/// Goto tab page Area
550 Kontext
551 Active.SetPage TabArea
552 '/// Check if tab page Area exists
553 Kontext "TabArea"
554 call DialogTest ( TabArea )
555 '/// Goto tab page Font Effects
556 Kontext
557 Active.SetPage TabFontEffects
558 '/// Check if tab page Font Effects exists
559 Kontext "TabFontEffects"
560 call DialogTest ( TabFontEffects )
561 '/// Goto tab page Borders
562 Kontext
563 Active.SetPage TabFormatChartBorders
564 '/// Check if tab page Borders exists
565 Kontext "TabFormatChartBorders"
566 call DialogTest ( TabFormatChartBorders )
567 '/// Goto tab page Characters
568 Kontext
569 Active.SetPage TabFont
570 '/// Check if tab page Characters exists
571 Kontext "TabFont"
572 call DialogTest ( TabFont )
573 '/// Close dialog
574 TabFont.Cancel
575 '/// Close document
576 Call hCloseDocument
577 endcase
578 '
579 '-------------------------------------------------------------------------------
580 '
581 testcase tFormatTitleZAxistitle
582 '///<u><b>Dialog test after invoking Format::Title::Z Axis Title</b></u>
583 '/// Load simple chart document
584 if fLoadVerySimpleChartAndSaveLocal() > 0 then
585 warnlog "Loading test document seems to have failed -> Check this out!"
586 goto endsub
587 endif
588 '/// Select chart using navigator
589 call fSelectFirstOLE
590 '/// Edit / Object / Edit
591 EditObjectEdit
592 sleep(1)
593 '/// Convert chart to 3D (this will enable all controls in Title dialog)
594 if NOT fConvertChartTo3D() then
595 warnlog "Conversion of chart to 3D failed -> Quit testcase"
596 Call hCloseDocument
597 goto endsub
598 endif
599 '/// Insert / Title
600 if fInvokeTitlesDialog() > 0 then
601 warnlog "Something went wrong trying to invoke the Title dialog -> Check this out! (Previous log may help you)"
602 Call hCloseDocument
603 goto endsub
604 endif
605 Kontext "InsertTitleDialog"
606 '/// Set Z Axis Title
607 if fSetTitle( TitleZaxis , "Custom Z Axis Title" ) > 0 then
608 warnlog "Something went wrong setting the Z Axis Title -> Check this out! (Previous log may help you)"
609 Call hCloseDocument
610 goto endsub
611 endif
612 '/// Close Title dialog
613 if fCloseTitlesDialogOK() > 0 then
614 warnlog "Something went wrong trying to close the Title dialog -> Check this out! (Previous log may help you)"
615 Call hCloseDocument
616 goto endsub
617 endif
618 '/// Format / Chart Type
619 if fInvokeChartTypeDialog() > 0 then
620 warnlog "Something went wrong trying to invoke the Chart Types dialog -> Check this out! (Previous log may help you)"
621 Call hCloseDocument
622 goto endsub
623 endif
624 '/// Change Chart type to BAR
625 if fSetChartType( "bar" ) > 0 then
626 warnlog "Something went wrong setting chart type to BAR -> Check this out! (Previous log may help you)"
627 Call hCloseDocument
628 goto endsub
629 endif
630 '/// Close Chart Type dialog
631 if fCloseChartTypeDialogOK() > 0 then
632 warnlog "Something went wrong trying to close the Chart Type dialog -> Check this out! (Previous log may help you)"
633 Call hCloseDocument
634 goto endsub
635 endif
636 '/// Invoke Format::Title::Z Axis Title
637 FormatTitleZ_Axis
638 '/// Goto tab page Alignment
639 Kontext
640 Active.SetPage TabFormatChartTitleAlignment
641 '/// Check if tab page Alignment exists
642 Kontext "TabFormatChartTitleAlignment"
643 call DialogTest ( TabFormatChartTitleAlignment )
644 '/// Goto tab page Transparency
645 Kontext
646 Active.SetPage TabTransparency
647 '/// Check if tab page Transparency exists
648 Kontext "TabTransparency"
649 call DialogTest ( TabTransparency )
650 '/// Goto tab page Font Effects
651 Kontext
652 Active.SetPage TabFontEffects
653 '/// Check if tab page Font Effects exists
654 Kontext "TabFontEffects"
655 call DialogTest ( TabFontEffects )
656 '/// Goto tab page Area
657 Kontext
658 Active.SetPage TabArea
659 '/// Check if tab page Area exists
660 Kontext "TabArea"
661 call DialogTest ( TabArea )
662 '/// Goto tab page Characters
663 Kontext
664 Active.SetPage TabFont
665 '/// Check if tab page Characters exists
666 Kontext "TabFont"
667 call DialogTest ( TabFont )
668 '/// Goto tab page Borders
669 Kontext
670 Active.SetPage TabFormatChartBorders
671 '/// Check if tab page Borders exists
672 Kontext "TabFormatChartBorders"
673 call DialogTest ( TabFormatChartBorders )
674 '/// Close dialog
675 TabFormatChartBorders.Cancel
676 '/// Close document
677 Call hCloseDocument
678 endcase
679 '
680 '-------------------------------------------------------------------------------
681 '
682 testcase tFormatTitleAllTitles
683 '///<u><b>Dialog test after invoking Format::Title::All Titles</b></u>
684 '/// Load simple chart document
685 if fLoadVerySimpleChartAndSaveLocal() > 0 then
686 warnlog "Loading test document seems to have failed -> Check this out!"
687 goto endsub
688 endif
689 '/// Select chart using navigator
690 call fSelectFirstOLE
691 '/// Edit / Object / Edit
692 EditObjectEdit
693 sleep(1)
694 '/// Convert chart to 3D (this will enable all controls in Title dialog)
695 if NOT fConvertChartTo3D() then
696 warnlog "Conversion of chart to 3D failed -> Quit testcase"
697 Call hCloseDocument
698 goto endsub
699 endif
700 '/// Insert / Title
701 if fInvokeTitlesDialog() > 0 then
702 warnlog "Something went wrong trying to invoke the Title dialog -> Check this out! (Previous log may help you)"
703 Call hCloseDocument
704 goto endsub
705 endif
706 Kontext "InsertTitleDialog"
707 '/// Set All Axis Title
708 if fSetTitle( SubTitle , "Custom Subtitle" ) > 0 then
709 warnlog "Something went wrong setting the subtitle -> Check this out! (Previous log may help you)"
710 Call hCloseDocument
711 goto endsub
712 endif
713 if fSetTitle( TitleXaxis , "Custom X Axis Title" ) > 0 then
714 warnlog "Something went wrong setting the X Axis Title -> Check this out! (Previous log may help you)"
715 Call hCloseDocument
716 goto endsub
717 endif
718 if fSetTitle( TitleYaxis , "Custom Y Axis Title" ) > 0 then
719 warnlog "Something went wrong setting the Y Axis Title -> Check this out! (Previous log may help you)"
720 Call hCloseDocument
721 goto endsub
722 endif
723 if fSetTitle( TitleZaxis , "Custom Z Axis Title" ) > 0 then
724 warnlog "Something went wrong setting the Y Axis Title -> Check this out! (Previous log may help you)"
725 Call hCloseDocument
726 goto endsub
727 endif
728 '/// Close Title dialog
729 if fCloseTitlesDialogOK() > 0 then
730 warnlog "Something went wrong trying to close the Title dialog -> Check this out! (Previous log may help you)"
731 Call hCloseDocument
732 goto endsub
733 endif
734 '/// Format / Chart Type
735 if fInvokeChartTypeDialog() > 0 then
736 warnlog "Something went wrong trying to invoke the Chart Types dialog -> Check this out! (Previous log may help you)"
737 Call hCloseDocument
738 goto endsub
739 endif
740 '/// Change Chart type to AREA
741 if fSetChartType( "area" ) > 0 then
742 warnlog "Something went wrong setting chart type to AREA -> Check this out! (Previous log may help you)"
743 Call hCloseDocument
744 goto endsub
745 endif
746 '/// Close Chart Type dialog
747 if fCloseChartTypeDialogOK() > 0 then
748 warnlog "Something went wrong trying to close the Chart Type dialog -> Check this out! (Previous log may help you)"
749 Call hCloseDocument
750 goto endsub
751 endif
752 '/// Format / Title / All Titles
753 FormatTitleAllTitles
754 '/// Goto tab page Characters
755 Kontext
756 Active.SetPage TabFont
757 '/// Check if tab page Characters exists
758 Kontext "TabFont"
759 call DialogTest ( TabFont )
760 '/// Goto tab page Alignment
761 Kontext
762 Active.SetPage TabFormatChartTitleAlignment
763 '/// Check if tab page Alignment exists
764 Kontext "TabFormatChartTitleAlignment"
765 call DialogTest ( TabFormatChartTitleAlignment )
766 '/// Goto tab page Font Effects
767 Kontext
768 Active.SetPage TabFontEffects
769 '/// Check if tab page Font Effects exists
770 Kontext "TabFontEffects"
771 call DialogTest ( TabFontEffects )
772 '/// Goto tab page Area
773 Kontext
774 Active.SetPage TabArea
775 '/// Check if tab page Area exists
776 Kontext "TabArea"
777 call DialogTest ( TabArea )
778 '/// Goto tab page Borders
779 Kontext
780 Active.SetPage TabFormatChartBorders
781 '/// Check if tab page Borders exists
782 Kontext "TabFormatChartBorders"
783 call DialogTest ( TabFormatChartBorders )
784 '/// Goto tab page Transparency
785 Kontext
786 Active.SetPage TabTransparency
787 '/// Check if tab page Transparency exists
788 Kontext "TabTransparency"
789 call DialogTest ( TabTransparency )
790 '/// Close dialog
791 TabTransparency.Cancel
792 '/// Close document
793 Kontext "DocumentCalc"
794 DocumentCalc.TypeKeys "<Escape>"
795 Call hCloseDocument
796 endcase
797 '
798 '-------------------------------------------------------------------------------
799 '
800 testcase tFormatAxisXAxis
801 Dim iCountTabPg as integer
802 iCountTabPg = 0
804 printlog "Load simple chart document"
805 if fLoadVerySimpleChartAndSaveLocal() > 0 then
806 warnlog "Loading test document seems to have failed -> Check this out!"
807 goto endsub
808 endif
809 printlog "Select chart using navigator"
810 call fSelectFirstOLE
811 printlog "Edit / Object / Edit"
812 EditObjectEdit
813 sleep(1)
814 printlog "Format / Chart Type"
815 if fInvokeChartTypeDialog() > 0 then
816 warnlog "Something went wrong trying to invoke the Chart Types dialog -> Check this out! (Previous log may help you)"
817 Call hCloseDocument
818 goto endsub
819 endif
820 printlog "Change Chart type to XY (to obtain more tabpages)"
821 if fSetChartType( "xy" ) > 0 then
822 warnlog "Something went wrong setting chart type to XY -> Check this out! (Previous log may help you)"
823 Call hCloseDocument
824 goto endsub
825 endif
826 printlog "Close Chart Type dialog"
827 if fCloseChartTypeDialogOK() > 0 then
828 warnlog "Something went wrong trying to close the Chart Type dialog -> Check this out! (Previous log may help you)"
829 Call hCloseDocument
830 goto endsub
831 endif
832 printlog "Invoke Format::Axis::X Axis"
833 FormatAxisXAxis
834 printlog "Goto tab page Line"
835 Kontext
836 iCountTabPg = Active.GetPageCount
837 if iCountTabPg <> 7 then
838 warnlog "Format::Axis::XAxis should have 7 tab pages but has " & iCountTabPg & "."
839 else
840 printlog "Format::Axis::XAxis has 7 tab pages."
841 endif
842 Active.SetPage TabFormatChartLine
843 printlog "Check if tab page Line exists"
844 Kontext "TabFormatChartLine"
845 call DialogTest ( TabFormatChartLine )
846 printlog "Goto tab page Characters"
847 Kontext
848 Active.SetPage TabFont
849 printlog "Check if tab page Characters exists"
850 Kontext "TabFont"
851 call DialogTest ( TabFont )
852 printlog "Goto tab page Font Effects"
853 Kontext
854 Active.SetPage TabFontEffects
855 printlog "Check if tab page Font Effects exists"
856 Kontext "TabFontEffects"
857 call DialogTest ( TabFontEffects )
858 printlog "Goto tab page Label"
859 Kontext
860 Active.SetPage TabChartAxisLabel
861 printlog "Check if tab page Label exists"
862 Kontext "TabChartAxisLabel"
863 call DialogTest ( TabChartAxisLabel )
864 printlog "Goto tab page Scale"
865 Kontext
866 Active.SetPage TabChartAxisScale
867 printlog "Check if tab page Scale exists"
868 Kontext "TabChartAxisScale"
869 call DialogTest ( TabChartAxisScale )
870 Kontext
871 Active.SetPage TabChartAxisPositioning
872 printlog "Check if tab page Positiong exists"
873 Kontext "TabChartAxisPositioning"
874 call DialogTest ( TabChartAxisPositioning )
875 printlog "Goto tab page Numbers"
876 Kontext
877 Active.SetPage TabChartAxisNumbers
878 printlog "Check if tab page Numbers exists"
879 Kontext "TabChartAxisNumbers"
880 call DialogTest ( TabChartAxisNumbers )
881 printlog "Close dialog with cancel"
882 TabChartAxisNumbers.Cancel
883 printlog "File / Close"
884 Call hCloseDocument
885 endcase
886 '
887 '-------------------------------------------------------------
888 '
889 testcase tFormatAxisYAxis
890 Dim iCountTabPg as integer
891 Dim iCrossingEntries as integer
892 Dim iCategoryEntries as integer
893 Dim iPlaceLabels as integer
894 Dim iPlaceMarks as integer
896 iCountTabPg = 0
897 iCrossingEntries = 0
898 iCategoryEntries = 0
899 iPlaceLabels = 0
900 iPlaceMarks = 0
902 printlog "Load simple chart document"
903 if fLoadVerySimpleChartAndSaveLocal() > 0 then
904 warnlog "Loading test document seems to have failed -> Check this out!"
905 goto endsub
906 endif
907 printlog "Select chart using navigator"
908 call fSelectFirstOLE
909 printlog "Edit / Object / Edit"
910 EditObjectEdit
911 sleep(1)
912 printlog "Format / Chart Type"
913 if fInvokeChartTypeDialog() > 0 then
914 warnlog "Something went wrong trying to invoke the Chart Types dialog -> Check this out! (Previous log may help you)"
915 Call hCloseDocument
916 goto endsub
917 endif
918 printlog "Change Chart type to BAR (to obtain more tabpages)"
919 if fSetChartType( "bar" ) > 0 then
920 warnlog "Something went wrong setting chart type to BAR -> Check this out! (Previous log may help you)"
921 Call hCloseDocument
922 goto endsub
923 endif
924 printlog "Close Chart Type dialog"
925 if fCloseChartTypeDialogOK() > 0 then
926 warnlog "Something went wrong trying to close the Chart Type dialog -> Check this out! (Previous log may help you)"
927 Call hCloseDocument
928 goto endsub
929 endif
930 printlog "Invoke Format::Axis::Y Axis"
931 FormatAxisYAxis
932 Kontext
933 iCountTabPg = Active.GetPageCount
934 if iCountTabPg <> 7 then
935 warnlog "Format::Axis::YAxis should have 7 tab pages but has " & iCountTabPg & "."
936 else
937 printlog "Format::Axis::YAxis has 7 tab pages."
938 endif
939 printlog "Goto tab page Characters"
940 Active.SetPage TabFont
941 printlog "Check if tab page Characters exists"
942 Kontext "TabFont"
943 call DialogTest ( TabFont )
944 printlog "Goto tab page Line"
945 Kontext
946 Active.SetPage TabFormatChartLine
947 printlog "Check if tab page Line exists"
948 Kontext "TabFormatChartLine"
949 call DialogTest ( TabFormatChartLine )
950 printlog "Goto tab page Label"
951 Kontext
952 Active.SetPage TabChartAxisLabel
953 printlog "Check if tab page Label exists"
954 Kontext "TabChartAxisLabel"
955 call DialogTest ( TabChartAxisLabel )
956 printlog "Goto tab page Font Effects"
957 Kontext
958 Active.SetPage TabFontEffects
959 printlog "Check if tab page Font Effects exists"
960 Kontext "TabFontEffects"
961 call DialogTest ( TabFontEffects )
962 printlog "Goto tab page Numbers"
963 Kontext
964 Active.SetPage TabChartAxisNumbers
965 printlog "Check if tab page Numbers exists"
966 Kontext "TabChartAxisNumbers"
967 call DialogTest ( TabChartAxisNumbers )
968 printlog "Goto tab page Scale"
969 Kontext
970 Active.SetPage TabChartAxisScale
971 printlog "Check if tab page Scale exists"
972 Kontext "TabChartAxisScale"
973 call DialogTest ( TabChartAxisScale )
974 printlog "Goto tab page Positioning"
975 Kontext
976 Active.SetPage TabChartAxisPositioning
977 printlog "Check if tab page Positioning exists"
978 Kontext "TabChartAxisPositioning"
979 call DialogTest ( TabChartAxisPositioning )
980 iCrossingEntries = CrossOtherAxisAt.GetItemCount
981 if iCrossingEntries <> 3 then
982 warnlog "'Cross other axis at'-listbox sould have three entries but has " & iCrossingEntries & "."
983 else
984 printlog "'Cross other axis at'-listbox has three entries."
985 endif
986 printlog "Check that the first entry in 'Cross other axis at'-listbox is selected."
987 if CrossOtherAxisAt.GetSelIndex <> 1 OR AxisAtCategory.IsVisible then
988 warnlog "The first entry in 'Cross other axis at'-listbox should be selected and the 'Category'-combobox should not be visible."
989 else
990 printlog "Select the third entry (Category) in 'Cross other axis at'-listbox"
991 CrossOtherAxisAt.Select(3)
992 if AxisAtCategory.IsVisible then
993 printlog "The 'Category'-combobox is visible."
994 iCategoryEntries = AxisAtCategory.GetItemCount
995 if iCategoryEntries = 2 then
996 printlog "The 'Category'-combobox should have two entries."
997 else
998 warnlog "The 'Category'-combobox should have two entries but has " & iCategoryEntries & "."
999 endif
1000 endif
1001 endif
1002 iPlaceLabels = PlaceLabels.GetItemCount
1003 if iPlaceLabels <> 4 then
1004 warnlog "'Place labels'-listbox should have four entries but has " & iPlaceLabels & "."
1005 else
1006 printlog "'Place labels'-listbox has four entries."
1007 if PlaceMarks.IsEnabled then
1008 warnlog "'Place marks'-listbox should only enabled if 'Place labels'-listbox has been set to 4th entry."
1009 else
1010 printlog "Select fourth entry in 'Place labels'-listbox."
1011 PlaceLabels.Select(4)
1012 if PlaceMarks.IsEnabled then
1013 printlog "'Place marks'-listbox is enabled if fourth entry of 'Place labels'-listbox has been selected."
1014 iPlaceMarks = PlaceMarks.GetItemCount
1015 if iPlaceMarks = 3 then
1016 printlog "'Place marks'-listbox has three entries."
1017 else
1018 warnlog "'Place marks'-listbox has not three entries. It has " & iPlaceMarks & " entries."
1019 endif
1020 else
1021 warnlog "'Place marks'-listbox is not enabled if fourth entry of 'Place labels'-listbox has been selected."
1022 endif
1023 endif
1024 endif
1025 Kontext "TabChartAxisPositioning"
1026 printlog "Leave dialog with Cancel."
1027 TabChartAxisPositioning.Cancel
1028 printlog "File / Close"
1029 Call hCloseDocument
1030 endcase
1031 '
1032 '-------------------------------------------------------------
1033 '
1034 testcase tFormatAxisZAxis
1035 '///<u><b>Dialog test after invoking Format::Axis::Z Axis</b></u>
1038 '/// Load simple chart document
1039 if fLoadVerySimpleChartAndSaveLocal() > 0 then
1040 warnlog "Loading test document seems to have failed -> Check this out!"
1041 goto endsub
1042 endif
1043 '/// Select chart using navigator
1044 call fSelectFirstOLE
1045 '/// Edit / Object / Edit
1046 EditObjectEdit
1047 sleep(1)
1048 '/// Format / Chart Type
1049 if fInvokeChartTypeDialog() > 0 then
1050 warnlog "Something went wrong trying to invoke the Chart Types dialog -> Check this out! (Previous log may help you)"
1051 Call hCloseDocument
1052 goto endsub
1053 endif
1054 '/// Change Chart type to AREA (to obtain more tabpages)
1055 if fSetChartType( "area" ) > 0 then
1056 warnlog "Something went wrong setting chart type to AREA -> Check this out! (Previous log may help you)"
1057 Call hCloseDocument
1058 goto endsub
1059 endif
1060 '/// Close Chart Type dialog
1061 if fCloseChartTypeDialogOK() > 0 then
1062 warnlog "Something went wrong trying to close the Chart Type dialog -> Check this out! (Previous log may help you)"
1063 Call hCloseDocument
1064 goto endsub
1065 endif
1066 '/// Convert chart to 3D (this will enable the Z Axis)
1067 if NOT fConvertChartTo3D() then
1068 warnlog "Conversion of chart to 3D failed -> Quit testcase"
1069 Call hCloseDocument
1070 goto endsub
1071 endif
1073 '/// Invoke Format::Axis::Z Axis
1074 FormatAxisZAxis
1075 '/// Goto tab page Font Effects
1076 Kontext
1077 Active.SetPage TabFontEffects
1078 '/// Check if tab page Font Effects exists
1079 Kontext "TabFontEffects"
1080 call DialogTest ( TabFontEffects )
1082 '/// Goto tab page Characters
1083 Kontext
1084 Active.SetPage TabFont
1085 '/// Check if tab page Characters exists
1086 Kontext "TabFont"
1087 call DialogTest ( TabFont )
1089 '/// Goto tab page Label
1090 Kontext
1091 Active.SetPage TabChartAxisLabel
1092 '/// Check if tab page Label exists
1093 Kontext "TabChartAxisLabel"
1094 call DialogTest ( TabChartAxisLabel )
1096 '/// Goto tab page Line
1097 Kontext
1098 Active.SetPage TabFormatChartLine
1099 '/// Check if tab page Line exists
1100 Kontext "TabFormatChartLine"
1101 call DialogTest ( TabFormatChartLine )
1103 '/// Close dialog
1104 TabFormatChartLine.Cancel
1105 '/// Close document
1106 Kontext "DocumentCalc"
1107 DocumentCalc.TypeKeys "<Escape>"
1108 Call hCloseDocument
1111 endcase
1112 '
1113 '-------------------------------------------------------------
1114 '
1115 testcase tFormatAxisSecondaryXAxis
1116 Dim iCountTabPg as integer
1117 iCountTabPg = 0
1119 printlog "Load simple chart document"
1120 if fLoadVerySimpleChartAndSaveLocal() > 0 then
1121 warnlog "Loading test document seems to have failed -> Check this out!"
1122 goto endsub
1123 endif
1124 printlog "Select chart using navigator"
1125 call fSelectFirstOLE
1126 printlog "Edit / Object / Edit"
1127 EditObjectEdit
1128 sleep(1)
1129 printlog "Format / Chart Type"
1130 if fInvokeChartTypeDialog() > 0 then
1131 warnlog "Something went wrong trying to invoke the Chart Types dialog -> Check this out! (Previous log may help you)"
1132 Call hCloseDocument
1133 goto endsub
1134 endif
1135 printlog "Change Chart type to XY (to obtain more tabpages)"
1136 if fSetChartType( "xy" ) > 0 then
1137 warnlog "Something went wrong setting chart type to XY -> Check this out! (Previous log may help you)"
1138 Call hCloseDocument
1139 goto endsub
1140 endif
1141 printlog "Close Chart Type dialog"
1142 if fCloseChartTypeDialogOK() > 0 then
1143 warnlog "Something went wrong trying to close the Chart Type dialog -> Check this out! (Previous log may help you)"
1144 Call hCloseDocument
1145 goto endsub
1146 endif
1147 printlog "Invoke Insert::Axes"
1148 if fInvokeAxesDialog() > 0 then
1149 warnlog "Something went wrong trying to invoke the Axes dialog -> Check this out! (Previous log may help you)"
1150 Call hCloseDocument
1151 goto endsub
1152 endif
1153 Kontext "InsertAxesDialog"
1154 printlog "Check Secondary X Axis Title"
1155 if fSetAxis( SecondaryXAxis , TRUE ) > 0 then
1156 warnlog "Something went wrong enabling the Secondary X Axis -> Check this out! (Previous log may help you)"
1157 Call hCloseDocument
1158 goto endsub
1159 endif
1160 printlog "Close Axes dialog"
1161 if fCloseAxesDialogOK() > 0 then
1162 warnlog "Something went wrong trying to close the Axes dialog -> Check this out! (Previous log may help you)"
1163 Call hCloseDocument
1164 goto endsub
1165 endif
1166 printlog "Invoke Format::Axis::Secondary X Axis"
1167 FormatAxisSecondaryXAxis
1168 printlog "Goto tab page Line"
1169 Kontext
1170 iCountTabPg = Active.GetPageCount
1171 if iCountTabPg <> 7 then
1172 warnlog "Format::Axis::XAxis should have 7 tab pages but has " & iCountTabPg & "."
1173 else
1174 printlog "Format::Axis::XAxis has 7 tab pages."
1175 endif
1176 Active.SetPage TabFormatChartLine
1177 printlog "Check if tab page Line exists"
1178 Kontext "TabFormatChartLine"
1179 call DialogTest ( TabFormatChartLine )
1180 printlog "Goto tab page Characters"
1181 Kontext
1182 Active.SetPage TabFont
1183 printlog "Check if tab page Characters exists"
1184 Kontext "TabFont"
1185 call DialogTest ( TabFont )
1186 printlog "Goto tab page Font Effects"
1187 Kontext
1188 Active.SetPage TabFontEffects
1189 printlog "Check if tab page Font Effects exists"
1190 Kontext "TabFontEffects"
1191 call DialogTest ( TabFontEffects )
1192 printlog "Goto tab page Label"
1193 Kontext
1194 Active.SetPage TabChartAxisLabel
1195 printlog "Check if tab page Label exists"
1196 Kontext "TabChartAxisLabel"
1197 call DialogTest ( TabChartAxisLabel )
1198 printlog "Goto tab page Scale"
1199 Kontext
1200 Active.SetPage TabChartAxisScale
1201 printlog "Check if tab page Scale exists"
1202 Kontext "TabChartAxisScale"
1203 call DialogTest ( TabChartAxisScale )
1204 Kontext
1205 Active.SetPage TabChartAxisPositioning
1206 printlog "Check if tab page Positiong exists"
1207 Kontext "TabChartAxisPositioning"
1208 call DialogTest ( TabChartAxisPositioning )
1209 printlog "Goto tab page Numbers"
1210 Kontext
1211 Active.SetPage TabChartAxisNumbers
1212 printlog "Check if tab page Numbers exists"
1213 Kontext "TabChartAxisNumbers"
1214 call DialogTest ( TabChartAxisNumbers )
1215 printlog "Close dialog with cancel"
1216 TabChartAxisNumbers.Cancel
1217 printlog "File / Close"
1218 Call hCloseDocument
1219 endcase
1220 '
1221 '-------------------------------------------------------------
1222 '
1223 testcase tFormatAxisSecondaryYAxis
1224 Dim iCountTabPg as integer
1225 iCountTabPg = 0
1227 printlog "Load simple chart document"
1228 if fLoadVerySimpleChartAndSaveLocal() > 0 then
1229 warnlog "Loading test document seems to have failed -> Check this out!"
1230 goto endsub
1231 endif
1232 printlog "Select chart using navigator"
1233 call fSelectFirstOLE
1234 printlog "Edit / Object / Edit"
1235 EditObjectEdit
1236 sleep(1)
1237 printlog "Invoke Insert::Axes"
1238 if fInvokeAxesDialog() > 0 then
1239 warnlog "Something went wrong trying to invoke the Axes dialog -> Check this out! (Previous log may help you)"
1240 Call hCloseDocument
1241 goto endsub
1242 endif
1243 Kontext "InsertAxesDialog"
1244 printlog "Check Secondary Y Axis"
1245 if fSetAxis( SecondaryYAxis , TRUE ) > 0 then
1246 warnlog "Something went wrong enabling the Secondary Y Axis -> Check this out! (Previous log may help you)"
1247 Call hCloseDocument
1248 goto endsub
1249 endif
1250 printlog "Leave Axes dialog with OK"
1251 if fCloseAxesDialogOK() > 0 then
1252 warnlog "Something went wrong trying to close the Axes dialog -> Check this out! (Previous log may help you)"
1253 Call hCloseDocument
1254 goto endsub
1255 endif
1256 printlog "Invoke Format::Axis::Secondary Y Axis"
1257 FormatAxisSecondaryYAxis
1258 printlog "Goto tab page Line"
1259 Kontext
1260 iCountTabPg = Active.GetPageCount
1261 if iCountTabPg <> 7 then
1262 warnlog "Format::Axis::XAxis should have 7 tab pages but has " & iCountTabPg & "."
1263 else
1264 printlog "Format::Axis::XAxis has 7 tab pages."
1265 endif
1266 Active.SetPage TabFormatChartLine
1267 printlog "Check if tab page Line exists"
1268 Kontext "TabFormatChartLine"
1269 call DialogTest ( TabFormatChartLine )
1270 printlog "Goto tab page Characters"
1271 Kontext
1272 Active.SetPage TabFont
1273 printlog "Check if tab page Characters exists"
1274 Kontext "TabFont"
1275 call DialogTest ( TabFont )
1276 printlog "Goto tab page Font Effects"
1277 Kontext
1278 Active.SetPage TabFontEffects
1279 printlog "Check if tab page Font Effects exists"
1280 Kontext "TabFontEffects"
1281 call DialogTest ( TabFontEffects )
1282 printlog "Goto tab page Label"
1283 Kontext
1284 Active.SetPage TabChartAxisLabel
1285 printlog "Check if tab page Label exists"
1286 Kontext "TabChartAxisLabel"
1287 call DialogTest ( TabChartAxisLabel )
1288 printlog "Goto tab page Scale"
1289 Kontext
1290 Active.SetPage TabChartAxisScale
1291 printlog "Check if tab page Scale exists"
1292 Kontext "TabChartAxisScale"
1293 call DialogTest ( TabChartAxisScale )
1294 Kontext
1295 Active.SetPage TabChartAxisPositioning
1296 printlog "Check if tab page Positiong exists"
1297 Kontext "TabChartAxisPositioning"
1298 call DialogTest ( TabChartAxisPositioning )
1299 printlog "Goto tab page Numbers"
1300 Kontext
1301 Active.SetPage TabChartAxisNumbers
1302 printlog "Check if tab page Numbers exists"
1303 Kontext "TabChartAxisNumbers"
1304 call DialogTest ( TabChartAxisNumbers )
1305 printlog "Close dialog with cancel"
1306 TabChartAxisNumbers.Cancel
1307 printlog "File / Close"
1308 Call hCloseDocument
1309 endcase
1311 '-------------------------------------------------------------
1312 testcase tFormatAxisAllAxes
1313 '///<u><b>Dialog test after invoking Format::Axis::All Axes</b></u>
1316 '/// Load simple chart document
1317 if fLoadVerySimpleChartAndSaveLocal() > 0 then
1318 warnlog "Loading test document seems to have failed -> Check this out!"
1319 goto endsub
1320 endif
1321 '/// Select chart using navigator
1322 call fSelectFirstOLE
1323 '/// Edit / Object / Edit
1324 EditObjectEdit
1325 sleep(1)
1326 '/// Format / Chart Type
1327 if fInvokeChartTypeDialog() > 0 then
1328 warnlog "Something went wrong trying to invoke the Chart Types dialog -> Check this out! (Previous log may help you)"
1329 Call hCloseDocument
1330 goto endsub
1331 endif
1332 '/// Change Chart type to NET
1333 if fSetChartType( "net" ) > 0 then
1334 warnlog "Something went wrong setting chart type to NET -> Check this out! (Previous log may help you)"
1335 Call hCloseDocument
1336 goto endsub
1337 endif
1338 '/// Close Chart Type dialog
1339 if fCloseChartTypeDialogOK() > 0 then
1340 warnlog "Something went wrong trying to close the Chart Type dialog -> Check this out! (Previous log may help you)"
1341 Call hCloseDocument
1342 goto endsub
1343 endif
1344 '/// Invoke Format::Axis::All Axes
1345 FormatAxisAllAxes
1346 '/// Goto tab page Characters
1347 Kontext
1348 Active.SetPage TabFont
1349 '/// Check if tab page Characters exists
1350 Kontext "TabFont"
1351 call DialogTest ( TabFont )
1353 '/// Goto tab page Font Effects
1354 Kontext
1355 Active.SetPage TabFontEffects
1356 '/// Check if tab page Font Effects exists
1357 Kontext "TabFontEffects"
1358 call DialogTest ( TabFontEffects )
1360 '/// Goto tab page Line
1361 Kontext
1362 Active.SetPage TabFormatChartLine
1363 '/// Check if tab page Line exists
1364 Kontext "TabFormatChartLine"
1365 call DialogTest ( TabFormatChartLine )
1367 '/// Goto tab page Label
1368 Kontext
1369 Active.SetPage TabChartAxisLabel
1370 '/// Check if tab page Label exists
1371 Kontext "TabChartAxisLabel"
1372 call DialogTest ( TabChartAxisLabel )
1374 '/// Close dialog
1375 TabChartAxisLabel.Cancel
1376 '/// Close document
1377 Kontext "DocumentCalc"
1378 DocumentCalc.TypeKeys "<Escape>"
1379 Call hCloseDocument
1382 endcase