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