testautomation/spreadsheet/required/includes/c_upd_formatmenu2.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 : Resource Test - Format Menu Part II
  31 '*
  32 '\***********************************************************************
  33
  34 sub c_upd_formatmenu2
  35
  36     Printlog Chr(13) + "--------- Format Menu Part II (c_upd_formatmenu2.inc) ---------"
  37
  38     call tFormatPrintRanges
  39     call tFormatCharacter
  40     call tFormatParagraph
  41     call tFormatChangeCase
  42     call tFormatStyles
  43     call tFormatAutoFormat
  44     call tFormatConditionalFormatting
  45     call tFormatAnchor
  46     call tFormatAlignment
  47     call tFormatArrange
  48     call tFormatFlip
  49     call tFormatGroup
  50     call tFormatControl   'testcase still under construction
  51
  52 end sub
  53
  54 '-----------------------------------------------------------
  55
  56 testcase tFormatPrintRanges
  57 '///<u><b>Format - Print Ranges</b></u>
  58
  59     '/// Opening new spreadsheet document for getting defined starting environment
  60     printlog " Opening new spreadsheet document for getting defined starting environment"
  61     call hNewDocument
  62     '/// Define a print range by 'Format – Print Ranges – Define'
  63     printlog " Define a print range by 'Format – Print Ranges – Define'"
  64     FormatPrintRangesDefine
  65     '/// Add a print range by 'Format – Print Ranges – Add'
  66     printlog " Add a print range by 'Format – Print Ranges – Add'"
  67     FormatPrintRangesAdd
  68     '/// Delete a print range by 'Format – Print Ranges – Delete'
  69     printlog " Delete a print range by 'Format – Print Ranges – Delete'"
  70     FormatPrintRangesRemove
  71     '/// Open 'Edit Print Ranges' – dialog by 'Format – Print Ranges – Edit'
  72     printlog " Open 'Edit Print Ranges' – dialog by 'Format – Print Ranges – Edit'"
  73     FormatPrintRangesEdit
  74     Kontext "DruckbereicheBearbeiten"
  75     DialogTest ( DruckbereicheBearbeiten )
  76     '/// Verify that there are four entries in 'Print range'
  77     printlog " Verify that there are four entries in 'Print range'"
  78     if not DruckbereichListe.GetItemCount = 4 then
  79         warnlog "There are " & DruckbereichListe.GetItemCount & " items instead of 4"
  80     end if
  81     '/// Press 'Shrink' -button for 'Print Range'
  82     printlog " Press 'Shrink' -button for 'Print Range'"
  83     DruckbereichButton.Click
  84     '/// Enlarge Rangechooser
  85     printlog " Enlarge Rangechooser"
  86     DruckbereichButton.Click
  87     '/// Verify that there are two entries in 'Rows to repeat'
  88     printlog " Verify that there are two entries in 'Rows to repeat'"
  89     if not WiederholungszeileListe.GetItemCount = 2 then
  90         warnlog "There are " & WiederholungszeileListe.GetItemCount & " items instead of 2"
  91     end if
  92     '/// Press 'Shrink' -button for 'Rows to repeat'
  93     printlog " Press 'Shrink' -button for 'Rows to repeat'"
  94     WiederholungszeileButton.Click
  95     '/// Enlarge Rangechooser
  96     printlog " Enlarge Rangechooser"
  97     WiederholungszeileButton.Click
  98     '/// Verify that there are two entries in 'Columns to repeat'
  99     printlog " Verify that there are two entries in 'Columns to repeat'"
 100     if not WiederholungsspalteListe.GetItemCount = 2 then
 101         warnlog "There are " & WiederholungsspalteListe.GetItemCount & " items instead of 2"
 102     end if
 103     '/// Press 'Shrink' -button for 'Columns to repeat'
 104     printlog " Press 'Shrink' -button for 'Columns to repeat'"
 105     WiederholungsspalteButton.Click
 106     '/// Enlarge Rangechooser
 107     printlog " Enlarge Rangechooser"
 108     WiederholungsspalteButton.Click
 109     '/// Close dialog with 'Cancel'
 110     printlog " Close dialog with 'Cancel'"
 111     DruckbereicheBearbeiten.Cancel
 112     '/// Close starting document
 113     printlog " Close starting document"
 114     call hCloseDocument
 115
 116 endcase
 117
 118 '-----------------------------------------------------------
 119
 120 testcase tFormatCharacter
 121 '///<u><b>Format - Character</b></u>
 122
 123     '/// Open new Spreadsheet document
 124     printlog " Open new Spreadsheet document"
 125     Call hNewDocument
 126     Kontext "DocumentCalc"
 127     '/// Type 'Test'
 128     printlog " Type 'Test'"
 129     DocumentCalc.TypeKeys "Test"
 130     '/// Open  'Character' – dialog by 'Format – Character'
 131     printlog " Open  'Character' – dialog by 'Format – Character'"
 132     FormatCharacter
 133     '/// Switch to tabpage 'Font'
 134     printlog " Switch to tabpage 'Font'"
 135     Kontext
 136     active.SetPage TabFont
 137     kontext "TabFont"
 138     Call DialogTest ( TabFont )
 139     '/// Switch to tabpage 'Font Effects'
 140     printlog " Switch to tabpage 'Font Effects'"
 141     Kontext
 142     active.SetPage TabFontEffects
 143     kontext "TabFontEffects"
 144     Call DialogTest ( TabFontEffects )
 145     '/// Switch to tabpage 'Font Position'
 146     printlog " Switch to tabpage 'Font Position'"
 147     Kontext
 148     active.SetPage TabFontPosition
 149     kontext "TabFontPosition"
 150     Call DialogTest ( TabFontPosition )
 151     '/// Close dialog with 'Cancel'
 152     printlog " Close dialog with 'Cancel'"
 153     TabFontPosition.Close
 154     '/// Close document
 155     printlog " Close document"
 156     Call hCloseDocument
 157
 158 endcase
 159
 160 '-----------------------------------------------------------
 161
 162 testcase tFormatParagraph
 163 '///<u><b>Insert - Paragraph</b></u>
 164
 165     Dim bAsianLanguage as boolean
 166     Dim bCTLlanguage as boolean
 167
 168     '/// Open new Spreadsheet document
 169     printlog " Open new Spreadsheet document"
 170     call hNewDocument
 171     '/// Enable language support for CJK and CTL (Tools-Options-Language Support)
 172     printlog " Enable language support for CJK and CTL (Tools-Options-Language Support)"
 173     bAsianLanguage = ActiveDeactivateAsianSupport(TRUE)
 174     bCTLLanguage = ActiveDeactivateCTLSupport(TRUE)
 175     '/// Insert a note via 'Insert – Note'
 176     printlog " Insert a note via 'Insert – Note'"
 177     InsertNoteCalc
 178     Kontext
 179     '/// Enter 'Test' in Note
 180     printlog " Enter 'Test' in Note"
 181     DocumentCalc.TypeKeys "Test"
 182     '/// Open 'Paragraph' – dialog by 'Format – Paragraph'
 183     printlog " Open 'Paragraph' – dialog by 'Format – Paragraph'"
 184     FormatParagraph
 185     '/// Switch to tabpage 'Indents & Spacing'
 186     printlog " Switch to tabpage 'Indents & Spacing'"
 187     Kontext
 188     active.SetPage TabEinzuegeUndAbstaende
 189     Kontext "TabEinzuegeUndAbstaende"
 190     Call DialogTest ( TabEinzuegeUndAbstaende )
 191     '/// Increase 'Before text'
 192     printlog " Increase 'Before text'"
 193     Vonlinks.More
 194     '/// Increase 'After text'
 195     printlog " Increase 'After text'"
 196     VonRechts.More
 197     '/// Increase 'First line'
 198     printlog " Increase 'First line'"
 199     ErsteZeile.More
 200     '/// Increase 'Above paragraph'
 201     printlog " Increase 'Above paragraph'"
 202     Oben.More
 203     '/// Increase 'Below paragraph'
 204     printlog " Increase 'Below paragraph'"
 205     Unten.More
 206     '/// Choose last (6) entry in listbox 'Line spacing'
 207     printlog " Choose last (6) entry in listbox 'Line spacing'"
 208     Zeilenabstand.Select 6
 209     '/// Increase 'Line spacing'
 210     printlog " Increase 'Line spacing'"
 211     If Von.IsEnabled then
 212         Von.More
 213         else qaerrorlog "Line Spacing wrong, maybe the sort of this listbox is different"
 214     end if
 215
 216     '/// Switch to tabpage 'Alignment'
 217     printlog " Switch to tabpage 'Alignment'"
 218     Kontext
 219     active.SetPage TabAusrichtungAbsatz
 220     Kontext "TabAusrichtungAbsatz"
 221     Call DialogTest ( TabAusrichtungAbsatz )
 222     '/// Choose option 'Left/Top'
 223     printlog " Choose option 'Left/Top'"
 224     Links.Check
 225     '/// Choose option 'Right/Bottom'
 226     printlog " Choose option 'Right/Bottom'"
 227     Rechts.Check
 228     '/// Choose option 'Center'
 229     printlog " Choose option 'Center'"
 230     Zentriert.Check
 231     '/// Choose option 'Justified'
 232     printlog " Choose option 'Justified'"
 233     Blocksatz.Check
 234     '/// Verify that listbox 'Text direction' has entries
 235     printlog " Verify that listbox 'Text direction' has entries"
 236     if TextDirection.GetItemCount < 1 then
 237         warnlog "The Textdirection listbox is empty"
 238     end if
 239
 240     '/// Switch to tabpage 'Asian Typography'
 241     printlog " Switch to tabpage 'Asian Typography'"
 242     Kontext
 243     active.SetPage TabAsianTypography
 244     Kontext "TabAsianTypography"
 245     Call DialogTest ( TabAsianTypography )
 246     '/// Check checkbox for 'Apply list...'
 247     printlog " Check checkbox for 'Apply list...'"
 248     ApplyList.Check
 249     '/// Check checkbox 'Allow...'
 250     printlog " Check checkbox 'Allow...'"
 251     AllowHangingPunctuation.Check
 252     '/// Check checkbox 'Apply spacing...'
 253     printlog " Check checkbox 'Apply spacing...'"
 254     ApplySpacingBetween.Check
 255
 256     '/// Switch to tabpage 'Tab'
 257     printlog " Switch to tabpage 'Tab'"
 258     Kontext
 259     active.SetPage TabTabulatoren
 260     Kontext "TabTabulatoren"
 261     Call DialogTest ( TabTabulatoren )
 262     '/// Close 'Paragraph' – dialog with 'Cancel'
 263     TabTabulatoren.Close
 264
 265     '/// Close Note by <ESC>
 266     printlog " Close Note by <ESC>"
 267     Kontext "DocumentCalc"
 268     DocumentCalc.TypeKeys "<ESCAPE>"
 269     '/// Set support for CJK and CTL back to default (Tools – Options – Language Support)
 270     printlog " Set support for CJK and CTL back to default (Tools – Options – Language Support)"
 271     if bAsianLanguage = FALSE then
 272         Call ActiveDeactivateAsianSupport(FALSE)
 273     end if
 274     if bCTLLanguage = FALSE then
 275         Call ActiveDeactivateCTLSupport(FALSE)
 276     end if
 277     '/// Close document
 278     printlog " Close document"
 279     call hCloseDocument
 280
 281 endcase
 282
 283 '-----------------------------------------------------------
 284
 285 testcase tFormatChangeCase
 286 '///<u><b>Format - Change Case</b></u>
 287
 288     Dim bAsianLanguage as boolean
 289     Dim bCTLlanguage as boolean
 290
 291     '/// Open new Spreadsheet document
 292     printlog " Open new Spreadsheet document"
 293     Call hNewDocument
 294     '/// Enable language support for CJK and CTL (Tools-Options-Language Support)
 295     printlog " Enable language support for CJK and CTL (Tools-Options-Language Support)"
 296     bAsianLanguage = ActiveDeactivateAsianSupport(TRUE)
 297     bCTLLanguage = ActiveDeactivateCTLSupport(TRUE)
 298     '/// Change case by 'Format – Change Case – Uppercase'
 299     printlog " Change case by 'Format – Change Case – Uppercase'"
 300     FormatChangeCaseUpper
 301     '/// Change case by 'Format – Change Case – Lowercase'
 302     printlog " Change case by 'Format – Change Case – Lowercase'"
 303     FormatChangeCaseLower
 304     '/// Change case by 'Format – Change Case – Halfwidth'
 305     printlog " Change case by 'Format – Change Case – Halfwidth'"
 306     FormatChangeCaseHalfwidth
 307     '/// Change case by 'Format – Change Case – Fullwidth'
 308     printlog " Change case by 'Format – Change Case – Fullwidth'"
 309     FormatChangeCaseFullwidth
 310     '/// Change case by 'Format – Change Case – Hiragana'
 311     printlog " Change case by 'Format – Change Case – Hiragana'"
 312     FormatChangeCaseHiragana
 313     '/// Change case by 'Format – Change Case – Katagana'
 314     printlog " Change case by 'Format – Change Case – Katagana'"
 315     FormatChangeCaseKatagana
 316     '/// Set support for CJK and CTL back to default (Tools – Options – Language Support)
 317     printlog " Set support for CJK and CTL back to default (Tools – Options – Language Support)"
 318     if bAsianLanguage = FALSE then
 319         Call ActiveDeactivateAsianSupport(FALSE)
 320     end if
 321     if bCTLLanguage = FALSE then
 322         Call ActiveDeactivateCTLSupport(FALSE)
 323     end if
 324     '/// Close document
 325     printlog " Close document"
 326     call hCloseDocument
 327
 328 endcase
 329
 330 '-----------------------------------------------------------
 331
 332 testcase tFormatStyles
 333 '///<u><b>Format - Styles and Formatting</b></u>
 334
 335     '/// Open new Spreadsheet document
 336     printlog " Open new Spreadsheet document"
 337     Call hNewDocument
 338     '/// Open 'Stylist' by 'Format – Styles and Formatting'
 339     printlog " Open 'Stylist' by 'Format – Styles and Formatting'"
 340     FormatStylist
 341     Kontext "Gestalter"
 342     if Gestalter.notexists (2) then
 343         FormatStylist
 344         Kontext "Gestalter"
 345     end if
 346     '/// Click on button 'Cell Styles'
 347     printlog " Click on button 'Cell Styles'"
 348     Zellvorlagen.Click
 349     DialogTest ( Gestalter,1 )
 350     '/// Click on button 'Fill Format Mode' to turn mode on
 351     printlog " Click on button 'Fill Format Mode' to turn mode on"
 352     Giesskanne.Click
 353     '/// Click again on button 'Fill Format Mode' to turn mode off
 354     printlog " Click again on button 'Fill Format Mode' to turn mode off"
 355     Giesskanne.Click
 356     '/// Click on button 'NewStyle from Selection'
 357     printlog " Click on button 'NewStyle from Selection'"
 358     AusSelektion.Click
 359     Kontext "VorlageErzeugen"
 360     DialogTest ( VorlageErzeugen )
 361     '/// Type name 'Teststyle'
 362     printlog " Type name 'Teststyle'"
 363     Vorlagenname.SetText "Teststyle"
 364     '/// Close 'Create Style' – dialog with 'Cancel'
 365     printlog " Close 'Create Style' – dialog with 'Cancel'"
 366     VorlageErzeugen.Cancel
 367     Kontext "Gestalter"
 368     '/// Click on button 'Update Style'
 369     printlog " Click on button 'Update Style'"
 370     Aktualisieren.Click
 371     '/// Click on button 'Page Styles'
 372     printlog " Click on button 'Page Styles'"
 373     Absatzvorlagen.Click
 374     '/// Close 'Stylist' by 'Format – Styles and Formatting
 375     printlog " Close 'Stylist' by 'Format – Styles and Formatting"
 376     Kontext "Gestalter"
 377     Gestalter.Close
 378     '/// Close document
 379     printlog " Close document"
 380     Call hCloseDocument
 381
 382 endcase
 383
 384 '-----------------------------------------------------------
 385
 386 testcase tFormatAutoFormat
 387 '///<u><b>Format - AutoFormat/b></u>
 388
 389     '/// Open new Spreadsheet document
 390     printlog " Open new Spreadsheet document"
 391     Call hNewDocument
 392     '/// Select cells A1:E6
 393     printlog " Select cells A1:E6"
 394     Call fCalcSelectRange ("A1:E6")
 395     '/// Open 'AutoFormat' – dialog by 'Format – AutoFormat'
 396     printlog " Open 'AutoFormat' – dialog by 'Format – AutoFormat'"
 397     FormatAutoformat
 398     Kontext "AutoformatCalc"
 399     '/// Click on 'More' – button
 400     Zusaetze.Click
 401     Call DialogTest ( AutoformatCalc )
 402     '/// Verify that the 'Format' – listbox has items
 403     printlog " Verify that the 'Format' – listbox has items"
 404     if FormatListe.GetItemCount < 1 then
 405         warnlog "The formatlist is empty"
 406     end if
 407     '/// Click on 'Add' – button
 408     printlog " Click on 'Add' – button"
 409     Einfuegen.Click
 410     Kontext "AutoFormatHinzufuegenCalc"
 411     Call DialogTest ( AutoFormatHinzufuegenCalc )
 412     '/// Enter name 'Testformat'
 413     printlog " Enter name 'Testformat'"
 414     TabellenName.SetText "Testformat"
 415     '/// Close dialog with 'Cancel'
 416     printlog " Close dialog with 'Cancel'"
 417     AutoFormatHinzufuegenCalc.Close
 418     Kontext "AutoformatCalc"
 419     '/// Select second entry in 'Format' – listbox
 420     printlog " Select second entry in 'Format' – listbox"
 421     FormatListe.Select 2
 422     '/// Click on 'Rename' – button
 423     printlog " Click on 'Rename' – button"
 424     Umbenennen.Click
 425     Kontext "RenameAutoFormat"
 426     Call DialogTest ( RenameAutoFormat )
 427     '/// Set format name to 'Newformat'
 428     printlog " Set format name to 'Newformat'"
 429     RenameAutoFormatName.SetText "Newformat"
 430     '/// Close 'Rename AutoFormat' – dialog with 'Cancel'
 431     printlog " Close 'Rename AutoFormat' – dialog with 'Cancel'"
 432     RenameAutoFormat.Cancel
 433     Kontext "AutoformatCalc"
 434     '/// Click on 'Delete' – button
 435     printlog " Click on 'Delete' – button"
 436     Loeschen.Click
 437     '/// Close messagebox with 'Yes'
 438     Kontext
 439     Active.No
 440     Kontext "AutoformatCalc"
 441     '/// Check 'Number format'
 442     printlog " Check 'Number format'"
 443     Zahlenformat.Check
 444     '/// Check 'Borders'
 445     printlog " Check 'Borders'"
 446     Umrandung.Check
 447     '/// Check 'Font'
 448     printlog " Check 'Font'"
 449     Schriftart.Check
 450     '/// Check 'Pattern'
 451     printlog " Check 'Pattern'"
 452     Muster.Check
 453     '/// Check 'Alignment'
 454     printlog " Check 'Alignment'"
 455     Ausrichtung.Check
 456     '/// Check 'AutoFit width and height'
 457     printlog " Check 'AutoFit width and height'"
 458     BreiteHoeheAnpassen.Check
 459     '/// Close 'AutoFormat' – dialog with 'Cancel'
 460     printlog " Close 'AutoFormat' – dialog with 'Cancel'"
 461     AutoformatCalc.Cancel
 462     '/// Close document
 463     printlog " Close document"
 464     Call hCloseDocument
 465
 466 endcase
 467
 468 '-----------------------------------------------------------
 469
 470 testcase tFormatConditionalFormatting
 471 '///<u><b>Format - Conditional Formatting</b></u>
 472
 473     '/// Open new Spreadsheet document
 474     printlog " Open new Spreadsheet document"
 475     Call hNewDocument
 476     '/// Open 'Conditional Formatting' – dialog by 'Format – Conditional Formatting'
 477     printlog " Open 'Conditional Formatting' – dialog by 'Format – Conditional Formatting'"
 478     FormatConditionalFormatting
 479     Kontext "BedingteFormatierung"
 480     Call DialogTest ( BedingteFormatierung )
 481     '/// Check 'Condition 1'
 482     printlog " Check 'Condition 1'"
 483     Bedingung1.Check
 484     '/// Choose first entry (Cell value is)
 485     printlog " Choose first entry (Cell value is)"
 486     PopupList1.Select 1
 487     '/// Choose first criteria for comparison (equal to)
 488     printlog " Choose first criteria for comparison (equal to)"
 489     Vergleich1.Select 1
 490     '/// Click on 'Shrink' – button
 491     printlog " Click on 'Shrink' – button"
 492     Minimieren1.Click
 493     '/// Close rangechoser by 'Shrink' -button
 494     printlog " Close rangechoser by 'Shrink' -button"
 495     Minimieren1.Click
 496     '/// Set string '12' in editfield
 497     printlog " Set string '12' in editfield"
 498     TextField1.SetText "12"
 499     '/// Verify that the 'Cell style' listbox has items
 500     printlog " Verify that the 'Cell style' listbox has items"
 501     if Zellvorlage1.GetItemCount < 1 then
 502         warnlog "The 'Cell style' listbox is empty"
 503     end if
 504         printlog " Click on NewStyle button"
 505         NewStyle1.Click
 506         Kontext
 507     active.SetPage TabVerwalten
 508         printlog " Close Style dialog"
 509     Kontext "TabVerwalten"
 510         TabVerwalten.Close
 511         Kontext "BedingteFormatierung"
 512     '/// Check 'Condition 2'
 513     printlog " Check 'Condition 2'"
 514     Bedingung2.Check
 515     '/// Choose second entry 'Formula is'
 516     printlog " Choose second entry 'Formula is'"
 517     PopupList2.Select 2
 518     '/// Click on 'Shrink' – button
 519     printlog " Click on 'Shrink' – button"
 520     Minimieren2.Click
 521     '/// Close rangechoser by 'Shrink' -button
 522     printlog " Close rangechoser by 'Shrink' -button"
 523     Minimieren2.Click
 524     '/// Check 'Condition 3'
 525     printlog " Check 'Condition 3'"
 526     Bedingung3.Check
 527     '/// Choose first entry (Cell value is)
 528     printlog " Choose first entry (Cell value is)"
 529     PopupList3.Select 1
 530     '/// Choose last criteria for comparision (not between)
 531     printlog " Choose last criteria for comparision (not between)"
 532     Vergleich3.Select 8
 533     '/// Click on first 'Shrink' – button
 534     printlog " Click on first 'Shrink' – button"
 535     Minimieren3.Click
 536     '/// Close rangechoser by 'Shrink' -button
 537     printlog " Close rangechoser by 'Shrink' -button"
 538     Minimieren3.Click
 539     '/// Click on second 'Shrink' – button
 540     printlog " Click on second 'Shrink' – button"
 541     Minimieren32.Click
 542     '/// Close rangechoser by 'Shrink' -button
 543     printlog " Close rangechoser by 'Shrink' -button"
 544     Minimieren32.Click
 545     '/// Close 'Conditional Formatting' – dialog with 'Cancel'
 546     printlog " Close 'Conditional Formatting' – dialog with 'Cancel'"
 547     BedingteFormatierung.close
 548     '/// Close document
 549     printlog " Close document"
 550     Call hCloseDocument
 551
 552 endcase
 553
 554 '-----------------------------------------------------------
 555
 556 testcase tFormatAnchor
 557 '///<u><b>Format - Anchor</b></u>
 558
 559     '/// Open new Spreadsheet document
 560     printlog " Open new Spreadsheet document"
 561     Call hNewDocument
 562     '/// Go to cell D4
 563     printlog " Go to cell D4"
 564     Call fCalcSelectRange ("D4")
 565     '/// Insert Picture by 'Insert – Picture – From File' global\input\graf_inp\borabora.jpg
 566     printlog " Insert Picture by 'Insert – Picture – From File' global\input\graf_inp\borabora.jpg"
 567     InsertGraphicsFromFile
 568     Kontext "GrafikEinfuegenDlg"
 569     Dateiname.Settext convertpath(gTesttoolpath + "global\input\graf_inp\borabora.jpg")
 570     Oeffnen.Click
 571     '/// Set Anchor to page by 'Format – Anchor – To Page'
 572     printlog " Set Anchor to page by 'Format – Anchor – To Page'"
 573     FormatAnchorToPageCalc
 574     '/// Set Anchor to page by 'Format – Anchor – To Cell'
 575     printlog " Set Anchor to page by 'Format – Anchor – To Cell'"
 576     FormatAnchorToCell
 577     '/// Close document
 578     printlog " Close document"
 579     Call hCloseDocument
 580
 581 endcase
 582
 583 '-----------------------------------------------------------
 584
 585 testcase tFormatAlignment
 586 '///<u><b>Format - Alignment</b></u>
 587
 588     '/// Open new Spreadsheet document
 589     printlog " Open new Spreadsheet document"
 590     Call hNewDocument
 591     '/// Set Alignment to default by ' Format -Alignment - Default'
 592     printlog " Set Alignment to default by ' Format -Alignment - Default'"
 593     FormatAlignmentHorizontalDefaultCalc
 594     '/// Set Alignment to Left by ' Format -Alignment - Left'
 595     printlog " Set Alignment to Left by ' Format -Alignment - Left'"
 596     FormatAlignmentLeftCalc
 597     '/// Set Alignment to Centered by ' Format -Alignment – Centered'
 598     printlog " Set Alignment to Centered by ' Format -Alignment – Centered'"
 599     FormatAlignmentHorizontalCenterCalc
 600     '/// Set Alignment to Right by ' Format -Alignment – Right'
 601     printlog " Set Alignment to Right by ' Format -Alignment – Right'"
 602     FormatAlignmentRightCalc
 603     '/// Set Alignment to Justified by ' Format -Alignment – Justified'
 604     printlog " Set Alignment to Justified by ' Format -Alignment – Justified'"
 605     FormatAlignmentJustifiedCalc
 606     '/// Set Alignment to Top by ' Format -Alignment – Top'
 607     printlog " Set Alignment to Top by ' Format -Alignment – Top'"
 608     FormatAlignmentTopCalc
 609     '/// Set Alignment to Center by ' Format -Alignment – Center'
 610     printlog " Set Alignment to Center by ' Format -Alignment – Center'"
 611     FormatAlignmentverticalCenterCalc
 612     '/// Set Alignment to Bottom by ' Format -Alignment – Bottom'
 613     printlog " Set Alignment to Bottom by ' Format -Alignment – Bottom'"
 614     FormatAlignmentBottomCalc
 615     '/// Close document
 616     printlog " Close document"
 617     Call hCloseDocument
 618
 619     '/// Load document from 'gTesttoolPath + "spreadsheet\required\input\twoobjects.ods"'
 620     printlog " Load document from 'gTesttoolPath + spreadsheet\required\input\twoobjects.ods"
 621     hFileOpenLocally( gTesttoolPath & "spreadsheet\required\input\twoobjects.ods" )
 622     '/// Select first object by Navigator
 623     printlog " Select first object by Navigator"
 624     Call fNavigatorSelectObject ("drawing objects", 1)
 625     '/// Select additional second drawing object by keyboard Strg-A
 626     printlog " Select additional second drawing object by keyboard Strg-A"
 627     Kontext "DocumentCalc"
 628     DocumentCalc.TypeKeys "<Mod1 A>"
 629     '/// Set Alignment to Left by ' Format -Alignment - Left'
 630     printlog " Set Alignment to Left by ' Format -Alignment - Left'"
 631     FormatAlignmentObjectLeftCalc
 632     '/// Set Alignment to Centered by ' Format -Alignment – Centered'
 633     printlog " Set Alignment to Centered by ' Format -Alignment – Centered'"
 634     FormatAlignmentObjectCenteredCalc
 635     '/// Set Alignment to Right by ' Format -Alignment – Right'
 636     printlog " Set Alignment to Right by ' Format -Alignment – Right'"
 637     FormatAlignmentObjectRightCalc
 638     '/// Set Alignment to Top by ' Format -Alignment – Top'
 639     printlog " Set Alignment to Top by ' Format -Alignment – Top'"
 640     FormatAlignmentObjectTopCalc
 641     '/// Set Alignment to Center by ' Format -Alignment – Center'
 642     printlog " Set Alignment to Center by ' Format -Alignment – Center'"
 643     FormatAlignmentObjectCenterCalc
 644     '/// Set Alignment to Bottom by ' Format -Alignment – Bottom'
 645     printlog " Set Alignment to Bottom by ' Format -Alignment – Bottom'"
 646     FormatAlignmentObjectBottomCalc
 647     '/// Close document
 648     printlog " Close document"
 649     Call hCloseDocument
 650     hFileDelete( gLastWorkFile )
 651
 652 endcase
 653
 654 '-----------------------------------------------------------
 655
 656 testcase tFormatArrange
 657 '///<u><b>Format - Arrange</b></u>
 658
 659     '/// Open new Spreadsheet document
 660     printlog " Open new Spreadsheet document"
 661     Call hNewDocument
 662     '/// Insert Picture by 'Insert – Picture – From File' ...
 663     printlog " Insert Picture by 'Insert – Picture – From File' ..."
 664     InsertGraphicsFromFile
 665     Kontext "GrafikEinfuegenDlg"
 666     Dateiname.Settext convertpath(gTesttoolpath + "global\input\graf_inp\borabora.jpg")
 667     Oeffnen.Click
 668     '/// 'Format – Arrange – Bring to Front'
 669     printlog " 'Format – Arrange – Bring to Front'"
 670     FormatArrangeBringToFrontCalc
 671     '/// 'Format – Arrange – Forward One'
 672     printlog " 'Format – Arrange – Forward One'"
 673     FormatArrangeBringForwardCalc
 674     '/// 'Format – Arrange – Back One'
 675     printlog " 'Format – Arrange – Back One'"
 676     FormatArrangeSendBackwardCalc
 677     '/// 'Format – Arrange – Send to Back'
 678     printlog " 'Format – Arrange – Send to Back'"
 679     FormatArrangeSendToBackCalc
 680     '/// 'Format – Arrange – To Background'
 681     printlog " 'Format – Arrange – To Background'"
 682     FormatArrangeToBackgroundCalc
 683     '/// 'Format – Arrange – To Foreground'
 684     printlog " 'Format – Arrange – To Foreground'"
 685     'Sometimes the selection of the graphic get lost, then reselect by Navigator
 686     try
 687         FormatArrangeToForegroundCalc
 688     catch
 689         Call fNavigatorSelectObject ("graphics", 1)
 690         FormatArrangeToForegroundCalc
 691     endcatch
 692     '/// Close document
 693     printlog " Close document"
 694     Call hCloseDocument
 695
 696 endcase
 697
 698 '-----------------------------------------------------------
 699
 700 testcase tFormatFlip
 701 '///<u><b>Format - Flip</b></u>
 702
 703     '/// Open new Spreadsheet document
 704     printlog " Open new Spreadsheet document"
 705     Call hNewDocument
 706     '/// Insert Picture by 'Insert – Picture – From File' ...
 707     printlog " Insert Picture by 'Insert – Picture – From File' ..."
 708     InsertGraphicsFromFile
 709     Kontext "GrafikEinfuegenDlg"
 710     Dateiname.Settext convertpath(gTesttoolpath + "global\input\graf_inp\borabora.jpg")
 711     Oeffnen.Click
 712     '/// Flip picture by 'Format – Flip – Flip Vertically'
 713     printlog " Flip picture by 'Format – Flip – Flip Vertically'"
 714     FormatFlipVerticallyCalc
 715     '/// Flip picture by 'Format – Flip – Flip Object Horizontally'
 716     printlog " Flip picture by 'Format – Flip – Flip Object Horizontally'"
 717     FormatFlipHorizontalCalc
 718     '/// Close document
 719     printlog " Close document"
 720     Call hCloseDocument
 721
 722 endcase
 723
 724 '-----------------------------------------------------------
 725
 726 testcase tFormatGroup
 727 '///<u><b>Format - Group</b></u>
 728
 729     '/// Load document from 'gTesttoolPath + "spreadsheet\required\input\twoobjects.ods"'
 730     printlog " Load document from 'gTesttoolPath + spreadsheet\required\input\twoobjects.ods"
 731     hFileOpenLocally( gTesttoolPath & "spreadsheet\required\input\twoobjects.ods" )
 732     '/// Select first object by Navigator
 733     printlog " Select first object by Navigator"
 734     Call fNavigatorSelectObject ("drawing objects", 1)
 735     '/// Select additional second drawing object by keyboard Strg-A
 736     printlog " Select additional second drawing object by keyboard Strg-A"
 737     Kontext "DocumentCalc"
 738     DocumentCalc.TypeKeys "<Mod1 A>"
 739     '/// Group objects by 'Format - Group - Group
 740     printlog " Group objects by 'Format - Group - Group"
 741     FormatGroupGroup
 742     '/// Enter Group by 'Format - Group - Enter'
 743     printlog " Enter Group by 'Format - Group - Enter'"
 744     FormatGroupEditGroupCalc
 745     '/// Leave Group by 'Format - Group - Exit'
 746     printlog " Leave Group by 'Format - Group - Exit'"
 747     FormatExitGroupDraw
 748     '/// Ungroup objects by 'Format - Group - Ungroup'
 749     printlog " Ungroup objects by 'Format - Group - Ungroup'"
 750     FormatUngroupDraw
 751     '/// Close document
 752     printlog " Close document"
 753     Call hCloseDocument
 754     hFileDelete( gLastWorkFile )
 755
 756 endcase
 757
 758 '-----------------------------------------------------------
 759
 760 testcase tFormatControl
 761 '///<u><b>Format - Control</b></u>
 762
 763 qaerrorlog "Testcase still under construction"
 764 goto endsub
 765
 766     '/// Open new Spreadsheet document
 767     printlog " Open new Spreadsheet document"
 768     Call hNewDocument
 769 '/// Insert Control Button
 770 printlog " Insert Control Button"
 771
 772 '/// Open 'Properties' – dialog by 'Format – Control'
 773 printlog " Open 'Properties' – dialog by 'Format – Control'"
 774 'FormatControl
 775 '/// Switch to tabpage 'General'
 776 printlog " Switch to tabpage 'General'"
 777
 778 '/// Switch to tabpage 'Events'
 779 printlog " Switch to tabpage 'Events'"
 780
 781 '/// Close dialog by 'Format – Controls'
 782 printlog " Close dialog by 'Format – Controls'"
 783
 784 '/// Open 'Form Properties' – dialog by 'Format – Form'
 785 printlog " Open 'Form Properties' – dialog by 'Format – Form'"
 786 'FormatForm
 787 '/// Switch to tabpage 'General'
 788 printlog " Switch to tabpage 'General'"
 789
 790 '/// Switch to tabpage 'Data'
 791 printlog " Switch to tabpage 'Data'"
 792
 793 '/// Switch to tabpage 'Events'
 794 printlog " Switch to tabpage 'Events'"
 795
 796 '/// Close dialog by 'Format – Form'
 797 printlog " Close dialog by 'Format – Form'"
 798
 799     '/// Close document
 800     printlog " Close document"
 801     Call hCloseDocument
 802
 803 endcase
 804