testautomation/spreadsheet/required/includes/c_upd_formatmenu.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_formatmenu.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 08:06:06 $
  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 I
  37 '*
  38 '************************************************************************
  39 '*
  40 ' #1 tFormatDefaultFormatting
  41 ' #1 tFormatCells
  42 ' #1 tFormatRow
  43 ' #1 tFormatColumn
  44 ' #1 tFormatSheet
  45 ' #1 tFormatMergeCells
  46 ' #1 tFormatPage
  47 '*
  48 '\***********************************************************************
  49
  50 sub c_upd_formatmenu
  51
  52     Printlog Chr(13) + "--------- Format Menu Part I (c_upd_formatmenu.inc) ---------"
  53
  54     call tFormatDefaultFormatting
  55     call tFormatCells
  56     call tFormatRow
  57     call tFormatColumn
  58     call tFormatSheet
  59     call tFormatMergeCells
  60     call tFormatPage
  61
  62 end sub
  63
  64 '-----------------------------------------------------------
  65
  66 testcase tFormatDefaultFormatting
  67 '///<u><b>Format - Default Formatting</b></u>
  68
  69     '/// Opening new spreadsheet document for getting defined starting environment
  70     printlog " Opening new spreadsheet document for getting defined starting environment"
  71     call hNewDocument
  72     '/// Select cell A1:D4
  73     printlog " Select cell A1:D4"
  74     call fCalcSelectRange ("A1:D4")
  75     '/// Use 'Format – Default Formatting
  76     printlog " Use 'Format – Default Formatting"
  77     FormatDefaultCalc
  78     '/// Close starting document
  79     printlog " Close starting document"
  80     call hCloseDocument
  81
  82 endcase
  83
  84 '-----------------------------------------------------------
  85
  86 testcase tFormatCells
  87 '///<u><b>Format - Cells</b></u>
  88
  89     Dim bAsianLanguage as boolean
  90     Dim bCTLlanguage as boolean
  91
  92     '/// Open new Spreadsheet document
  93     printlog " Open new Spreadsheet document"
  94     call hNewDocument
  95     '/// Open 'Format Cells' – dialog by 'Format – Cells'
  96     printlog " Open 'Format Cells' – dialog by 'Format – Cells'"
  97     FormatCells
  98     '/// Switch to tabpage 'Numbers'
  99     printlog " Switch to tabpage 'Numbers'"
 100     Kontext
 101     active.SetPage TabZahlen
 102     Kontext "TabZahlen"
 103     Call DialogTest ( TabZahlen )
 104     '/// Verify that there are 11 items in the 'Category' list
 105     printlog " Verify that there are 11 items in the 'Category' list"
 106     if Kategorie.GetItemCount <> 11 then
 107         warnlog "The number of categories are" & Kategorie.GetItemCount & " instead of 11"
 108     end if
 109     '/// Choose category 'Currency' (5th in list)
 110     printlog " Choose category 'Currency' (5th in list)"
 111     Kategorie.Select 5
 112     '/// Verify that the 'Format' now contains a language listbox
 113     printlog " Verify that the 'Format' now contains a language listbox"
 114     if FormatSprache.Exists then
 115         '/// Verify that  the 'Language' listbox has items
 116         printlog " Verify that  the 'Language' listbox has items"
 117         if FormatSprache.GetItemCount < 1 then
 118             warnlog "The language listbox is empty"
 119         end if
 120     else
 121         warnlog "There is no languagelistbox"
 122     end if
 123     '/// Type 'Test' in editfield for 'Format code'
 124     printlog " Type 'Test' in editfield for 'Format code'"
 125     FormatCode.SetText "Test"
 126     '/// Press 'Edit Comment' button
 127     printlog " Press 'Edit Comment' button"
 128     PBInfo.Click
 129     '/// Enter 'My Format' in the comment field
 130     printlog " Enter 'My Format' in the comment field"
 131     Kommentar.SetText "My Format"
 132     '/// Press 'Edit Comment' button again to finish the input
 133     printlog " Press 'Edit Comment' button again to finish the input"
 134     PBInfo.Click
 135     '/// Press the 'Add' button
 136     printlog " Press the 'Add' button"
 137     PBHinzufuegen
 138     '/// Press the 'Delete' button
 139     printlog " Press the 'Delete' button"
 140     PBEntfernen
 141     '/// Close 'Format Cells' – dialog with 'Cancel'
 142     printlog " Close 'Format Cells' – dialog with 'Cancel'"
 143     TabZahlen.Close
 144
 145     '/// Enable language support for CJK and CTL (Tools-Options-Language Support)
 146     printlog " Enable language support for CJK and CTL (Tools-Options-Language Support)"
 147     bAsianLanguage = ActiveDeactivateAsianSupport(TRUE)
 148     bCTLLanguage = ActiveDeactivateCTLSupport(TRUE)
 149     '/// Open 'Format Cells' – dialog by 'Format – Cells'
 150     printlog " Open 'Format Cells' – dialog by 'Format – Cells'"
 151     FormatCells
 152     '/// Switch to tabpage 'Font'
 153     printlog " Switch to tabpage 'Font'"
 154     Kontext
 155     active.SetPage TabFont
 156     Kontext "TabFont"
 157     Call DialogTest ( TabFont,2 )
 158     '/// Verify that the fontlistbox  for 'Western text font' has items
 159     printlog " Verify that the fontlistbox  for 'Western text font' has items"
 160     if FontWest.GetItemCount < 1 then
 161         warnlog "The fontlistbox is empty"
 162     end if
 163     '/// Verify that the Typeface listbox  for 'Western text font' has items
 164     printlog " Verify that the Typeface listbox  for 'Western text font' has items"
 165     if StyleWest.GetItemCount < 1 then
 166         warnlog "The stylelistbox is empty"
 167     end if
 168     '/// Verify that the Size listbox  for 'Western text font' has items
 169     printlog " Verify that the Size listbox  for 'Western text font' has items"
 170     if SizeWest.GetItemCount < 1 then
 171         warnlog "The sizelistbox is empty"
 172     end if
 173     '/// Verify that the Languag  for 'Western text font'e listbox has items
 174     printlog " Verify that the Languag  for 'Western text font'e listbox has items"
 175     if LanguageWest.GetItemCount < 1 then
 176         warnlog "The languagelistbox is empty"
 177     end if
 178     '/// Verify that the fontlistbox  for 'Asian text font' has items
 179     printlog " Verify that the fontlistbox  for 'Asian text font' has items"
 180     if FontEast.GetItemCount < 1 then
 181         warnlog "The fontlistbox is empty"
 182     end if
 183     '/// Verify that the Typeface listbox  for 'Asian text font' has items
 184     printlog " Verify that the Typeface listbox  for 'Asian text font' has items"
 185     if StyleEast.GetItemCount < 1 then
 186         warnlog "The stylelistbox is empty"
 187     end if
 188     '/// Verify that the Size listbox  for 'Asian text font' has items
 189     printlog " Verify that the Size listbox  for 'Asian text font' has items"
 190     if SizeEast.GetItemCount < 1 then
 191         warnlog "The sizelistbox is empty"
 192     end if
 193     '/// Verify that the Language for 'Asian text font'e listbox has items
 194     printlog " Verify that the Language for 'Asian text font'e listbox has items"
 195     if LanguageEast.GetItemCount < 1 then
 196         warnlog "The languagelistbox is empty"
 197     end if
 198     '/// Verify that the fontlistbox  for 'CTL font' has items
 199     printlog " Verify that the fontlistbox  for 'CTL font' has items"
 200     if FontCTL.GetItemCount < 1 then
 201         warnlog "The fontlistbox is empty"
 202     end if
 203     '/// Verify that the Typeface listbox  for 'CTL font' has items
 204     printlog " Verify that the Typeface listbox  for 'CTL font' has items"
 205     if StyleCTL.GetItemCount < 1 then
 206         warnlog "The stylelistbox is empty"
 207     end if
 208     '/// Verify that the Size listbox  for 'CTL font' has items
 209     printlog " Verify that the Size listbox  for 'CTL font' has items"
 210     if SizeCTL.GetItemCount < 1 then
 211         warnlog "The sizelistbox is empty"
 212     end if
 213     '/// Verify that the Language listbox  for 'CTL font' has items
 214     printlog " Verify that the Language listbox  for 'CTL font' has items"
 215     if LanguageCTL.GetItemCount < 1 then
 216         warnlog "The languagelistbox is empty"
 217     end if
 218
 219     '/// Switch to tabpage 'Font Effects'
 220     printlog " Switch to tabpage 'Font Effects'"
 221     Kontext
 222     active.SetPage TabFontEffects
 223     Kontext "TabFontEffects"
 224     Call DialogTest ( TabFontEffects )
 225     '/// Choose second entry for 'Underlining'
 226     printlog " Choose second entry for 'Underlining'"
 227     Underline.Select 2
 228     '/// Check that the 'Color' listbox is enabled
 229     printlog " Check that the 'Color' listbox is enabled"
 230     if not Color.IsEnabled then
 231         warnlog "The colorbox is not enabled"
 232     end if
 233     '/// Choose second entry for 'Strikethrough'
 234     printlog " Choose second entry for 'Strikethrough'"
 235     StrikeThrough.Select 2
 236     '/// Check that the 'IndividualWords' checkbox is enabled
 237     printlog " Check that the 'IndividualWords' checkbox is enabled"
 238     if not IndividualWords.IsEnabled then
 239         warnlog "The checkbox for IndividualWords is not enabled"
 240     end if
 241     '/// Choose first entry for 'Relief' (without)
 242     printlog " Choose first entry for 'Relief' (without)"
 243     Relief.Select 1
 244     '/// Check Outline
 245     printlog " Check Outline"
 246     if Outline.IsEnabled then
 247         Outline.Check
 248     end if
 249     '/// Check Shadow
 250     printlog " Check Shadow"
 251     if Shadow.IsEnabled then
 252         Shadow.Check
 253     end if
 254     '/// Choose second entry for 'Emphasis mark'
 255     printlog " Choose second entry for 'Emphasis mark'"
 256     Emphasis.Select 2
 257     '/// Check that the 'Position' listbox is enabled
 258     printlog " Check that the 'Position' listbox is enabled"
 259     if not Position.IsEnabled then
 260         warnlog "The Position listbox is disabled"
 261     end if
 262     '/// Check that the 'Font Color' listbox has items
 263     printlog " Check that the 'Font Color' listbox has items"
 264     if FontColor.GetItemCount < 1 then
 265         warnlog "The fontcolorbox is empty"
 266     end if
 267
 268     '/// Switch to tabpage 'Alignment'
 269     printlog " Switch to tabpage 'Alignment'"
 270     Kontext
 271     active.SetPage TabAusrichtung
 272     Kontext "TabAusrichtung"
 273     Call DialogTest ( TabAusrichtung )
 274     '/// Choose second entry for 'Horizontal'
 275     printlog " Choose second entry for 'Horizontal'"
 276     ListeHAusrichtung.Select 2
 277     '/// Increase the 'Indent'
 278     printlog " Increase the 'Indent'"
 279     if Einzug.IsEnabled then
 280         Einzug.More
 281     end if
 282     '/// Check that the 'Vertical' listbox has items
 283     printlog " Check that the 'Vertical' listbox has items"
 284     if ListeVAusrichtung.GetItemCount < 1 then
 285         warnlog "The 'Vertical' listbox is empty"
 286     end if
 287     '/// Check 'Vertically stacked' checkbox
 288     printlog " Check 'Vertically stacked' checkbox"
 289     Gestapelt.Check
 290     if not VertikaleAusrichtung.IsEnabled then
 291         warnlog "The 'Asian layout mode is not enabled"
 292     end if
 293     '/// Uncheck 'Vertically stacked' checkbox
 294     printlog " Uncheck 'Vertically stacked' checkbox"
 295     Gestapelt.Uncheck
 296     '/// Increse the 'Degrees'
 297     printlog " Increse the 'Degrees'"
 298     Grad.More
 299     '/// Check 'Wrap text automatically' checkbox
 300     printlog " Check 'Wrap text automatically' checkbox"
 301     Zeilenumbruch.Check
 302     '/// Verify that the 'Hyphenation active' checkbox is enabled
 303     printlog " Verify that the 'Hyphenation active' checkbox is enabled"
 304     if not Silbentrennung.IsEnabled then
 305         warnlog "The hypenation checkbox is not enabled"
 306     end if
 307     '/// Uncheck 'Wrap text automatically' checkbox
 308     printlog " Uncheck 'Wrap text automatically' checkbox"
 309     Zeilenumbruch.UnCheck
 310     '/// Verify that the 'Shrink to fit cell size' checkbox is enabled
 311     printlog " Verify that the 'Shrink to fit cell size' checkbox is enabled"
 312     if not ShrinkToFit.IsEnabled then
 313         warnlog "The 'Shrink to fit cell size' checkbox is disabled"
 314     end if
 315     '/// Check that the 'Text direction' listbox has items
 316     printlog " Check that the 'Text direction' listbox has items"
 317     if SetAlignmentOptions.GetItemCount < 1 then
 318         warnlog "The 'Text direction' listbox is empty"
 319     end if
 320
 321     '/// Switch to tabpage 'Asian Typography'
 322     printlog " Switch to tabpage 'Asian Typography'"
 323     Kontext
 324     active.SetPage TabAsianTypography
 325     Kontext "TabAsianTypography"
 326     Call DialogTest ( TabAsianTypography )
 327     '/// Verify that the checkbox for 'Apply list...' exists
 328     printlog " Verify that the checkbox for 'Apply list...' exists"
 329     if not ApplyList.Exists then
 330         warnlog "The checkbox does not exists"
 331     end if
 332     '/// Verify that the checkbox for 'Allow hanging punctation' exists
 333     printlog " Verify that the checkbox for 'Allow hanging punctation' exists"
 334     if not AllowHangingPunctuation.Exists then
 335         warnlog "The checkbox does not exists"
 336     end if
 337     '/// Verify that the checkbox for 'Apply spacing...' exists
 338     printlog " Verify that the checkbox for 'Apply spacing...' exists"
 339     if not ApplySpacingBetween.Exists then
 340         warnlog "The checkbox does not exists"
 341     end if
 342
 343     '/// Switch to tabpage 'Borders'
 344     printlog " Switch to tabpage 'Borders'"
 345     Kontext
 346     active.SetPage TabUmrandung
 347     Kontext "TabUmrandung"
 348     Call DialogTest ( TabUmrandung )
 349     '/// Verify that the 'Line Style' listbox has items
 350     printlog " Verify that the 'Line Style' listbox has items"
 351     if Stil.GetItemCount < 1 then
 352         warnlog "The 'Line Style' listbox is empty"
 353     end if
 354     '/// Verify that the 'Color' listbox has items
 355     printlog " Verify that the 'Color' listbox has items"
 356     if StilFarbe.GetItemCount < 1 then
 357         warnlog "The 'Line Color' listbox is empty"
 358     end if
 359     '/// Increase 'left'
 360     printlog " Increase 'left'"
 361     Links.More
 362     '/// Decrease 'Right'
 363     printlog " Decrease 'Right'"
 364     Rechts.Less
 365     '/// Increase 'Top'
 366     printlog " Increase 'Top'"
 367     Oben.More
 368     '/// Decrease 'Bottom'
 369     printlog " Decrease 'Bottom'"
 370     Unten.Less
 371     '/// Check checkbox 'Synchronize'
 372     printlog " Check checkbox 'Synchronize'"
 373     Synchronisieren.Check
 374     '/// Choose second position for 'Shadow Style'
 375     printlog " Choose second position for 'Shadow Style'"
 376     Position.TypeKeys "<Right>"
 377     '/// Increase 'Distance'
 378     printlog " Increase 'Distance'"
 379     Groesse.More
 380     '/// Verify that the 'Color' listbox has items
 381     printlog " Verify that the 'Color' listbox has items"
 382     if SchattenFarbe.GetItemCount < 1 then
 383        warnlog "The listbox for color is empty"
 384     end if
 385
 386     '/// Switch to tabpage 'Background'
 387     printlog " Switch to tabpage 'Background'"
 388     Kontext
 389     active.SetPage TabHintergrund
 390     Kontext "TabHintergrund"
 391     Call DialogTest ( TabHintergrund )
 392
 393     '/// Switch to tabpage 'Cell Protection'
 394     printlog " Switch to tabpage 'Cell Protection'"
 395     Kontext
 396     active.SetPage TabZellschutz
 397     Kontext "TabZellschutz"
 398     Call DialogTest ( TabZellschutz )
 399     '/// Use every checkbox
 400     printlog " Use every checkbox"
 401     AllesAusblenden.Uncheck
 402     Gesperrt.Check
 403     FormelAusblenden.Uncheck
 404     FuerAusdruckAusblenden.Uncheck
 405     '/// Close 'Format Cells' – dialog with 'Cancel'
 406     printlog " Close 'Format Cells' – dialog with 'Cancel'"
 407     TabZellschutz.Close
 408     '/// Set support for CJK and CTL back to default (Tools – Options – Language Support)
 409     printlog " Set support for CJK and CTL back to default (Tools – Options – Language Support)"
 410     if bAsianLanguage = FALSE then
 411         Call ActiveDeactivateAsianSupport(FALSE)
 412     end if
 413     if bCTLLanguage = FALSE then
 414         Call ActiveDeactivateCTLSupport(FALSE)
 415     end if
 416     '/// Close document
 417     printlog " Close document"
 418     call hCloseDocument
 419
 420 endcase
 421
 422 '-----------------------------------------------------------
 423
 424 testcase tFormatRow
 425 '///<u><b>Format - Row</b></u>
 426
 427     '/// Open new Spreadsheet document
 428     printlog " Open new Spreadsheet document"
 429     call hNewDocument
 430     '/// Open 'Row Height' – dialog by 'Format – Row – Height'
 431     printlog " Open 'Row Height' – dialog by 'Format – Row – Height'"
 432     FormatRowHeightCalc
 433     Kontext "ZeilenHoehe"
 434     DialogTest ( ZeilenHoehe
 435     '/// Increase 'Height'
 436     printlog " Increase 'Height'"
 437     Hoehe.More
 438     '/// Close dialog with 'Cancel'
 439     printlog " Close dialog with 'Cancel'"
 440     ZeilenHoehe.Close
 441     '/// Open 'Optimal Row Height' – dialog by 'Format – Row – Optimal Height'
 442     printlog " Open 'Optimal Row Height' – dialog by 'Format – Row – Optimal Height'"
 443     FormatRowOptimalHeightCalc
 444     Kontext "ZeileOptimaleHoehe"
 445     DialogTest ( ZeileOptimaleHoehe )
 446     '/// Increase 'Height'
 447     printlog " Increase 'Height'"
 448     Extra.More
 449     '/// Check 'Default Value'
 450     printlog " Check 'Default Value'"
 451     StandardWert.Check
 452     '/// Close dialog with 'Cancel'
 453     printlog " Close dialog with 'Cancel'"
 454     ZeileOptimaleHoehe.Cancel
 455     '/// Hide row with 'Format – Row – Hide'
 456     printlog " Hide row with 'Format – Row – Hide'"
 457     FormatRowHide
 458     '/// Show row with 'Format – Row – Show'
 459     printlog " Show row with 'Format – Row – Show'"
 460     FormatRowShow
 461     '/// Close document
 462     printlog " Close document"
 463     call hCloseDocument
 464
 465 endcase
 466
 467 '-----------------------------------------------------------
 468
 469 testcase tFormatColumn
 470 '///<u><b>Format - Column</b></u>
 471
 472     '/// Open new Spreadsheet document
 473     printlog " Open new Spreadsheet document"
 474     call hNewDocument
 475     '/// Open 'Column Width' – dialog by 'Format – Column – Width'
 476     printlog " Open 'Column Width' – dialog by 'Format – Column – Width'"
 477     FormatColumnWidthCalc
 478     Kontext "SpaltenBreiteCalc"
 479     DialogTest ( SpaltenBreiteCalc )
 480     '/// Increase 'Width'
 481     printlog " Increase 'Width'"
 482     Breite.More
 483     '/// Close dialog with 'Cancel'
 484     printlog " Close dialog with 'Cancel'"
 485     SpaltenBreiteCalc.Cancel
 486     '/// Open 'Optimal Column Width' – dialog by 'Format – Column – Optimal Width'
 487     printlog " Open 'Optimal Column Width' – dialog by 'Format – Column – Optimal Width'"
 488     FormatColumnOptimalWidthCalc
 489     Kontext "SpalteOptimaleBreite"
 490     DialogTest ( SpalteOptimaleBreite )
 491     '/// Increase 'Width'
 492     printlog " Increase 'Width'"
 493     Extra.More
 494     '/// Check 'Default Value'
 495     printlog " Check 'Default Value'"
 496     StandardWert.Check
 497     '/// Close dialog with 'Cancel'
 498     printlog " Close dialog with 'Cancel'"
 499     SpalteOptimaleBreite.Cancel
 500     '/// Hide Column with 'Format – Column – Hide'
 501     printlog " Hide Column with 'Format – Column – Hide'"
 502     FormatColumnHide
 503     '/// Show Column with 'Format – Column – Show'
 504     printlog " Show Column with 'Format – Column – Show'"
 505     FormatColumnShow
 506     '/// Close document
 507     printlog " Close document"
 508     call hCloseDocument
 509
 510 endcase
 511
 512 '-----------------------------------------------------------
 513
 514 testcase tFormatSheet
 515 '///<u><b>Format - Sheet</b></u>
 516
 517     Dim bAsianLanguage as boolean
 518     Dim bCTLlanguage as boolean
 519
 520     '/// Open new Spreadsheet document
 521     printlog " Open new Spreadsheet document"
 522     Call  hNewDocument
 523     '/// Open 'Rename Sheet' – dialog by 'Format – Sheet'
 524     printlog " Open 'Rename Sheet' – dialog by 'Format – Sheet'"
 525     FormatSheetRename
 526     Kontext "TabelleUmbenennen"
 527     DialogTest ( TabelleUmbenennen )
 528     '/// Close 'Rename Sheet' – dialog with 'Cancel'
 529     printlog " Close 'Rename Sheet' – dialog with 'Cancel'"
 530     TabelleUmbenennen.Cancel
 531     '/// 'Hide' sheet by 'Format – Sheet – Hide'
 532     printlog " 'Hide' sheet by 'Format – Sheet – Hide'"
 533     FormatSheetHide
 534     '/// Open 'Show Sheet' – dialog by 'Format – Sheet – Show'
 535     printlog " Open 'Show Sheet' – dialog by 'Format – Sheet – Show'"
 536     FormatSheetShow
 537     Kontext "TabelleEinblenden"
 538     DialogTest ( TabelleEinblenden )
 539     '/// Close 'Show Sheet' – dialog with 'Cancel'
 540     printlog " Close 'Show Sheet' – dialog with 'Cancel'"
 541     TabelleEinblenden.Cancel
 542     '/// Enable language support for CJK and CTL (Tools-Options-Language Support)
 543     printlog " Enable language support for CJK and CTL (Tools-Options-Language Support)"
 544     bAsianLanguage = ActiveDeactivateAsianSupport(TRUE)
 545     bCTLLanguage = ActiveDeactivateCTLSupport(TRUE)
 546     '/// Switch sheet layout to 'Right-To-Left' by 'Format – Sheet – Right-To-Left'
 547     printlog " Switch sheet layout to 'Right-To-Left' by 'Format – Sheet – Right-To-Left'"
 548     FormatSheetRightToLeft
 549     '/// Switch sheet layout back
 550     printlog " Switch sheet layout back"
 551     FormatSheetRightToLeft
 552     '/// Set support for CJK and CTL back to default (Tools – Options – Language Support)
 553     printlog " Set support for CJK and CTL back to default (Tools – Options – Language Support)"
 554     if bAsianLanguage = FALSE then
 555         Call ActiveDeactivateAsianSupport(FALSE)
 556     end if
 557     if bCTLLanguage = FALSE then
 558         Call ActiveDeactivateCTLSupport(FALSE)
 559     end if
 560     '/// Close document
 561     printlog " Close document"
 562     call hCloseDocument
 563
 564 endcase
 565
 566 '-----------------------------------------------------------
 567
 568 testcase tFormatMergeCells
 569 '///<u><b>Format - Merge Cells</b></u>
 570
 571     '/// Open new Spreadsheet document
 572     printlog " Open new Spreadsheet document"
 573     call hNewDocument
 574     '/// Select cells A1:D4
 575     printlog " Select cells A1:D4"
 576     call fCalcSelectRange ("A1:D4")
 577     '/// 'Merge Cells' by 'Format – Merge Cells'
 578     printlog " 'Merge Cells' by 'Format – Merge Cells'"
 579     FormatMergeCells
 580     '/// Close document
 581     printlog " Close starting document"
 582     call hCloseDocument
 583
 584 endcase
 585
 586 '-----------------------------------------------------------
 587
 588 testcase tFormatPage
 589 '///<u><b>Format - Page</b></u>
 590
 591     Dim bAsianLanguage as boolean
 592     Dim bCTLlanguage as boolean
 593
 594     '/// Open new Spreadsheet document
 595     printlog " Open new Spreadsheet document"
 596     Call  hNewDocument
 597     '/// Enable language support for CJK and CTL (Tools-Options-Language Support)
 598     printlog " Enable language support for CJK and CTL (Tools-Options-Language Support)"
 599     bAsianLanguage = ActiveDeactivateAsianSupport(TRUE)
 600     bCTLLanguage = ActiveDeactivateCTLSupport(TRUE)
 601     '/// Open 'Page Style' – dialog with 'Format – Page'
 602     printlog " Open 'Page Style' – dialog with 'Format – Page'"
 603     FormatPageCalc
 604
 605     '/// Switch to tabpage 'Organizer'
 606     printlog " Switch to tabpage 'Organizer'"
 607     Kontext
 608     active.SetPage TabVerwalten
 609     Kontext "TabVerwalten"
 610     Call DialogTest ( TabVerwalten )
 611
 612     '/// Switch to tabpage 'Page'
 613     printlog " Switch to tabpage 'Page'"
 614     Kontext
 615     active.SetPage TabSeite
 616     Kontext "TabSeite"
 617     Call DialogTest ( TabSeite )
 618     '/// Check that the 'Format' listbox has items
 619     printlog " Check that the 'Format' listbox has items"
 620     if Papierformat.GetItemCount < 1 then
 621         warnlog "No paperformats available"
 622     end if
 623     '/// Increase 'Width'
 624     printlog " Increase 'Width'"
 625     Breite.More
 626     '/// Decrease 'Height'
 627     printlog " Decrease 'Height'"
 628     Hoehe.Less
 629     '/// Check option 'Landscape'
 630     printlog " Check option 'Landscape'"
 631     Quer.Check
 632     '/// Check that listbox 'Text direction' has items
 633     printlog " Check that listbox 'Text direction' has 2 items"
 634     if Textfluss.GetItemCount <> 2 then
 635         warnlog "The text direction listbox is empty"
 636     end if
 637     '/// Check that listbox 'Paper tray' has items
 638     printlog " Check that listbox 'Paper tray' has items"
 639     if Schacht < 1 then
 640     warnlog "The text direction listbox is empty"
 641     end if
 642     '/// Increase 'Margins Left'
 643     printlog " Increase 'Margins Left'"
 644     Links.More
 645     '/// Decrease 'Margins Right'
 646     printlog " Decrease 'Margins Right'"
 647     Rechts.Less
 648     '/// Increase 'Margins Top'
 649     printlog " Increase 'Margins Top'"
 650     Oben.More
 651     '/// Decrease 'Margins Bottom'
 652     printlog " Decrease 'Margins Bottom'"
 653     Unten.Less
 654     '/// Check that listbox 'Page layout' has items
 655     printlog " Check that listbox 'Page layout' has items"
 656     if Seitenlayout.GetItemCount < 1 then
 657         warnlog "No pagelayouts available"
 658     end if
 659     '/// Check that listbox 'Format' has items
 660     printlog " Check that listbox 'Format' has items"
 661     if Numerierung.GetItemCount < 1 then
 662         warnlog "No formats available"
 663     end if
 664     '/// Check 'Table alignment Horizontal'
 665     printlog " Check 'Table alignment Horizontal'"
 666     Horizontal.Check
 667     '/// Check 'Table alignment Vertical'
 668     printlog " Check 'Table alignment Vertical'"
 669     Vertikal.Check
 670
 671     '/// Switch to tabpage 'Borders'
 672     printlog " Switch to tabpage 'Borders'"
 673     Kontext
 674     active.SetPage TabUmrandung
 675     Kontext "TabUmrandung"
 676     Call DialogTest ( TabUmrandung )
 677     '/// Verify that listbox 'Style' has items
 678     printlog " Verify that listbox 'Style' has items"
 679     if Stil.GetItemCount < 1 then
 680         warnlog "No styles available"
 681     end if
 682     '/// Verify that the listbox 'Color' has items
 683     printlog " Verify that the listbox 'Color' has items"
 684     if StilFarbe.GetItemCount < 1 then
 685         warnlog "No style colors available"
 686     end if
 687     '/// Increase 'Spacing to contents Left'
 688     printlog " Increase 'Spacing to contents Left'"
 689     Links.More
 690     '/// Decrease 'Spacing to contents Right'
 691     printlog " Decrease 'Spacing to contents Right'"
 692     Rechts.Less
 693     '/// Increase 'Spacing to contents Top'
 694     printlog " Increase 'Spacing to contents Top'"
 695     Oben.More
 696     '/// Decrease 'Spacing to contents Bottom'
 697     printlog " Decrease 'Spacing to contents Bottom'"
 698     Unten.Less
 699     '/// Check 'Synchronize'
 700     printlog " Check 'Synchronize'"
 701     Synchronisieren.Check
 702     '/// Choose second position for 'Shadow Style'
 703     printlog " Choose second position for 'Shadow Style'"
 704     Position.TypeKeys "<Right>"
 705     '/// Increase 'Distance'
 706     printlog " Increase 'Distance'"
 707     Groesse.More
 708     '/// Verify that the 'Color' listbox has items
 709     printlog " Verify that the 'Color' listbox has items"
 710     if SchattenFarbe.GetItemCount < 1 then
 711        warnlog "The listbox for color is empty"
 712     end if
 713
 714     '/// Switch to tabpage 'Background'
 715     printlog " Switch to tabpage 'Background'"
 716     Kontext
 717     active.SetPage TabHintergrund
 718     Kontext "TabHintergrund"
 719     '/// Choose first entry 'Color'
 720     printlog " Choose first entry 'Color'"
 721     Als.Select 1
 722     Call DialogTest ( TabHintergrund,1 )
 723     '/// Choose next color
 724     printlog " Choose next color"
 725     Hintergrundfarbe.TypeKeys "<Down>"
 726     '/// Choose second entry 'Graphic'
 727     printlog " Choose second entry 'Graphic'"
 728     Als.Select 2
 729     Call DialogTest ( TabHintergrund,2 )
 730     '/// Click on 'Browse' – button
 731     printlog " Click on 'Browse' – button"
 732     Durchsuchen.Click
 733     Kontext "GrafikEinfuegenDlg"
 734     Call DialogTest (GrafikEinfuegenDlg)
 735     '/// Enter filename 'global\input\graf_inp\'
 736     printlog " Enter filename 'global\input\graf_inp\borabora.jpg'"
 737     Dateiname.Settext convertpath(gTesttoolpath + "global\input\graf_inp\borabora.jpg")
 738     '/// Verify that there are more than one filter available
 739     printlog " Verify that there are more than one filter available"
 740     if Dateityp.GetItemCount < 2 then
 741         warnlog "The filterlist is empty"
 742     end if
 743     '/// Check 'Link' – option
 744     printlog " Check 'Link' – option"
 745     Link.Check
 746     '/// Check 'Preview' - option
 747     printlog " Check 'Preview' - option"
 748     Preview.Check
 749     '/// Close dialog with 'Cancel'
 750     printlog " Close dialog with 'Cancel'"
 751     GrafikEinfuegenDlg.Cancel
 752     Kontext "TabHintergrund"
 753     '/// Choose 'Type' 'Position'
 754     printlog " Choose 'Type' 'Position'"
 755     Position.Check
 756     '/// Check 'Preview'
 757     printlog " Check 'Preview'"
 758     Vorschau.Check
 759
 760     '/// Switch to tabpage 'Header'
 761     printlog " Switch to tabpage 'Header'"
 762     Kontext
 763     active.SetPage TabKopfzeile
 764     Kontext "TabKopfzeile"
 765     Call DialogTest ( TabKopfzeile )
 766     '/// Check option 'Header on'
 767     printlog " Check option 'Header on'"
 768     KopfzeileMitAbstand.Check
 769     '/// Check option 'Same content left/right'
 770     printlog " Check option 'Same content left/right'"
 771     InhaltLinksRechtsGleich.Check
 772     '/// Increase 'Left margin'
 773     printlog " Increase 'Left margin'"
 774     LinkerRandKopfzeile.More
 775     '/// Decrease 'Right margin'
 776     printlog " Decrease 'Right margin'"
 777     RechterRandKopfzeile.Less
 778     '/// Increase 'Spacing'
 779     printlog " Increase 'Spacing'"
 780     Abstand.More
 781     '/// Decrease 'Height'
 782     printlog " Decrease 'Height'"
 783     Hoehe.Less
 784     '/// Check option 'AutoFit height'
 785     printlog " Check option 'AutoFit height'"
 786     Hoehedynamisch.Check
 787     '/// Click 'More' – button
 788     printlog " Click 'More' – button"
 789     Zusaetze.Click
 790     '/// Switch to tabpage 'Borders'
 791     printlog " Switch to tabpage 'Borders'"
 792     Kontext
 793     Active.SetPage TabUmrandung
 794     Kontext "TabUmrandung"
 795     Call DialogTest (TabUmrandung)
 796     '/// Switch to tabpage 'Background'
 797     printlog " Switch to tabpage 'Background'"
 798     Kontext
 799     active.SetPage TabHintergrund
 800     Kontext "TabHintergrund"
 801     '/// Choose first entry 'Color'
 802     printlog " Choose first entry 'Color'"
 803     Als.Select 1
 804     Call DialogTest ( TabHintergrund,1 )
 805     '/// Choose second entry 'Graphic'
 806     printlog " Choose second entry 'Graphic'"
 807     Als.Select 2
 808     Call DialogTest ( TabHintergrund,2 )
 809     '/// Close dialog with 'Cancel'
 810     printlog " Close dialog with 'Cancel'"
 811     TabHintergrund.Cancel
 812     '/// Press 'Edit' – button
 813     printlog " Press 'Edit' – button"
 814     Kontext "TabKopfzeile"
 815     Bearbeiten.Click
 816     Kontext "TabKopfzeileCalc"
 817     Call DialogTest ( TabKopfzeileCalc )
 818     '/// Close dialog with 'Cancel'
 819     printlog " Close dialog with 'Cancel'"
 820     TabKopfzeileCalc.Cancel
 821     '/// Switch to tabpage 'Footer'
 822     printlog " Switch to tabpage 'Footer'"
 823     Kontext
 824     active.SetPage TabFusszeile
 825     Kontext "TabFusszeile"
 826     DialogTest (TabFusszeile)
 827     '/// Check option 'Footer on'
 828     printlog " Check option 'Footer on'"
 829     FusszeileMitAbstand.Check
 830     '/// Check option 'Same content left/right'
 831     printlog " Check option 'Same content left/right'"
 832     InhaltLinksRechtsGleich.Check
 833     '/// Increase 'Left margin'
 834     printlog " Increase 'Left margin'"
 835     LinkerRandFusszeile.More
 836     '/// Decrease 'Right margin'
 837     printlog " Decrease 'Right margin'"
 838     RechterRandFusszeile.Less
 839     '/// Increase 'Spacing'
 840     printlog " Increase 'Spacing'"
 841     Abstand.More
 842     '/// Decrease 'Height'
 843     printlog " Decrease 'Height'"
 844     Hoehe.Less
 845     '/// Check option 'AutoFit height'
 846     printlog " Check option 'AutoFit height'"
 847     Hoehedynamisch.Check
 848     '/// Click 'More' – button
 849     printlog " Click 'More' – button"
 850     Zusaetze.Click
 851     '/// Switch to tabpage 'Borders'
 852     printlog " Switch to tabpage 'Borders'"
 853     Kontext
 854     Active.SetPage TabUmrandung
 855     Kontext "TabUmrandung"
 856     '/// Switch to tabpage 'Background'
 857     printlog " Switch to tabpage 'Background'"
 858     Kontext
 859     active.SetPage TabHintergrund
 860     Kontext "TabHintergrund"
 861     '/// Close dialog with 'Cancel'
 862     printlog " Close dialog with 'Cancel'"
 863     TabHintergrund.Cancel
 864     '/// Press 'Edit' – button
 865     printlog " Press 'Edit' – button"
 866     Kontext "TabFusszeile"
 867     Bearbeiten.Click
 868     '/// Close dialog with 'Cancel'
 869     printlog " Close dialog with 'Cancel'"
 870     Kontext "TabFusszeileCalc"
 871     TabFusszeileCalc.Cancel
 872
 873     '/// Switch to tabpage 'Sheet'
 874     printlog " Switch to tabpage 'Sheet'"
 875     Kontext
 876     active.SetPage TabTabelleCalc
 877     Kontext "TabTabelleCalc"
 878     '/// Check option 'Left to right, then down'
 879     printlog " Check option 'Left to right, then down'"
 880     SeitenreihenfolgeLinksRechts.Check
 881     '/// Check option 'First page number'
 882     printlog " Check option 'First page number'"
 883     ErsteSeitenzahl.Check
 884     '/// Increase 'Page number'
 885     printlog " Increase 'Page number'"
 886     NummerErsteSeite.More
 887     '/// Check option 'Column and row headers'
 888     printlog " Check option 'Column and row headers'"
 889     ZeilenSpaltenKoepfe.Check
 890     '/// Check option 'Grid'
 891     printlog " Check option 'Grid'"
 892     Tabellengitter.Check
 893     '/// Check option 'Notes'
 894     printlog " Check option 'Notes'"
 895     Notizen.Check
 896     '/// Check option 'Objects/grphics'
 897     printlog " Check option 'Objects/grphics'"
 898     GrafikenObjekte.Check
 899     '/// Check option 'Charts'
 900     printlog " Check option 'Charts'"
 901     Diagramme.Check
 902     '/// Check option 'Drawing objects'
 903     printlog " Check option 'Drawing objects'"
 904     Zeichenobjekte.Check
 905     '/// Check option 'Formulas'
 906     printlog " Check option 'Formulas'"
 907     Formeln.Check
 908     '/// Check option 'Zero values'
 909     printlog " Check option 'Zero values'"
 910     Nullwerte.Check
 911     '/// Choose first 'Scaling mode' (Reduce/enlarge printout)
 912     printlog " Choose first 'Scaling mode' (Reduce/enlarge printout)"
 913     ScalingMode.Select 1
 914     DialogTest ( TabTabelleCalc,1 )
 915     '/// Increase 'scaling factor'
 916     printlog " Increase 'scaling factor'"
 917     SkalierungProzent.More
 918     '/// Choose second 'Scaling mode' (Fit print range to width/height)
 919     printlog " Choose second 'Scaling mode' (Fit print range to width/height)"
 920     ScalingMode.Select 2
 921     DialogTest ( TabTabelleCalc,2 )
 922     '/// Increase 'Width in pages'
 923     printlog " Increase 'Width in pages'"
 924     ScalePageWidth.More
 925     '/// Increase 'Height in pages'
 926     printlog " Increase 'Height in pages'"
 927     ScalePageHeight.More
 928     '/// Choose third 'Scaling mode' (Fit print range on number of pages)
 929     printlog " Choose third 'Scaling mode' (Fit print range on number of pages)"
 930     ScalingMode.Select 3
 931     DialogTest ( TabTabelleCalc,3 )
 932     '/// Increase 'Number of pages'
 933     printlog " Increase 'Number of pages'"
 934     AnzahlMaxSeiten.More
 935     '/// Close 'Page Style' – dialog with 'Cancel'
 936     printlog " Close 'Page Style' – dialog with 'Cancel'"
 937     TabTabelleCalc.Close
 938     '/// Set support for CJK and CTL back to default (Tools – Options – Language Support)
 939     printlog " Set support for CJK and CTL back to default (Tools – Options – Language Support)"
 940     if bAsianLanguage = FALSE then
 941         Call ActiveDeactivateAsianSupport(FALSE)
 942     end if
 943     if bCTLLanguage = FALSE then
 944         Call ActiveDeactivateCTLSupport(FALSE)
 945     end if
 946     '/// Close document
 947     printlog " Close starting document"
 948     call hCloseDocument
 949
 950 endcase
 951
 952 '-----------------------------------------------------------
 953