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