testautomation/writer/optional/includes/formatparagraph/w_formatparagraph1.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_formatparagraph1.inc,v $
  10 '*
  11 '* $Revision: 1.2 $
  12 '*
  13 '* last change: $Author: vg $ $Date: 2008-08-18 12:29:14 $
  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 Paragraph Formatting - 1
  37 '*
  38 '************************************************************************
  39 '*
  40 ' #1 tFormatParagraph1       'Open format/paragraph dialog
  41 ' #1 tParagraphIndent1       'Set values for Indent - Before text
  42 ' #1 tParagraphIndent2       'Set values for Indent - after text
  43 ' #1 tParagraphIndent3       'Set values for Indent - first line
  44 ' #1 tParagraphIndent4       'Test checkbox - "automatic"
  45 ' #1 tParagraphIndent5       'Set values for "Above paraghraph"
  46 ' #1 tParagraphIndent6       'Set values for "Below paraghraph"
  47 ' #1 tParagraphIndent7       'Test above and below spacing of successive paragraphs are not added up, the biggest one should be displayed
  48 ' #1 tParagraphIndent8       'Test above and below spacing of successive paragraphs are added up
  49 ' #1 tParagraphIndent9       'Test Line spacing - Single
  50 ' #1 tParagraphIndent10      'Test Line spacing - 1.5 lines
  51 ' #1 tParagraphIndent11      'Test Line spacing - Double lines
  52 ' #1 tParagraphIndent12      'Test Line spacing - Proportional
  53 ' #1 tParagraphIndent13      'Test Line spacing - At least
  54 ' #1 tParagraphIndent14      'Test Line spacing - Leading
  55 ' #1 tParagraphIndent15      'Test Line spacing - Fixed
  56 ' #1 tParagraphIndent16      'Test Regester-true Active
  57 ' #1 tParagraphIndent17      'Test "Add spacing between paragarph and talbes" when importing from MS-Word
  58 ' #1 tParagraphIndent18      'Test Negativ indent
  59 '*
  60 '\***********************************************************************
  61
  62 testcase tformatparagraph1
  63
  64   PrintLog "- 'Open format/paragraph dialog"
  65   '/// <b>Open format/paragraph dialog</b>
  66
  67    Call hNewDocument
  68
  69    '/// via Mouse clicks in Menu: Format-paragraph
  70     try
  71         Call fFormatParagraph("TabTextfluss")
  72         TabTextfluss.Cancel
  73     catch
  74     endcatch
  75
  76    '/// via shortcuts in menu  (manual test is needed)
  77
  78    '/// via Context menu when Cursor is in the document
  79     try
  80         hMenuSelectNr(8)
  81         Sleep 2
  82         Kontext
  83         Active.SetPage TabTextfluss
  84         Kontext "TabTextfluss"
  85         TabTextfluss.Cancel
  86     catch
  87     endcatch
  88
  89    Call hCloseDocument
  90
  91 endcase
  92
  93 '-------------------------------------------------------------------------------------------
  94
  95 testcase tParagraphIndent1
  96
  97   Dim sTest                               as String
  98   Dim iLenTest                            as Integer
  99   Dim iLenHalf                            as Integer
 100   Dim sPageWidth                          as String
 101   Dim sMarginLeft                         as String
 102   Dim sMarginRight                        as String
 103   Dim sIndentLeft                         as String
 104
 105   sTest        = "lllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll"
 106   sPageWidth   = "8" + gSeperator + "00" + gMeasurementUnit
 107   sMarginLeft  = "2" + gSeperator + "00" + gMeasurementUnit
 108   sMarginRight = "2" + gSeperator + "00" + gMeasurementUnit
 109   sIndentLeft  = "2" + gSeperator + "00" + gMeasurementUnit
 110
 111   PrintLog "- Set values for Indent - Before text"
 112   '/// <b>Set values for Indent - Before text</b>
 113
 114    Call hNewDocument
 115
 116    'Format/Page , tabpage Page , set page size and margin size
 117     Call fFormatPageWriter("TabSeite")
 118         Breite.SetText  sPageWidth
 119         Links.SetText   sMarginLeft
 120         Rechts.SetText  sMarginRight
 121     TabSeite.OK
 122
 123    '/// Input some test words which should be longer than one line
 124     Call wTypeKeys sTest
 125     Call wTypeKeys "<MOD1 Home>"
 126     Call wTypeKeys "<Shift End>"
 127     EditCopy
 128     iLenTest = Len(getclipboardtext)
 129
 130    '/// Format/Paragraph / Indents & Spacing , set 2cm in "before Text"
 131     Call fFormatParagraph("TabEinzuegeUndAbstaende")
 132         Vonlinks.SetText sIndentLeft
 133     TabEinzuegeUndAbstaende.OK
 134
 135     Call wTypeKeys "<MOD1 Home>"
 136     Call wTypeKeys "<Shift End>"
 137     EditCopy
 138     iLenHalf = Len(getclipboardtext)
 139
 140     if iLenHalf <> Int(iLenTest/2) AND iLenHalf <> Int(iLenTest/2 +1) AND iLenHalf <> Int(iLenTest/2 -1) then
 141         Warnlog "1.Indents - before Text is not right !"
 142     end if
 143
 144     Call wTypeKeys "<Right><Home>"
 145     Call wTypeKeys "<Shift End>"
 146     EditCopy
 147     iLenHalf = Len(getclipboardtext)
 148
 149     if iLenHalf <> Int(iLenTest/2) AND iLenHalf <> Int(iLenTest/2 +1) AND iLenHalf <> Int(iLenTest/2 -1) then
 150         Warnlog "2.Indents - before Text is not right !"
 151     end if
 152
 153    Call hCloseDocument
 154
 155 endcase
 156
 157 '-------------------------------------------------------------------------------------------
 158
 159 testcase tParagraphIndent2
 160
 161   Dim sTest                               as String
 162   Dim iLenTest                            as Integer
 163   Dim iLenHalf                            as Integer
 164   Dim sPageWidth                          as String
 165   Dim sMarginLeft                         as String
 166   Dim sMarginRight                        as String
 167   Dim sIndentRight                        as String
 168
 169   sTest        = "lllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll"
 170   sPageWidth   = "8" + gSeperator + "00" + gMeasurementUnit
 171   sMarginLeft  = "2" + gSeperator + "00" + gMeasurementUnit
 172   sMarginRight = "2" + gSeperator + "00" + gMeasurementUnit
 173   sIndentRight = "2" + gSeperator + "00" + gMeasurementUnit
 174
 175   PrintLog "- Set values for Indent - after text"
 176   '/// <b>Set values for Indent - after text</b>
 177
 178    Call hNewDocument
 179
 180    'Format/Page , tabpage Page , set page size and margin size
 181     Call fFormatPageWriter("TabSeite")
 182         Breite.SetText  sPageWidth
 183         Links.SetText   sMarginLeft
 184         Rechts.SetText  sMarginRight
 185     TabSeite.OK
 186
 187    '/// Input some test words which should be longer than one line
 188     Call wTypeKeys sTest
 189     Call wTypeKeys "<MOD1 Home>"
 190     Call wTypeKeys "<Shift End>"
 191     EditCopy
 192     iLenTest = Len(getclipboardtext)
 193
 194    '/// Format/Paragraph / Indents & Spacing , set 2cm in "after Text"
 195     Call fFormatParagraph("TabEinzuegeUndAbstaende")
 196         VonRechts.SetText sIndentRight
 197     TabEinzuegeUndAbstaende.OK
 198
 199     Call wTypeKeys "<MOD1 Home>"
 200     Call wTypeKeys "<Shift End>"
 201     EditCopy
 202     iLenHalf = Len(getclipboardtext)
 203
 204     if iLenHalf <> Int(iLenTest/2) AND iLenHalf <> Int(iLenTest/2 +1) AND iLenHalf <> Int(iLenTest/2 -1) then
 205         Warnlog "1.Indents - after Text is not right !"
 206     end if
 207
 208     Call wTypeKeys "<Right><Home>"
 209     Call wTypeKeys "<Shift End>"
 210     EditCopy
 211     iLenHalf = Len(getclipboardtext)
 212
 213     if iLenHalf <> Int(iLenTest/2) AND iLenHalf <> Int(iLenTest/2 +1) AND iLenHalf <> Int(iLenTest/2 -1) then
 214         Warnlog "2.Indents - after Text is not right !"
 215     end if
 216
 217    Call hCloseDocument
 218
 219 endcase
 220
 221 '-------------------------------------------------------------------------------------------
 222
 223 testcase tParagraphIndent3
 224
 225   Dim sTest                             as String
 226   Dim iLenTest                          as Integer
 227   Dim iLenNew                           as Integer
 228   Dim sPageWidth                        as String
 229   Dim sMarginLeft                       as String
 230   Dim sMarginRight                      as String
 231   Dim sIndentRight                      as String
 232   Dim sIndentFirst                      as String
 233
 234   sTest        = "lllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll"
 235   sPageWidth   = "8" + gSeperator + "00" + gMeasurementUnit
 236   sMarginLeft  = "2" + gSeperator + "00" + gMeasurementUnit
 237   sMarginRight = "2" + gSeperator + "00" + gMeasurementUnit
 238   sIndentFirst = "2" + gSeperator + "00" + gMeasurementUnit
 239
 240   PrintLog "- Set values for Indent - First line"
 241   '/// <b>Set values for Indent - First line</b>
 242
 243    Call hNewDocument
 244
 245    'Format/Page , tabpage Page , set page size and margin size
 246     Call fFormatPageWriter("TabSeite")
 247         Breite.SetText  sPageWidth
 248         Links.SetText   sMarginLeft
 249         Rechts.SetText  sMarginRight
 250     TabSeite.OK
 251
 252    '/// Input some test words which should be longer than one line
 253     Call wTypeKeys sTest
 254     Call wTypeKeys "<MOD1 Home>"
 255     Call wTypeKeys "<Shift End>"
 256     EditCopy
 257     iLenTest = Len(getclipboardtext)
 258
 259    '/// Format/Paragraph / Indents & Spacing , set 2cm in "first line"
 260     Call fFormatParagraph("TabEinzuegeUndAbstaende")
 261         ErsteZeile.SetText sIndentFirst
 262     TabEinzuegeUndAbstaende.OK
 263
 264     Call wTypeKeys "<MOD1 Home>"
 265     Call wTypeKeys "<Shift End>"
 266     EditCopy
 267     iLenNew = Len(getclipboardtext)
 268
 269     if iLenNew <> Int(iLenTest/2) AND iLenNew <> Int(iLenTest/2 +1) AND iLenNew <> Int(iLenTest/2 -1) then
 270         Warnlog "1.Indents - First line is not right !"
 271     end if
 272
 273     Call wTypeKeys "<Right><Home>"
 274     Call wTypeKeys "<Shift End>"
 275     EditCopy
 276     iLenNew = Len(getclipboardtext)
 277
 278     if iLenNew <> iLenTest then
 279         Warnlog "2.Indents - first line is not right !"
 280     end if
 281
 282    Call hCloseDocument
 283
 284 endcase
 285
 286 '-------------------------------------------------------------------------------------------
 287
 288 testcase tParagraphIndent4
 289
 290   Dim sTest                             as String
 291   Dim iLenTest                          as Integer
 292   Dim iLenNew                           as Integer
 293   Dim sPageWidth                        as String
 294   Dim sMarginLeft                       as String
 295   Dim sMarginRight                      as String
 296   Dim sIndentRight                      as String
 297   Dim sIndentFirst                      as String
 298
 299   sTest        = "lllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll"
 300   sPageWidth   = "8" + gSeperator + "00" + gMeasurementUnit
 301   sMarginLeft  = "2" + gSeperator + "00" + gMeasurementUnit
 302   sMarginRight = "2" + gSeperator + "00" + gMeasurementUnit
 303   sIndentFirst = "2" + gSeperator + "00" + gMeasurementUnit
 304
 305   PrintLog "- Test checkbox - 'automatic'"
 306   '/// <b>Test checkbox - "automatic"</b>
 307
 308    Call hNewDocument
 309
 310    'Format/Page , tabpage Page , set page size and margin size
 311     Call fFormatPageWriter("TabSeite")
 312         Breite.SetText  sPageWidth
 313         Links.SetText   sMarginLeft
 314         Rechts.SetText  sMarginRight
 315     TabSeite.OK
 316
 317    '/// Input some test words which should be longer than one line
 318     Call wTypeKeys sTest
 319     Call wTypeKeys "<MOD1 Home>"
 320     Call wTypeKeys "<Shift End>"
 321     EditCopy
 322     iLenTest = Len(getclipboardtext)
 323
 324    '/// Format/Paragraph / Indents & Spacing , Check "automatic"
 325     Call fFormatParagraph("TabEinzuegeUndAbstaende")
 326         Automatisch.Check
 327         Sleep 2
 328         if ErsteZeile.IsEnabled = TRUE then Warnlog "The first line shouldn't be enabled when checking automatic !"
 329     TabEinzuegeUndAbstaende.OK
 330
 331     Call wTypeKeys "<MOD1 Home>"
 332     Call wTypeKeys "<Shift End>"
 333     EditCopy
 334     iLenNew = Len(getclipboardtext)
 335
 336    'the first line should be shorter than before and longer then 1/2 previous length
 337     if iLenNew >= iLenTest OR iLenNew < Int(iLenTest/2 -1) then
 338         Warnlog "The 1st line length isn't right after checking 'automatic'!"
 339     end if
 340
 341     Call wTypeKeys "<Right><Home>"
 342     Call wTypeKeys "<Shift End>"
 343     EditCopy
 344     iLenNew = Len(getclipboardtext)
 345
 346    'the 2nd line should be equal the previous length
 347     if iLenNew <> iLenTest then
 348         Warnlog "The 2nd line length isn't right after checking 'automatic'!"
 349     end if
 350
 351    Call hCloseDocument
 352
 353 endcase
 354
 355 '-------------------------------------------------------------------------------------------
 356
 357 testcase tParagraphIndent5
 358
 359   Dim sTestFile          as String
 360   Dim sTest1             as String
 361   Dim sTest2             as String  'the words in 2nd paragraph (sTest1 is head , sTest2 is end)
 362   Dim sSpacing           as String
 363
 364   sTest1    = "He2" : sTest2 = "endof2ndparagraph"
 365   sSpacing  = "10" + gSeperator + "00" + gMeasurementUnit
 366   sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\indent.sxw")
 367
 368   PrintLog "- Set values for 'Above paraghraph'"
 369   '/// <b>Set values for "Above paraghraph"</b>
 370
 371    Call hNewDocument
 372
 373    '/// Open the test file
 374    '/// This file includes 2 paragraphs , and the end of 2nd paragraph is in 1st page
 375     Call hFileOpen(sTestFile)
 376     Call sMakeReadOnlyDocumentEditable
 377
 378    'Set the focus to 2nd paragraph
 379     Kontext
 380     EditSearchAndReplace
 381     Kontext "FindAndReplace"
 382         SearchFor.SetText sTest1
 383         Sleep 1
 384         SearchAll.Click
 385         Sleep 1
 386     FindAndReplace.Close
 387
 388    '/// Format/Paragraph / Indents & Spacing , set 10cm for "Above paraghraph"
 389     Call fFormatParagraph("TabEinzuegeUndAbstaende")
 390         Oben.SetText sSpacing
 391     TabEinzuegeUndAbstaende.OK
 392
 393    'Set the focus to the end of the 2nd paragraph
 394     Kontext
 395     EditSearchAndReplace
 396     Kontext "FindAndReplace"
 397         SearchFor.SetText sTest2
 398         Sleep 1
 399         SearchAll.Click
 400         Sleep 1
 401     FindAndReplace.Close
 402
 403    '/// check if the 2nd paragraph is in 2nd page
 404     Kontext "Navigator"
 405         if Not Navigator.Exists then ViewNavigator
 406         Kontext "NavigatorWriter"
 407         Sleep 1
 408         if Seitennummer.GetText <> "2" then warnlog "Something wrong in 'Above paraghraph'! The end of 2nd paragraph should be 2nd page !"
 409     fCloseNavigator
 410
 411    Call hCloseDocument
 412
 413 endcase
 414
 415 '-------------------------------------------------------------------------------------------
 416
 417 testcase tParagraphIndent6
 418
 419   Dim sTestFile          as String
 420   Dim sTest1             as String
 421   Dim sTest2             as String  '(sTest1 is head of paragraph 1 , sTest2 is end of paragraph2)
 422   Dim sSpacing           as String
 423
 424   sTest1    = "He1" : sTest2 = "endof2ndparagraph"
 425   sSpacing  = "10" + gSeperator + "00" + gMeasurementUnit
 426   sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\indent.sxw")
 427
 428   PrintLog "- Set values for 'Below paraghraph'"
 429   '/// <b>Set values for "Below paraghraph"</b>
 430
 431    Call hNewDocument
 432
 433    '/// Open the test file
 434    '/// This file includes 2 paragraphs , and the end of 2nd paragraph is in 1st page
 435     Call hFileOpen(sTestFile)
 436     Call sMakeReadOnlyDocumentEditable
 437
 438    'Set the focus to 1st paragraph
 439     Kontext
 440     EditSearchAndReplace
 441     Kontext "FindAndReplace"
 442         SearchFor.SetText sTest1
 443         Sleep 1
 444         SearchAll.Click
 445         Sleep 1
 446     FindAndReplace.Close
 447
 448    '/// Format/Paragraph / Indents & Spacing , set 10cm for "Below paraghraph"
 449     Call fFormatParagraph("TabEinzuegeUndAbstaende")
 450         Unten.SetText sSpacing
 451     TabEinzuegeUndAbstaende.OK
 452
 453    'Set the focus to the end of the 2nd paragraph
 454     Kontext
 455     EditSearchAndReplace
 456     Kontext "FindAndReplace"
 457         SearchFor.SetText sTest2
 458         Sleep 1
 459         SearchAll.Click
 460         Sleep 1
 461     FindAndReplace.Close
 462
 463    '/// check if the 2nd paragraph is in 2nd page
 464     Kontext "Navigator"
 465         if Not Navigator.Exists then ViewNavigator
 466         Kontext "NavigatorWriter"
 467         Sleep 1
 468         if Seitennummer.GetText <> "2" then warnlog "Something wrong in 'Above paraghraph'! The end of 2nd paragraph should be 2nd page !"
 469     fCloseNavigator
 470
 471    Call hCloseDocument
 472
 473 endcase
 474
 475 '-------------------------------------------------------------------------------------------
 476
 477 testcase tParagraphIndent7
 478
 479   Dim sTestFile                as String
 480   Dim sEndOfPara1              as String
 481   Dim sStartPara2              as String
 482   Dim sEndPara2                as String
 483   Dim sParagraph2              as String
 484
 485   sTestFile   = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\spacing.sxw")
 486   sEndOfPara1 = "endpara1"
 487   sStartPara2 = "StartPara2" : sEndPara2 = "endofpara2"
 488   sParagraph2 = "StartPara2mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmendofpara2"
 489
 490   PrintLog "- Test above and below spacing of successive paragraphs are not added up, the biggest one should be displayed"
 491   '/// <b>Test above and below spacing of successive paragraphs are not added up, the biggest one should be displayed"</b>
 492
 493    Call hNewDocument
 494
 495    '/// Open the test file
 496    '/// This file includes 1 paragraph which is design like
 497    '/// spacing above : 1cm , spacing below : 2cm
 498    '/// the checkbox ��Add spacing between paragraphs and tables�� in
 499    '///      Tools -> Options... -> Text Document -> Compatibility  is checked
 500    '/// if the spacing is adopted 1cm ,2nd paragrahp will be in 1st page
 501    '/// if the spacing is adopted 2cm ,2nd paragrahp part will be in 1st page , part will be in 2nd page
 502    '/// if the spacing is adopted 3cm ,2nd paragrahp will be in 2nd page
 503     Call hFileOpen(sTestFile)
 504     Call sMakeReadOnlyDocumentEditable
 505
 506    'Set the focus to the end of the 1st paragraph
 507     Kontext
 508     EditSearchAndReplace
 509     Kontext "FindAndReplace"
 510         SearchFor.SetText sEndOfPara1
 511         Sleep 1
 512         SearchAll.Click
 513         Sleep 1
 514     FindAndReplace.Close
 515
 516     Call wTypeKeys "<End>"
 517     Sleep 1
 518
 519     Call wTypeKeys "<Return>"
 520     Sleep 1
 521
 522    '/// insert 2nd paragraph
 523     Call wTypeKeys sParagraph2
 524     Sleep 1
 525
 526    '/// check if the head of paragraph2 is in 1st page and
 527    '/// + the end of paragraph2 is in 2nd page
 528     Kontext
 529     EditSearchAndReplace
 530     Kontext "FindAndReplace"
 531         SearchFor.SetText sStartPara2
 532         Sleep 1
 533         SearchAll.Click
 534         Sleep 1
 535     FindAndReplace.Close
 536
 537     Kontext "Navigator"
 538         if Not Navigator.Exists then ViewNavigator
 539         Kontext "NavigatorWriter"
 540         Sleep 1
 541         if Seitennummer.GetText <> "1" then warnlog "The start of paragraph2 should be in 1st page !"
 542     fCloseNavigator
 543
 544     Kontext
 545     EditSearchAndReplace
 546     Kontext "FindAndReplace"
 547         SearchFor.SetText sEndPara2
 548         Sleep 1
 549         SearchAll.Click
 550         Sleep 1
 551     FindAndReplace.Close
 552
 553     Kontext "Navigator"
 554         if Not Navigator.Exists then ViewNavigator
 555         Kontext "NavigatorWriter"
 556         Sleep 1
 557         if Seitennummer.GetText <> "2" then warnlog "The end of paragraph2 should be in 2nd page !"
 558     fCloseNavigator
 559
 560    Call hCloseDocument
 561
 562 endcase
 563
 564 '-------------------------------------------------------------------------------------------
 565
 566 testcase tParagraphIndent8
 567
 568   Dim sTestFile                as String
 569   Dim sEndOfPara1              as String
 570   Dim sStartPara2              as String
 571   Dim sParagraph2              as String
 572
 573   sTestFile   = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\spacing1.sxw")
 574   sEndOfPara1 = "endpara1"
 575   sStartPara2 = "StartPara2"
 576   sParagraph2 = "StartPara2mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmendofpara2"
 577
 578   PrintLog "- Test above and below spacing of successive paragraphs are added up"
 579   '/// <b>Test above and below spacing of successive paragraphs are added up</b>
 580
 581    Call hNewDocument
 582
 583    '/// Open the test file
 584    '/// This file includes 1 paragraph which is design like
 585    '/// spacing above : 1cm , spacing below : 2cm
 586    '/// the checkbox "Add spacing between paragraphs and tables" in
 587    '///      Tools -> Options... -> Text Document -> Compatibility  is Unchecked
 588    '/// if the spacing is adopted 1cm ,2nd paragrahp will be in 1st page
 589    '/// if the spacing is adopted 2cm ,2nd paragrahp part will be in 1st page , part will be in 2nd page
 590    '/// if the spacing is adopted 3cm ,2nd paragrahp will be in 2nd page
 591     Call hFileOpen(sTestFile)
 592     Call sMakeReadOnlyDocumentEditable
 593
 594    'Set the focus to the end of the 1st paragraph
 595     Kontext
 596     EditSearchAndReplace
 597     Kontext "FindAndReplace"
 598         SearchFor.SetText sEndOfPara1
 599         Sleep 1
 600         SearchAll.Click
 601         Sleep 1
 602     FindAndReplace.Close
 603
 604     Call wTypeKeys "<End>"
 605     Sleep 1
 606
 607     Call wTypeKeys "<Return>"
 608     Sleep 1
 609
 610    '/// insert 2nd paragraph
 611     Call wTypeKeys sParagraph2
 612     Sleep 1
 613
 614    '/// check if the paragraph2 is in 2nd page
 615     Kontext
 616     EditSearchAndReplace
 617     Kontext "FindAndReplace"
 618         SearchFor.SetText sStartPara2
 619         Sleep 1
 620         SearchAll.Click
 621         Sleep 1
 622     FindAndReplace.Close
 623
 624     Kontext "Navigator"
 625         if Not Navigator.Exists then ViewNavigator
 626         Kontext "NavigatorWriter"
 627         Sleep 1
 628         if Seitennummer.GetText <> "2" then warnlog "The start of paragraph2 should be in 2nd page !"
 629     fCloseNavigator
 630
 631    Call hCloseDocument
 632
 633 endcase
 634
 635 '-------------------------------------------------------------------------------------------
 636
 637 testcase tParagraphIndent9
 638
 639   Dim sTestFile as String
 640
 641   sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\eightline.sxw")
 642
 643   PrintLog "- Test Line spacing - Single"
 644   '/// <b>Test Line spacing - Single</b>
 645
 646    Call hNewDocument
 647
 648    '/// Open the test file
 649    '/// This file includes 8 lines ,
 650    '/// + when the spacing is single line , the 8 lines should be in 1 page as design.
 651     Call hFileOpen(sTestFile)
 652     Call sMakeReadOnlyDocumentEditable
 653
 654    '/// Format/Paragraph / Indents & Spacing , select single line in Line spacing
 655     Call fFormatParagraph("TabEinzuegeUndAbstaende")
 656         Zeilenabstand.Select 1
 657     TabEinzuegeUndAbstaende.OK
 658
 659    'Set the focus to the end of the paragraph
 660     Call wTypeKeys "<MOD1 End>"
 661     Sleep 1
 662
 663    '/// check if the last line is in 1 page (it should be)
 664     Kontext "Navigator"
 665         if Not Navigator.Exists then ViewNavigator
 666         Kontext "NavigatorWriter"
 667         Sleep 1
 668         if Seitennummer.GetText <> "1" then warnlog "The end of paragraph should be in 1st page !"
 669     fCloseNavigator
 670
 671    Call hCloseDocument
 672
 673 endcase
 674
 675 '-------------------------------------------------------------------------------------------
 676
 677 testcase tParagraphIndent10
 678
 679   Dim sTestFile as String
 680
 681   sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\eightline.sxw")
 682
 683   PrintLog "- Test Line spacing - 1.5 lines"
 684   '/// <b>Test Line spacing - 1.5 lines</b> ///
 685
 686    Call hNewDocument
 687
 688    '/// Open the test file
 689    '/// This file includes 8 lines
 690    '/// when the spacing is 1.5 lines ,
 691    '/// + the last 2(or 3) lines should be in 2nd page.
 692     Call hFileOpen(sTestFile)
 693     Call sMakeReadOnlyDocumentEditable
 694
 695    '/// Format/Paragraph / Indents & Spacing , select 1.5 lines in Line spacing
 696     Call fFormatParagraph("TabEinzuegeUndAbstaende")
 697         Zeilenabstand.Select 2
 698         Sleep 1
 699     TabEinzuegeUndAbstaende.OK
 700
 701    'Set the focus to the end of the paragraph
 702     Call wTypeKeys "<MOD1 End>"
 703     Sleep 1
 704
 705     Call wTypeKeys "<Home>"
 706     Sleep 1
 707
 708    '/// check if the last 2 lines(7th and 8th) is in 2nd page (it should be)
 709     Kontext "Navigator"
 710         if Not Navigator.Exists then ViewNavigator
 711         Kontext "NavigatorWriter"
 712         Sleep 1
 713         if Seitennummer.GetText <> "2" then warnlog "The 8th line should be in 2nd page !"
 714     fCloseNavigator
 715
 716     Call wTypeKeys "<Up>"
 717     Sleep 1
 718     Call wTypeKeys "<Home>"
 719     Sleep 1
 720
 721     Kontext "Navigator"
 722         if Not Navigator.Exists then ViewNavigator
 723         Kontext "NavigatorWriter"
 724         Sleep 1
 725         if Seitennummer.GetText <> "2" then warnlog "The 7th line should be in 2nd page !"
 726     fCloseNavigator
 727
 728     Call wTypeKeys "<Up>" , 2
 729     Sleep 1
 730     Call wTypeKeys "<Home>"
 731     Sleep 1
 732
 733    '/// check if the 5th lines is in 1st page (it should be)
 734     Kontext "Navigator"
 735         if Not Navigator.Exists then ViewNavigator
 736         Kontext "NavigatorWriter"
 737         Sleep 1
 738         if Seitennummer.GetText <> "1" then warnlog "The 5th line should be in 1st page !"
 739     fCloseNavigator
 740
 741    Call hCloseDocument
 742
 743 endcase
 744
 745 '-------------------------------------------------------------------------------------------
 746
 747 testcase tParagraphIndent11
 748
 749     Dim sTestFile as String
 750
 751     sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\eightline.sxw")
 752
 753     PrintLog "- Test Line spacing - Double lines"
 754     '/// <b>Test Line spacing - Double lines</b>
 755
 756     Call hNewDocument
 757     Call wOptionsUndo ( "Grundschriften" )
 758     '/// Open the test file
 759     '/// This file includes 8 lines
 760     '/// when the spacing is Double lines , the first 4 lines should be in 1st page
 761     '/// + the last 4 lines should be in 2nd page.
 762     Call hFileOpen(sTestFile)
 763     Call sMakeReadOnlyDocumentEditable
 764
 765     '/// Format/Paragraph / Indents & Spacing , select Double lines in Line spacing
 766     Call fFormatParagraph("TabEinzuegeUndAbstaende")
 767     Zeilenabstand.Select 3
 768     TabEinzuegeUndAbstaende.OK
 769
 770     'Set the focus to the end of the paragraph
 771     Call wTypeKeys "<MOD1 End>"
 772     Sleep 1
 773
 774     Call wTypeKeys "<Home>"
 775     Sleep 1
 776
 777     '/// check if the last 4 lines is in 2nd page (it should be)
 778     Kontext "Navigator"
 779     if Not Navigator.Exists then ViewNavigator
 780     Kontext "NavigatorWriter"
 781     Sleep 1
 782     if Seitennummer.GetText <> "2" then warnlog "The 8th line should be in 2nd page !"
 783     fCloseNavigator
 784
 785     Call wTypeKeys "<Up>" , 3
 786     Sleep 1
 787
 788     Kontext "Navigator"
 789     if Not Navigator.Exists then ViewNavigator
 790     Kontext "NavigatorWriter"
 791     Sleep 1
 792     if Seitennummer.GetText <> "2" then warnlog "The 5th line should be in 2nd page !"
 793     fCloseNavigator
 794
 795     Call wTypeKeys "<Up>"
 796     Sleep 1
 797
 798     '/// check if the first 4 lines is in 1st page (it should be)
 799     Kontext "Navigator"
 800     if Not Navigator.Exists then ViewNavigator
 801     Kontext "NavigatorWriter"
 802     Sleep 1
 803     if Seitennummer.GetText <> "1" then warnlog "The 4th line should be in 1st page !"
 804     fCloseNavigator
 805
 806     'Set the focus to the end of the paragraph
 807     Call wTypeKeys "<MOD1 End>"
 808     Sleep 1
 809
 810     Call wTypeKeys "m"
 811     Kontext "Navigator"
 812     if Not Navigator.Exists then ViewNavigator
 813     Kontext "NavigatorWriter"
 814     Sleep 1
 815     if Seitennummer.GetText <> "3" then warnlog "The 9th line should be in 3rd page !"
 816     fCloseNavigator
 817
 818     Call hCloseDocument
 819
 820 endcase
 821
 822 '-------------------------------------------------------------------------------------------
 823
 824 testcase tParagraphIndent12
 825
 826   Dim sTestFile     as String
 827   Dim sProportional as String
 828
 829   sTestFile     = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\eightline.sxw")
 830   sProportional = "130%"
 831
 832   PrintLog "- Test Line spacing - Proportional"
 833   '/// <b>Test Line spacing - Proportional</b>
 834
 835    Call hNewDocument
 836
 837    '/// 1.Test the max of Proportional is 200%
 838    '/// Open the test file
 839    '/// This file includes 8 lines
 840    '/// when the spacing Proportional is more than 200% ,
 841    '/// + then it will change to be Double line automatically
 842     Call hFileOpen(sTestFile)
 843     Call sMakeReadOnlyDocumentEditable
 844
 845    '/// Format/Paragraph / Indents & Spacing ,
 846    '/// + select Proportional in Line spacing , and input 300%
 847     Call fFormatParagraph("TabEinzuegeUndAbstaende")
 848         Zeilenabstand.Select 4
 849         Sleep 2
 850         Um.SetText "300%"
 851     TabEinzuegeUndAbstaende.OK
 852
 853     Call fFormatParagraph("TabEinzuegeUndAbstaende")
 854         if Zeilenabstand.GetSelIndex <> 3 then warnlog "should get double line, but get " & Zeilenabstand.GetSelText(Zeilenabstand.GetSelIndex)
 855     TabEinzuegeUndAbstaende.Cancel
 856
 857    '/// 2.Test when Proportional is 130%
 858
 859    '/// Format/Paragraph / Indents & Spacing ,
 860    '/// + select Proportional in Line spacing , and input 130%
 861     Call fFormatParagraph("TabEinzuegeUndAbstaende")
 862         Zeilenabstand.Select 4
 863         Sleep 2
 864         Um.SetText sProportional
 865     TabEinzuegeUndAbstaende.OK
 866
 867    'Set the focus to the end of the paragraph
 868     Call wTypeKeys "<MOD1 End>"
 869     Sleep 1
 870
 871     Call wTypeKeys "<Home>"
 872     Sleep 1
 873
 874    '/// check if the last 2 lines is in 2nd page (it should be)
 875     Kontext "Navigator"
 876         if Not Navigator.Exists then ViewNavigator
 877         Kontext "NavigatorWriter"
 878         Sleep 1
 879         if Seitennummer.GetText <> "2" then warnlog "The 8th line should be in 2nd page !"
 880     fCloseNavigator
 881
 882     Call wTypeKeys "<Up>" , 2
 883     Sleep 1
 884
 885     Kontext "Navigator"
 886         if Not Navigator.Exists then ViewNavigator
 887         Kontext "NavigatorWriter"
 888         Sleep 1
 889         if Seitennummer.GetText <> "1" then warnlog "The 6th line should be in 2nd page !"
 890     fCloseNavigator
 891
 892    Call hCloseDocument
 893
 894 endcase
 895
 896 '-------------------------------------------------------------------------------------------
 897
 898 testcase tParagraphIndent13
 899
 900   Dim sTestFile  as String
 901   Dim sAtLeast   as String
 902   Dim sPositionY as String
 903
 904   sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\eightLineAdd1Pic.sxw")
 905   sAtLeast  = "4" + gSeperator + "00" + gMeasurementUnit
 906
 907   PrintLog "- Test Line spacing - At least"
 908   '/// <b>Test Line spacing - At least</b>
 909
 910    Call hNewDocument
 911
 912    '/// Open the test file
 913    '/// This file includes 8 lines and 1 pic is anchored as character in 1st line
 914    '/// when the spacing is At least to 4cm, there should be 1 line/page
 915    '/// + and the pic should move down
 916     Call hFileOpen(sTestFile)
 917     Call sMakeReadOnlyDocumentEditable
 918
 919    'Get the original coordinate-Y
 920    Call wTypeKeys ( "<Shift F4>" )
 921    Sleep 1
 922    FormatAnchorToPage
 923    Sleep 1
 924    Call fPositionAndSize("TabPositionAndSizeWriter")
 925    sPositionY = Verticalby.Gettext
 926     TabPositionAndSizeWriter.Cancel
 927     FormatAnchorAsCharacter
 928     Sleep 1
 929     Call wTypeKeys "<ESCAPE>"
 930     Sleep 1
 931
 932    '/// Format/Paragraph / Indents & Spacing , select At least in Line spacing and set 4cm
 933     Call fFormatParagraph("TabEinzuegeUndAbstaende")
 934         Zeilenabstand.Select 5
 935         Sleep 1
 936         Von.SetText sAtLeast
 937     TabEinzuegeUndAbstaende.OK
 938
 939    'Set the focus to the end of the paragraph
 940     Call wTypeKeys "<MOD1 End>"
 941     Sleep 1
 942
 943    '/// check if it is 1 line /page
 944     Kontext "Navigator"
 945         if Not Navigator.Exists then ViewNavigator
 946         Kontext "NavigatorWriter"
 947         Sleep 1
 948         if Seitennummer.GetText <> "8" then Warnlog "#i73903#The 8th line should be in 8th page !"
 949     fCloseNavigator
 950
 951    '/// check if the pic moves
 952     Call wTypeKeys ( "<Shift F4>" )
 953     Sleep 1
 954     FormatAnchorToPage
 955     Sleep 1
 956
 957     Call fPositionAndSize("TabPositionAndSizeWriter")
 958         if sPositionY = Verticalby.Gettext then warnlog "The pic should move !"
 959     TabPositionAndSizeWriter.Cancel
 960
 961    Call hCloseDocument
 962
 963 endcase
 964
 965 '-------------------------------------------------------------------------------------------
 966
 967 testcase tParagraphIndent14
 968
 969   Dim sTestFile  as String
 970   Dim sAtLeast   as String
 971   Dim sPositionY as String
 972
 973   sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\eightLineAdd1Pic.sxw")
 974   sAtLeast  = "4" + gSeperator + "00" + gMeasurementUnit
 975
 976   PrintLog "- Test Line spacing - leading"
 977   '/// <b>Test Line spacing - leading</b>
 978
 979    Call hNewDocument
 980
 981    '/// Open the test file
 982    '/// This file includes 8 lines and 1 pic is anchored as character in 1st line
 983    '/// when the spacing is leading to 4cm, there should be 1 line/page
 984    '/// + and the pic should NOT move
 985     Call hFileOpen(sTestFile)
 986     Call sMakeReadOnlyDocumentEditable
 987
 988    'Get the original coordinate-Y
 989     Call wTypeKeys ( "<Shift F4>" )
 990     Sleep 1
 991     FormatAnchorToPage
 992     Sleep 1
 993     Call fPositionAndSize("TabPositionAndSizeWriter")
 994         sPositionY = Verticalby.Gettext
 995     TabPositionAndSizeWriter.Cancel
 996     FormatAnchorAsCharacter
 997     Sleep 1
 998     Call wTypeKeys "<ESCAPE>"
 999     Sleep 1
