testautomation/writer/optional/includes/formatpage/w_formatpage2.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_formatpage2.inc,v $
  10 '*
  11 '* $Revision: 1.2 $
  12 '*
  13 '* last change: $Author: vg $ $Date: 2008-08-18 12:28:35 $
  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 - 2
  37 '*
  38 '************************************************************************
  39 '*
  40 ' #1 tFormatPage_16      'AutoFit height - Check (Header,change font size)
  41 ' #1 tFormatPage_17      'AutoFit height - Check (Header,multiline content)
  42 ' #1 tFormatPage_18      'AutoFit height - UnCheck (Header,change font size)
  43 ' #1 tFormatPage_19      'AutoFit height - UnCheck (Header,multiline content)
  44 ' #1 tFormatPage_20      'AutoFit height - Check (Footer,change font size)
  45 ' #1 tFormatPage_21      'AutoFit height - Check (Footer,multiline content)
  46 ' #1 tFormatPage_22      'AutoFit height - UnCheck (Footer,change font size)
  47 ' #1 tFormatPage_23      'AutoFit height - UnCheck (Footer,multiline content)
  48 ' #1 tFormatPage_24      'warning message should appear when turning off header -1
  49 ' #1 tFormatPage_25      'warning message should appear when turning off header -2
  50 ' #1 tFormatPage_26      'warning message should appear when turning off footer -1
  51 ' #1 tFormatPage_27      'warning message should appear when turning off footer -2
  52 ' #1 tFormatPage_28      'Header/footer is limited to 80% of height of page text area
  53 '*
  54 '\***********************************************************************
  55
  56 testcase tFormatPage_16
  57
  58     Dim sTestFile as String
  59     Dim sDummy as String
  60
  61     sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\formatpage\testForAutoFit.sxw")
  62
  63     PrintLog "- AutoFit height - Check (Header,change font size)"
  64     '/// AutoFit height - Check (Header,change font size)
  65
  66     Call hNewDocument
  67
  68     '/// Open test file testForAutoFit.sxw
  69     Call hFileOpen(sTestFile)
  70     Call sMakeReadOnlyDocumentEditable
  71
  72     '/// Open Navigator and enter as page number 2
  73     Kontext "Navigator"
  74     if Not Navigator.Exists then ViewNavigator
  75     Kontext "NavigatorWriter"
  76     Seitennummer.SetText "2"
  77     Seitennummer.TypeKeys "<Return>"
  78     '/// Close Navigator
  79     ViewNavigator
  80
  81     '/// Step 3 times up in document
  82     Call wTypeKeys "<Up>" , 3
  83     Call wTypeKeys "<Home><Shift End>"
  84
  85     '/// Remember number in line
  86     EditCopy
  87     sDummy =  GetClipboardText
  88
  89     '/// Insert a header
  90     DocumentWriter.UseMenu
  91     MenuSelect(Menugetitemid(4))
  92     Sleep 2
  93     MenuSelect(Menugetitemid(9))
  94     Sleep 2
  95     MenuSelect(Menugetitemid(3))
  96     Sleep 2
  97
  98     '/// formatPage , tabpage header
  99     fFormatPageWriter("TabKopfzeile")
 100
 101     '/// AutoFit Height should be checked
 102     if Hoehedynamisch.IsChecked <> TRUE then
 103         warnlog "AutoFit Height should be checked!"
 104         Hoehedynamisch.Check
 105     end if
 106     TabKopfzeile.OK
 107
 108     '/// Input some test words and select them
 109     Call wTypeKeys "Test"
 110     Call wTypeKeys "<End><Shift Home>"
 111
 112     '/// Set the bigger fonts to selection in the header
 113     fFormatCharacter("TabFont")
 114     try
 115        SizeWest.Select SizeWest.GetItemCount-2
 116     catch
 117        Size.Select Size.GetItemCount-2
 118     endcatch
 119     TabFont.OK
 120
 121     '/// Check if AutoFit Height works well
 122     Kontext
 123     EditSearchAndReplace
 124     Kontext "FindAndReplace"
 125     SearchFor.SetText sDummy
 126     Sleep 1
 127     SearchAll.Click
 128     Sleep 1
 129     FindAndReplace.Close
 130
 131     Kontext "Navigator"
 132     if Not Navigator.Exists then ViewNavigator
 133     Kontext "NavigatorWriter"
 134     Sleep 1
 135     if Seitennummer.GetText <> "2" then warnlog "Something wrong in AutoFit Height!"
 136     Call fCloseNavigator
 137
 138     printlog "  Close active document "
 139     Do Until GetDocumentCount = 0
 140         Call hCloseDocument
 141     Loop
 142 endcase
 143
 144 '-------------------------------------------------------------------------------------------
 145
 146 testcase tFormatPage_17
 147
 148     Dim sTestFile as String
 149     Dim sDummy1 as String
 150     Dim sDummy2 as String
 151
 152     sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\formatpage\testForAutoFit.sxw")
 153
 154     PrintLog "- AutoFit height - Check (Header,multiline content)"
 155     '/// AutoFit height - Check (Header,multiline content)
 156
 157     Call hNewDocument
 158
 159     '/// Open test file testForAutoFit.sxw
 160      Call hFileOpen(sTestFile)
 161      Call sMakeReadOnlyDocumentEditable
 162
 163     '/// Open Navigator and enter as page number 2
 164     Kontext "Navigator"
 165     if Not Navigator.Exists then ViewNavigator
 166     Kontext "NavigatorWriter"
 167     Seitennummer.SetText "2"
 168     Seitennummer.TypeKeys "<Return>"
 169     '/// Close Navigator
 170     ViewNavigator
 171
 172     '/// Step 3 times up in document
 173     Call wTypeKeys "<Up>" , 3
 174     Call wTypeKeys "<Home><Shift End>"
 175
 176     '/// Remember number in line
 177     EditCopy
 178     sDummy1 =  GetClipboardText
 179
 180     Call wTypeKeys "<Up>"
 181     Call wTypeKeys "<Home><Shift End>"
 182
 183     EditCopy
 184     sDummy2 =  GetClipboardText
 185
 186     '/// Insert a header
 187     DocumentWriter.UseMenu
 188     MenuSelect(Menugetitemid(4))
 189     Sleep 2
 190     MenuSelect(Menugetitemid(9))
 191     Sleep 2
 192     MenuSelect(Menugetitemid(3))
 193     Sleep 2
 194
 195     '/// formatPage , tabpage header
 196     fFormatPageWriter("TabKopfzeile")
 197
 198     '/// AutoFit Height should be checked
 199     if Hoehedynamisch.IsChecked <> TRUE then
 200        warnlog "AutoFit Height should be checked!"
 201        Hoehedynamisch.Check
 202     end if
 203     TabKopfzeile.OK
 204
 205     '/// Input some test words
 206     Call wTypeKeys "Test1"
 207     Call wTypeKeys "<Return>"
 208     Call wTypeKeys "Test2"
 209
 210     '/// Check if AutoFit Height works well
 211     Kontext
 212     EditSearchAndReplace
 213     Kontext "FindAndReplace"
 214     SearchFor.SetText sDummy1
 215     Sleep 1
 216     SearchAll.Click
 217     Sleep 1
 218     FindAndReplace.Close
 219
 220     Kontext "Navigator"
 221     if Not Navigator.Exists then ViewNavigator
 222     Kontext "NavigatorWriter"
 223     Sleep 1
 224     if Seitennummer.GetText <> "2" then warnlog "Something wrong in AutoFit Height --1 !"
 225     fCloseNavigator
 226
 227     Kontext
 228     EditSearchAndReplace
 229     Kontext "FindAndReplace"
 230     SearchFor.SetText sDummy2
 231     Sleep 1
 232     SearchAll.Click
 233     Sleep 1
 234     FindAndReplace.Close
 235
 236     Kontext "Navigator"
 237     if Not Navigator.Exists then ViewNavigator
 238     Kontext "NavigatorWriter"
 239     Sleep 1
 240     if Seitennummer.GetText <> "1" then warnlog "Something wrong in AutoFit Height --2 !"
 241     fCloseNavigator
 242
 243     printlog "  Close active document "
 244     Do Until GetDocumentCount = 0
 245         Call hCloseDocument
 246     Loop
 247 endcase
 248
 249 '-------------------------------------------------------------------------------------------
 250
 251 testcase tFormatPage_18
 252
 253     Dim sTestFile as String
 254     Dim sDummy as String
 255
 256     sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\formatpage\testForAutoFit.sxw")
 257
 258     PrintLog "- AutoFit height - UnCheck (Header,change font size)"
 259     '/// AutoFit height - UnCheck (Header,change font size)
 260
 261     Call hNewDocument
 262
 263     '/// Open test file testForAutoFit.sxw
 264      Call hFileOpen(sTestFile)
 265      Call sMakeReadOnlyDocumentEditable
 266
 267     '/// Open Navigator and enter as page number 2
 268     Kontext "Navigator"
 269     if Not Navigator.Exists then ViewNavigator
 270     Kontext "NavigatorWriter"
 271     Seitennummer.SetText "2"
 272     Seitennummer.TypeKeys "<Return>"
 273     '/// Close Navigator
 274     ViewNavigator
 275
 276     '/// Step 3 times up in document
 277     Call wTypeKeys "<Up>" , 3
 278     Call wTypeKeys "<Home><Shift End>"
 279
 280     '/// Remember number in line
 281     EditCopy
 282     sDummy =  GetClipboardText
 283
 284     '/// Insert a header
 285     DocumentWriter.UseMenu
 286     MenuSelect(Menugetitemid(4))
 287     Sleep 2
 288     MenuSelect(Menugetitemid(9))
 289     Sleep 2
 290     MenuSelect(Menugetitemid(3))
 291     Sleep 2
 292
 293     '/// formatPage , tabpage header ,UnCheck AutoFit Height
 294     fFormatPageWriter("TabKopfzeile")
 295     Hoehedynamisch.UnCheck
 296     TabKopfzeile.OK
 297
 298     '/// Input some test words
 299     Call wTypeKeys "Test"
 300     Call wTypeKeys "<End><Shift Home>"
 301
 302     '/// Set the bigger fonts to selection in the header
 303     fFormatCharacter("TabFont")
 304     try
 305         SizeWest.Select  SizeWest.GetItemCount-2
 306     catch
 307         Size.Select      Size.GetItemCount-2
 308     endcatch
 309     TabFont.OK
 310
 311     '/// Check if AutoFit Height works well
 312     Kontext
 313     EditSearchAndReplace
 314     Kontext "FindAndReplace"
 315     SearchFor.SetText sDummy
 316     Sleep 1
 317     SearchAll.Click
 318     Sleep 1
 319     FindAndReplace.Close
 320
 321     Kontext "Navigator"
 322     if Not Navigator.Exists then ViewNavigator
 323     Kontext "NavigatorWriter"
 324     Sleep 1
 325     if Seitennummer.GetText <> "1" then warnlog "Something wrong in AutoFit Height!"
 326     fCloseNavigator
 327
 328     printlog "  Close active document "
 329     Do Until GetDocumentCount = 0
 330         Call hCloseDocument
 331     Loop
 332 endcase
 333
 334 '-------------------------------------------------------------------------------------------
 335
 336 testcase tFormatPage_19
 337
 338     Dim sTestFile as String
 339     Dim sDummy as String
 340
 341     sTestFile  = Convertpath (gTesttoolpath + "writer\optional\input\formatpage\testForAutoFit.sxw")
 342
 343     PrintLog "- AutoFit height - UnCheck (Header,multiline content)"
 344     '/// AutoFit height - UnCheck (Header,multiline content)
 345
 346     Call hNewDocument
 347
 348     '/// Open test file testForAutoFit.sxw
 349      Call hFileOpen(sTestFile)
 350      Call sMakeReadOnlyDocumentEditable
 351
 352     '/// Open Navigator and enter as page number 2
 353     Kontext "Navigator"
 354     if Not Navigator.Exists then ViewNavigator
 355     Kontext "NavigatorWriter"
 356     Seitennummer.SetText "2"
 357     Seitennummer.TypeKeys "<Return>"
 358     '/// Close Navigator
 359     ViewNavigator
 360
 361     '/// Step 3 times up in document
 362     Call wTypeKeys "<Up>" , 3
 363     Call wTypeKeys "<Home><Shift End>"
 364
 365     '/// Remember number in line
 366     EditCopy
 367     sDummy =  GetClipboardText
 368
 369     '/// Insert a header
 370     DocumentWriter.UseMenu
 371     MenuSelect(Menugetitemid(4))
 372     Sleep 2
 373     MenuSelect(Menugetitemid(9))
 374     Sleep 2
 375     MenuSelect(Menugetitemid(3))
 376     Sleep 2
 377
 378     '/// formatPage , tabpage header , Uncheck AutoFit Height
 379     fFormatPageWriter("TabKopfzeile")
 380     Hoehedynamisch.UnCheck
 381     TabKopfzeile.OK
 382
 383     '/// input some test words
 384     Call wTypeKeys "Test1"
 385     Call wTypeKeys "<Return>"
 386     Call wTypeKeys "Test2"
 387
 388     '/// Check if AutoFit Height works well
 389     Kontext
 390     EditSearchAndReplace
 391     Kontext "FindAndReplace"
 392     SearchFor.SetText sDummy
 393     Sleep 1
 394     SearchAll.Click
 395     Sleep 1
 396     FindAndReplace.Close
 397
 398     Kontext "Navigator"
 399     if Not Navigator.Exists then ViewNavigator
 400     Kontext "NavigatorWriter"
 401     Sleep 1
 402     if Seitennummer.GetText <> "1" then warnlog "Something wrong in AutoFit Height!"
 403     fCloseNavigator
 404
 405     printlog "  Close active document "
 406     Do Until GetDocumentCount = 0
 407         Call hCloseDocument
 408     Loop
 409 endcase
 410
 411 '-------------------------------------------------------------------------------------------
 412
 413 testcase tFormatPage_20
 414
 415     Dim sTestFile as String
 416     Dim sDummy as String
 417
 418     sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\formatpage\testForAutoFit.sxw")
 419
 420     PrintLog "- AutoFit height - Check (Footer,change font size)"
 421     '/// AutoFit height - Check (Footer,change font size)
 422
 423     Call hNewDocument
 424
 425     '/// Open test file testForAutoFit.sxw
 426     Call hFileOpen(sTestFile)
 427     Call sMakeReadOnlyDocumentEditable
 428
 429     '/// Open Navigator and enter as page number 2
 430     Kontext "Navigator"
 431     if Not Navigator.Exists then ViewNavigator
 432     Kontext "NavigatorWriter"
 433     Seitennummer.SetText "2"
 434     Seitennummer.TypeKeys "<Return>"
 435     '/// Close Navigator
 436     ViewNavigator
 437
 438     '/// Step 3 times up in document
 439     Call wTypeKeys "<Up>" , 3
 440     Call wTypeKeys "<Home><Shift End>"
 441
 442     '/// Remember number in line
 443     EditCopy
 444     sDummy =  GetClipboardText
 445
 446     '/// Insert a footer
 447     DocumentWriter.UseMenu
 448     Sleep 2
 449     MenuSelect(Menugetitemid(4))
 450     Sleep 2
 451     MenuSelect(Menugetitemid(10))
 452     Sleep 2
 453     Call hMenuFindSelect (".uno:InsertPageFooter?PageStyle:string=Default&On:bool=true", true, 3, true)   'Find "Insert:Footer:Default" and call the slot.
 454 '    MenuSelect(Menugetitemid(3))
 455     Sleep 2
 456
 457     '/// formatPage , tabpage footer
 458     fFormatPageWriter("TabFusszeile")
 459
 460     '/// AutoFit Height should be checked
 461     if Hoehedynamisch.IsChecked <> TRUE then
 462         warnlog "AutoFit Height should be checked!"
 463         Hoehedynamisch.Check
 464     end if
 465     TabFusszeile.OK
 466
 467     Call wTypeKeys "Test"
 468     Call wTypeKeys "<End><Shift Home>"
 469
 470     '/// Set the bigger fonts to selection in the footer
 471     fFormatCharacter("TabFont")
 472     try
 473         SizeWest.Select SizeWest.GetItemCount-2
 474     catch
 475         Size.Select Size.GetItemCount-2
 476     endcatch
 477     TabFont.OK
 478
 479     '/// Check if AutoFit Height works well
 480     Kontext
 481     EditSearchAndReplace
 482     Kontext "FindAndReplace"
 483     SearchFor.SetText sDummy
 484     Sleep 1
 485     SearchAll.Click
 486     Sleep 1
 487     FindAndReplace.Close
 488
 489     Kontext "Navigator"
 490     if Not Navigator.Exists then ViewNavigator
 491     Kontext "NavigatorWriter"
 492     Sleep 1
 493     if Seitennummer.GetText <> "2" then warnlog "Something wrong in AutoFit Height!"
 494     fCloseNavigator
 495
 496     printlog "  Close active document "
 497     Do Until GetDocumentCount = 0
 498         Call hCloseDocument
 499     Loop
 500 endcase
 501
 502 '-------------------------------------------------------------------------------------------
 503
 504 testcase tFormatPage_21
 505
 506     Dim sTestFile as String
 507     Dim sDummy1 as String
 508     Dim sDummy2 as String
 509
 510     sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\formatpage\testForAutoFit.sxw")
 511
 512     PrintLog "- AutoFit height - Check (Footer,multiline content)"
 513     '/// AutoFit height - Check (Footer,multiline content)
 514
 515     '/// Open test file testForAutoFit.sxw
 516      Call hFileOpen(sTestFile)
 517      Call sMakeReadOnlyDocumentEditable
 518
 519     '/// Open Navigator and enter as page number 2
 520     Kontext "Navigator"
 521     if Not Navigator.Exists then ViewNavigator
 522     Kontext "NavigatorWriter"
 523     Seitennummer.SetText "2"
 524     Seitennummer.TypeKeys "<Return>"
 525     '/// Close Navigator
 526     ViewNavigator
 527
 528     '/// Step 3 times up in document
 529     Call wTypeKeys "<Up>" , 3
 530     Call wTypeKeys "<Home><Shift End>"
 531
 532     '/// Remember number in line
 533     EditCopy
 534     sDummy1 = GetClipboardText
 535
 536     '/// Again 1 step up
 537     Call wTypeKeys "<Up>"
 538     Call wTypeKeys "<Home><Shift End>"
 539
 540     '/// Remember number in current line
 541     EditCopy
 542     sDummy2 = GetClipboardText
 543
 544     printlog " Insert a footer"
 545     DocumentWriter.UseMenu
 546     MenuSelect(Menugetitemid(4))
 547     Sleep 2
 548     MenuSelect(Menugetitemid(10))
 549     Sleep 2
 550     Call hMenuFindSelect (".uno:InsertPageFooter?PageStyle:string=Default&On:bool=true", true, 3, true)   'Find "Insert:Footer:Default" and call the slot.
 551     Sleep 2
 552
 553     '/// formatPage , tabpage footer
 554     fFormatPageWriter("TabFusszeile")
 555
 556     '/// AutoFit Height should be checked
 557     if Hoehedynamisch.IsChecked <> TRUE then
 558         warnlog "AutoFit Height should be checked!"
 559         Hoehedynamisch.Check
 560     end if
 561     TabFusszeile.OK
 562
 563     '/// input some test words
 564     Call wTypeKeys "Test1"
 565     Call wTypeKeys "<Return>"
 566     Call wTypeKeys "Test2"
 567
 568     '/// Check if AutoFit Height works well
 569     Kontext
 570     EditSearchAndReplace
 571     Kontext "FindAndReplace"
 572     SearchFor.SetText sDummy1
 573     Sleep 1
 574     SearchAll.Click
 575     Sleep 1
 576     FindAndReplace.Close
 577
 578     Kontext "Navigator"
 579     if Not Navigator.Exists then ViewNavigator
 580     Kontext "NavigatorWriter"
 581     Sleep 1
 582     if Seitennummer.GetText <> "2" then warnlog "Something wrong in AutoFit Height --1 !"
 583     fCloseNavigator
 584
 585     Kontext
 586     EditSearchAndReplace
 587     Kontext "FindAndReplace"
 588     SearchFor.SetText sDummy2
 589     Sleep 1
 590     SearchAll.Click
 591     Sleep 1
 592     FindAndReplace.Close
 593
 594     Kontext "Navigator"
 595     if Not Navigator.Exists then ViewNavigator
 596     Kontext "NavigatorWriter"
 597     Sleep 1
 598     if Seitennummer.GetText <> "1" then warnlog "Something wrong in AutoFit Height --2 !"
 599     fCloseNavigator
 600
 601     printlog "  Close active document "
 602     Do Until GetDocumentCount = 0
 603         Call hCloseDocument
 604     Loop
 605 endcase
 606
 607 '-------------------------------------------------------------------------------------------
 608
 609 testcase tFormatPage_22
 610
 611     Dim sTestFile as String
 612     Dim sDummy as String
 613
 614     sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\formatpage\testForAutoFit.sxw")
 615
 616     PrintLog "- AutoFit height - UnCheck (Footer,change font size)"
 617     '/// AutoFit height - UnCheck (Footer,change font size)
 618
 619     Call hNewDocument
 620
 621     '/// Open test file testForAutoFit.sxw
 622     Call hFileOpen(sTestFile)
 623     Call sMakeReadOnlyDocumentEditable
 624
 625     '/// Open Navigator and enter as page number 2
 626     Kontext "Navigator"
 627     if Not Navigator.Exists then ViewNavigator
 628     Kontext "NavigatorWriter"
 629     Seitennummer.SetText "2"
 630     Seitennummer.TypeKeys "<Return>"
 631     '/// Close Navigator
 632     ViewNavigator
 633
 634     '/// Step 3 times up in document
 635     Call wTypeKeys "<Up>" , 3
 636     Call wTypeKeys "<Home><Shift End>"
 637
 638     '/// Remember number in line
 639     EditCopy
 640     sDummy =  GetClipboardText
 641
 642     '/// Insert a footer
 643     DocumentWriter.UseMenu
 644     MenuSelect(Menugetitemid(4))
 645     Sleep 2
 646     MenuSelect(Menugetitemid(10))
 647     Sleep 2
 648     Call hMenuFindSelect (".uno:InsertPageFooter?PageStyle:string=Default&On:bool=true", true, 3, true)   'Find "Insert:Footer:Default" and call the slot.
 649 '    MenuSelect(Menugetitemid(3))
 650     Sleep 2
 651
 652     '/// formatPage , tabpage footer ,UnCheck AutoFit Height
 653     fFormatPageWriter("TabFusszeile")
 654     Hoehedynamisch.UnCheck
 655     TabFusszeile.OK
 656
 657     '/// input some test words
 658     Call wTypeKeys "Test"
 659     Call wTypeKeys "<End><Shift Home>"
 660
 661     '/// Set the bigger fonts to selection in the footer
 662     fFormatCharacter("TabFont")
 663     try
 664         SizeWest.Select SizeWest.GetItemCount-2
 665     catch
 666         Size.Select Size.GetItemCount-2
 667     endcatch
 668     TabFont.OK
 669
 670     '/// Check if AutoFit Height works well
 671     Kontext
 672     EditSearchAndReplace
 673     Kontext "FindAndReplace"
 674     SearchFor.SetText sDummy
 675     Sleep 1
 676     SearchAll.Click
 677     Sleep 1
 678     FindAndReplace.Close
 679
 680     Kontext "Navigator"
 681     if Not Navigator.Exists then ViewNavigator
 682     Kontext "NavigatorWriter"
 683     Sleep 1
 684     if Seitennummer.GetText <> "1" then warnlog "Something wrong in AutoFit Height!"
 685     fCloseNavigator
 686
 687     printlog "  Close active document "
 688     Do Until GetDocumentCount = 0
 689         Call hCloseDocument
 690     Loop
 691 endcase
 692
 693 '-------------------------------------------------------------------------------------------
 694
 695 testcase tFormatPage_23
 696
 697     Dim sTestFile as String
 698     Dim sDummy as String
 699
 700     sTestFile  = Convertpath (gTesttoolpath + "writer\optional\input\formatpage\testForAutoFit.sxw")
 701
 702     PrintLog "- AutoFit height - UnCheck (Footer,multiline content)"
 703     '/// AutoFit height - UnCheck (Footer,multiline content)
 704
 705     '/// Open test file testForAutoFit.sxw
 706     Call hFileOpen(sTestFile)
 707     Call sMakeReadOnlyDocumentEditable
 708
 709     '/// Open Navigator and enter as page number 2
 710     Kontext "Navigator"
 711     if Not Navigator.Exists then ViewNavigator
 712     Kontext "NavigatorWriter"
 713     Seitennummer.SetText "2"
 714     Seitennummer.TypeKeys "<Return>"
 715     '/// Close Navigator
 716     ViewNavigator
 717
 718     '/// Step 3 times up in document
 719     Call wTypeKeys "<Up>" , 3
 720     Call wTypeKeys "<Home><Shift End>"
 721
 722     '/// Remember number in line
 723     EditCopy
 724     sDummy =  GetClipboardText
 725
 726     '/// Insert a footer
 727     DocumentWriter.UseMenu
 728     MenuSelect(Menugetitemid(4))
 729     Sleep 2
 730     MenuSelect(Menugetitemid(10))
 731     Sleep 2
 732     Call hMenuFindSelect (".uno:InsertPageFooter?PageStyle:string=Default&On:bool=true", true, 3, true)   'Find "Insert:Footer:Default" and call the slot.
 733 '    MenuSelect(Menugetitemid(3))
 734     Sleep 2
 735
 736     '/// formatPage , tabpage footer ,Uncheck AutoFit Height
 737     fFormatPageWriter("TabFusszeile")
 738     Hoehedynamisch.UnCheck
 739     TabFusszeile.OK
 740
 741     '/// input some test words
 742     Call wTypeKeys "Test1"
 743     Call wTypeKeys "<Return>"
 744     Call wTypeKeys "Test2"
 745
 746     '/// Check if AutoFit Height works well
 747     Kontext
 748     EditSearchAndReplace
 749     Kontext "FindAndReplace"
 750     SearchFor.SetText sDummy
 751     Sleep 1
 752     SearchAll.Click
 753     Sleep 1
 754     FindAndReplace.Close
 755
 756     Kontext "Navigator"
 757     if Not Navigator.Exists then ViewNavigator
 758     Kontext "NavigatorWriter"
 759     Sleep 1
 760     if Seitennummer.GetText <> "1" then warnlog "Something wrong in AutoFit Height!"
 761     fCloseNavigator
 762
 763     printlog "  Close active document "
 764     Do Until GetDocumentCount = 0
 765         Call hCloseDocument
 766     Loop
 767 endcase
 768
 769 '-------------------------------------------------------------------------------------------
 770
 771 testcase tFormatPage_24
 772
 773     PrintLog "- warning message should appear when turning off header -1"
 774     '/// warning message should appear when turning off header -1
 775
 776     Call hNewDocument
 777
 778     '/// Insert a header
 779      DocumentWriter.UseMenu
 780      MenuSelect(Menugetitemid(4))
 781      Sleep 2
 782      MenuSelect(Menugetitemid(9))
 783      Sleep 2
 784      MenuSelect(Menugetitemid(1))
 785      Sleep 2
 786
 787     '/// formatPage , tabpage header
 788      fFormatPageWriter("TabKopfzeile")
 789
 790     '/// + turn off header (uncheck Header on) ,
 791     '/// + a warning message should appear
 792        KopfzeileMitAbstand.UnCheck
 793
 794        Kontext "Active"
 795        if Active.Exists then
 796            if Active.GetRT = 304 then  Active.No
 797        else
 798             warnlog "There should be a warning message appear when turn off header !"
 799        end if
 800
 801        Kontext "TabKopfzeile"
 802      TabKopfzeile.Cancel
 803
 804     Call hCloseDocument
 805 endcase
 806
 807 '-------------------------------------------------------------------------------------------
 808
 809 testcase tFormatPage_25
 810
 811     PrintLog "- warning message should appear when turning off header -2"
 812     '/// warning message should appear when turning off header -2
 813
 814     Call hNewDocument
 815
 816     '/// Insert a header
 817      DocumentWriter.UseMenu
 818      MenuSelect(Menugetitemid(4))
 819      Sleep 2
 820      MenuSelect(Menugetitemid(9))
 821      Sleep 2
 822      MenuSelect(Menugetitemid(1))
 823      Sleep 2
 824
 825     '/// turn off header from menu
 826      DocumentWriter.UseMenu
 827      MenuSelect(Menugetitemid(4))
 828      Sleep 2
 829      MenuSelect(Menugetitemid(9))
 830      Sleep 2
 831      MenuSelect(Menugetitemid(1))
 832      Sleep 2
 833
 834      Kontext "Active"
 835      if Active.Exists then
 836          if Active.GetRT = 304 then  Active.No
 837      else
 838           warnlog "There should be a warning message appear when turn off header !"
 839      end if
 840
 841     Call hCloseDocument
 842 endcase
 843
 844 '-------------------------------------------------------------------------------------------
 845
 846 testcase tFormatPage_26
 847
 848     PrintLog "- warning message should appear when turning off footer -1"
 849     '/// warning message should appear when turning off footer -1
 850
 851     Call hNewDocument
 852
 853     '/// Insert a footer
 854      DocumentWriter.UseMenu
 855      MenuSelect(Menugetitemid(4))
 856      Sleep 2
 857      MenuSelect(Menugetitemid(10))
 858      Sleep 2
 859      MenuSelect(Menugetitemid(1))
 860      Sleep 2
 861
 862     '/// formatPage , tabpage footer
 863      fFormatPageWriter("TabKopfzeile")
 864
 865     '/// + turn off header (uncheck Header on) ,
 866     '/// + a warning message should appear
 867        KopfzeileMitAbstand.UnCheck
 868
 869        Kontext "Active"
 870        if Active.Exists then
 871            if Active.GetRT = 304 then  Active.No
 872        else
 873             warnlog "There should be a warning message appear when turn off footer !"
 874        end if
 875
 876        Kontext "TabKopfzeile"
 877      TabKopfzeile.Cancel
 878
 879     Call hCloseDocument
 880 endcase
 881
 882 '-------------------------------------------------------------------------------------------
 883
 884 testcase tFormatPage_27
 885
 886     PrintLog "- warning message should appear when turning off footer -2"
 887     '/// warning message should appear when turning off footer -2
 888
 889     Call hNewDocument
 890
 891     '/// Insert a footer
 892      DocumentWriter.UseMenu
 893      MenuSelect(Menugetitemid(4))
 894      Sleep 2
 895      MenuSelect(Menugetitemid(10))
 896      Sleep 2
 897      MenuSelect(Menugetitemid(1))
 898      Sleep 2
 899
 900     '/// + turn off footer from menu ,
 901      DocumentWriter.UseMenu
 902      MenuSelect(Menugetitemid(4))
 903       Sleep 2
 904      MenuSelect(Menugetitemid(10))
 905      Sleep 2
 906      MenuSelect(Menugetitemid(1))
 907      Sleep 2
 908
 909     '/// + the warning message should appear
 910      Kontext "Active"
 911      if Active.Exists then
 912          if Active.GetRT = 304 then  Active.No
 913      else
 914           warnlog "There should be a warning message appear when turn off footer !"
 915      end if
 916
 917     Call hCloseDocument
 918 endcase
 919
 920 '-------------------------------------------------------------------------------------------
 921
 922 testcase tFormatPage_28
 923
 924     Dim iFormat as Integer
 925     Dim sHeightInPage as String  ,  sHeight as String
 926
 927     iFormat        = 2   'A4 paper
 928     sHeightInPage  = "20" + gSeperator + "00" + gMeasurementUnit
 929     sHeight        = "18" + gSeperator + "00" + gMeasurementUnit
 930
 931     PrintLog "- Header/footer is limited to 80% of height of page text area "
 932    '/// Header/footer is limited to 80% of height of page text area
 933
 934     Call hNewDocument
 935
 936    '/// 1. Header is limited to 80% of height of page text area
 937     fFormatPageWriter("TabSeite")
 938       Papierformat.Select iFormat
 939       Wait 500
 940       Hoehe.SetText   sHeightInPage
 941       Wait 500
 942     TabSeite.OK
 943
 944     '/// formatPage , tabpage header ,
 945     '/// + turn on header , and set header height more
 946     '/// + than 80% of page height
 947      fFormatPageWriter("TabKopfzeile")
 948        KopfzeileMitAbstand.Check
 949        Sleep 2
 950        Hoehe.SetText  sHeight
 951        Sleep 1
 952      TabKopfzeile.OK
 953
 954     '/// Check if Header is limited to 80% of height of page text area
 955      fFormatPageWriter("TabKopfzeile")
 956        if StrToDouble(Hoehe.GetText) >= 16 then
 957            warnlog "Header height is > 16cm ! Get " & StrToDouble(Hoehe.GetText)
 958        end if
 959      TabKopfzeile.Cancel
 960     Call hCloseDocument
 961
 962     Call hNewDocument
 963
 964     '/// 2. Footer is limited to 80% of height of page text area
 965      fFormatPageWriter("TabSeite")
 966        Papierformat.Select iFormat
 967        Wait 500
 968        Hoehe.SetText   sHeightInPage
 969        Wait 500
 970      TabSeite.OK
 971
 972     '/// formatPage , tabpage footer ,
 973     '/// + turn on footer , and set footer height more
 974     '/// + than 80% of page height
 975      fFormatPageWriter("TabFusszeile")
 976        FusszeileMitAbstand.Check
 977        Sleep 2
 978        Hoehe.SetText  sHeight
 979        Sleep 1
 980      TabFusszeile.OK
 981
 982     '/// Check if footer is limited to 80% of height of page text area
 983      fFormatPageWriter("TabFusszeile")
 984        if StrToDouble(Hoehe.GetText) >= 16 then
 985            warnlog "Footer height is > 16cm ! Get " & StrToDouble(Hoehe.GetText)
 986        end if
 987      TabFusszeile.Cancel
 988
 989     Call hCloseDocument
 990 endcase
 991
 992 '-------------------------------------------------------------------------------------------