testautomation/chart2/required/includes/ch2_format1.inc

   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 2000, 2010 Oracle and/or its affiliates.
   6 '
   7 ' OpenOffice.org - a multi-platform office productivity suite
   8 '
   9 ' This file is part of OpenOffice.org.
  10 '
  11 ' OpenOffice.org is free software: you can redistribute it and/or modify
  12 ' it under the terms of the GNU Lesser General Public License version 3
  13 ' only, as published by the Free Software Foundation.
  14 '
  15 ' OpenOffice.org is distributed in the hope that it will be useful,
  16 ' but WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18 ' GNU Lesser General Public License version 3 for more details
  19 ' (a copy is included in the LICENSE file that accompanied this code).
  20 '
  21 ' You should have received a copy of the GNU Lesser General Public License
  22 ' version 3 along with OpenOffice.org.  If not, see
  23 ' <http://www.openoffice.org/license.html>
  24 ' for a copy of the LGPLv3 License.
  25 '
  26 '/************************************************************************
  27 '*
  28 '* owner : oliver.craemer@oracle.com
  29 '*
  30 '* short description : Continue Chart resource test - Menu FORMAT
  31 '*
  32 '************************************************************************
  33 '*
  34 ' #1 tFormatXAxisMainGrid
  35 ' #1 tFormatYAxisMainGrid
  36 ' #1 tFormatZAxisMainGrid
  37 ' #1 tFormatXAxisMinorGrid
  38 ' #1 tFormatYAxisMinorGrid
  39 ' #1 tFormatZAxisMinorGrid
  40 ' #1 tFormatAllAxesGrids
  41 ' #1 tFormatLegend
  42 ' #1 tFormatChartWall
  43 ' #1 tFormatChartFloor
  44 ' #1 tFormatChartArea
  45 ' #1 tFormatChartType
  46 ' #1 tFormatDataRanges
  47 ' #1 tFormat3DView
  48 '*
  49 '\************************************************************************
  50
  51 testcase tFormatXAxisMainGrid
  52 '///<u><b>Dialog test after invoking Format::Grid::X Axis Main Grid</b></u>
  53
  54 '///<ul>
  55    '///+<li>Load simple chart document</li>
  56    if fLoadVerySimpleChartAndSaveLocal() > 0 then
  57        warnlog "Loading test document seems to have failed -> Check this out!"
  58        goto endsub
  59    endif
  60    '///+<li>Select chart using navigator</li>
  61    call fSelectFirstOLE
  62    '///+<li>Invoke Edit::Object::Edit to enter Inplace Mode</li>
  63    EditObjectEdit
  64    sleep(1)
  65    '///+<li>Invoke Format::Chart Type</li>
  66    if fInvokeChartTypeDialog() > 0 then
  67        warnlog "Something went wrong trying to invoke the Chart Types dialog -> Check this out! (Previous log may help you)"
  68        Call hCloseDocument
  69        goto endsub
  70    endif
  71    '///+<li>Change Chart type to STOCK</li>
  72    if fSetChartType( "stock" ) > 0 then
  73        warnlog "Something went wrong setting chart type to STOCK -> Check this out! (Previous log may help you)"
  74        Call hCloseDocument
  75        goto endsub
  76    endif
  77    '///+<li>Close Chart Type dialog</li>
  78    if fCloseChartTypeDialogOK() > 0 then
  79        warnlog "Something went wrong trying to close the Chart Type dialog -> Check this out! (Previous log may help you)"
  80        Call hCloseDocument
  81        goto endsub
  82    endif
  83    '///+<li>Invoke Insert::Grids</li>
  84    if fInvokeGridsDialog() > 0 then
  85        warnlog "Something went wrong trying to invoke the Grids dialog -> Check this out! (Previous log may help you)"
  86        Call hCloseDocument
  87        goto endsub
  88    endif
  89    Kontext "InsertGridsDialog"
  90    '///+<li>Check Main Grid X Axis</li>
  91    if fSetGrid( MainGridXAxis , TRUE ) > 0 then
  92        warnlog "Something went wrong enabling Main Grid X Axis  -> Check this out! (Previous log may help you)"
  93        Call hCloseDocument
  94        goto endsub
  95    endif
  96    '///+<li>Close Grids dialog</li>
  97    if fCloseGridsDialogOK() > 0 then
  98        warnlog "Something went wrong trying to close the Grids dialog -> Check this out! (Previous log may help you)"
  99        Call hCloseDocument
 100        goto endsub
 101    endif
 102    '///+<li>Invoke Format::Grid::X Axis Main Grid</li>
 103    FormatGridXAxisMainGrid
 104    '///+<li>Check if tab-page Line exists</li>
 105    Kontext "TabFormatChartLine"
 106    call DialogTest ( TabFormatChartLine )
 107    '///+<li>Close dialog</li>
 108    TabFormatChartLine.Cancel
 109    '///+<li>Close document</li>
 110    Kontext "DocumentCalc"
 111    DocumentCalc.TypeKeys "<Escape>"
 112    Call hCloseDocument
 113 '///</ul>
 114
 115 endcase
 116 '-------------------------------------------------------------
 117 testcase tFormatYAxisMainGrid
 118 '///<u><b>Dialog test after invoking Format::Grid::Y Axis Main Grid</b></u>
 119
 120 '///<ul>
 121    '///+<li>Load simple chart document</li>
 122    if fLoadVerySimpleChartAndSaveLocal() > 0 then
 123        warnlog "Loading test document seems to have failed -> Check this out!"
 124        goto endsub
 125    endif
 126    '///+<li>Select chart using navigator</li>
 127    call fSelectFirstOLE
 128    '///+<li>Invoke Edit::Object::Edit to enter Inplace Mode</li>
 129    EditObjectEdit
 130    sleep(1)
 131    '///+<li>Invoke Format::Chart Type</li>
 132    if fInvokeChartTypeDialog() > 0 then
 133        warnlog "Something went wrong trying to invoke the Chart Types dialog -> Check this out! (Previous log may help you)"
 134        Call hCloseDocument
 135        goto endsub
 136    endif
 137    '///+<li>Change Chart type to AREA</li>
 138    if fSetChartType( "area" ) > 0 then
 139        warnlog "Something went wrong setting chart type to AREA -> Check this out! (Previous log may help you)"
 140        Call hCloseDocument
 141        goto endsub
 142    endif
 143    '///+<li>Close Chart Type dialog</li>
 144    if fCloseChartTypeDialogOK() > 0 then
 145        warnlog "Something went wrong trying to close the Chart Type dialog -> Check this out! (Previous log may help you)"
 146        Call hCloseDocument
 147        goto endsub
 148    endif
 149    '///+<li>Invoke Format::Grid::Y Axis Main Grid</li>
 150    FormatGridYAxisMainGrid
 151    '///+<li>Check if tab-page Line exists</li>
 152    Kontext "TabFormatChartLine"
 153    call DialogTest ( TabFormatChartLine )
 154    '///+<li>Close dialog</li>
 155    TabFormatChartLine.Cancel
 156    '///+<li>Close document</li>
 157    Kontext "DocumentCalc"
 158    DocumentCalc.TypeKeys "<Escape>"
 159    Call hCloseDocument
 160 '///</ul>
 161
 162 endcase
 163 '-------------------------------------------------------------
 164 testcase tFormatZAxisMainGrid
 165 '///<u><b>Dialog test after invoking Format::Grid::Z Axis Main Grid</b></u>
 166
 167 '///<ul>
 168    '///+<li>Load simple chart document</li>
 169    if fLoadVerySimpleChartAndSaveLocal() > 0 then
 170        warnlog "Loading test document seems to have failed -> Check this out!"
 171        goto endsub
 172    endif
 173    '///+<li>Select chart using navigator</li>
 174    call fSelectFirstOLE
 175    '///+<li>Invoke Edit::Object::Edit to enter Inplace Mode</li>
 176    EditObjectEdit
 177    sleep(1)
 178    '///+<li>Invoke Format::Chart Type</li>
 179    if fInvokeChartTypeDialog() > 0 then
 180        warnlog "Something went wrong trying to invoke the Chart Types dialog -> Check this out! (Previous log may help you)"
 181        Call hCloseDocument
 182        goto endsub
 183    endif
 184    '///+<li>Change Chart type to LINE</li>
 185    if fSetChartType( "line" ) > 0 then
 186        warnlog "Something went wrong setting chart type to LINE -> Check this out! (Previous log may help you)"
 187        Call hCloseDocument
 188        goto endsub
 189    endif
 190    '///+<li>Change Chart type Variant to #4 (3D Variant)</li>
 191    if fSetChartTypeVariant( 4 ) > 0 then
 192        warnlog "Something went wrong selecting 4th chart type variant -> Check this out! (Previous log may help you)"
 193        Call hCloseDocument
 194        goto endsub
 195    endif
 196    '///+<li>Close Chart Type dialog</li>
 197    if fCloseChartTypeDialogOK() > 0 then
 198        warnlog "Something went wrong trying to close the Chart Type dialog -> Check this out! (Previous log may help you)"
 199        Call hCloseDocument
 200        goto endsub
 201    endif
 202    '///+<li>Invoke Insert::Grids</li>
 203    if fInvokeGridsDialog() > 0 then
 204        warnlog "Something went wrong trying to invoke the Grids dialog -> Check this out! (Previous log may help you)"
 205        Call hCloseDocument
 206        goto endsub
 207    endif
 208    Kontext "InsertGridsDialog"
 209    '///+<li>Check Main Grid Z Axis</li>
 210    if fSetGrid( MainGridZAxis , TRUE ) > 0 then
 211        warnlog "Something went wrong enabling Main Grid X Axis  -> Check this out! (Previous log may help you)"
 212        Call hCloseDocument
 213        goto endsub
 214    endif
 215    '///+<li>Close Grids dialog</li>
 216    if fCloseGridsDialogOK() > 0 then
 217        warnlog "Something went wrong trying to close the Grids dialog -> Check this out! (Previous log may help you)"
 218        Call hCloseDocument
 219        goto endsub
 220    endif
 221    '///+<li>Invoke Format::Grid::Z Axis Main Grid</li>
 222    FormatGridZAxisMainGrid
 223    '///+<li>Check if tab-page Line exists</li>
 224    Kontext "TabFormatChartLine"
 225    call DialogTest ( TabFormatChartLine )
 226    '///+<li>Close dialog</li>
 227    TabFormatChartLine.Cancel
 228    '///+<li>Close document</li>
 229    Kontext "DocumentCalc"
 230    DocumentCalc.TypeKeys "<Escape>"
 231    Call hCloseDocument
 232 '///</ul>
 233
 234 endcase
 235 '
 236 '-------------------------------------------------------------------------------
 237 '
 238 testcase tFormatXAxisMinorGrid
 239 '///<u><b>Dialog test after invoking Format::Grid::X Axis Minor Grid</b></u>
 240    '/// Load simple chart document
 241    if fLoadVerySimpleChartAndSaveLocal() > 0 then
 242        warnlog "Loading test document seems to have failed -> Check this out!"
 243        goto endsub
 244    endif
 245    '/// Select chart using navigator
 246    call fSelectFirstOLE
 247    '/// Invoke Edit::Object::Edit to enter Inplace Mode
 248    EditObjectEdit
 249    sleep(1)
 250    '/// Invoke Format::Chart Type
 251    if fInvokeChartTypeDialog() > 0 then
 252        warnlog "Something went wrong trying to invoke the Chart Types dialog -> Check this out! (Previous log may help you)"
 253        Call hCloseDocument
 254        goto endsub
 255    endif
 256    '/// Change Chart type to xy chart
 257    if fSetChartType( "xy" ) > 0 then
 258        warnlog "Something went wrong setting chart type to xy chart -> Check this out! (Previous log may help you)"
 259        Call hCloseDocument
 260        goto endsub
 261    endif
 262    '/// Close Chart Type dialog
 263    if fCloseChartTypeDialogOK() > 0 then
 264        warnlog "Something went wrong trying to close the Chart Type dialog -> Check this out! (Previous log may help you)"
 265        Call hCloseDocument
 266        goto endsub
 267    endif
 268    '/// Invoke Insert::Grids
 269    if fInvokeGridsDialog() > 0 then
 270        warnlog "Something went wrong trying to invoke the Grids dialog -> Check this out! (Previous log may help you)"
 271        Call hCloseDocument
 272        goto endsub
 273    endif
 274    Kontext "InsertGridsDialog"
 275    '/// Check Minor Grid X Axis
 276    if fSetGrid( MinorGridXAxis , TRUE ) > 0 then
 277        warnlog "Something went wrong enabling Minor Grid Y Axis  -> Check this out! (Previous log may help you)"
 278        Call hCloseDocument
 279        goto endsub
 280    endif
 281    '/// Close Grids dialog
 282    if fCloseGridsDialogOK() > 0 then
 283        warnlog "Something went wrong trying to close the Grids dialog -> Check this out! (Previous log may help you)"
 284        Call hCloseDocument
 285        goto endsub
 286    endif
 287    '/// Invoke Format::Grid::X Axis Minor Grid
 288    FormatGridXAxisMinorGrid
 289    '/// Check if tab-page Line exists
 290    Kontext "TabFormatChartLine"
 291    call DialogTest ( TabFormatChartLine )
 292    '/// Close dialog
 293    TabFormatChartLine.Cancel
 294    '/// Close document
 295    Kontext "DocumentCalc"
 296    DocumentCalc.TypeKeys "<Escape>"
 297    Call hCloseDocument
 298 endcase
 299 '
 300 '-------------------------------------------------------------------------------
 301 '
 302 testcase tFormatYAxisMinorGrid
 303 '///<u><b>Dialog test after invoking Format::Grid::Y Axis Minor Grid</b></u>
 304
 305 '///<ul>
 306    '///+<li>Load simple chart document</li>
 307    if fLoadVerySimpleChartAndSaveLocal() > 0 then
 308        warnlog "Loading test document seems to have failed -> Check this out!"
 309        goto endsub
 310    endif
 311    '///+<li>Select chart using navigator</li>
 312    call fSelectFirstOLE
 313    '///+<li>Invoke Edit::Object::Edit to enter Inplace Mode</li>
 314    EditObjectEdit
 315    sleep(1)
 316    '///+<li>Invoke Format::Chart Type</li>
 317    if fInvokeChartTypeDialog() > 0 then
 318        warnlog "Something went wrong trying to invoke the Chart Types dialog -> Check this out! (Previous log may help you)"
 319        Call hCloseDocument
 320        goto endsub
 321    endif
 322    '///+<li>Change Chart type to NET</li>
 323    if fSetChartType( "net" ) > 0 then
 324        warnlog "Something went wrong setting chart type to NET -> Check this out! (Previous log may help you)"
 325        Call hCloseDocument
 326        goto endsub
 327    endif
 328    '///+<li>Close Chart Type dialog</li>
 329    if fCloseChartTypeDialogOK() > 0 then
 330        warnlog "Something went wrong trying to close the Chart Type dialog -> Check this out! (Previous log may help you)"
 331        Call hCloseDocument
 332        goto endsub
 333    endif
 334    '///+<li>Invoke Insert::Grids</li>
 335    if fInvokeGridsDialog() > 0 then
 336        warnlog "Something went wrong trying to invoke the Grids dialog -> Check this out! (Previous log may help you)"
 337        Call hCloseDocument
 338        goto endsub
 339    endif
 340    Kontext "InsertGridsDialog"
 341    '///+<li>Check Minor Grid Y Axis</li>
 342    if fSetGrid( MinorGridYAxis , TRUE ) > 0 then
 343        warnlog "Something went wrong enabling Minor Grid Y Axis  -> Check this out! (Previous log may help you)"
 344        Call hCloseDocument
 345        goto endsub
 346    endif
 347    '///+<li>Close Grids dialog</li>
 348    if fCloseGridsDialogOK() > 0 then
 349        warnlog "Something went wrong trying to close the Grids dialog -> Check this out! (Previous log may help you)"
 350        Call hCloseDocument
 351        goto endsub
 352    endif
 353    '///+<li>Invoke Format::Grid::Y Axis Minor Grid</li>
 354    FormatGridYAxisMinorGrid
 355    '///+<li>Check if tab-page Line exists</li>
 356    Kontext "TabFormatChartLine"
 357    call DialogTest ( TabFormatChartLine )
 358    '///+<li>Close dialog</li>
 359    TabFormatChartLine.Cancel
 360    '///+<li>Close document</li>
 361    Kontext "DocumentCalc"
 362    DocumentCalc.TypeKeys "<Escape>"
 363    Call hCloseDocument
 364 '///</ul>
 365
 366 endcase
 367 '
 368 '-------------------------------------------------------------------------------
 369 '
 370 testcase tFormatAllAxesGrids
 371 '///<u><b>Dialog test after invoking Format::Grid::All Grids</b></u>
 372
 373 '///<ul>
 374    '///+<li>Load simple chart document</li>
 375    if fLoadVerySimpleChartAndSaveLocal() > 0 then
 376        warnlog "Loading test document seems to have failed -> Check this out!"
 377        goto endsub
 378    endif
 379    '///+<li>Select chart using navigator</li>
 380    call fSelectFirstOLE
 381    '///+<li>Invoke Edit::Object::Edit to enter Inplace Mode</li>
 382    EditObjectEdit
 383    sleep(1)
 384    '///+<li>Invoke Format::Chart Type</li>
 385    if fInvokeChartTypeDialog() > 0 then
 386        warnlog "Something went wrong trying to invoke the Chart Types dialog -> Check this out! (Previous log may help you)"
 387        Call hCloseDocument
 388        goto endsub
 389    endif
 390    '///+<li>Change Chart type to XY</li>
 391    if fSetChartType( "xy" ) > 0 then
 392        warnlog "Something went wrong setting chart type to XY -> Check this out! (Previous log may help you)"
 393        Call hCloseDocument
 394        goto endsub
 395    endif
 396    '///+<li>Change Chart type Variant to #4 (3D Variant)</li>
 397    if fSetChartTypeVariant( 4 ) > 0 then
 398        warnlog "Something went wrong selecting 4th chart type variant -> Check this out! (Previous log may help you)"
 399        Call hCloseDocument
 400        goto endsub
 401    endif
 402    '///+<li>Close Chart Type dialog</li>
 403    if fCloseChartTypeDialogOK() > 0 then
 404        warnlog "Something went wrong trying to close the Chart Type dialog -> Check this out! (Previous log may help you)"
 405        Call hCloseDocument
 406        goto endsub
 407    endif
 408    '///+<li>Invoke Format::Grid::All Grids</li>
 409    FormatGridAllAxisGrids
 410    '///+<li>Check if tab-page Line exists</li>
 411    Kontext "TabFormatChartLine"
 412    call DialogTest ( TabFormatChartLine )
 413    '///+<li>Close dialog</li>
 414    TabFormatChartLine.Cancel
 415    '///+<li>Close document</li>
 416    Kontext "DocumentCalc"
 417    DocumentCalc.TypeKeys "<Escape>"
 418    Call hCloseDocument
 419 '///</ul>
 420
 421 endcase
 422 '-------------------------------------------------------------
 423 testcase tFormatLegend
 424     '///<u><b>Dialog test after invoking Format::Legend</b></u>
 425
 426     '///<ul>
 427     '///+<li>Load simple chart document</li>
 428     if fLoadVerySimpleChartAndSaveLocal() > 0 then
 429         warnlog "Loading test document seems to have failed -> Check this out!"
 430         goto endsub
 431     endif
 432     '///+<li>Select chart using navigator</li>
 433     call fSelectFirstOLE
 434     '///+<li>Invoke Edit::Object::Edit to enter Inplace Mode</li>
 435     EditObjectEdit
 436     sleep(1)
 437     '///+<li>Invoke Format::Chart Type</li>
 438     if fInvokeChartTypeDialog() > 0 then
 439         warnlog "Something went wrong trying to invoke the Chart Types dialog -> Check this out! (Previous log may help you)"
 440         Call hCloseDocument
 441         goto endsub
 442     endif
 443     '///+<li>Change Chart type to PIE</li>
 444     if fSetChartType( "pie" ) > 0 then
 445         warnlog "Something went wrong setting chart type to PIE -> Check this out! (Previous log may help you)"
 446         Call hCloseDocument
 447         goto endsub
 448     endif
 449     '///+<li>Close Chart Type dialog</li>
 450     if fCloseChartTypeDialogOK() > 0 then
 451         warnlog "Something went wrong trying to close the Chart Type dialog -> Check this out! (Previous log may help you)"
 452         Call hCloseDocument
 453         goto endsub
 454     endif
 455     '///+<li>Invoke Format::Legend</li>
 456     FormatLegend
 457     '///+<li>Goto tab-page Borders</li>
 458     Kontext
 459     active.SetPage TabFormatChartBorders
 460     '///+<li>Check if tab-page Borders exists</li>
 461     Kontext "TabFormatChartBorders"
 462     call DialogTest ( TabFormatChartBorders )
 463
 464     '///+<li>Goto tab-page Area</li>
 465     Kontext
 466     active.SetPage TabArea
 467     '///+<li>Check if tab-page Area exists</li>
 468     Kontext "TabArea"
 469     call DialogTest ( TabArea )
 470
 471     '///+<li>Goto tab-page Transparency</li>
 472     Kontext
 473     active.SetPage TabTransparency
 474     '///+<li>Check if tab-page Transparency exists</li>
 475     Kontext "TabTransparency"
 476     call DialogTest ( TabTransparency )
 477
 478     '///+<li>Goto tab-page Characters</li>
 479     Kontext
 480     active.SetPage TabFont
 481     '///+<li>Check if tab-page Characters exists</li>
 482     Kontext "TabFont"
 483     call DialogTest ( TabFont )
 484
 485     '///+<li>Goto tab-page Font Effects</li>
 486     Kontext
 487     active.SetPage TabFontEffects
 488     '///+<li>Check if tab-page Font Effects exists</li>
 489     Kontext "TabFontEffects"
 490     call DialogTest ( TabFontEffects )
 491
 492     '///+<li>Goto tab-page Position</li>
 493     Kontext
 494     active.SetPage TabLegendPosition
 495     '///+<li>Check if tab-page Alignment exists</li>
 496     Kontext "TabLegendPosition"
 497     call DialogTest ( TabLegendPosition )
 498
 499     if gAsianSup = true then
 500         Kontext
 501         Active.SetPage TabAsianTypography
 502         Kontext "TabAsianTypography"
 503         call DialogTest ( TabAsianTypography )
 504         TabAsianTypography.Cancel
 505     else
 506         '///+<li>Close dialog</li>
 507         TabLegendPosition.Cancel
 508     endif
 509     '///+<li>Close document</li>
 510     Kontext "DocumentCalc"
 511     DocumentCalc.TypeKeys "<Escape>"
 512     Call hCloseDocument
 513     '///</ul>
 514
 515 endcase
 516 '-------------------------------------------------------------
 517 testcase tFormatChartWall
 518 '///<u><b>Dialog test after invoking Format::Chart Wall</b></u>
 519
 520 '///<ul>
 521    '///+<li>Load simple chart document</li>
 522    if fLoadVerySimpleChartAndSaveLocal() > 0 then
 523        warnlog "Loading test document seems to have failed -> Check this out!"
 524        goto endsub
 525    endif
 526    '///+<li>Select chart using navigator</li>
 527    call fSelectFirstOLE
 528    '///+<li>Invoke Edit::Object::Edit to enter Inplace Mode</li>
 529    EditObjectEdit
 530    sleep(1)
 531    '///+<li>Invoke Format::Chart Wall</li>
 532    FormatChartWall
 533    '///+<li>Goto tab-page Borders</li>
 534    Kontext
 535    active.SetPage TabFormatChartBorders
 536    '///+<li>Check if tab-page Borders exists</li>
 537    Kontext "TabFormatChartBorders"
 538    call DialogTest ( TabFormatChartBorders )
 539
 540    '///+<li>Goto tab-page Area</li>
 541    Kontext
 542    active.SetPage TabArea
 543    '///+<li>Check if tab-page Area exists</li>
 544    Kontext "TabArea"
 545    call DialogTest ( TabArea )
 546
 547    '///+<li>Goto tab-page Transparency</li>
 548    Kontext
 549    active.SetPage TabTransparency
 550    '///+<li>Check if tab-page Transparency exists</li>
 551    Kontext "TabTransparency"
 552    call DialogTest ( TabTransparency )
 553
 554    '///+<li>Close dialog</li>
 555    TabTransparency.Cancel
 556    '///+<li>Close document</li>
 557    Kontext "DocumentCalc"
 558    DocumentCalc.TypeKeys "<Escape>"
 559    Call hCloseDocument
 560 '///</ul>
 561
 562 endcase
 563 '-------------------------------------------------------------
 564 testcase tFormatChartFloor
 565 '///<u><b>Dialog test after invoking Format::Chart Floor</b></u>
 566
 567 '///<ul>
 568    '///+<li>Load simple chart document</li>
 569    if fLoadVerySimpleChartAndSaveLocal() > 0 then
 570        warnlog "Loading test document seems to have failed -> Check this out!"
 571        goto endsub
 572    endif
 573    '///+<li>Select chart using navigator</li>
 574    call fSelectFirstOLE
 575    '///+<li>Invoke Edit::Object::Edit to enter Inplace Mode</li>
 576    EditObjectEdit
 577    sleep(1)
 578    '///+<li>Convert chart to 3D (this will enable the Chart Floor)</li>
 579    if NOT fConvertChartTo3D() then
 580        warnlog "Conversion of chart to 3D failed -> Quit testcase"
 581        Call hCloseDocument
 582        goto endsub
 583    endif
 584    '///+<li>Invoke Format::Chart Floor</li>
 585    FormatChartFloor
 586    '///+<li>Goto tab-page Area</li>
 587    Kontext
 588    active.SetPage TabArea
 589    '///+<li>Check if tab-page Area exists</li>
 590    Kontext "TabArea"
 591    call DialogTest ( TabArea )
 592
 593    '///+<li>Goto tab-page Transparency</li>
 594    Kontext
 595    active.SetPage TabTransparency
 596    '///+<li>Check if tab-page Transparency exists</li>
 597    Kontext "TabTransparency"
 598    call DialogTest ( TabTransparency )
 599
 600    '///+<li>Goto tab-page Borders</li>
 601    Kontext
 602    active.SetPage TabFormatChartBorders
 603    '///+<li>Check if tab-page Borders exists</li>
 604    Kontext "TabFormatChartBorders"
 605    call DialogTest ( TabFormatChartBorders )
 606
 607    '///+<li>Close dialog</li>
 608    TabFormatChartBorders.Cancel
 609    '///+<li>Close document</li>
 610    Kontext "DocumentCalc"
 611    DocumentCalc.TypeKeys "<Escape>"
 612    Call hCloseDocument
 613 '///</ul>
 614
 615 endcase
 616 '-------------------------------------------------------------
 617 testcase tFormatChartArea
 618 '///<u><b>Dialog test after invoking Format::Chart Area</b></u>
 619
 620 '///<ul>
 621    '///+<li>Load simple chart document</li>
 622    if fLoadVerySimpleChartAndSaveLocal() > 0 then
 623        warnlog "Loading test document seems to have failed -> Check this out!"
 624        goto endsub
 625    endif
 626    '///+<li>Select chart using navigator</li>
 627    call fSelectFirstOLE
 628    '///+<li>Invoke Edit::Object::Edit to enter Inplace Mode</li>
 629    EditObjectEdit
 630    sleep(1)
 631    '///+<li>Invoke Format::Chart Area</li>
 632    FormatChartArea
 633    '///+<li>Goto tab-page Transparency</li>
 634    Kontext
 635    active.SetPage TabTransparency
 636    '///+<li>Check if tab-page Transparency exists</li>
 637    Kontext "TabTransparency"
 638    call DialogTest ( TabTransparency )
 639
 640    '///+<li>Goto tab-page Borders</li>
 641    Kontext
 642    active.SetPage TabFormatChartBorders
 643    '///+<li>Check if tab-page Borders exists</li>
 644    Kontext "TabFormatChartBorders"
 645    call DialogTest ( TabFormatChartBorders )
 646
 647    '///+<li>Goto tab-page Area</li>
 648    Kontext
 649    active.SetPage TabArea
 650    '///+<li>Check if tab-page Area exists</li>
 651    Kontext "TabArea"
 652    call DialogTest ( TabArea )
 653
 654    '///+<li>Close dialog</li>
 655    TabArea.Cancel
 656    '///+<li>Close document</li>
 657    Kontext "DocumentCalc"
 658    DocumentCalc.TypeKeys "<Escape>"
 659    Call hCloseDocument
 660 '///</ul>
 661
 662 endcase
 663 '-------------------------------------------------------------
 664 testcase tFormatChartType
 665 '///<u><b>Dialog test after invoking Format::Chart Type</b></u>
 666
 667 '///<ul>
 668    '///+<li>Load simple chart document</li>
 669    if fLoadVerySimpleChartAndSaveLocal() > 0 then
 670        warnlog "Loading test document seems to have failed -> Check this out!"
 671        goto endsub
 672    endif
 673    '///+<li>Select chart using navigator</li>
 674    call fSelectFirstOLE
 675    '///+<li>Invoke Edit::Object::Edit to enter Inplace Mode</li>
 676    EditObjectEdit
 677    sleep(1)
 678    '///+<li>Invoke Format::Chart Type</li>
 679    FormatChartType
 680    '///+<li>Check if Chart Type dialog exists</li>
 681    Kontext "ChartType"
 682    call DialogTest ( ChartType )
 683    '///+<li>Change Chart type to LINE</li>
 684    if fSetChartType( "line" ) > 0 then
 685        warnlog "Something went wrong setting chart type to LINE -> Check this out! (Previous log may help you)"
 686        Call hCloseDocument
 687        goto endsub
 688    endif
 689    '///+<li>Invoke Smooth Lines Properties</li>
 690    if fInvokeSmoothLineProperties() > 0 then
 691        warnlog "Something went wrong invoking Smooth Lines Properties -> Check this out! (Previous log may help you)"
 692        Call hCloseDocument
 693        goto endsub
 694    endif
 695    '///+<li>Check if the Smooth Line Properties dialog exists</li>
 696    Kontext "SmoothLineProperties"
 697    call DialogTest ( SmoothLineProperties )
 698    '///+<li>Close Smooth Lines Properties</li>
 699    if fCloseSmoothLinePropertiesOK() > 0 then
 700        warnlog "Something went wrong closing Smooth Lines Properties -> Check this out! (Previous log may help you)"
 701        Call hCloseDocument
 702        goto endsub
 703    endif
 704    '///+<li>Close dialog</li>
 705    Kontext "ChartType"
 706    ChartType.Cancel
 707    '///+<li>Close document</li>
 708    Kontext "DocumentCalc"
 709    DocumentCalc.TypeKeys "<Escape>"
 710    Call hCloseDocument
 711 '///</ul>
 712
 713 endcase
 714 '-------------------------------------------------------------
 715 testcase tFormatDataRanges
 716 '///<u><b>Dialog test after invoking Format::Data Ranges</b></u>
 717
 718 '///<ul>
 719    '///+<li>Load simple chart document</li>
 720    if fLoadVerySimpleChartAndSaveLocal() > 0 then
 721        warnlog "Loading test document seems to have failed -> Check this out!"
 722        goto endsub
 723    endif
 724    '///+<li>Select chart using navigator</li>
 725    call fSelectFirstOLE
 726    '///+<li>Invoke Edit::Object::Edit to enter Inplace Mode</li>
 727    EditObjectEdit
 728    sleep(1)
 729    '///+<li>Invoke Format::Data Ranges</li>
 730    FormatDataRanges
 731    '///+<li>Goto tab-page Data Range</li>
 732    Kontext
 733    active.SetPage TabFormatDataRangesDataRange
 734    '///+<li>Check if tab-page Data Range exists</li>
 735    Kontext "TabFormatDataRangesDataRange"
 736    call DialogTest ( TabFormatDataRangesDataRange )
 737    qaErrorLog "Implode dialog using range select button when feature is implemented"
 738
 739    '///+<li>Goto tab-page Data Series</li>
 740    Kontext
 741    active.SetPage TabFormatDataRangesDataSeries
 742    '///+<li>Check if tab-page Data Series exists</li>
 743    Kontext "TabFormatDataRangesDataSeries"
 744    call DialogTest ( TabFormatDataRangesDataSeries )
 745    MoveDown.Click
 746    qaErrorLog "Implode dialog using range select button when feature is implemented"
 747
 748     '///+<li>Close dialog</li>
 749    TabFormatDataRangesDataSeries.Cancel
 750    '///+<li>Close document</li>
 751    Kontext "DocumentCalc"
 752    DocumentCalc.TypeKeys "<Escape>"
 753    Call hCloseDocument
 754 '///</ul>
 755
 756 endcase
 757 '-------------------------------------------------------------
 758 testcase tFormat3DView
 759 '///<u><b>Dialog test after invoking Format::3D View</b></u>
 760
 761 '///<ul>
 762    '///+<li>Load simple chart document</li>
 763    if fLoadVerySimpleChartAndSaveLocal() > 0 then
 764        warnlog "Loading test document seems to have failed -> Check this out!"
 765        goto endsub
 766    endif
 767    '///+<li>Select chart using navigator</li>
 768    call fSelectFirstOLE
 769    '///+<li>Invoke Edit::Object::Edit to enter Inplace Mode</li>
 770    EditObjectEdit
 771    sleep(1)
 772    '///+<li>Convert chart to 3D</li>
 773    if NOT fConvertChartTo3D() then
 774        warnlog "Conversion of chart to 3D failed -> Quit testcase"
 775        Call hCloseDocument
 776        goto endsub
 777    endif
 778    '///+<li>Invoke Format::3D View</li>
 779    Format3DView
 780    '///+<li>Goto tab-page Perspective</li>
 781    Kontext
 782    active.SetPage TabFormat3DViewGeometry
 783    '///+<li>Check if tab-page Perspective exists</li>
 784    Kontext "TabFormat3DViewGeometry"
 785    call DialogTest ( TabFormat3DViewGeometry )
 786
 787    '///+<li>Goto tab-page Appearance</li>
 788    Kontext
 789    active.SetPage TabFormat3DViewAppearance
 790    '///+<li>Check if tab-page Appearance exists</li>
 791    Kontext "TabFormat3DViewAppearance"
 792    call DialogTest ( TabFormat3DViewAppearance )
 793
 794    '///+<li>Goto tab-page Illumination</li>
 795    Kontext
 796    active.SetPage TabFormat3DViewIllumination
 797    '///+<li>Check if tab-page Illumination exists</li>
 798    Kontext "TabFormat3DViewIllumination"
 799    call DialogTest ( TabFormat3DViewIllumination )
 800    '///+<li>Click Color select button</li>
 801    ColorSelect.Click
 802    '///+<li>Check if Color dialog exists</li>
 803    Kontext "FarbeDLG"
 804    call DialogTest ( FarbeDLG )
 805    '///+<li>Close dialog</li>
 806    FarbeDLG.Cancel
 807    Kontext "TabFormat3DViewIllumination"
 808
 809    '///+<li>Click Ambient Light select button</li>
 810    AmbientLightSelect.Click
 811    '///+<li>Check if Color dialog exists</li>
 812    Kontext "FarbeDLG"
 813    call DialogTest ( FarbeDLG )
 814    '///+<li>Close dialog</li>
 815    FarbeDLG.Cancel
 816
 817    '///+<li>Close dialog</li>
 818    Kontext "TabFormat3DViewIllumination"
 819    TabFormat3DViewIllumination.Cancel
 820    '///+<li>Close document</li>
 821    Kontext "DocumentCalc"
 822    DocumentCalc.TypeKeys "<Escape>"
 823    Call hCloseDocument
 824 '///</ul>
 825
 826 endcase
 827 '-------------------------------------------------------------
 828 '
 829