1000
1001    '/// Format/Paragraph / Indents & Spacing , select leading in Line spacing and set 4cm
1002     Call fFormatParagraph("TabEinzuegeUndAbstaende")
1003         Zeilenabstand.Select 6
1004         Sleep 1
1005         Von.SetText sAtLeast
1006     TabEinzuegeUndAbstaende.OK
1007
1008    'Set the focus to the end of the paragraph
1009     Call wTypeKeys "<MOD1 End>"
1010     Sleep 1
1011
1012    '/// check if it is 1 line /page
1013     Kontext "Navigator"
1014         if Not Navigator.Exists then ViewNavigator
1015         Kontext "NavigatorWriter"
1016         Sleep 1
1017         if Seitennummer.GetText <> "8" then Warnlog "#i73903#The 8th line should be in 8th page !"
1018     fCloseNavigator
1019
1020    '/// check if the pic moves
1021     Call wTypeKeys ( "<Shift F4>" )
1022     Sleep 1
1023     FormatAnchorToPage
1024     Sleep 1
1025
1026     Call fPositionAndSize("TabPositionAndSizeWriter")
1027         if sPositionY <> Verticalby.Gettext then warnlog "The pic should NOT move !"
1028     TabPositionAndSizeWriter.Cancel
1029
1030    Call hCloseDocument
1031
1032 endcase
1033
1034 '-------------------------------------------------------------------------------------------
1035
1036 testcase tParagraphIndent15
1037
1038   Dim sTestFile  as String
1039   Dim sFixed     as String
1040
1041   sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\eightline.sxw")
1042   sFixed    = "0" + gSeperator + "50" + gMeasurementUnit
1043
1044   PrintLog "- Test Line spacing - Fixed lines"
1045   '/// <b>Test Line spacing - Fixed lines</b>
1046
1047    Call hNewDocument
1048
1049    '/// Open the test file
1050    '/// + This file includes 8 lines , and font size is 12
1051     Call hFileOpen(sTestFile)
1052     Call sMakeReadOnlyDocumentEditable
1053
1054    '/// Format/Paragraph / Indents & Spacing ,
1055    '/// + select Fixed lines in Line spacing
1056    '/// + set 0.5cm
1057     Call fFormatParagraph("TabEinzuegeUndAbstaende")
1058         Zeilenabstand.Select 7
1059         sleep 1
1060         Von.SetText sFixed
1061     TabEinzuegeUndAbstaende.OK
1062
1063    '/// Format/Character / Font ,Change font size to 24
1064     Call wTypeKeys "<MOD1 a>"
1065     Sleep 1
1066     Call fFormatCharacter("TabFont")
1067         try
1068             SizeWest.Select "24"
1069         catch
1070             Size.Select "24"
1071         endcatch
1072     TabFont.OK
1073
1074    '/// check if there are still 8 lines/page and there
1075    '/// + should be 2 pages
1076     Call wTypeKeys "<MOD1 Home>"
1077     Call wTypeKeys "<Down>" , 7
1078
1079     Kontext "Navigator"
1080         if Not Navigator.Exists then ViewNavigator
1081         Kontext "NavigatorWriter"
1082         Sleep 1
1083         if Seitennummer.GetText <> "1" then warnlog "The 8th line should be in 1st page !"
1084     Call fCloseNavigator
1085
1086     Call wTypeKeys "<Down>"
1087
1088     Kontext "Navigator"
1089         if Not Navigator.Exists then ViewNavigator
1090         Kontext "NavigatorWriter"
1091         Sleep 1
1092         if Seitennummer.GetText <> "2" then warnlog "The 9th line should be in 2nd page !"
1093     Call fCloseNavigator
1094
1095    Call hCloseDocument
1096
1097 endcase
1098
1099 '-------------------------------------------------------------------------------------------
1100
1101 testcase tParagraphIndent16
1102
1103   Dim sTestFile    as String
1104   Dim sPositionX as String
1105   Dim sPositionY as String
1106
1107   sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\registerTrue.sxw")
1108
1109   PrintLog "- Test Regester-true Active"
1110   '/// <b>Test Regester-true Active</b>
1111
1112    Call hNewDocument
1113
1114    '/// Open the test file .
1115    '/// This file includes 2 paragraphs ,
1116    '/// + and 2 columns , in format/page / page ,
1117    '/// + regester-true has been checked as text body.
1118    '/// + You will find out the "He2 heard quiet steps"
1119    '/// + isn't at the same line with the context left it .
1120    '/// + There is a pic anchored "He2" .
1121     Call hFileOpen(sTestFile)
1122     Call sMakeReadOnlyDocumentEditable
1123
1124    'Get the original location for the pic
1125     Call wTypeKeys ( "<Shift F4>" )
1126     Sleep 1
1127     FormatAnchorToPage
1128     Sleep 1
1129     Call fPositionAndSize("TabPositionAndSizeWriter")
1130         sPositionX = Horizontalby.Gettext
1131         sPositionY = Verticalby.Gettext
1132     TabPositionAndSizeWriter.Cancel
1133
1134     FormatAnchorAsCharacter
1135     Sleep 1
1136     Call wTypeKeys "<ESCAPE>"
1137     Sleep 1
1138     Call wTypeKeys "<MOD1 A>"
1139
1140    '/// Format/Paragraph / Indents & Spacing ,
1141    '/// + check Regester-true Active
1142     Call fFormatParagraph("TabEinzuegeUndAbstaende")
1143         Registerhaltigkeit.Check
1144         Sleep 1
1145     TabEinzuegeUndAbstaende.OK
1146
1147    '/// Check if  "He2 heard quiet steps" is at the same line with the context left it.
1148     Call wTypeKeys ( "<Shift F4>" )
1149     Sleep 1
1150     FormatAnchorToPage
1151     Sleep 1
1152     Call fPositionAndSize("TabPositionAndSizeWriter")
1153         if sPositionX <> Horizontalby.Gettext then warnlog "Position X should NOT be changed !"
1154         if sPositionY =  Verticalby.Gettext then warnlog "Position Y should be changed !"
1155     TabPositionAndSizeWriter.Cancel
1156
1157    Call hCloseDocument
1158
1159 endcase
1160
1161 '-------------------------------------------------------------------------------------------
1162
1163 testcase tParagraphIndent17
1164
1165   Dim sTestFile1 as String
1166   Dim sTestFile2 as String
1167
1168   sTestFile1 = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\AddSpacingShouldCheck.doc")
1169   sTestFile2 = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\AddSpacingShouldNotCheck.doc")
1170
1171   PrintLog "- Test 'Add spacing between paragarph and talbes' when importing from MS-Word"
1172   '/// <b>Test 'Add spacing between paragarph and talbes' when importing from MS-Word</b>
1173
1174    Call hNewDocument
1175
1176    '/// 1.Open the test file - AddSpacingShouldCheck.doc
1177    '///   In Tools/Optionis/Text Document/Compatibility,
1178    '/// + the 'Add spacing between paragarph and talbes'
1179    '/// + should be checked
1180     Call hFileOpen(sTestFile1)
1181     Call sMakeReadOnlyDocumentEditable
1182
1183     ToolsOptions
1184     Call hToolsOptions("WRITER","COMPATIBILITY")
1185         Kontext "TabCompatibility"
1186         Sleep 2
1187         Options.TypeKeys "<Down>"
1188         if Options.IsChecked <> TRUE then
1189             warnlog "'Add spacing between paragarph and talbes' should be checked"
1190         end if
1191         Kontext "ExtrasOptionenDlg"
1192     ExtrasOptionenDlg.OK
1193
1194    Call hCloseDocument
1195
1196    Call hNewDocument
1197
1198    '/// 2.Open the test file - AddSpacingShouldNotCheck.doc
1199    '///   In Tools/Optionis/Text Document/Compatibility,
1200    '/// + the 'Add spacing between paragarph and talbes'
1201    '/// + should NOT be checked
1202     Call hFileOpen(sTestFile2)
1203     Call sMakeReadOnlyDocumentEditable
1204
1205     ToolsOptions
1206     Call hToolsOptions("WRITER","COMPATIBILITY")
1207         Kontext "TabCompatibility"
1208         Sleep 2
1209         Options.TypeKeys "<Down>"
1210         if Options.IsChecked = TRUE then
1211             warnlog "'Add spacing between paragarph and talbes' should NOT be checked"
1212         end if
1213         Kontext "ExtrasOptionenDlg"
1214     ExtrasOptionenDlg.OK
1215
1216    Call hCloseDocument
1217
1218 endcase
1219
1220 '-------------------------------------------------------------------------------------------
1221
1222 testcase tParagraphIndent18
1223
1224   Dim sPageWidth                          as String
1225   Dim sMarginLeft                         as String
1226   Dim sMarginRight                        as String
1227   Dim sBeforeText                         as String
1228   Dim sAfterText                          as String
1229
1230   sPageWidth   = "8"   + gSeperator + "00" + gMeasurementUnit
1231   sMarginLeft  = "2"   + gSeperator + "00" + gMeasurementUnit
1232   sMarginRight = "2"   + gSeperator + "00" + gMeasurementUnit
1233   sBeforeText  = "-10" + gSeperator + "00" + gMeasurementUnit
1234   sAfterText   = "-12" + gSeperator + "00" + gMeasurementUnit
1235
1236   PrintLog "- Test Negativ indent"
1237   '/// <b>Test Negativ indent</b> ///
1238
1239    Call hNewDocument
1240
1241    '/// Format/Page , tabpage Page , set page size and margin size ///
1242     Call fFormatPageWriter("TabSeite")
1243         Breite.SetText  sPageWidth
1244         Links.SetText   sMarginLeft
1245         Rechts.SetText  sMarginRight
1246     TabSeite.OK
1247
1248    '/// Format/Paragraph / Indents & Spacing , ///
1249    '/// + set -10cm in 'before text' ///
1250    '/// + set -12cm in 'after text'  ///
1251     Call fFormatParagraph("TabEinzuegeUndAbstaende")
1252         Vonlinks.SetText  sBeforeText
1253         VonRechts.SetText sAfterText
1254     TabEinzuegeUndAbstaende.OK
1255
1256    '/// Check if the configuration is right ///
1257     Call fFormatParagraph("TabEinzuegeUndAbstaende")
1258         if Vonlinks.GetText  <> sBeforeText then warnlog "Before text is wrong , get :" &Vonlinks.GetText
1259         if VonRechts.GetText <> sAfterText  then warnlog "After text is wrong , get :" &VonRechts.SetText
1260     TabEinzuegeUndAbstaende.Cancel
1261
1262    Call hCloseDocument
1263
1264 endcase
1265
1266 '-------------------------------------------------------------------------------------------
1267