testautomation/spreadsheet/required/includes/c_upd_editmenu.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_editmenu.inc,v $
  10 '*
  11 '* $Revision: 1.2 $
  12 '*
  13 '* last change: $Author: rt $ $Date: 2008-07-31 19:04:59 $
  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 - Edit Menu
  37 '*
  38 '************************************************************************
  39 '*
  40 ' #1 tEditUndoRedo
  41 ' #1 tEditRepeat
  42 ' #1 tEditCut
  43 ' #1 tEditCopy
  44 ' #1 tEditPaste
  45 ' #1 tEditPasteSpecial
  46 ' #1 tEditSelectAll
  47 ' #1 tEditChanges
  48 ' #1 tEditCompareDocuments
  49 ' #1 tEditFindAndReplace
  50 ' #1 tEditHeadersAndFooters
  51 '*
  52 '\***********************************************************************
  53
  54 sub c_upd_editmenu1
  55
  56     Printlog Chr(13) + "--------- EDIT Menu Part I (c_upd_editmenu.inc) ---------"
  57
  58     call tEditUndoRedo
  59     call tEditRepeat
  60     call tEditCut
  61     call tEditCopy
  62     call tEditPaste
  63     call tEditPasteSpecial
  64     call tEditSelectAll
  65     call tEditChanges
  66     call tEditCompareDocuments
  67     call tEditFindAndReplace
  68     call tEditHeadersAndFooters
  69
  70 end sub
  71
  72 '-----------------------------------------------------------
  73
  74 testcase tEditUndoRedo
  75 '///<u><b>Edit - UndoRedo</b></u>
  76     '/// Open new Spreadsheet document
  77     printlog " Open new Spreadsheet document"
  78     call hNewDocument
  79     '/// Enter some text
  80     printlog " Enter some text"
  81     kontext "DocumentCalc"
  82     DocumentCalc.Typekeys "Test<RETURN>"
  83     '/// Edit - Undo
  84     editUndo
  85 '    sleep(1)
  86     if fCalcGetCellValue ("A1") = "" then
  87         printlog "  - Undo is working"
  88     else
  89         warnlog "Undo doesn't work"
  90     end if
  91     editRedo
  92 '    sleep(1)
  93     if fCalcGetCellValue ("A1") = "Test" then
  94         printlog "  - Redo is working"
  95     else
  96         warnlog "Redo doesn't work"
  97     end if
  98     '/// Close document
  99     printlog " Close document"
 100     hCloseDocument
 101
 102 endcase
 103
 104 '-----------------------------------------------------------
 105
 106 testcase tEditRepeat
 107 '///<u><b>Edit - Repeat</b></u>
 108     '/// Open new Spreadsheet document
 109     printlog " Open new Spreadsheet document"
 110     call hNewDocument
 111     '/// Enter some text
 112     printlog " Enter some text"
 113     kontext "DocumentCalc"
 114     DocumentCalc.Typekeys "Test<RETURN>"
 115     '/// Click on cell A2
 116     printlog " Click on cell A2"
 117     call fCalcSelectCell ("A2")
 118     '/// Repeat insertion via Edit - Repeat
 119     printlog " Repeat insertion via Edit - Repeat"
 120     EditRepeat
 121     if fCalcGetCellValue ("A2") = "Test" then
 122         printlog "  - Repeat is working"
 123     else
 124         warnlog "Repeat doesn't work"
 125     end if
 126     '/// Close document
 127     printlog " Close document"
 128     hCloseDocument
 129
 130 endcase
 131
 132 '-----------------------------------------------------------
 133
 134 testcase tEditCut
 135 '///<u><b>Edit - Cut</b></u>
 136     '/// Open new Spreadsheet document
 137     printlog " Open new Spreadsheet document"
 138     call hNewDocument
 139     '/// Enter some text
 140     printlog " Enter some text"
 141     kontext "DocumentCalc"
 142     DocumentCalc.Typekeys "Cutted Text<RETURN>"
 143     '/// Click on cell A1
 144     printlog " Click on cell A1"
 145     call fCalcSelectCell ("A1")
 146     '/// Make sure that the clipboard is empty
 147     printlog " Make sure that the clipboard is empty"
 148     setclipboard = ""
 149     '/// Cut cellcontent
 150     printlog " Cut cellcontent"
 151     EditCut
 152     if GetClipboardText = "Cutted Text" AND fCalcGetCellValue ("A1") = "" then
 153         printlog "  - Cutting is working"
 154     else
 155         warnlog "Cutting does not work correctly"
 156     end if
 157     '/// Close document
 158     printlog " Close document"
 159     hCloseDocument
 160
 161 endcase
 162
 163 '-----------------------------------------------------------
 164
 165 testcase tEditCopy
 166 '///<u><b>Edit - Copy</b></u>
 167     '/// Open new Spreadsheet document
 168     printlog " Open new Spreadsheet document"
 169     call hNewDocument
 170     '/// Enter some text
 171     printlog " Enter some text"
 172     kontext "DocumentCalc"
 173     DocumentCalc.Typekeys "Copied Text<RETURN>"
 174     '/// Click on cell A1
 175     printlog " Click on cell A1"
 176     call fCalcSelectCell ("A1")
 177     '/// Make sure that the clipboard is empty
 178     printlog " Make sure that the clipboard is empty"
 179     setclipboard = ""
 180     '/// Copy cellcontent
 181     printlog " Copy cellcontent"
 182     EditCopy
 183     if GetClipboardText = "Copied Text" AND fCalcGetCellValue ("A1") = "Copied Text" then
 184         printlog "  - Copying is working"
 185     else
 186         warnlog "Copying does not work correctly"
 187     end if
 188     '/// Close document
 189     printlog " Close document"
 190     hCloseDocument
 191
 192 endcase
 193
 194 '-----------------------------------------------------------
 195
 196 testcase tEditPaste
 197 '///<u><b>Edit - Paste</b></u>
 198     '/// Open new Spreadsheet document
 199     printlog " Open new Spreadsheet document"
 200     call hNewDocument
 201     '/// Goto cell A1
 202     printlog " Gotocell A1"
 203     call fCalcSelectCell ("A1")
 204     '/// Fill clipboard with text
 205     printlog " Fill clipboard with text"
 206     setclipboard ("Pasted Text")
 207     '/// Paste clipboard
 208     printlog " Paste clipboard"
 209     EditPaste
 210     Kontext "TextImport"
 211     if TextImport.Exists(2) then
 212         call DialogTest (TextImport)
 213         '/// Close text import dialog with OK.
 214         printlog " Close text import dialog with OK."
 215         TextImport.OK
 216     end if
 217     '/// Make sure that the clipboard is empty
 218     printlog " Make sure that the clipboard is empty"
 219     setclipboard = ""
 220     if fCalcGetCellValue ("A1") = "Pasted Text" then
 221         printlog "  - Pasting is working"
 222     else
 223         warnlog "Pasting does not work correctly"
 224     end if
 225     '/// Check overwrite messagebox via copy cellcontent and paste into itself
 226     printlog " Check overwrite messagebox via copy cellcontent and paste into itself"
 227     EditCopy
 228     EditPaste
 229     try
 230        Kontext "CellWarning"
 231        Dialogtest (CellWarning)
 232        '///<li>Cancel overwrite warning</li>///
 233        CellWarning.No
 234        printlog "  - Paste overwrite MsgBox tested"
 235     catch
 236        warnlog "MsgBox for overwrite warning doesn't exist"
 237     endcatch
 238     '/// Close document
 239     printlog " Close document"
 240     hCloseDocument
 241
 242 endcase
 243
 244 '-----------------------------------------------------------
 245
 246 testcase tEditPasteSpecial
 247 '///<u><b>Edit - PasteSpecial</b></u>
 248     '/// Open new Spreadsheet document
 249     printlog " Open new Spreadsheet document"
 250     call hNewDocument
 251     '/// Enter some text
 252     printlog " Enter some text"
 253     kontext "DocumentCalc"
 254     DocumentCalc.Typekeys "Pasted Text<RETURN>"
 255     '/// Click on cell A1
 256     printlog " Click on cell A1"
 257     call fCalcSelectCell ("A1")
 258     '/// Copy cellcontent
 259     printlog " Copy cellcontent"
 260     EditCopy
 261     '/// Paste Special the clipboard
 262     printlog " Paste Special the clipboard"
 263     EditPasteSpecialCalc
 264     kontext "InhalteEinfuegenCalc"
 265     call DialogTest (InhalteEinfuegenCalc)
 266     '/// Cancel PasteSpecial-Dialog
 267     printlog " Cancel PasteSpecial-Dialog"
 268     InhalteEinfuegenCalc.Cancel
 269     if fCalcGetCellValue ("A1") = "Pasted Text" then
 270         printlog "  - PasteSpecial of spreadsheet content is working"
 271     else
 272         warnlog "PasteSpecial of spreadsheet content does not work correctly"
 273     end if
 274     '/// Insert a picture from file Insert - Graphic - From File
 275     printlog " Insert a picture from file Insert - Graphic - From File"
 276     InsertGraphicsFromFile
 277     Kontext "GrafikEinfuegenDlg"
 278     '/// Choose gTesttoolpath + global\input\graf_inp\baer.tif
 279     printlog " Choose gTesttoolpath + global\input\graf_inp\baer.tif"
 280     Dateiname.Settext (convertpath( gTesttoolpath + "global\input\graf_inp\baer.tif" ))
 281     '/// Click OK
 282     printlog " Click OK"
 283     Oeffnen.Click
 284     kontext "DocumentCalc"
 285     '/// Cut the still selected graphic via Edit - Cut
 286     printlog " Cut the still selected graphic via Edit - Cut"
 287     EditCut
 288     '/// PasteSpecial the cutted graphic
 289     printlog " PasteSpecial the cutted graphic"
 290     EditPasteSpecialCalc
 291     kontext "InhaltEinfuegen"
 292     call DialogTest (InhaltEinfuegen)
 293     printlog "  - PasteSpecial of other content is working"
 294     '/// Cancel the PasteSpecial dialog
 295     printlog " Cancel the PasteSpecial dialog"
 296     InhaltEinfuegen.Cancel
 297     '/// Close document
 298     printlog " Close document"
 299     hCloseDocument
 300
 301 endcase
 302
 303 '-----------------------------------------------------------
 304
 305 testcase tEditSelectAll
 306 '///<u><b>Edit - SelectAll</b></u>
 307     '/// Open new Spreadsheet document
 308     printlog " Open new Spreadsheet document"
 309     call hNewDocument
 310     '/// Select whole sheet via Edit - Select All
 311     printlog " Select whole sheet via Edit - Select All"
 312     EditSelectAll
 313     '/// Check in areafield if the whole sheet is selected (A1:AMJ65536)
 314     printlog " Check in areafield if the whole sheet is selected (A1:AMJ65536)"
 315     kontext "RechenleisteCalc"
 316     if Bereich.getSelText = "A1:AMJ65536" then
 317         printlog "  - SelectAll is working"
 318     else
 319         if Bereich.getSelText = "A1:IV65536" then
 320             printlog "  - SelectAll is working"
 321             QaErrorLog "This should be a spreadsheet before the column limit (256 -> 1024) was enhanced"
 322         else
 323             warnlog "SelectAll is not working as expected. The area is " & Bereich.getSelText & " instead of A1:IV65536"
 324         end if
 325     end if
 326     '/// Close document
 327     printlog " Close document"
 328     hCloseDocument
 329
 330 endcase
 331
 332 '-----------------------------------------------------------
 333
 334 testcase tEditChanges
 335 '///<u><b>Edit - Changes</b></u>
 336
 337     '/// Open new Spreadsheet document
 338     printlog " Open new Spreadsheet document"
 339     call hNewDocument
 340
 341     '/// Activate recording mode via Edit Changes Record
 342     printlog " Activate recording mode via Edit Changes Record"
 343     EditChangesRecordCalc
 344     'If changerecording is initially activated (which should not be) a messagebox appears
 345     kontext
 346     if active.exists then
 347         active.Yes
 348         warnlog "Unexpected state of the office - Redlining was initialy enabled"
 349         EditChangesRecordCalc
 350     end if
 351
 352     '/// Enter some text
 353     printlog " Enter some text"
 354     kontext "DocumentCalc"
 355     DocumentCalc.Typekeys "Recorded Text1<RETURN>Recorded Text2<RETURN>"
 356
 357     '/// Open Protect changes dialog via Edit - Changes - Protect
 358     printlog " Open Protect changes dialog via Edit - Changes - Protect"
 359     EditChangesProtectTraceCalc
 360     Kontext ("PasswortEingeben")
 361     call Dialogtest (PasswortEingeben)
 362     '/// Cancel Passwort dialog
 363     printlog " Cancel Passwort dialog"
 364     PasswortEingeben.Cancel
 365
 366     '/// Open Edit - Changes - Show dialog
 367     printlog " Open Edit - Changes - Show dialog"
 368     kontext "DocumentCalc"
 369     EditChangesShowCalc
 370     kontext "ShowChanges"
 371     call Dialogtest (ShowChanges)
 372     '/// Check all checkboxes
 373     printlog " Check all checkboxes"
 374     ShowChangesCalc.Check
 375     ShowDate.Check
 376     ShowAuthor.Check
 377     ShowRange.Check
 378     ShowComment.Check
 379     ShowAcceptedChanges.Check
 380     ShowRejectedChanges.Check
 381     '/// Click on range chooser button
 382     printlog " Click on range chooser button"
 383     ShrinkRange.Click
 384     '/// Enter range A1:B3
 385     printlog " Enter range A1:B3"
 386     RangeCalc.SetText "A1:B3"
 387     '/// Click on enlarge button
 388     printlog " Click on enlarge button"
 389     Shrink.Click
 390     '/// Click on 'Clock' button
 391     printlog " Click on 'Clock' button"
 392     Now1.Click
 393     '/// Choose 'Between' in date listbox
 394     printlog " Choose 'Between' in date listbox"
 395     DateList.Select 5
 396     '/// Now the second datefields are enabled, click on second 'Clock' button
 397     printlog " Now the second datefields are enabled, click on second 'Clock' button"
 398     Now2.Click
 399     '/// Choose first author from list
 400     printlog " Choose first author from list"
 401     AuthorList.Select 1
 402     '/// Enter comment 'Test' in comment field
 403     printlog " Enter comment 'Test' in comment field"
 404     EditComment.SetText "Test"
 405     '/// Close Edit - Changes - Show dialog with cancel
 406     printlog " Close Edit - Changes - Show dialog with cancel"
 407     ShowChanges.Cancel
 408
 409     '/// Open dialog Edit - Changes - Accept or Discard changes
 410     printlog " Open dialog Edit - Changes - Accept or Discard changes"
 411     EditChangesAcceptOrDiscardCalc
 412     Kontext "AenderungenAnzeigen"
 413     '/// Choose tabpage List
 414     printlog " Choose tabpage List"
 415     Kontext "TabControl"
 416     TabControl.setpage TabListe
 417     Kontext "TabListe"
 418     Call Dialogtest (TabListe)
 419     '/// Choose tabpage Filter
 420     printlog " Choose tabpage Filter"
 421     Kontext "TabControl"
 422     TabControl.setpage TabFilter
 423     Call Dialogtest (TabFilter)
 424     '/// Close dialog Edit - Changes - Accept or Discard changes
 425     printlog " Close dialog Edit - Changes - Accept or Discard changes"
 426     Kontext "AenderungenAnzeigen"
 427     AenderungenAnzeigen.close
 428
 429     '/// Select cell A1
 430     printlog " Select cell A1"
 431     call fCalcSelectRange ("A1")
 432     '/// Open Comments dialog via Edit - Changes - Comments
 433     printlog " Open Comments dialog via Edit - Changes - Comments"
 434     EditChangesCommentsCalc
 435     Kontext "Kommentar"
 436     call Dialogtest( Kommentar )
 437     '/// Click on arrow-right-button
 438     printlog " Click on arrow-right-button"
 439     Vor.Click
 440     '/// Click on arrow-left-button
 441     printlog " Click on arrow-left-button"
 442     Zurueck.Click
 443     '/// Enter comment "Test"
 444     printlog " Enter comment 'Test'"
 445     KommentarText.SetText "Test"
 446     '/// Close Comments dialog with cancel
 447     printlog " Close Comments dialog with cancel"
 448     Kommentar.cancel
 449
 450     '/// Choose Edit - Changes - Merge Documents
 451     printlog " Choose Edit - Changes - Merge Documents"
 452     EditChangesMergeDocument
 453     '/// Enter filename 'gtesttoolpath +spreadsheet\required\input\merge.ods'
 454     printlog " Enter filename 'gtesttoolpath +spreadsheet\required\input\merge.ods'"
 455     kontext "OeffnenDlg"
 456     Dateiname.settext convertpath(gtesttoolpath +"spreadsheet\required\input\merge.ods")
 457     '/// Click Open
 458     printlog " Click Open"
 459     Oeffnen.Click
 460     '/// Now the redlining dialog should appear. Close dialog with windowcloser
 461     printlog " Now the redlining dialog should appear. Close dialog with windowcloser"
 462     kontext "AenderungenAnzeigen"
 463     AenderungenAnzeigen.close
 464
 465     '/// Close document
 466     printlog " Close document"
 467     hCloseDocument
 468
 469 endcase
 470
 471 '-----------------------------------------------------------
 472
 473 testcase tEditCompareDocuments
 474 '///<u><b>Edit - Compare Documents</b></u>
 475     '/// Open new Spreadsheet document
 476     printlog " Open new Spreadsheet document"
 477     call hNewDocument
 478     '/// Enter some text
 479     printlog " Enter some text"
 480     kontext "DocumentCalc"
 481     DocumentCalc.Typekeys "Inserted Text<RETURN>"
 482     '/// Choose Edit - Compare Documents
 483     printlog " Choose Edit - Compare Documents"
 484     EditCompareDocumentCalc
 485     '/// Enter filename 'gtesttoolpath +spreadsheet\required\input\merge.ods'
 486     printlog " Enter filename 'gtesttoolpath +spreadsheet\required\input\merge.ods'"
 487     kontext "OeffnenDlg"
 488     Dateiname.settext convertpath(gtesttoolpath +"spreadsheet\required\input\merge.ods")
 489     '/// Click Open
 490     printlog " Click Open"
 491     Oeffnen.Click
 492     '/// Now the redlining dialog should appear. Close dialog with windowcloser
 493     printlog " Now the redlining dialog should appear. Close dialog with windowcloser"
 494     kontext "AenderungenAnzeigen"
 495     AenderungenAnzeigen.close
 496     '/// Close document
 497     printlog " Close document"
 498     hCloseDocument
 499
 500 endcase
 501
 502 '-----------------------------------------------------------
 503
 504 testcase tEditFindAndReplace
 505 '///<u><b>Edit - Find And Replace</b></u>
 506
 507     Dim bAsianLanguage as boolean
 508
 509     '/// Open new Spreadsheet document
 510     printlog " Open new Spreadsheet document"
 511     call hNewDocument
 512     '/// Enable 'Asian Language support' ON for getting all controls on dialog
 513     printlog " Enable 'Asian Language support' ON for getting all controls on dialog"
 514     bAsianLanguage = ActiveDeactivateAsianSupport(TRUE)
 515     '/// Enter some text
 516     printlog " Enter some text"
 517     kontext "DocumentCalc"
 518     DocumentCalc.Typekeys "Inserted Text<RETURN><UP>"
 519     '/// Choose Edit - Find And Replace
 520     printlog " Choose Edit - Find And Replace"
 521     EditSearchAndReplace
 522     kontext "FindAndReplace"
 523     '/// Click 'More' button
 524     printlog " Click 'More' button"
 525     More.Click
 526     call DialogTest ( FindAndReplace )
 527     '/// By default all checkboxes have to be unchecked.
 528     printlog " Uncheck all checkboxes (unchecked is also default)"
 529     if not MatchCase.IsEnabled then    'SoundsLike disables MatchCase
 530         SoundsLike.UnCheck
 531     end if
 532     if MatchCase.IsEnabled then
 533         MatchCase.UnCheck
 534     end if
 535     if WholeWordsOnly.IsEnabled then
 536         WholeWordsOnly.UnCheck
 537     end if
 538     if CurrentSelectionOnly.IsEnabled then
 539         CurrentSelectionOnly.UnCheck
 540     end if
 541     if Backwards.IsEnabled then
 542         Backwards.UnCheck
 543     end if
 544     if RegularExpressions.IsEnabled then
 545         RegularExpressions.UnCheck
 546     end if
 547     if SearchForStyles.IsEnabled then
 548         SearchForStyles.UnCheck
 549     end if
 550     if SearchInAllSheets.IsEnabled then
 551         SearchInAllSheets.UnCheck
 552     end if
 553     '/// Check SimilaritySearch
 554     printlog " Check SimilaritySearch"
 555     if SimilaritySearch.IsEnabled then
 556         SimilaritySearch.Check
 557     end if
 558     '/// Click ...button for similaritysearch
 559     printlog " Click ...button for similaritysearch"
 560     If SimilaritySearchFor.IsEnabled then
 561         SimilaritySearchFor.Click
 562     else
 563         SimilaritySearch.Check
 564         SimilaritySearchFor.Click
 565     end if
 566     kontext "Aehnlichkeitssuche"
 567     call DialogTest ( Aehnlichkeitssuche )
 568     '/// Use every control on opened similaritydialog
 569     printlog " Use every control on opened similaritydialog"
 570     ZeichenTauschen.More
 571     ZeichenHinzufuegen.Less
 572     ZeichenEntfernen.More
 573     Kombinieren.Click
 574     '/// Close similaritydialog with cancel
 575     printlog " Close similaritydialog with cancel"
 576     Aehnlichkeitssuche.Cancel
 577     kontext "FindAndReplace"
 578     SimilaritySearch.UnCheck
 579     If MatchFullHalfWidth.Isvisible then
 580         MatchFullHalfWidth.Uncheck
 581     end if
 582     If SoundsLike.Isvisible then
 583         SoundsLike.Check
 584         SoundsLikeOptions.Click
 585         kontext "TabJapaneseFind"
 586         call DialogTest ( TabJapaneseFind )
 587         TabJapaneseFind.Cancel
 588         kontext "FindAndReplace"
 589         SoundsLike.UnCheck
 590     end if
 591     Rows.Check
 592     SearchIn.Select 1
 593     '/// Close Dialog
 594     printlog " Close Dialog"
 595     FindAndReplace.Close
 596     '/// Set the 'Asian Language support' to default
 597     printlog " Set the 'Asian Language support' to default"
 598     if bAsianLanguage = FALSE then
 599         Call ActiveDeactivateAsianSupport(FALSE)
 600     end if
 601     '/// Close document
 602     printlog " Close document"
 603     hCloseDocument
 604
 605 endcase
 606
 607 '-----------------------------------------------------------
 608
 609 testcase tEditHeadersAndFooters
 610 '///<u><b>Edit - Headers and Footers</b></u>
 611
 612     Dim bAsianLanguage as boolean
 613     Dim bCTLlanguage as boolean
 614
 615     '/// Open new Spreadsheet document
 616     printlog " Open new Spreadsheet document"
 617     call hNewDocument
 618     '/// Enable 'Asian and CTL Language support' ON for getting all controls on dialog
 619     printlog " Enable 'Asian and CTL Language support' ON for getting all controls on dialog"
 620     bAsianLanguage = ActiveDeactivateAsianSupport(TRUE)
 621     bCTLLanguage = ActiveDeactivateCTLSupport(TRUE)
 622     '/// Disable 'Same content left/right' on Format-Page to get all resources
 623     printlog " Disable 'Same content left/right' on Format-Page to get all resources"
 624     '/// - Open Format-Page dialog
 625     FormatPageCalc
 626     '/// - Switch to tabpage Header
 627     Kontext
 628     Active.SetPage TabKopfzeile
 629     Kontext
 630     if Active.Exists(2) then
 631         if Active.GetRT = 304 then
 632             Printlog Active.GetText
 633             Active.Yes
 634             sleep(1)
 635         end if
 636     end if
 637     '/// - Uncheck 'Same content left/right'
 638     Kontext "TabKopfzeile"
 639     InhaltLinksRechtsGleich.uncheck
 640     '/// - Switch to tabpage Footer
 641     Kontext
 642     Active.SetPage TabFusszeile
 643     Kontext "TabFussZeile"
 644     '/// - Uncheck 'Same content left/right'
 645     InhaltLinksRechtsGleich.uncheck
 646     '/// - Close Dialog with OK
 647     TabFusszeile.Ok
 648
 649     '/// Open Edit - Headers & Footers
 650     printlog " Open Edit - Headers & Footers"
 651     EditHeadersAndFooters
 652     '/// Choose tabpage Header (right)
 653     printlog " Choose tabpage Header (right)"
 654     Kontext
 655     Active.SetPage TabKopfzeileCalc
 656     Kontext "TabKopfzeileCalc"
 657     Call DialogTest ( TabKopfzeileCalc )
 658     '/// Choose in Listbox Header the first entry (none)
 659     printlog " Choose in Listbox Header the first entry (none)"
 660     PredefinedHeader.Select 1
 661     '/// Enter '1' in left area field
 662     printlog " Enter '1' in left area field"
 663     LinkerBereich.typeKeys ("1")
 664     '/// Enter '1' in middle area field
 665     printlog " Enter '1' in middlearea field"
 666     MittlererBereich.typeKeys ("1")
 667     '/// Enter '1' in right area field
 668     printlog " Enter '1' in right area field"
 669     RechterBereich.typeKeys ("1")
 670     '/// Open fontdialog by clicking on Text Attributes button
 671     printlog " Open fontdialog by clicking on Text Attributes button"
 672     Textattribute.Click
 673     '/// Now the Dialog for Text Attributes opened. Choose tabpage Font
 674     printlog " Now the Dialog for Text Attributes opened. Choose tabpage Font"
 675     Kontext
 676     Active.setpage TabFont
 677     Kontext "TabFont"
 678     Call DialogTest ( TabFont)
 679     '/// Count number of western fonts (amount is dependent from system but should be more than one)
 680     printlog " Count number of western fonts (amount is dependent from system but should be more than one)"
 681     if Fontwest.GetItemCount < 1 then warnlog "The Fontwest listbox is empty"
 682     '/// Count number of western Typeface (amount is dependent from font but should be more than one)
 683     printlog " Count number of western Typeface (amount is dependent from font but should be more than one)"
 684     if StyleWest.GetItemCount < 1 then warnlog "The Stylewest listbox is empty"
 685     '/// Count number of western Size (amount is dependent from font but should be more than one)
 686     printlog " Count number of western Size (amount is dependent from font but should be more than one)"
 687     if SizeWest.GetItemCount < 1 then warnlog "The Sizewest listbox is empty"
 688     '/// Count number of western Language (amount is dependent from system but should be more than one)
 689     printlog " Count number of western Language (amount is dependent from system but should be more than one)"
 690     if LanguageWest.GetItemCount < 1 then warnlog "The Languagewest listbox is empty"
 691     '/// Count number of asian fonts (amount is dependent from system but should be more than one)
 692     printlog " Count number of asian fonts (amount is dependent from system but should be more than one)"
 693     if FontEast.GetItemCount < 1 then warnlog "The Fonteast listbox is empty"
 694     '/// Count number of asian Typeface (amount is dependent from font but should be more than one)
 695     printlog " Count number of asian Typeface (amount is dependent from font but should be more than one)"
 696     if StyleEast.GetItemCount < 1 then warnlog "The Styleeast listbox is empty"
 697     '/// Count number of asian Size (amount is dependent from font but should be more than one)
 698     printlog " Count number of asian Size (amount is dependent from font but should be more than one)"
 699     if SizeEast.GetItemCount < 1 then warnlog "The SizeEast listbox is empty"
 700     '/// Count number of asian Language (amount is dependent from system but should be more than one)
 701     printlog " Count number of asian Language (amount is dependent from system but should be more than one)"
 702     if LanguageEast.GetItemCount < 1 then warnlog "The Languageeast listbox is empty"
 703     '/// Count number of CTL fonts (amount is dependent from system but should be more than one)
 704     printlog " Count number of CTL fonts (amount is dependent from system but should be more than one)"
 705     if FontCTL.GetItemCount < 1 then warnlog "The FontCTL listbox is empty"
 706     '/// Count number of CTL Typeface (amount is dependent from font but should be more than one)
 707     printlog " Count number of CTL Typeface (amount is dependent from font but should be more than one)"
 708     if StyleCTL.GetItemCount < 1 then warnlog "The StyleCTL listbox is empty"
 709     '/// Count number of CTL Size (amount is dependent from font but should be more than one)
 710     printlog " Count number of CTL Size (amount is dependent from font but should be more than one)"
 711     if SizeCTL.GetItemCount < 1 then warnlog "The SizeCTL listbox is empty"
 712     '/// Count number of CTL Language (amount is dependent from system but should be more than one)
 713     printlog " Count number of CTL Language (amount is dependent from system but should be more than one)"
 714     if LanguageCTL.GetItemCount < 1 then warnlog "The LanguageCTL listbox is empty"
 715     '/// Choose tabpage Font Effects
 716     printlog " Choose tabpage Font Effects"
 717     Kontext
 718     Active.setpage TabFontEffects
 719     Kontext "TabFontEffects"
 720     Call DialogTest ( TabFontEffects)
 721     '/// Choose second entry for Underlining
 722     printlog " Choose second entry for Underlining"
 723     Underline.Select 2
 724     '/// Count number of Color
 725     printlog " Count number of Color"
 726     if Color.GetItemCount < 1 then warnlog "The Color listbox is empty"
 727     '/// Choose second entry for Strikethrough
 728     printlog " Choose second entry for Strikethrough"
 729     StrikeThrough.Select 2
 730     '/// Check Individual words
 731     printlog " Check Individual words"
 732     IndividualWords.Check
 733     '/// Check Outline
 734     printlog " Check Outline"
 735     Outline.Check
 736     '/// Check Shadow
 737     printlog " Check Shadow"
 738     Shadow.Check
 739     '/// Choose second entry for Relief
 740     printlog " Choose second entry for Relief"
 741     Relief.Select 2
 742     '/// Verify that Outline and Shadow are now disabled
 743     printlog " Verify that Outline and Shadow are now disabled"
 744     if Outline.IsEnabled then warnlog "Outline is enabled but should be disabled"
 745     if Shadow.IsEnabled then warnlog "Shadow is enabled but should be disabled"
 746     '/// Choose second entry for Emphasis mark
 747     printlog " Choose second entry for Emphasis mark"
 748     Emphasis.Select 2
 749     '/// Verify that Position is enabled
 750     printlog " Verify that Position is enabled"
 751     if not Position.IsEnabled then warnlog "Position is disabled but should be enabled"
 752     '/// Count number of Font colors
 753     printlog " Count number of Font colors"
 754     if FontColor.GetItemCount < 1 then warnlog "The FontColor listbox is empty"
 755     '/// Choose tabpage Font position
 756     printlog " Choose tabpage Font position"
 757     Kontext
 758     Active.setpage TabFontPosition
 759     Kontext "TabFontPosition"
 760     Call DialogTest ( TabFontPosition)
 761     '/// Check Superscript
 762     printlog " Check Superscript"
 763     SuperScript.Check
 764     '/// Check that Relative Font Size is enabled
 765     printlog " Check that Relative Font Size is enabled"
 766     if not RelativeFontSize.IsEnabled then warnlog "The RelativeFontSize is disabled but should be enabled"
 767     '/// Uncheck Automatic
 768     printlog " Uncheck Automatic"
 769     Automatic.UnCheck
 770     '/// Raise Raise/Lower by 1
 771     printlog " Raise Raise/Lower by 1"
 772     RaiseLower.More
 773     '/// Check Normal
 774     printlog " Check Normal"
 775     Normal.Check
 776     '/// Verify that Relative font size is disabled
 777     printlog " Verify that Relative font size is disabled"
 778     if RelativeFontSize.IsEnabled then warnlog "RelativeFontSize is enabled but should be disabled"
 779     '/// Verify that Raise is disabled
 780     printlog " Verify that Raise is disabled"
 781     if RaiseLower.IsEnabled then warnlog "Raise is enabled but should be disabled"
 782     '/// Verify that Automatic is disabled
 783     printlog " Verify that Automatic is disabled"
 784     if Automatic.IsEnabled then warnlog "Automatic is enabled but should be disabled"
 785     '/// Check Subscript
 786     printlog " Check Subscript"
 787     Subscript.Check
 788     '/// Verify that Relative font size is enabled
 789     printlog " Verify that Relative font size is enabled"
 790     if not RelativeFontSize.IsEnabled then warnlog "The RelativeFontSize is disabled but should be enabled"
 791     '/// Check Automatic
 792     printlog " Check Automatic"
 793     Automatic.Check
 794     '/// Verify that Raise is disabled
 795     printlog " Verify that Raise is disabled"
 796     if RaiseLower.IsEnabled then warnlog "Raise is enabled but should be disabled"
 797     '/// Lower Scale width by 1
 798     printlog " Lower Scale width by 1"
 799     ScaleWith.Less
 800     '/// Change Spacing to second entry
 801     printlog " Change Spacing to second entry"
 802     Spacing.Select 2
 803     '/// Verify that SpacingBy is enabled
 804     printlog " Verify that SpacingBy is enabled"
 805     if not SpacingBy.IsEnabled then warnlog "The SpacingBy is disabled but should be enabled"
 806     '/// Change Spacing to first entry
 807     printlog " Change Spacing to first entry"
 808     Spacing.Select 1
 809     '/// Verify that SpacingBy is disabled
 810     printlog " Verify that SpacingBy is disabled"
 811     if SpacingBy.IsEnabled then warnlog "SpacingBy is enabled but should be disabled"
 812     '/// Check Pair kerning
 813     printlog " Check Pair kerning"
 814     PairKerning.Check
 815     '/// Close Text Attributes dialog with Cancel
 816     printlog " Close Text Attributes dialog with Cancel"
 817     TabFontPosition.Cancel
 818
 819     Kontext "TabKopfzeileCalc"
 820     '/// Open menu on File button
 821     printlog " Open menu on File button"
 822 'Control not usable by testtool (#i85788')
 823 '    Datei.Open ()
 824     '/// Choose second entry
 825     printlog " Choose second entry"
 826 '    MenuSelect 2
 827     '/// Close menu
 828     printlog " Close menu"
 829 '    MenuSelect (0)
 830     '/// Click button for Sheetname
 831     printlog " Click button for Sheetname"
 832     Tabelle.Click
 833     '/// Click button for Page
 834     printlog " Click button for Page"
 835     Seitennummer.Click
 836     '/// Click button for Pages
 837     printlog " Click button for Pages"
 838     Seitenanzahl.Click
 839     '/// Click button for Date
 840     printlog " Click button for Date"
 841     Datum.Click
 842     '/// Click button for Time
 843     printlog " Click button for Time"
 844     Zeit.Click
 845
 846     '/// Choose tabpage Header (left)
 847     printlog " Choose tabpage Header (left)"
 848     Kontext
 849     Active.SetPage TabKopfzeileCalcLinks
 850     Kontext "TabKopfzeileCalcLinks"
 851     Call DialogTest ( TabKopfzeileCalcLinks )
 852     '/// Choose in Listbox Header the first entry (none)
 853     printlog " Choose in Listbox Header the first entry (none)"
 854     PredefinedHeaderLeft.Select 1
 855     '/// Enter 'Test' in left area field
 856     printlog " Enter 'Test' in left area field"
 857     LinkerBereich.typeKeys ("Test")
 858     '/// Enter 'Test' in middle area field
 859     printlog " Enter 'Test' in middlearea field"
 860     MittlererBereich.typeKeys ("Test")
 861     '/// Enter 'Test' in right area field
 862     printlog " Enter 'Test' in right area field"
 863     RechterBereich.typeKeys ("Test")
 864     '/// Open fontdialog by clicking on Text Attributes button
 865     printlog " Open fontdialog by clicking on Text Attributes button"
 866     TextAttribute.Click
 867     '/// Now the Dialog for Text Attributes opened. Choose tabpage Font
 868     printlog " Now the Dialog for Text Attributes opened. Choose tabpage Font"
 869     Kontext
 870     Active.setpage TabFont
 871     Kontext "TabFont"
 872     '/// Close fontdialog with Cancel
 873     printlog " Close fontdialog with Cancel"
 874     TabFont.Cancel
 875     Kontext "TabKopfzeileCalcLinks"
 876     '/// Open menu on File button
 877     printlog " Open menu on File button"
 878 'Control not usable by testtool (#i85788')
 879 '    Datei.Open ()
 880     '/// Choose second entry
 881     printlog " Choose second entry"
 882 '    MenuSelect 2
 883     '/// Close menu
 884     printlog " Close menu"
 885 '    MenuSelect (0)
 886     '/// Click button for Sheetname
 887     printlog " Click button for Sheetname"
 888     Tabelle.Click
 889     '/// Click button for Page
 890     printlog " Click button for Page"
 891     Seitennummer.Click
 892     '/// Click button for Pages
 893     printlog " Click button for Pages"
 894     Seitenanzahl.click
 895     '/// Click button for Date
 896     printlog " Click button for Date"
 897     Datum.Click
 898     '/// Click button for Time
 899     printlog " Click button for Time"
 900     Zeit.Click
 901
 902     '/// Choose tabpage Footer (right)
 903     printlog " Choose tabpage Footer (right)"
 904     Kontext
 905     Active.SetPage TabFusszeileCalc
 906     Kontext "TabFusszeileCalc"
 907     Call DialogTest ( TabFusszeileCalc )
 908     '/// Choose in Listbox Footer the first entry (none)
 909     printlog " Choose in Listbox Footer the first entry (none)"
 910     PredefinedFooter.Select 1
 911     '/// Enter 'Test' in left area field
 912     printlog " Enter 'Test' in left area field"
 913     LinkerBereich.typeKeys ("Test")
 914     '/// Enter 'Test' in middle area field
 915     printlog " Enter 'Test' in middlearea field"
 916     MittlererBereich.typeKeys ("Test")
 917     '/// Enter 'Test' in right area field
 918     printlog " Enter 'Test' in right area field"
 919     RechterBereich.typeKeys ("Test")
 920     '/// Open fontdialog by clicking on Text Attributes button
 921     printlog " Open fontdialog by clicking on Text Attributes button"
 922     TextAttribute.Click
 923     '/// Now the Dialog for Text Attributes opened. Choose tabpage Font
 924     printlog " Now the Dialog for Text Attributes opened. Choose tabpage Font"
 925     Kontext
 926     Active.setpage TabFont
 927     Kontext "TabFont"
 928     '/// Close fontdialog with Cancel
 929     printlog " Close fontdialog with Cancel"
 930     TabFont.Cancel
 931     Kontext "TabFusszeileCalc"
 932     '/// Open menu on File button
 933     printlog " Open menu on File button"
 934 'Control not usable by testtool (#i85788')
 935 '    Datei.Open ()
 936     '/// Choose second entry
 937     printlog " Choose second entry"
 938 '    MenuSelect 2
 939     '/// Close menu
 940     printlog " Close menu"
 941 '    MenuSelect (0)
 942     '/// Click button for Sheetname
 943     printlog " Click button for Sheetname"
 944     Tabelle.Click
 945     '/// Click button for Page
 946     printlog " Click button for Page"
 947     Seitennummer.Click
 948     '/// Click button for Pages
 949     printlog " Click button for Pages"
 950     Seitenanzahl.click
 951     '/// Click button for Date
 952     printlog " Click button for Date"
 953     Datum.Click
 954     '/// Click button for Time
 955     printlog " Click button for Time"
 956     Zeit.Click
 957
 958     '/// Choose tabpage Footer (left)
 959     printlog " Choose tabpage Footer (left)"
 960     Kontext
 961     Active.SetPage TabFusszeileCalcLinks
 962     Kontext "TabFusszeileCalcLinks"
 963     Call DialogTest ( TabFusszeileCalcLinks )
 964     '/// Choose in Listbox Footer the first entry (none)
 965     printlog " Choose in Listbox Footer the first entry (none)"
 966     PredefinedFooterLeft.Select 1
 967     '/// Enter 'Test' in left area field
 968     printlog " Enter 'Test' in left area field"
 969     LinkerBereich.typeKeys ("Test")
 970     '/// Enter 'Test' in middle area field
 971     printlog " Enter 'Test' in middlearea field"
 972     MittlererBereich.typeKeys ("Test")
 973     '/// Enter 'Test' in right area field
 974     printlog " Enter 'Test' in right area field"
 975     RechterBereich.typeKeys ("Test")
 976     '/// Open fontdialog by clicking on Text Attributes button
 977     printlog " Open fontdialog by clicking on Text Attributes button"
 978     TextAttribute.Click
 979     '/// Now the Dialog for Text Attributes opened. Choose tabpage Font
 980     printlog " Now the Dialog for Text Attributes opened. Choose tabpage Font"
 981     Kontext
 982     Active.setpage TabFont
 983     Kontext "TabFont"
 984     '/// Close fontdialog with Cancel
 985     printlog " Close fontdialog with Cancel"
 986     TabFont.Cancel
 987     Kontext "TabFusszeileCalcLinks"
 988     '/// Open menu on File button
 989     printlog " Open menu on File button"
 990 'Control not usable by testtool (#i85788')
 991 '    Datei.Open ()
 992     '/// Choose second entry
 993     printlog " Choose second entry"
 994 '    MenuSelect 2
 995     '/// Close menu
 996     printlog " Close menu"
 997 '    MenuSelect (0)
 998     '/// Click button for Sheetname
 999     printlog " Click button for Sheetname"
1000     Tabelle.Click
1001     '/// Click button for Page
1002     printlog " Click button for Page"
1003     Seitennummer.Click
1004     '/// Click button for Pages
1005     printlog " Click button for Pages"
1006     Seitenanzahl.click
1007     '/// Click button for Date
1008     printlog " Click button for Date"
1009     Datum.Click
1010     '/// Click button for Time
1011     printlog " Click button for Time"
1012     Zeit.Click
1013
1014     '/// Close Headers/Footers-dialog with cancel
1015     printlog " Close Headers/Footers-dialog with cancel"
1016     TabFusszeileCalcLinks.close
1017     '/// Set the 'Asian and CTL Language support' to default
1018     printlog " Set the 'Asian and CTL Language support' to default"
1019     if bAsianLanguage = FALSE then
1020         Call ActiveDeactivateAsianSupport(FALSE)
1021     end if
1022     if bCTLLanguage = FALSE then
1023         Call ActiveDeactivateCTLSupport(FALSE)
1024     end if
1025      '/// Close document
1026     printlog " Close document"
1027     hCloseDocument
1028
1029 endcase
1030
1031 '-----------------------------------------------------------
1032
1033
1034
1035