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