testautomation/writer/optional/includes/formatpage/w_formatpage4.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: w_formatpage4.inc,v $
  10 '*
  11 '* $Revision: 1.2 $
  12 '*
  13 '* last change: $Author: vg $ $Date: 2008-08-18 12:29:03 $
  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 : helge.delfs@sun.com
  35 '*
  36 '* short description : Test the functionality of Page Formatting / Page Styles - 4
  37 '*
  38 '************************************************************************
  39 '*
  40 ' #1 tFormatPage_48      'Text flow direction test Right to Left (Vertical) - Paragraph
  41 ' #1 tFormatPage_49      'Text flow direction test Right to Left (Vertical) - Section
  42 ' #1 tFormatPage_50      'Text flow direction test Right to Left (Vertical) - Footnotes
  43 ' #1 tFormatPage_51      'Text flow direction test Right to Left (Vertical) - Endnotes
  44 ' #1 tFormatPage_52      'Text flow direction test Right to Left (Vertical) - Table
  45 ' #1 tFormatPage_53      'Text flow direction test Right to Left (Vertical) - Columns
  46 ' #1 tFormatPage_54      'Only when a border is set, "spacing to contents" gets a minimum value of 0.05cm
  47 ' #1 tFormatPage_55      'All "spacing to contents" spin boxes are limited to 5cm
  48 ' #1 tFormatPage_56      'Test Uncheck 'Synchronize'
  49 ' #1 tFormatPage_57      'Test Check 'Synchronize'
  50 ' #1 tFormatPage_58      'Test default shadow color
  51 ' #1 tFormatPage_59      'Test if the shadow settings is OK after closing the dialog
  52 ' #1 tFormatPage_60      'Test if the shadow settings is OK after reopening the file
  53 '*
  54 '\***********************************************************************
  55
  56 testcase tFormatPage_48
  57
  58     Dim sTestText1 as string, sTestText2 as String
  59     Dim RecheckAsianSupport as boolean
  60     RecheckAsianSupport = gAsianSup
  61
  62     Select Case iSystemSprache
  63         Case 81, 82, 86, 88
  64             printlog "No test with asian lovale, because checkbox 'Asian language support' is disabled by default!"
  65             goto endsub
  66     end select
  67
  68     sTestText1    = "This is the test!"
  69     sTestText2    = "That isn't a test!"
  70
  71     PrintLog "- Text flow direction test Right to Left (Vertical) - Paragraph"
  72     '/// Text flow direction test Right to Left (Vertical) - Paragraph
  73
  74     Call hNewDocument
  75
  76     '/// Set Asian language support enabled
  77     Call ActiveDeactivateCTLSupport(FALSE)
  78     Call ActiveDeactivateAsianSupport(TRUE)
  79
  80     '/// Input some test words
  81     Call wTypeKeys sTestText1
  82     Call wTypeKeys "<Return>"
  83     Call wTypeKeys sTestText2
  84     Sleep 1
  85
  86     '/// formatPage , tabpage page, select right to left (vertical)
  87     fFormatPageWriter("TabSeite")
  88     Textfluss.Select 2
  89     Sleep 1
  90     TabSeite.OK
  91     Sleep 2
  92
  93     '/// Check if the direction of the test words is changed
  94     Call wTypeKeys "<MOD1 Home>"
  95     Call wTypeKeys "<Shift Down>", 4
  96     Sleep 1
  97     EditCopy
  98     if GetClipboardText <> "This" then
  99         Warnlog "Something wrong in first word - get " &GetClipboardText
 100     end if
 101
 102     Call wTypeKeys "<Home><Left>"
 103     Call wTypeKeys "<Shift Down>"  , 4
 104     Sleep 1
 105     EditCopy
 106     if GetClipboardText <> "That" then
 107         Warnlog "Something wrong in second word - get " &GetClipboardText
 108     end if
 109
 110     if RecheckAsianSupport = False then
 111         Call ActiveDeactivateAsianSupport(FALSE)
 112     end if
 113
 114     Call hCloseDocument
 115
 116 endcase
 117
 118 '-------------------------------------------------------------------------------------------
 119
 120 testcase tFormatPage_49
 121
 122     Dim sTestText as String
 123     Dim RecheckAsianSupport as boolean
 124     RecheckAsianSupport = gAsianSup
 125
 126     sTestText     = "This is the test!"
 127
 128     PrintLog "- Text flow direction test Right to Left (Vertical) - Section"
 129     '/// Text flow direction test Right to Left (Vertical) - Section
 130
 131     Call hNewDocument
 132
 133     '/// Set Asian language support enabled
 134     Call ActiveDeactivateAsianSupport(TRUE)
 135
 136     '/// Insert a section
 137     fInsertSection("TabBereiche")
 138     TabBereiche.OK
 139
 140     '/// insert something in the section
 141     Call wTypeKeys "<Up>"
 142     Call wTypeKeys sTestText
 143
 144     '/// formatPage , tabpage page, select right to left (vertical)
 145     fFormatPageWriter("TabSeite")
 146     Textfluss.Select 2
 147     Sleep 1
 148     TabSeite.OK
 149     Sleep 2
 150
 151     '/// Check if the direction of the test words is changed
 152     Call wTypeKeys "<Home>"
 153     Call wTypeKeys "<Shift Down>" , 4
 154     EditCopy
 155     if GetClipboardText <> "This" then Warnlog "Something wrong in the section - get " &GetClipboardText
 156
 157     if RecheckAsianSupport = False then
 158         Call ActiveDeactivateAsianSupport(FALSE)
 159     end if
 160
 161     Call hCloseDocument
 162
 163 endcase
 164
 165 '-------------------------------------------------------------------------------------------
 166
 167 testcase tFormatPage_50
 168
 169     Dim RecheckAsianSupport as boolean
 170     RecheckAsianSupport = gAsianSup
 171
 172     PrintLog "- Text flow direction test Right to Left (Vertical) - Footnotes"
 173     '/// Text flow direction test Right to Left (Vertical) - Footnotes
 174
 175     Call hNewDocument
 176
 177     '/// Set Asian language support enabled
 178     Call ActiveDeactivateAsianSupport(TRUE)
 179
 180     '/// Insert a footnotes
 181     InsertFootnote
 182     Kontext "FussnoteEinfuegen"
 183     Sleep 1
 184     Fussnote.Check
 185     Sleep 1
 186     FussnoteEinfuegen.OK
 187     Sleep 1
 188
 189     Call wTypeKeys "<PageUp>"
 190     Sleep 1
 191
 192     '/// formatPage , tabpage page, select right to left (vertical)
 193     Call fFormatPageWriter("TabSeite")
 194     Textfluss.Select 2
 195     Sleep 1
 196     TabSeite.OK
 197     Sleep 2
 198
 199     '/// Check if the direction of the footnote is changed
 200     Call wTypeKeys "<Down>"
 201     try
 202         EditFootnote
 203         Kontext "FussnoteBearbeiten"
 204         FussnoteBearbeiten.Cancel
 205         Warnlog "Should NOT execute edit/footnote  when focus is under the footnote"
 206     catch
 207     endcatch
 208
 209     Call wTypeKeys "<Up>"
 210     try
 211         EditFootnote
 212         Kontext "FussnoteBearbeiten"
 213         FussnoteBearbeiten.Cancel
 214     catch
 215         Warnlog "Should execute edit/footnote  when focus is up the footnote"
 216     endcatch
 217
 218     if RecheckAsianSupport = False then
 219         Call ActiveDeactivateAsianSupport(FALSE)
 220     end if
 221
 222     Call hCloseDocument
 223
 224 endcase
 225
 226 '-------------------------------------------------------------------------------------------
 227
 228 testcase tFormatPage_51
 229
 230     Dim RecheckAsianSupport as boolean
 231     RecheckAsianSupport = gAsianSup
 232
 233     PrintLog "- Text flow direction test Right to Left (Vertical) - Endnotes"
 234     '/// Text flow direction test Right to Left (Vertical) - Endnotes
 235
 236     Call hNewDocument
 237
 238     '/// Set Asian language support enabled
 239     Call ActiveDeactivateAsianSupport(TRUE)
 240
 241     '/// Insert a endnotes
 242     InsertFootnote
 243     Kontext "FussnoteEinfuegen"
 244     Sleep 1
 245     Endnote.Check
 246     Sleep 1
 247     FussnoteEinfuegen.OK
 248     Sleep 1
 249
 250     Call wTypeKeys "<PageUp>"
 251     Sleep 1
 252
 253     '/// formatPage , tabpage page, select right to left (vertical)
 254     Call fFormatPageWriter("TabSeite")
 255     Textfluss.Select 2
 256     Sleep 1
 257     TabSeite.OK
 258     Sleep 2
 259
 260     '/// Check if the direction of the endnote is changed
 261     Call wTypeKeys "<Down>"
 262     try
 263         EditFootnote
 264         Kontext "FussnoteBearbeiten"
 265         FussnoteBearbeiten.Cancel
 266         Warnlog "Should NOT execute edit/footnote when focus is under the endnote"
 267     catch
 268     endcatch
 269
 270     Call wTypeKeys "<Up>"
 271     try
 272         EditFootnote
 273         Kontext "FussnoteBearbeiten"
 274         FussnoteBearbeiten.Cancel
 275     catch
 276         Warnlog "Should execute edit/footnote  when focus is on the endnote!"
 277     endcatch
 278
 279     if RecheckAsianSupport = False then
 280         Call ActiveDeactivateAsianSupport(FALSE)
 281     end if
 282
 283     Call hCloseDocument
 284
 285 endcase
 286
 287 '-------------------------------------------------------------------------------------------
 288
 289 testcase tFormatPage_52
 290
 291     Dim sTest1 as String  ,  sTest2 as String  ,  sTest3 as String
 292     Dim RecheckAsianSupport as boolean
 293     RecheckAsianSupport = gAsianSup
 294
 295     sTest1 = "A1" : sTest2 = "B1" : sTest3 = "A2"
 296
 297     PrintLog "- Text flow direction test Right to Left (Vertical) - Table"
 298     '/// Text flow direction test Right to Left (Vertical) - Table
 299
 300     Call hNewDocument
 301
 302     '/// Set Asian language support enabled
 303     Call ActiveDeactivateAsianSupport(TRUE)
 304
 305     '/// Insert a table
 306     Call hTabelleEinfuegen
 307
 308     '/// + input some string in the table , like
 309     '/// a1  b1
 310     '/// a2
 311     Call wTypeKeys sTest1
 312     wait 500
 313     Call wTypeKeys "<Right>"
 314     wait 500
 315     Call wTypeKeys sTest2
 316     wait 500
 317     Call wTypeKeys "<Down><Left>"   'so far, the focus should be in 2nd line of the table
 318     wait 500
 319     Call wTypeKeys sTest3
 320     Call wTypeKeys "<Up><Home>"     'so far, the focus should be in front of A1
 321
 322     '/// formatPage , tabpage page, select right to left (vertical)
 323     Call fFormatPageWriter("TabSeite")
 324     Textfluss.Select 2
 325     Sleep 1
 326     TabSeite.OK
 327     Sleep 2
 328
 329     '/// Check if the direction of the table is changed
 330     Call wTypeKeys "<Shift Down>" , 2
 331     Sleep 1
 332     EditCopy
 333     if GetClipboardText <> sTest1 then
 334         Warnlog "1st word in table is wrong!"
 335     end if
 336
 337     Call wTypeKeys "<Down>"
 338     Call wTypeKeys "<Shift Down>" , 2
 339     Sleep 1
 340     EditCopy
 341     if GetClipboardText <> sTest2 then
 342         Warnlog "2nd word in table is wrong!"
 343     end if
 344
 345     Call wTypeKeys "<Left><Up>"
 346     Call wTypeKeys "<Shift Home>"
 347     Sleep 1
 348     EditCopy
 349     if GetClipboardText <> sTest3 then
 350         Warnlog "2rd word in table is wrong!"
 351     end if
 352
 353     if RecheckAsianSupport = False then
 354         Call ActiveDeactivateAsianSupport(FALSE)
 355     end if
 356
 357     Call hCloseDocument
 358
 359 endcase
 360
 361 '-------------------------------------------------------------------------------------------
 362
 363 testcase tFormatPage_53
 364
 365     Dim sTest as String
 366     Dim sTestFile as String
 367     Dim RecheckAsianSupport as boolean
 368     RecheckAsianSupport = gAsianSup
 369
 370     sTest         = "Test"
 371     sTestFile     = Convertpath (gTesttoolpath + "writer\optional\input\formatpage\testColumnVertical.sxw")
 372
 373     PrintLog "- Text flow direction test Right to Left (Vertical) - Column"
 374     '/// Text flow direction test Right to Left (Vertical) - Column
 375
 376     Call hNewDocument
 377
 378     '/// Set Asian language support enabled
 379     Call ActiveDeactivateAsianSupport(TRUE)
 380
 381     '/// Open test file testColumnVertical.sxw
 382     '/// + There are 8 columns in the page , and a test
 383     '/// + word is in 3rd column
 384     Call hFileOpen(sTestFile)
 385     Call sMakeReadOnlyDocumentEditable
 386
 387     '/// formatPage , tabpage page, select right to left (vertical)
 388     Call fFormatPageWriter("TabSeite")
 389     Textfluss.Select 2
 390     Sleep 1
 391     TabSeite.OK
 392     Sleep 2
 393
 394     '/// Check if the direction of the column is changed
 395     Kontext
 396     EditSearchAndReplace
 397     Kontext "FindAndReplace"
 398     SearchFor.SetText sTest
 399     Sleep 1
 400     SearchAll.Click
 401     Sleep 1
 402     FindAndReplace.Close
 403     Sleep 1
 404
 405     Call wTypeKeys "<Down>"
 406     Sleep 1
 407
 408     Call wTypeKeys "<Shift Up>" , 4
 409     EditCopy
 410     if GetClipboardText <> sTest then
 411         Warnlog "the test word is wrong!"
 412     end if
 413
 414     if RecheckAsianSupport = False then
 415         Call ActiveDeactivateAsianSupport(FALSE)
 416     end if
 417
 418     printlog "  Close active document "
 419     Do Until GetDocumentCount = 0
 420         Call hCloseDocument
 421     Loop
 422 endcase
 423
 424 '-------------------------------------------------------------------------------------------
 425
 426 testcase tFormatPage_54
 427
 428     Dim sSpacingToContentsNoBorder as String   'no border in the page
 429     Dim sSpacingToContentsYesBorder as String   'border exists  in the page
 430
 431     sSpacingToContentsNoBorder  = "0" + gSeperator + "0" '+ gMeasurementUnit
 432     sSpacingToContentsYesBorder = "0" + gSeperator + "05" '+ gMeasurementUnit
 433
 434     PrintLog "- Only when a border is set, 'spacing to contents' gets a minimum value of 0.05cm"
 435     '/// Only when a border is set, "spacing to contents" gets a minimum value of 0.05cm
 436
 437     Call hNewDocument
 438
 439     PrintLog "Check if 'spacing to contents' is 0.00cm when there is no border in the page"
 440     '/// format/Page , tabpage borders ,
 441     '/// + Check if "spacing to contents" is 0.00cm when
 442     '/// + there is no border in the page
 443      fFormatPageWriter("TabUmrandung")
 444        if InStr( Links.GetText, sSpacingToContentsNoBorder) = false then Warnlog "Default of left Spacing to contents is wrong !"
 445        if InStr( Rechts.GetText, sSpacingToContentsNoBorder) = false then Warnlog "Default of right Spacing to contents is wrong !"
 446        if InStr( Oben.GetText, sSpacingToContentsNoBorder) = false then Warnlog "Default of up Spacing to contents is wrong !"
 447        if InStr( Unten.GetText, sSpacingToContentsNoBorder) = false then Warnlog "Default of bottom Spacing to contents is wrong !"
 448      TabUmrandung.Cancel
 449
 450     PrintLog "Check if 'spacing to contents' is 0.50cm when there are borders in the page"
 451     '/// format/Page , tabpage borders
 452     '/// + Check if "spacing to contents" is 0.05cm when
 453     '/// + there are borders in the page
 454      fFormatPageWriter("TabUmrandung")
 455         Vorgaben.TypeKeys "<Right>" , 2
 456         Sleep 2
 457      TabUmrandung.OK
 458
 459      fFormatPageWriter("TabUmrandung")
 460        if InStr( Links.GetText, sSpacingToContentsYesBorder) = false then Warnlog "Default of left Spacing to contents is wrong !"
 461        if InStr( Rechts.GetText, sSpacingToContentsYesBorder) = false then Warnlog "Default of right Spacing to contents is wrong !"
 462        if InStr( Oben.GetText, sSpacingToContentsYesBorder) = false then Warnlog "Default of up Spacing to contents is wrong !"
 463        if InStr( Unten.GetText, sSpacingToContentsYesBorder) = false then Warnlog "Default of bottom Spacing to contents is wrong !"
 464      TabUmrandung.Cancel
 465
 466     Call hCloseDocument
 467
 468 endcase
 469
 470 '-------------------------------------------------------------------------------------------
 471
 472 testcase tFormatPage_55
 473
 474     Dim sSpacingToContents   as String   'the max spacing to content
 475     Dim sSpacingToContentsL  as String
 476     Dim sSpacingToContentsR  as String
 477     Dim sSpacingToContentsU  as String
 478     Dim sSpacingToContentsB  as String
 479
 480     sSpacingToContents  = "5" + gSeperator + "0" '+ gMeasurementUnit
 481     sSpacingToContentsL = "6" + gSeperator + "0" '+ gMeasurementUnit
 482     sSpacingToContentsR = "7" + gSeperator + "0" '+ gMeasurementUnit
 483     sSpacingToContentsU = "8" + gSeperator + "0" '+ gMeasurementUnit
 484     sSpacingToContentsB = "9" + gSeperator + "0" '+ gMeasurementUnit
 485
 486     PrintLog "- All 'spacing to contents' spin boxes are limited to 5cm"
 487     '/// All "spacing to contents" spin boxes are limited to 5cm
 488
 489     Call hNewDocument
 490
 491     'set border exists in the page
 492      fFormatPageWriter("TabUmrandung")
 493         Vorgaben.TypeKeys "<Right>" , 2
 494         Sleep 2
 495      TabUmrandung.OK
 496
 497     '/// format/Page , tabpage borders , set all spacing to content's size
 498     '/// + more than 5.00cm
 499      fFormatPageWriter("TabUmrandung")
 500        Synchronisieren.Uncheck
 501        Links.SetText  sSpacingToContentsL
 502        Rechts.SetText sSpacingToContentsR
 503        Oben.SetText   sSpacingToContentsU
 504        Unten.SetText  sSpacingToContentsB
 505      TabUmrandung.OK
 506
 507     '/// Check if all "spacing to contents" is 5.00cm
 508      fFormatPageWriter("TabUmrandung")
 509
 510        if InStr( Links.GetText, sSpacingToContents) = false then Warnlog "left Spacing to contents is wrong !"
 511        if InStr( Rechts.GetText, sSpacingToContents) = false then Warnlog "right Spacing to contents is wrong !"
 512        if InStr( Oben.GetText, sSpacingToContents) = false then Warnlog "up Spacing to contents is wrong !"
 513        if InStr( Unten.GetText, sSpacingToContents) = false then Warnlog "bottom Spacing to contents is wrong !"
 514
 515      TabUmrandung.Cancel
 516
 517     Call hCloseDocument
 518
 519 endcase
 520
 521 '-------------------------------------------------------------------------------------------
 522
 523 testcase tFormatPage_56
 524
 525     Dim sSpacingToContentsL  as String
 526     Dim sSpacingToContentsR  as String
 527     Dim sSpacingToContentsU  as String
 528     Dim sSpacingToContentsB  as String
 529
 530     sSpacingToContentsL = "0" + gSeperator + "5" '+ gMeasurementUnit
 531     sSpacingToContentsR = "0" + gSeperator + "6" '+ gMeasurementUnit
 532     sSpacingToContentsU = "0" + gSeperator + "7" '+ gMeasurementUnit
 533     sSpacingToContentsB = "0" + gSeperator + "8" '+ gMeasurementUnit
 534
 535     PrintLog "- Test Uncheck 'Synchronize'"
 536     '///  Test Uncheck 'Synchronize'
 537
 538     Call hNewDocument
 539
 540     'set border exists in the page
 541      fFormatPageWriter("TabUmrandung")
 542         Vorgaben.TypeKeys "<Right>" , 2
 543         Sleep 2
 544      TabUmrandung.OK
 545
 546     '/// format/Page , tabpage borders
 547     '/// + Uncheck synchronize
 548     '/// + Set all spacing to contents
 549      fFormatPageWriter("TabUmrandung")
 550        Synchronisieren.Uncheck
 551        Sleep 1
 552        Links.SetText  sSpacingToContentsL
 553        Rechts.SetText sSpacingToContentsR
 554        Oben.SetText   sSpacingToContentsU
 555        Unten.SetText  sSpacingToContentsB
 556      TabUmrandung.OK
 557      Sleep 1
 558
 559     '/// Check if all "spacing to contents" is correct
 560      fFormatPageWriter("TabUmrandung")
 561        if InStr( Links.GetText, sSpacingToContentsL) = false then Warnlog "left Spacing to contents is wrong !"
 562        if InStr( Rechts.GetText, sSpacingToContentsR) = false then Warnlog "right Spacing to contents is wrong !"
 563        if InStr( Oben.GetText, sSpacingToContentsU) = false then Warnlog "up Spacing to contents is wrong !"
 564        if InStr( Unten.GetText, sSpacingToContentsB) = false then Warnlog "bottom Spacing to contents is wrong !"
 565      TabUmrandung.Cancel
 566
 567     Call hCloseDocument
 568
 569 endcase
 570
 571 '-------------------------------------------------------------------------------------------
 572
 573 testcase tFormatPage_57
 574
 575     Dim sSpacingToContentsL  as String
 576     Dim sSpacingToContentsR  as String
 577     Dim sSpacingToContentsU  as String
 578     Dim sSpacingToContentsB  as String
 579
 580     sSpacingToContentsL = "0" + gSeperator + "5" '+ gMeasurementUnit
 581     sSpacingToContentsR = "0" + gSeperator + "6" '+ gMeasurementUnit
 582     sSpacingToContentsU = "0" + gSeperator + "7" '+ gMeasurementUnit
 583     sSpacingToContentsB = "0" + gSeperator + "8" '+ gMeasurementUnit
 584
 585     PrintLog "- Test Check 'Synchronize'"
 586     '///  Test Check 'Synchronize'
 587
 588     Call hNewDocument
 589
 590     'set border exists in the page
 591      fFormatPageWriter("TabUmrandung")
 592         Vorgaben.TypeKeys "<Right>" , 2
 593         Sleep 2
 594      TabUmrandung.OK
 595
 596     '/// format/Page , tabpage borders
 597     '/// + Check synchronize
 598     '/// + Set all spacing to contents
 599      fFormatPageWriter("TabUmrandung")
 600        Synchronisieren.Check
 601        Sleep 1
 602        Links.SetText  sSpacingToContentsL
 603        Rechts.SetText sSpacingToContentsR
 604        Oben.SetText   sSpacingToContentsU
 605        Unten.SetText  sSpacingToContentsB
 606      TabUmrandung.OK
 607      Sleep 1
 608
 609     '/// Check if all "spacing to contents" is correct
 610      fFormatPageWriter("TabUmrandung")
 611        if InStr( Links.GetText, sSpacingToContentsL) = true then Warnlog "left Spacing to contents is wrong !"
 612        if InStr( Rechts.GetText, sSpacingToContentsR) = true then Warnlog "right Spacing to contents is wrong !"
 613        if InStr( Oben.GetText, sSpacingToContentsU) = true then Warnlog "up Spacing to contents is wrong !"
 614        if InStr( Unten.GetText, sSpacingToContentsB) = false then Warnlog "bottom Spacing to contents is wrong !"
 615      TabUmrandung.Cancel
 616
 617     Call hCloseDocument
 618
 619 endcase
 620
 621 '-------------------------------------------------------------------------------------------
 622
 623 testcase tFormatPage_58
 624
 625     Dim sDefaultShadowColor as String
 626
 627     Select case iSprache
 628         case 01   : sDefaultShadowColor = "Gray"
 629         case 31   : sDefaultShadowColor = "Grijs"
 630         case 33   : sDefaultShadowColor = "Gris"
 631         case 34   : sDefaultShadowColor = "Gris"
 632         case 39   : sDefaultShadowColor = "Grigio"
 633         case 46   : sDefaultShadowColor = "Grått"
 634         case 49   : sDefaultShadowColor = "Grau"
 635         case 55   : sDefaultShadowColor = "Cinza"
 636         case 81   : sDefaultShadowColor = "灰色"
 637         case 82   : sDefaultShadowColor = "회색"
 638         case 86   : sDefaultShadowColor = "灰色"
 639         case 88   : sDefaultShadowColor = "灰色"
 640         case else : QAErrorLog "The test does not support the language " + iSprache
 641                     Goto endsub
 642     end select
 643
 644     PrintLog "- Test default shadow color"
 645     '///  Test default shadow color
 646
 647     Call hNewDocument
 648
 649     '/// format/Page , tabpage borders
 650     '/// + Check if the default shadow color is gray
 651      fFormatPageWriter("TabUmrandung")
 652         if SchattenFarbe.GetSelText <> sDefaultShadowColor then
 653             Warnlog "Shadow default color is wrong , get " &SchattenFarbe.GetSelText
 654         end if
 655      TabUmrandung.Cancel
 656
 657     Call hCloseDocument
 658
 659 endcase
 660
 661 '-------------------------------------------------------------------------------------------
 662
 663 testcase tFormatPage_59
 664
 665     Dim iBorderColor as Integer  ,  iShadowColor as Integer
 666     Dim sSpacingToContentsL           as String
 667     Dim sSpacingToContentsR           as String
 668     Dim sSpacingToContentsU           as String
 669     Dim sSpacingToContentsB           as String
 670     Dim sShadowDistance               as String
 671
 672     iBorderColor = 5 : iShadowColor = 4
 673
 674     sSpacingToContentsL = "0" + gSeperator + "5" '+ gMeasurementUnit
 675     sSpacingToContentsR = "0" + gSeperator + "6" '+ gMeasurementUnit
 676     sSpacingToContentsU = "0" + gSeperator + "7" '+ gMeasurementUnit
 677     sSpacingToContentsB = "0" + gSeperator + "8" '+ gMeasurementUnit
 678     sShadowDistance     = "2" + gSeperator + "54" '+ gMeasurementUnit
 679
 680     PrintLog "- Test if the shadow settings is OK after closing the dialog"
 681     '///  Test if the shadow settings is OK after closing the dialog
 682
 683     Call hNewDocument
 684
 685     '/// format/Page , tabpage borders , do some configuration
 686     '/// + and close the dialog
 687      fFormatPageWriter("TabUmrandung")
 688        Vorgaben.TypeKeys "<Right>" , 2
 689        Sleep 2
 690        Synchronisieren.UnCheck
 691        Sleep 1
 692        Links.SetText    sSpacingToContentsL
 693        Rechts.SetText   sSpacingToContentsR
 694        Oben.SetText     sSpacingToContentsU
 695        Unten.SetText    sSpacingToContentsB
 696        StilFarbe.Select iBorderColor            'set border color
 697
 698        Position.TypeKeys "<Right>" , 4
 699        Sleep 2
 700        Groesse.SetText      sShadowDistance
 701        SchattenFarbe.Select iShadowColor        'set shadow color
 702        Sleep 1
 703      TabUmrandung.OK
 704
 705     '/// format/Page , check if the configuration is all right
 706      fFormatPageWriter("TabUmrandung")
 707        if Synchronisieren.IsChecked = TRUE          then Warnlog "Synchronize should be Unchecked !"
 708        if InStr( Links.GetText, sSpacingToContentsL) = false then Warnlog "left Spacing to contents is wrong !"
 709        if InStr( Rechts.GetText, sSpacingToContentsR) = false then Warnlog "right Spacing to contents is wrong !"
 710        if InStr( Oben.GetText, sSpacingToContentsU) = false then Warnlog "up Spacing to contents is wrong !"
 711        if InStr( Unten.GetText, sSpacingToContentsB) = false then Warnlog "bottom Spacing to contents is wrong !"
 712        if StilFarbe.GetSelIndex <> iBorderColor     then Warnlog "border color is wrong !"
 713
 714        if InStr( Groesse.GetText, sShadowDistance) = false then Warnlog "shadow distance is wrong !"
 715        if SchattenFarbe.GetSelindex <> iShadowColor then Warnlog "shadow color is wrong !"
 716      TabUmrandung.Cancel
 717
 718     Call hCloseDocument
 719
 720 endcase
 721
 722 '-------------------------------------------------------------------------------------------
 723
 724 testcase tFormatPage_60
 725
 726     Dim iBorderColor as Integer  ,  iShadowColor as Integer
 727     Dim sSpacingToContentsL           as String
 728     Dim sSpacingToContentsR           as String
 729     Dim sSpacingToContentsU           as String
 730     Dim sSpacingToContentsB           as String
 731     Dim sShadowDistance               as String
 732
 733     iBorderColor = 5 : iShadowColor = 4
 734
 735     sSpacingToContentsL = "0" + gSeperator + "5" '+ gMeasurementUnit
 736     sSpacingToContentsR = "0" + gSeperator + "6" '+ gMeasurementUnit
 737     sSpacingToContentsU = "0" + gSeperator + "7" '+ gMeasurementUnit
 738     sSpacingToContentsB = "0" + gSeperator + "8" '+ gMeasurementUnit
 739     sShadowDistance     = "2" + gSeperator + "74" '+ gMeasurementUnit
 740
 741     PrintLog "- Test if the shadow settings is OK after reopening the file"
 742     '///  Test if the shadow settings is OK after reopening the file
 743
 744     Call hNewDocument
 745
 746     '/// format/Page , tabpage borders , do some configuration
 747     '/// + and close the dialog
 748     fFormatPageWriter("TabUmrandung")
 749     Vorgaben.TypeKeys "<Right>" , 2
 750     Sleep 2
 751     Synchronisieren.UnCheck
 752     Sleep 1
 753     Links.SetText    sSpacingToContentsL
 754     Rechts.SetText   sSpacingToContentsR
 755     Oben.SetText     sSpacingToContentsU
 756     Unten.SetText    sSpacingToContentsB
 757     StilFarbe.Select iBorderColor            'set border color
 758
 759     Position.TypeKeys "<Right>" , 4
 760     Sleep 2
 761     Groesse.SetText      sShadowDistance
 762     SchattenFarbe.Select iShadowColor        'set shadow color
 763     Sleep 1
 764     TabUmrandung.OK
 765
 766     '/// Save the file , close the file and reopen it
 767     Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\tFormatPage_60.odt", "writer8")
 768     Call hCloseDocument
 769
 770     Call hNewDocument
 771     Call hFileOpen(gOfficepath + "user\work\tFormatPage_60.odt")
 772     Call sMakeReadOnlyDocumentEditable
 773
 774     '/// check if the configuration is all right
 775     fFormatPageWriter("TabUmrandung")
 776     if Synchronisieren.IsChecked = TRUE          then Warnlog "Synchronize should be Unchecked !"
 777     if InStr( Links.GetText, sSpacingToContentsL) = false then Warnlog "left Spacing to contents is wrong !"
 778     if InStr( Rechts.GetText, sSpacingToContentsR) = false then Warnlog "right Spacing to contents is wrong !"
 779     if InStr( Oben.GetText, sSpacingToContentsU) = false then Warnlog "up Spacing to contents is wrong !"
 780     if InStr( Unten.GetText, sSpacingToContentsB) = false then Warnlog "bottom Spacing to contents is wrong !"
 781     if StilFarbe.GetSelIndex <> iBorderColor     then Warnlog "border color is wrong !"
 782
 783        if InStr( Groesse.GetText, sShadowDistance) = false then Warnlog "shadow distance is wrong !"
 784     if SchattenFarbe.GetSelindex <> iShadowColor then Warnlog "shadow color is wrong !"
 785     TabUmrandung.Cancel
 786
 787     printlog "  Close active document "
 788     Do Until GetDocumentCount = 0
 789         Call hCloseDocument
 790     Loop
 791 endcase
 792
 793 '--------------------------------------------------