testautomation/writer/optional/includes/formatpage/w_formatpage1.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_formatpage1.inc,v $
  10 '*
  11 '* $Revision: 1.2 $
  12 '*
  13 '* last change: $Author: vg $ $Date: 2008-08-18 12:28:23 $
  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 - 1
  37 '*
  38 '************************************************************************
  39 '*
  40 ' #1 tFormatPage_1       'Open format/page dialog
  41 ' #1 tFormatPage_2       'Test Portrait in tabpage Page
  42 ' #1 tFormatPage_3       'Test Landscape in tabpage Page
  43 ' #1 tFormatPage_4       'Width and Height boxes must change after changing between Portrait and Landscape
  44 ' #1 tFormatPage_5       'The sum of "Left margin" and "Right margin" must always stay below the Paper width.(Same for top/bottom and height)
  45 ' #1 tFormatPage_6       'Test predefined formats
  46 ' #1 tFormatPage_7       'Test user defined formats
  47 ' #1 tFormatPage_8       'Check Listbox Text Direction when Asian language support is enabled
  48 ' #1 tFormatPage_9       'Check Listbox Text Direction when CTL is enabled
  49 ' #1 tFormatPage_10      'when Asian support and CTL are all enabled , 3 entries should be in Text Direction listbox
  50 ' #1 TFormatPage_11      'Test Page layout - Right and left
  51 ' #1 tFormatPage_12      'Test Page layout - Mirrored
  52 ' #1 tFormatPage_13      'Test Page layout - Only right
  53 ' #1 tFormatPage_14      'Test Page layout - Only left
  54 ' #1 tFormatPage_15      'Insertfields / other / Document / Type/Page -> As page Style must be set
  55 '*
  56 '\***********************************************************************
  57
  58 testcase tFormatPage_1
  59
  60         PrintLog "- Open format/page dialog"
  61         '/// <b> Open format/page dialog </b> ///
  62
  63         Call hNewDocument
  64
  65         '/// 1. via Mouse clicks in Menu: Format-Page
  66         try
  67                 fFormatPageWriter("TabSeite")
  68                 TabSeite.Cancel
  69         catch
  70         endcatch
  71
  72         '/// 2. via shortcuts in menu  (manual test is needed)
  73
  74         '/// 3. via Context menu when Cursor is in the document
  75         try
  76                 hMenuSelectNr(5)
  77                 Sleep 2
  78                 hMenuSelectNr(5)
  79                 Sleep 2
  80                 Kontext
  81                 Active.SetPage TabSeite
  82                 Kontext "TabSeite"
  83                 TabSeite.Cancel
  84         catch
  85         endcatch
  86
  87         Call hCloseDocument
  88
  89 endcase
  90
  91 '-------------------------------------------------------------------------------------------
  92
  93 testcase tFormatPage_2
  94
  95         Dim sTestString   as String
  96         Dim iRepectLength as Integer
  97         Dim iFormat       as Integer
  98
  99         sTestString   =  "ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQ"
 100         iRepectLength =  26
 101         iFormat       =  2   'A4 paper
 102
 103         PrintLog "- Test Portrait in tabpage Page"
 104         '/// <b> Test Portrait in tabpage Page </b> ///
 105
 106         Call hNewDocument
 107
 108         '/// Input a long test string
 109     Call wTypeKeys sTestString
 110
 111    '/// Format/Page , tabpage page , check 'Portrait'
 112     fFormatPageWriter("TabSeite")
 113     Papierformat.Select iFormat
 114     Wait 500
 115     Hoch.Check
 116     Wait 500
 117     TabSeite.OK
 118
 119         '/// Check if Checkbox -- Portrait works fine
 120     Call wTypeKeys "<Shift Home>"
 121     EditCopy
 122     wait 500
 123     if Len(GetClipboardText) < iRepectLength then Warnlog "Checkbox Portrait doesn't work fine!"
 124
 125         Call hCloseDocument
 126
 127 endcase
 128
 129 '-------------------------------------------------------------------------------------------
 130
 131 testcase tFormatPage_3
 132
 133     Dim iTextLength as integer
 134
 135         PrintLog "- Test Landscape in tabpage Page"
 136         '/// Test Landscape in tabpage Page
 137
 138         Call hNewDocument
 139
 140         Call wOptionsUndo( "Grundschriften" )
 141
 142         '/// Input a long test string
 143         Call wTypeKeys "ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQ"
 144     Call wTypeKeys "<Mod1 Home>"
 145     Call wTypeKeys "<Shift End>"
 146     EditCopy
 147     iTextLength = Len(GetClipBoardtext)
 148
 149         '/// Format/Page , tabpage page , check 'Landscape'
 150         fFormatPageWriter("TabSeite")
 151         Papierformat.Select 2 ' A4 Paper
 152         Wait 500
 153         Quer.Check
 154         Wait 500
 155         TabSeite.OK
 156
 157         '/// Check if Checkbox -- Landscape works fine
 158         Call wTypeKeys "<Mod1 Home>"
 159     Call wTypeKeys "<Shift End>"
 160         EditCopy
 161         wait 500
 162         if Len(GetClipboardText) <= iTextLength then Warnlog "Checkbox Landscape doesn't work fine!"
 163
 164         Call hCloseDocument
 165
 166 endcase
 167
 168 '-------------------------------------------------------------------------------------------
 169
 170 testcase tFormatPage_4
 171
 172         Dim iFormat as Integer
 173         Dim sWidth  as String
 174     Dim sHeight as String
 175
 176         iFormat = 2   'A4 paper
 177
 178         PrintLog "- Width and Height boxes must change after changing between Portrait and Landscape"
 179         '/// Width and Height boxes must change after changing between Portrait and Landscape
 180
 181         Call hNewDocument
 182
 183         '/// Format/Page  tabpage page ,
 184         '/// + check 'Portrait' first and get width and height ,
 185         '/// + then change from Portrait to Landscape
 186         '/// + check if the change is effective
 187         fFormatPageWriter("TabSeite")
 188         Papierformat.Select iFormat
 189         Wait 500
 190         Hoch.Check
 191         Sleep 1
 192         sWidth  = Breite.GetText
 193         sHeight = Hoehe.GetText
 194
 195         Quer.Check
 196         Sleep 1
 197         if Breite.GetText <> sHeight  then Warnlog "Width isn't changed when changing from Portrait to Landscape !"
 198         if Hoehe.GetText  <> sWidth   then Warnlog "Height isn't changed when changing from Portrait to Landscape !"
 199         TabSeite.Cancel
 200
 201         '/// Format/Page  tabpage page ,
 202         '/// + check 'Landscape' first and get width and height ,
 203         '/// + then change from Landscape to Portrait
 204         '/// + check if the change is effective
 205         fFormatPageWriter("TabSeite")
 206         Papierformat.Select iFormat
 207         Wait 500
 208         Quer.Check
 209         Sleep 1
 210         sWidth  = Breite.GetText
 211         sHeight = Hoehe.GetText
 212
 213         Hoch.Check
 214         Sleep 1
 215         if Breite.GetText <> sHeight  then Warnlog "Width isn't changed when changing from Landscape to Portrait !"
 216         if Hoehe.GetText  <> sWidth   then Warnlog "Height isn't changed when changing from Landscape to Portrait !"
 217         TabSeite.Cancel
 218
 219         Call hCloseDocument
 220
 221 endcase
 222
 223 '-------------------------------------------------------------------------------------------
 224
 225 testcase tFormatPage_5
 226
 227         Dim iFormat as Integer
 228         Dim sWidth  as String , sHeight as String
 229         Dim sLeft   as String , sRight as String   , sUp as String  , sBottom as String  ' set page size
 230         Dim sLeft1 as String  , sRight1 as String  ,  sUp1 as String  , sBottom1 as String  ' get page size
 231
 232         iFormat    = 2   'A4 paper
 233         sWidth     = "20" + gSeperator + "00" + gMeasurementUnit
 234         sHeight    = "25" + gSeperator + "00" + gMeasurementUnit
 235
 236         sLeft      = "15" + gSeperator + "00" + gMeasurementUnit
 237         sRight     = "15" + gSeperator + "00" + gMeasurementUnit
 238         sUp        = "15" + gSeperator + "00" + gMeasurementUnit
 239         sBottom    = "15" + gSeperator + "00" + gMeasurementUnit
 240
 241         sLeft1     = "15" + gSeperator + "00" + gMeasurementUnit
 242         sRight1    = "4"  + gSeperator + "50" + gMeasurementUnit
 243         sUp1       = "15" + gSeperator + "00" + gMeasurementUnit
 244         sBottom1   = "9"  + gSeperator + "50" + gMeasurementUnit
 245
 246         PrintLog "- The sum of 'Left margin' and 'Right margin' must always stay below the Paper width."
 247         PrintLog "  (Same for top/bottom and height)"
 248         '/// The sum of "Left margin" and "Right margin" must always stay below the Paper width.
 249         '/// (Same for top/bottom and height)
 250
 251         Call hNewDocument
 252
 253         '/// Format/Page , tabpage Page , set width and height , close the dialog
 254         fFormatPageWriter("TabSeite")
 255         Papierformat.Select iFormat
 256         Wait 500
 257         Hoch.Check
 258         Sleep 1
 259         Breite.SetText sWidth
 260         Wait 500
 261         Hoehe.SetText sHeight
 262         Wait 500
 263         TabSeite.OK
 264
 265         '/// Format/Page , tabpage Page ,
 266         '/// + Set the sum of "Left margin" and "Right margin" more than Width
 267         fFormatPageWriter("TabSeite")
 268         Links.SetText   sLeft
 269         Wait 500
 270         Rechts.SetText  sRight
 271         Wait 500
 272         TabSeite.OK
 273
 274         '/// Check if the setting is OK
 275         fFormatPageWriter("TabSeite")
 276         if Left$(Links.GetText,5)   <>  Left$(sLeft1,5)   then Warnlog "The Margin(left) is wrong!"
 277         if Left$(Rechts.GetText,4)  <>  Left$(sRight1,4)  then Warnlog "The Margin(right) is wrong!"
 278         TabSeite.Cancel
 279
 280         '/// Format/Page , tabpage Page ,
 281         '/// + Set the sum of "Up margin" and "Bottom margin" more than Heigth
 282         fFormatPageWriter("TabSeite")
 283         Oben.SetText   sUp
 284         Wait 500
 285         Unten.SetText  sBottom
 286         Wait 500
 287         TabSeite.OK
 288
 289         '/// Check if the setting is OK
 290         fFormatPageWriter("TabSeite")
 291         if Left$(Oben.GetText,5)   <>  Left$(sUp1,5)      then Warnlog "The Margin(Up) is wrong!"
 292         if Left$(Unten.GetText,4)  <>  Left$(sBottom1,4)  then Warnlog "The Margin(Bottom) is wrong!"
 293         TabSeite.Cancel
 294
 295         Call hCloseDocument
 296
 297 endcase
 298
 299 '-------------------------------------------------------------------------------------------
 300
 301 testcase tFormatPage_6
 302
 303         Dim iPaperTray as Integer  ,  iPageLayout as Integer
 304         Dim iFormatLayout as Integer  ,  iReferenceStyle as Integer
 305         Dim sWidth as String, sHeight as String
 306         Dim sLeft as String  ,  sRight as String  ,  sUp as String  ,  sBottom as String
 307
 308         iPaperTray    = 1 :  iPageLayout     = 2
 309         iFormatLayout = 2 :  iReferenceStyle = 5
 310
 311         sWidth        = "20" + gSeperator + "00" + gMeasurementUnit
 312         sHeight       = "25" + gSeperator + "00" + gMeasurementUnit
 313         sLeft         = "2"  + gSeperator + "00" + gMeasurementUnit
 314         sRight        = "2"  + gSeperator + "00" + gMeasurementUnit
 315         sUp           = "2"  + gSeperator + "00" + gMeasurementUnit
 316         sBottom       = "2"  + gSeperator + "00" + gMeasurementUnit
 317
 318         PrintLog "- Test Pre-defined formats"
 319         '/// Test Pre-defined formats
 320
 321         Call hNewDocument
 322
 323         '/// Format/Page , tabpage page , do some configuration
 324         fFormatPageWriter("TabSeite")
 325         Hoch.Check
 326         Wait 500
 327         Breite.SetText       sWidth
 328         Wait 500
 329         Hoehe.SetText        sHeight
 330         Wait 500
 331         Schacht.Select       iPaperTray
 332         Wait 500
 333         Links.SetText        sLeft
 334         Wait 500
 335         Rechts.SetText       sRight
 336         Wait 500
 337         Oben.SetText         sUp
 338         Wait 500
 339         Unten.SetText        sBottom
 340         Wait 500
 341         Seitenlayout.Select  iPageLayout
 342         Wait 500
 343         Numerierung.Select   iFormatLayout
 344         Wait 500
 345         Einschalten.Check
 346         Sleep 1
 347         AbsatzVorlage.Select iReferenceStyle
 348         Wait 500
 349         TabSeite.OK
 350
 351         '/// Save the file  , close the file and reload the file
 352     Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\tFormatPage_6.odt", "writer8")
 353         Call hCloseDocument
 354
 355         Call hNewDocument
 356
 357         Call hFileOpen(gOfficepath + "user\work\tFormatPage_6.odt")
 358
 359         '/// Check if Pre-defined formats are correct
 360         fFormatPageWriter("TabSeite")
 361         if Hoch.IsChecked            <> TRUE             then Warnlog "Portrait should be checked!"
 362         if Left$(Breite.GetText,5)   <> Left$(sWidth,5)  then Warnlog "The width is wrong!"
 363         if Left$(Hoehe.GetText,5)    <> Left$(sHeight,5) then Warnlog "The height is wrong!"
 364         if Schacht.GetSelIndex       <> iPaperTray       then Warnlog "The Paper tray is wrong!"
 365         if Left$(Links.GetText,4)    <> Left$(sLeft,4)   then Warnlog "The Margin(left) is wrong!"
 366         if Left$(Rechts.GetText,4)   <> Left$(sRight,4)  then Warnlog "The Margin(right) is wrong!"
 367         if Left$(Oben.GetText,4)     <> Left$(sUp,4)     then Warnlog "The Margin(top) is wrong!"
 368         if Left$(Unten.GetText,4)    <> Left$(sBottom,4) then Warnlog "The Margin(bottom) is wrong!"
 369         if Seitenlayout.GetSelIndex  <> iPageLayout      then Warnlog "The paper layout is wrong!"
 370         if Numerierung.GetSelIndex   <> iFormatLayout    then Warnlog "The layout settings(format) is wrong!"
 371         if Einschalten.IsChecked     <> TRUE             then Warnlog "Portrait should be checked!"
 372         if AbsatzVorlage.GetSelIndex <> iReferenceStyle  then Warnlog "The reference style is wrong!"
 373         TabSeite.Cancel
 374
 375         Call hCloseDocument
 376
 377 endcase
 378
 379 '-------------------------------------------------------------------------------------------
 380
 381 testcase tFormatPage_7
 382
 383         Dim iPaperTray as Integer  ,  iPageLayout as Integer
 384         Dim iFormatLayout as Integer  ,  iReferenceStyle as Integer
 385         Dim sWidth as String  ,  sHeight as String
 386         Dim sLeft as String  ,  sRight as String  ,  sUp as String  ,  sBottom as String
 387
 388         iPaperTray    = 1 :  iPageLayout     = 2
 389         iFormatLayout = 2 :  iReferenceStyle = 5
 390
 391         sWidth        = "20" + gSeperator + "00" + gMeasurementUnit
 392         sHeight       = "25" + gSeperator + "00" + gMeasurementUnit
 393         sLeft         = "2"  + gSeperator + "00" + gMeasurementUnit
 394         sRight        = "2"  + gSeperator + "00" + gMeasurementUnit
 395         sUp           = "2"  + gSeperator + "00" + gMeasurementUnit
 396         sBottom       = "2"  + gSeperator + "00" + gMeasurementUnit
 397
 398         PrintLog "- Test user defined formats"
 399         '/// Test user defined formats
 400
 401         Call hNewDocument
 402
 403         '/// Format/Page , tabpage page , do some configuration
 404         fFormatPageWriter("TabSeite")
 405         Hoch.Check
 406         Wait 500
 407         Breite.SetText       sWidth
 408         Wait 500
 409         Hoehe.SetText        sHeight
 410         Wait 500
 411         Schacht.Select       iPaperTray
 412         Wait 500
 413         Links.SetText        sLeft
 414         Wait 500
 415         Rechts.SetText       sRight
 416         Wait 500
 417         Oben.SetText         sUp
 418         Wait 500
 419         Unten.SetText        sBottom
 420         Wait 500
 421         Seitenlayout.Select  iPageLayout
 422         Wait 500
 423         Numerierung.Select   iFormatLayout
 424         Wait 500
 425         Einschalten.Check
 426         Sleep 1
 427         AbsatzVorlage.Select iReferenceStyle
 428         Wait 500
 429         TabSeite.OK
 430
 431         '/// Check if user defined formats are correct
 432         fFormatPageWriter("TabSeite")
 433         if Hoch.IsChecked            <> TRUE                then Warnlog "Portrait should be checked!"
 434         if Left$(Breite.GetText,5)   <> Left$(sWidth,5)     then Warnlog "The width is wrong!"
 435         if left$(Hoehe.GetText,5)    <> Left$(sHeight,5)    then Warnlog "The height is wrong!"
 436         if Schacht.GetSelIndex       <> iPaperTray          then Warnlog "The Paper tray is wrong!"
 437         if Left$(Links.GetText,4)    <> Left$(sLeft,4)      then Warnlog "The Margin(left) is wrong!"
 438         if Left$(Rechts.GetText,4)   <> Left$(sRight,4)     then Warnlog "The Margin(right) is wrong!"
 439         if Left$(Oben.GetText,4)     <> Left$(sUp,4)        then Warnlog "The Margin(top) is wrong!"
 440         if Left$(Unten.GetText,4)    <> Left$(sBottom,4)    then Warnlog "The Margin(bottom) is wrong!"
 441         if Seitenlayout.GetSelIndex  <> iPageLayout         then Warnlog "The paper layout is wrong!"
 442         if Numerierung.GetSelIndex   <> iFormatLayout       then Warnlog "The layout settings(format) is wrong!"
 443         if Einschalten.IsChecked     <> TRUE                then Warnlog "Portrait should be checked!"
 444         if AbsatzVorlage.GetSelIndex <> iReferenceStyle     then Warnlog "The reference style is wrong!"
 445         TabSeite.Cancel
 446
 447         Call hCloseDocument
 448 endcase
 449
 450 '-------------------------------------------------------------------------------------------
 451
 452 testcase tFormatPage_8
 453     Dim RecheckCTLSupport   as string
 454     Dim RecheckAsianSupport as string
 455     RecheckCTLSupport = gCTLSup
 456     RecheckAsianSupport = gAsianSup
 457
 458     Select Case iSystemSprache
 459         Case 81, 82, 86, 88
 460             printlog "No test with asian lovale, because checkbox 'Asian language support' is disabled by default!"
 461             goto endsub
 462     end select
 463
 464     PrintLog "- Check Listbox Text Direction when Asian language support is enabled"
 465     '/// Check Listbox Text Direction when Asian language support is enabled
 466
 467     Call hNewDocument
 468
 469    '/// Set CTL unable
 470     Call ActiveDeactivateCTLSupport(FALSE)
 471     '/// Enable Asian Support
 472     Call ActiveDeactivateAsianSupport(TRUE)
 473    '/// - the Listbox Text Direction should be visible when Asian language support is enabled
 474     Call fFormatPageWriter("TabSeite")
 475     if Not Textfluss.IsVisible then
 476         Warnlog "Listbox 'Text Direction' isn't visible though asian support is enabled"
 477     end if
 478     TabSeite.Cancel
 479
 480     '/// Disable Asian Support
 481     Call ActiveDeactivateAsianSupport(FALSE)
 482     '/// - the Listbox Text Direction should be invisible when Asian language support is unabled
 483     Call fFormatPageWriter("TabSeite")
 484     if Textfluss.IsVisible then
 485         Warnlog "Listbox 'Text Direction' is visible though asian support is disabled"
 486     end if
 487     TabSeite.Cancel
 488
 489     if RecheckCTLSupport = True then
 490         Call ActiveDeactivateCTLSupport(TRUE)
 491     else
 492         Call ActiveDeactivateCTLSupport(FALSE)
 493     end if
 494     if RecheckAsianSupport = True then
 495         Call ActiveDeactivateAsianSupport(TRUE)
 496     else
 497         Call ActiveDeactivateAsianSupport(FALSE)
 498     end if
 499
 500     Call hCloseDocument
 501
 502 endcase
 503
 504 '-------------------------------------------------------------------------------------------
 505
 506 testcase tFormatPage_9
 507
 508     Dim RecheckCTLSupport as string
 509     Dim RecheckAsianSupport as string
 510     RecheckCTLSupport = gCTLSup
 511     RecheckAsianSupport = gAsianSup
 512
 513     PrintLog "- Check Listbox Text Direction when CTL is enabled"
 514     '/// Check Listbox Text Direction when CTL is enabled
 515
 516     Call hNewDocument
 517
 518     '/// Set CTL enabled
 519     Call ActiveDeactivateAsianSupport(FALSE)
 520     Call ActiveDeactivateCTLSupport(TRUE)
 521     '/// Check if 'Text direction' appears
 522     Call fFormatPageWriter("TabSeite")
 523     if Textfluss.IsVisible = False then
 524         Warnlog "Right to Left (horizontal) should appear when CTL is checked!"
 525     end if
 526     TabSeite.Cancel
 527
 528     '/// Set CTL unable
 529     Call ActiveDeactivateCTLSupport(FALSE)
 530
 531     '/// Check if 'Text direction' appears
 532     Call fFormatPageWriter("TabSeite")
 533     if Textfluss.IsVisible = TRUE then
 534         Warnlog "Left to Right (horizontal) appears though CTL is disabled"
 535     end if
 536     TabSeite.Cancel
 537
 538     if RecheckCTLSupport = True then
 539         Call ActiveDeactivateCTLSupport(TRUE)
 540     else
 541         Call ActiveDeactivateCTLSupport(FALSE)
 542     end if
 543     if RecheckAsianSupport = True then
 544         Call ActiveDeactivateAsianSupport(TRUE)
 545     else
 546         Call ActiveDeactivateAsianSupport(FALSE)
 547     end if
 548
 549     Call hCloseDocument
 550 endcase
 551
 552 '-------------------------------------------------------------------------------------------
 553
 554 testcase tFormatPage_10
 555
 556     Dim RecheckCTLSupport   as string
 557     Dim RecheckAsianSupport as string
 558     RecheckCTLSupport = gCTLSup
 559     RecheckAsianSupport = gAsianSup
 560
 561     PrintLog "- when Asian support and CTL are all enabled , 3 entries should be in Text Direction listbox"
 562     '/// when Asian support and CTL are all enabled , 3 entries should be in Text Direction listbox
 563
 564     Call hNewDocument
 565
 566     '/// Set Asian support enabled and Set CTL enabled
 567     Call ActiveDeactivateAsianSupport(TRUE)
 568     Call ActiveDeactivateCTLSupport(TRUE)
 569
 570     '/// Check if there are 3 entires in Text Direction listbox
 571     fFormatPageWriter("TabSeite")
 572     if Textfluss.GetItemCount <> 3 then
 573         Warnlog "There should be 3 entries in Text direction listbox , but get " & Textfluss.GetItemCount
 574     end if
 575     TabSeite.Cancel
 576
 577     if RecheckCTLSupport = True then
 578         Call ActiveDeactivateCTLSupport(TRUE)
 579     else
 580         Call ActiveDeactivateCTLSupport(FALSE)
 581     end if
 582     if RecheckAsianSupport = True then
 583         Call ActiveDeactivateAsianSupport(TRUE)
 584     else
 585         Call ActiveDeactivateAsianSupport(FALSE)
 586     end if
 587
 588     Call hCloseDocument
 589 endcase
 590
 591 '-------------------------------------------------------------------------------------------
 592
 593 testcase tFormatPage_11
 594
 595     Dim sTestFile    as String
 596     Dim sMarginsLeft as String
 597     Dim iPageLayout  as Integer
 598
 599     sTestFile    = Convertpath (gTesttoolpath + "writer\optional\input\formatpage\pageLayout.sxw")
 600     sMarginsLeft = "10" + gSeperator + "00" + gMeasurementUnit
 601     iPageLayout  = 1
 602
 603     PrintLog "- Test Page layout - Right and left"
 604     '/// Test Page layout - Right and left
 605
 606      Call hNewDocument
 607
 608     '/// Open a test file ,
 609     '/// + There are 2 pictures in 2 pages separately ,
 610     '/// + and they are anchored as character
 611      Call hFileOpen(sTestFile)
 612      Call sMakeReadOnlyDocumentEditable
 613
 614     '/// FormatPage / tabpage Page , Set left margins to 10cm ,
 615     '/// + and set page layout to "Right to left"
 616      fFormatPageWriter("TabSeite")
 617      Links.SetText  sMarginsLeft
 618      Sleep 1
 619      Seitenlayout.Select iPageLayout
 620      Sleep 1
 621      TabSeite.OK
 622
 623     '/// Set focus to first picture , format/anchor to Page
 624     Call wTypeKeys ( "<Shift F4>" )
 625     Call wTypeKeys "<Tab>"
 626
 627     FormatAnchorToPage
 628     Sleep 1
 629
 630     '/// Check its position
 631      fPositionAndSize("TabPositionAndSizeWriter")
 632      if Left$(Horizontalby.Gettext,5) <> Left$(sMarginsLeft,5) then  Warnlog "1-The position X isn't right , should be " &sMarginsLeft & " but get " & Horizontalby.Gettext
 633      TabPositionAndSizeWriter.Cancel
 634
 635     '/// Set focus to second picture , format/anchor to Page
 636      Call wTypeKeys "<Tab>"
 637
 638      FormatAnchorToPage
 639      Sleep 1
 640
 641     '/// Check its position
 642      fPositionAndSize("TabPositionAndSizeWriter")
 643      if Left$(Horizontalby.Gettext,5) <> Left$(sMarginsLeft,5) then  Warnlog "2-The position X isn't right , should be " &sMarginsLeft & " but get " & Horizontalby.Gettext
 644      TabPositionAndSizeWriter.Cancel
 645
 646    Call hCloseDocument
 647
 648 endcase
 649
 650 '-------------------------------------------------------------------------------------------
 651
 652 testcase tFormatPage_12
 653
 654     Dim sTestFile    as String
 655     Dim sMarginsLeft as String
 656     Dim sMarginsRight as String
 657     Dim iPageLayout  as Integer
 658
 659     sTestFile     = Convertpath (gTesttoolpath + "writer\optional\input\formatpage\pageLayout.sxw")
 660     sMarginsLeft  = "10" + gSeperator + "00" + gMeasurementUnit
 661     sMarginsRight = "4"  + gSeperator + "00" + gMeasurementUnit
 662     iPageLayout   = 2
 663
 664     PrintLog "- Test Page layout - Mirrored"
 665     '/// Test Page layout - Mirrored
 666
 667      Call hNewDocument
 668
 669     '/// Open a test file ,
 670     '/// + there are 2 pictures in 2 pages separately , and they are anchored as character
 671      Call hFileOpen(sTestFile)
 672      Call sMakeReadOnlyDocumentEditable
 673
 674     '/// FormatPage / tabpage Page , Set left margins to 10cm ,
 675     '/// + and set page layout to "Mirrored"
 676      fFormatPageWriter("TabSeite")
 677      Links.SetText  sMarginsLeft
 678      Sleep 1
 679      Rechts.SetText sMarginsRight
 680      Sleep 1
 681      Seitenlayout.Select iPageLayout
 682      Sleep 1
 683      TabSeite.OK
 684
 685     '/// Set focus to first picture , format/anchor to Page
 686     Call wTypeKeys ( "<Shift F4>" )
 687     Call wTypeKeys "<Tab>"
 688
 689      FormatAnchorToPage
 690      Sleep 1
 691
 692     '/// Check its position
 693      fPositionAndSize("TabPositionAndSizeWriter")
 694      if Left$(Horizontalby.Gettext,5) <> Left$(sMarginsLeft,5) then  Warnlog "1-The position X isn't right , should be " &sMarginsLeft & " but get " & Horizontalby.Gettext
 695      TabPositionAndSizeWriter.Cancel
 696
 697     '/// Set focus to second picture , format/anchor to Page
 698      Call wTypeKeys "<Tab>"
 699
 700      FormatAnchorToPage
 701      Sleep 1
 702
 703     '/// Check its position
 704      fPositionAndSize("TabPositionAndSizeWriter")
 705      if Left$(Horizontalby.Gettext,4) <> Left$(sMarginsRight,4) then  Warnlog "2-The position X isn't right , should be " &sMarginsRight & " but get " & Horizontalby.Gettext
 706      TabPositionAndSizeWriter.Cancel
 707
 708    Call hCloseDocument
 709
 710 endcase
 711
 712 '-------------------------------------------------------------------------------------------
 713
 714 testcase tFormatPage_13
 715
 716     Dim sTestFile as String
 717     Dim sPage1 as String
 718     Dim sPage2 as String
 719     Dim iPageLayout as Integer
 720
 721     sTestFile     = Convertpath (gTesttoolpath + "writer\optional\input\formatpage\pageLayout.sxw")
 722     sPage1        = "1"
 723     sPage2        = "3"
 724     iPageLayout   = 3
 725
 726     PrintLog "- Test Page layout - Only right"
 727     '/// Test Page layout - Only right
 728
 729      Call hNewDocument
 730
 731     '/// Open a test file ,
 732     '/// + there are 2 pictures in 2 pages separately
 733      Call hFileOpen(sTestFile)
 734      Call sMakeReadOnlyDocumentEditable
 735
 736     '/// FormatPage / tabpage Page , Set left margins to 10cm ,
 737     '/// + and set page layout to "Only right"
 738      fFormatPageWriter("TabSeite")
 739      Seitenlayout.Select iPageLayout
 740      Sleep 1
 741      TabSeite.OK
 742
 743     '/// Set focus to first picture , Check if the picture is in first page
 744     Call wTypeKeys ( "<Shift F4>" )
 745     Call wTypeKeys "<Tab>"
 746
 747         Kontext "Navigator"
 748         if Not Navigator.Exists then ViewNavigator
 749         Kontext "NavigatorWriter"
 750         Sleep 1
 751         if Seitennummer.GetText <> sPage1 then Warnlog "1st pic isn't in page 1 !"
 752         fCloseNavigator
 753         Wait 500
 754
 755     '/// Set focus to second picture , Check if the picture is in third page
 756      Call wTypeKeys "<Tab>"
 757
 758      Kontext "Navigator"
 759      if Not Navigator.Exists then ViewNavigator
 760      Kontext "NavigatorWriter"
 761      Sleep 1
 762      if Seitennummer.GetText <> sPage2 then Warnlog "#i40333# 2nd pic isn't in page 3 !"
 763      fCloseNavigator
 764      Wait 500
 765
 766     Call hCloseDocument
 767
 768 endcase
 769
 770 '-------------------------------------------------------------------------------------------
 771
 772 testcase tFormatPage_14
 773     Dim sTestFile as String
 774     Dim sPage1 as String
 775     Dim sPage2 as String
 776     Dim iPageLayout as Integer
 777
 778     sTestFile     = Convertpath (gTesttoolpath + "writer\optional\input\formatpage\pageLayout.sxw")
 779     sPage1        = "2"
 780     sPage2        = "4"
 781     iPageLayout   = 4
 782
 783     PrintLog "- Test Page layout - Only left"
 784     '/// Test Page layout - Only left
 785
 786      Call hNewDocument
 787
 788     '/// Open a test file ,
 789     '/// + there are 2 pictures in 2 pages separately
 790      Call hFileOpen(sTestFile)
 791      Call sMakeReadOnlyDocumentEditable
 792
 793     '/// FormatPage / tabpage Page , Set left margins to 10cm ,
 794     '/// + and set page layout to "Only left"
 795      fFormatPageWriter("TabSeite")
 796      Seitenlayout.Select iPageLayout
 797      Sleep 1
 798      TabSeite.OK
 799
 800     '/// Set focus to first picture , Check if the picture is in first page
 801     Call wTypeKeys ( "<Shift F4>" )
 802     Call wTypeKeys "<Tab>"
 803
 804      Kontext "Navigator"
 805      if Not Navigator.Exists then ViewNavigator
 806      Kontext "NavigatorWriter"
 807      Sleep 1
 808      if Seitennummer.GetText <> sPage1 then Warnlog "1st pic isn't in page 2 !"
 809      fCloseNavigator
 810      Wait 500
 811
 812     '/// Set focus to second picture , Check if the picture is in third page
 813      Call wTypeKeys "<Tab>"
 814
 815      Kontext "Navigator"
 816      if Not Navigator.Exists then ViewNavigator
 817      Kontext "NavigatorWriter"
 818      Sleep 1
 819      if Seitennummer.GetText <> sPage2 then Warnlog "#i40333# 2nd pic isn't in page 4 !"
 820      fCloseNavigator
 821      Wait 500
 822
 823     printlog "  Close active document "
 824     Do Until GetDocumentCount = 0
 825         Call hCloseDocument
 826     Loop
 827 endcase
 828
 829 '-------------------------------------------------------------------------------------------
 830
 831 testcase tFormatPage_15
 832     Dim sType as String
 833     Dim sFormat as String
 834
 835     Select case iSprache
 836         case 01:    sType   = "Page"
 837                     sFormat = "As Page Style"
 838         case 03:    sType   = "Página"
 839                     sFormat = "Como estilo de página"
 840         case 31:    sType = "Pagina"
 841                     sFormat = "Zoals paginaopmaakprofiel"
 842         case 33   : sType   = "Page"
 843                     sFormat = "D'après le style de page"
 844         case 34   : sType   = "Página"
 845                     sFormat = "Como estilo de página"
 846         case 39   : sType   = "Pagina"
 847                     sFormat = "Come modello di pagina"
 848         case 46:    sType   = "Sida"
 849                     sFormat = "Som sidformatmall"
 850         case 49:    sType   = "Seite"
 851                     sFormat = "Wie Seitenvorlage"
 852         case 55   : sType   = "Estatísticas"
 853                     sFormat = "Como Estilo de Página"
 854         case 81   : sType   = "ページ"
 855                     sFormat = "ページスタイル�?�設定"
 856         case 82   : sType   = "통계"
 857                     sFormat = "페�?�지 스타�?� 설정"
 858         case 86   : sType   = "页"
 859                     sFormat = "和页�?�样�?相�?�"
 860         case 88   : sType   = "�?"
 861                     sFormat = "和�?�?�樣�?相�?�"
 862         case else : QAErrorLog "The test does not support the language " + iSprache
 863         Goto endsub
 864     end select
 865
 866     PrintLog "- Insertfields / other / Document / Type/Page -> As page Style must be set."
 867     '/// Insertfield / other / Document / Type/Page -> As page Style must be set.
 868
 869     Call hNewDocument
 870
 871     '/// InsertFields / other , tabpage document , select page ,
 872     '/// + check if Page format is right
 873     Call fInsertFieldsOther("TabDokumentFeldbefehle")
 874     Feldtyp.Select sType
 875     Sleep 3
 876     if Formatliste.GetSelText <> sFormat then
 877         warnlog "the format setting should be " & sFormat & " but get " &Formatliste.GetSelText
 878     end if
 879     TabDokumentFeldbefehle.Close
 880
 881     Call hCloseDocument
 882 endcase