testautomation/writer/optional/includes/textframes/w_textframes5.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_textframes5.inc,v $
  10 '*
  11 '* $Revision: 1.2 $
  12 '*
  13 '* last change: $Author: vg $ $Date: 2008-08-18 12:38:10 $
  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 of textframe - 5
  37 '*
  38 '\***********************************************************************
  39
  40 sub w_textframes5
  41
  42     Call tTextframes_71         'Test negative value in Horizontal and vertical
  43     Call tTextframes_72         ''Vertical to' when anchor is inside frame
  44     Call tTextframes_73         ''Vertical to' when anchor is inside document body
  45     Call tTextframes_74         ''Vertical to' when anchor is inside table cell
  46     Call tTextframes_75         ''Vertical to' when anchor is inside header
  47     Call tTextframes_76         ''Vertical to' when anchor is inside footer
  48     Call tTextframes_77         ''Vertical to' when anchor is inside Footnote
  49     Call tTextframes_78         ''Vertical to' when anchor is inside endnote
  50     Call tTextframes_80         'Line of text - Top
  51     Call tTextframes_81         'Line of text - Bottom
  52     Call tTextframes_82         'Line of text - Center
  53     Call tTextframes_83         'Line of text - From Bottom (positive)
  54     Call tTextframes_84         'Line of text - From Bottom (negative)
  55     Call tTextframes_85         'Import from MS Word
  56
  57 end sub
  58
  59 '---------------------------------------------------
  60
  61 testcase tTextframes_71
  62
  63     Dim iVertical     as Integer
  64     Dim sVerticalBy   as String
  65     Dim iHorizontal   as Integer
  66     Dim sHorizontalBy as String
  67
  68     iHorizontal    = 4 'From Left
  69     sHorizontalBy  = "-1"+ gSeperator + "00" + gMeasurementUnit
  70     iVertical      = 4 'From top
  71     sVerticalBy    = "-1"+ gSeperator + "50" + gMeasurementUnit
  72
  73     printlog "- Test negative value in Horizontal and vertical"
  74     '/// Test negative value in Horizontal and vertical
  75
  76     Call hNewDocument
  77
  78     '/// insert a frame
  79     '/// + Set Horizontal as "from top" ,
  80     '/// + set Horizontal by to -1cm ,
  81     '/// + set Vertical as "from Left" ,
  82     '/// + set vertical by to -1.5cm
  83     InsertFrame
  84     Kontext
  85     Active.Setpage TabType
  86     Kontext "TabType"
  87     Horizontal.Select    iHorizontal
  88     Sleep 1
  89     HorizontalBy.SetText sHorizontalBy
  90     Sleep 1
  91     Vertical.Select      iVertical
  92     Sleep 1
  93     VerticalBy.SetText   sVerticalBy
  94     Sleep 1
  95     TabType.Ok
  96
  97     '/// Check if the configuration is effective
  98     '/// Format/Frame / Type ,
  99     Call fFormatFrame("TabType")
 100
 101     if fCalculateTolerance( HorizontalBy.GetText, sHorizontalBy ) > 0.2 then
 102         Warnlog "Something wrong in Horizontal by !"
 103     end if
 104     if fCalculateTolerance( VerticalBy.GetText, sVerticalBy ) > 0.2 then
 105         Warnlog "Something wrong in Vertical by !"
 106     end if
 107     TabType.Cancel
 108
 109     Call hCloseDocument
 110
 111 endcase
 112
 113 '-----------------------------------------------------------------
 114
 115 testcase tTextframes_72
 116
 117     printlog "- 'Vertical to' when anchor is inside frame"
 118     '/// 'Vertical to' when anchor is inside frame
 119
 120     Call hNewDocument
 121
 122     '/// Open a test file , which includes 2 frames ,
 123     '/// Frame A is anchored Frame B
 124     Call hFileOpen(( Convertpath (gTesttoolpath + "writer\optional\input\textframe\frameInFrame.sxw") ),false)
 125     Call sMakeReadOnlyDocumentEditable
 126
 127     'Set focus to Frame B
 128     Call wTypeKeys ( "<Shift F4>" )
 129     Sleep 1
 130
 131     '/// Format/Frame / Type ,
 132     '/// + Check if "Entire frame" and "Frame text area"
 133     '/// + are in Vertical to area
 134     Call fFormatFrame("TabType")
 135     if HorizontalTo.GetSelIndex <> 3 then
 136         Warnlog "Horizontal To should be 'Entire Frame' but get " & HorizontalTo.GetSelText
 137     end if
 138     if VerticalTo.GetSelIndex <> 2 then
 139         Warnlog "Vertical To should be 'Frame Text Area' but get " & VerticalTo.GetSelText
 140     end if
 141
 142     TabType.Cancel
 143
 144     printlog " Close active document "
 145     Do Until GetDocumentCount = 0
 146         Call hCloseDocument
 147     Loop
 148
 149 endcase
 150
 151 '-----------------------------------------------------------------
 152
 153 testcase tTextframes_73
 154
 155     printlog "- 'Vertical to' when anchor is inside document body"
 156     '/// 'Vertical to' when anchor is inside document body
 157
 158     Call hNewDocument
 159
 160     '/// Open a test file , which includes 1 frame in the document body
 161     Call hFileOpen((Convertpath (gTesttoolpath + "writer\optional\input\textframe\frame.sxw")),false)
 162     Call sMakeReadOnlyDocumentEditable
 163
 164     '/// Set focus to Frame
 165     Call wTypeKeys ( "<Shift F4>" )
 166     Sleep 1
 167
 168     '/// Format/Frame / Type ,
 169     '/// + Check if "Entire page" and "Page text area"
 170     '/// + are in Vertical to area
 171     Call fFormatFrame("TabType")
 172     if HorizontalTo.GetSelIndex <> 7 then
 173         Warnlog "Horizontal To should be 'Entire Page' but get " & HorizontalTo.GetSelText
 174     end if
 175     if VerticalTo.GetSelIndex <> 4 then
 176         Warnlog "Vertical To should be 'Page Text Area' but get " & VerticalTo.GetSelText
 177     end if
 178     TabType.Cancel
 179
 180     printlog " Close active document "
 181     Do Until GetDocumentCount = 0
 182         Call hCloseDocument
 183     Loop
 184
 185 endcase
 186
 187 '-----------------------------------------------------------------
 188
 189 testcase tTextframes_74
 190
 191     printlog "- 'Vertical to' when anchor is inside table cell"
 192     '/// 'Vertical to' when anchor is inside table cell
 193
 194     Call hNewDocument
 195
 196     '/// Open a test file , which includes 1 frame in the document body
 197     Call hFileOpen((Convertpath (gTesttoolpath + "writer\optional\input\textframe\frameInTable.sxw")),false)
 198     Call sMakeReadOnlyDocumentEditable
 199
 200     '/// Set focus to Frame
 201     Call wTypeKeys ( "<Shift F4>" )
 202
 203     '/// Format/Frame / Type ,
 204     '/// + Check if "Entire page" and "Page text area"
 205     '/// + are in Vertical to area
 206     Call fFormatFrame("TabType")
 207     if HorizontalTo.GetSelIndex <> 7 then
 208         Warnlog "Horizontal To should be 'Entire Page' but get " & HorizontalTo.GetSelText
 209     end if
 210     if VerticalTo.GetSelIndex <> 4 then
 211         Warnlog "Vertical To should be 'Page Text Area' but get " & VerticalTo.GetSelText
 212     end if
 213     TabType.Cancel
 214
 215     printlog " Close active document "
 216     Do Until GetDocumentCount = 0
 217         Call hCloseDocument
 218     Loop
 219
 220 endcase
 221
 222 '-----------------------------------------------------------------
 223
 224 testcase tTextframes_75
 225
 226     printlog "- 'Vertical to' when anchor is inside header"
 227     '/// 'Vertical to' when anchor is inside header
 228
 229     Call hNewDocument
 230
 231     '/// Open a test file , which includes 1 frame in the header
 232     Call hFileOpen((Convertpath (gTesttoolpath + "writer\optional\input\textframe\Header.sxw")),false)
 233     Call sMakeReadOnlyDocumentEditable
 234
 235     '/// Set focus to Frame
 236     Call wTypeKeys ( "<Shift F4>" )
 237     Sleep 1
 238
 239     '/// Format/Frame / Type ,
 240     '/// + Check if "Entire page" and "Page text area"
 241     '/// + are in Vertical to area
 242     Call fFormatFrame("TabType")
 243     if HorizontalTo.GetSelIndex <> 7 then
 244         Warnlog "Horizontal To should be 'Entire Page' but get " & HorizontalTo.GetSelText
 245     end if
 246     if VerticalTo.GetSelIndex <> 4 then
 247         Warnlog "Vertical To should be 'Page Text Area' but get " & VerticalTo.GetSelText
 248     end if
 249     TabType.Cancel
 250
 251     printlog " Close active document "
 252     Do Until GetDocumentCount = 0
 253         Call hCloseDocument
 254     Loop
 255
 256 endcase
 257
 258 '-----------------------------------------------------------------
 259
 260 testcase tTextframes_76
 261
 262     printlog "- 'Vertical to' when anchor is inside footer"
 263     '/// 'Vertical to' when anchor is inside footer
 264
 265     Call hNewDocument
 266
 267     '/// Open a test file , which includes 1 frame in the footer
 268     Call hFileOpen((gTesttoolpath + "writer\optional\input\textframe\Footer.sxw"),false)
 269     Call sMakeReadOnlyDocumentEditable
 270
 271     '/// Set focus to Frame
 272     Call wTypeKeys ( "<Shift F4>" )
 273     Sleep 1
 274
 275     '/// Format/Frame / Type ,
 276     '/// + Check if "Entire page" and "Page text area"
 277     '/// + are in Vertical to area
 278     Call fFormatFrame("TabType")
 279     if HorizontalTo.GetSelIndex <> 7 then
 280         Warnlog "Horizontal To should be 'Entire Page' but get " & HorizontalTo.GetSelText
 281     end if
 282     if VerticalTo.GetSelIndex <> 4 then
 283         Warnlog "Vertical To should be 'Page Text Area' but get " & VerticalTo.GetSelText
 284     end if
 285     TabType.Cancel
 286
 287     printlog " Close active document "
 288     Do Until GetDocumentCount = 0
 289         Call hCloseDocument
 290     Loop
 291
 292 endcase
 293
 294 '-----------------------------------------------------------------
 295
 296 testcase tTextframes_77
 297
 298     printlog "- 'Vertical to' when anchor is inside Footnote"
 299     '/// 'Vertical to' when anchor is inside Footnote
 300
 301     Call hNewDocument
 302
 303     '/// Open a test file , which includes 1 frame in the footnote
 304     Call hFileOpen((Convertpath(gTesttoolpath + "writer\optional\input\textframe\frameInFootnote.sxw")),false)
 305     Call sMakeReadOnlyDocumentEditable
 306
 307     '/// Set focus to Frame
 308     Call wTypeKeys ( "<Shift F4>" )
 309     Sleep 1
 310
 311     '/// Format/Frame / Type ,
 312     '/// + Check if "Entire page" and "Page text area"
 313     '/// + are in Vertical to area
 314     Call fFormatFrame("TabType")
 315     if HorizontalTo.GetSelIndex <> 7 then
 316         Warnlog "Horizontal To should be 'Entire Page' but get " & HorizontalTo.GetSelText
 317     end if
 318     if VerticalTo.GetSelIndex <> 4 then
 319         Warnlog "Vertical To should be 'Page Text Area' but get " & VerticalTo.GetSelText
 320     end if
 321     TabType.Cancel
 322
 323     printlog " Close active document "
 324     Do Until GetDocumentCount = 0
 325         Call hCloseDocument
 326     Loop
 327
 328 endcase
 329
 330 '-----------------------------------------------------------------
 331
 332 testcase tTextframes_78
 333
 334     printlog "- 'Vertical to' when anchor is inside endnote"
 335     '/// 'Vertical to' when anchor is inside endnote
 336
 337     Call hNewDocument
 338
 339     '/// Open a test file , which includes 1 frame in the endnote
 340     Call hFileOpen((Convertpath(gTesttoolpath + "writer\optional\input\textframe\frameInEndnote.sxw")),false)
 341     Call sMakeReadOnlyDocumentEditable
 342
 343     '/// Set focus to Frame
 344     Call wTypeKeys ( "<Shift F4>" )
 345     Sleep 1
 346
 347     '/// Format/Frame / Type ,
 348     '/// + Check if "Entire page" and "Page text area"
 349     '/// + are in Vertical to area
 350     Call fFormatFrame("TabType")
 351     if HorizontalTo.GetSelIndex <> 7 then
 352         Warnlog "Horizontal To should be 'Entire Page' but get " & HorizontalTo.GetSelText
 353     end if
 354     if VerticalTo.GetSelIndex <> 4 then
 355         Warnlog "Vertical To should be 'Page Text Area' but get " & VerticalTo.GetSelText
 356     end if
 357     TabType.Cancel
 358
 359     printlog " Close active document "
 360     Do Until GetDocumentCount = 0
 361         Call hCloseDocument
 362     Loop
 363
 364 endcase
 365
 366 '-----------------------------------------------------------------
 367
 368 testcase tTextframes_80
 369
 370     Dim sTestFile   as String
 371     Dim iVertical   as Integer
 372     Dim iVerticalTo as Integer
 373     Dim sPositionY  as String
 374
 375     sTestFile   = Convertpath (gTesttoolpath + "writer\optional\input\textframe\lineOfText.sxw")
 376     iVertical   = 1    ' Top
 377     iVerticalTo = 6    ' Line of text'
 378     sPositionY  = "0"+ gSeperator + "20" + gMeasurementUnit
 379
 380     printlog "- 'Line of text' - Top"
 381     '/// 'Line of text' - Top
 382
 383     Call hNewDocument
 384
 385     '/// Open a test file , which includes 1 frame which is
 386     '/// + anchored 'To Character' and a picture which is anchored
 387     '/// + in the frame
 388     Call hFileOpen(sTestFile,false)
 389     Call sMakeReadOnlyDocumentEditable
 390
 391     '/// Set focus to Frame
 392     Call wTypeKeys ( "<Shift F4>" )
 393     Sleep 1
 394
 395     '/// Format/Frame / Type , select Top in Vertical ,
 396     '/// + select 'Line of text' in vertical to
 397     Call fFormatFrame("TabType")
 398     Vertical.Select iVertical
 399     Sleep 1
 400     VerticalTo.Select iVerticalTo
 401     Sleep 1
 402     TabType.OK
 403
 404     '/// Check if the result is right
 405     'Set focus to the picture
 406     Call wTypeKeys "<Tab>"
 407     FormatAnchorToPage
 408     Sleep 1
 409     Call fPositionAndSize("TabPositionAndSizeWriter")
 410     if fCalculateTolerance( sPositionY, Verticalby.Gettext) > 0.3 then
 411        Warnlog "The picture's position isn't right !"
 412     end if
 413     TabPositionAndSizeWriter.Cancel
 414
 415     printlog " Close active document "
 416     Do Until GetDocumentCount = 0
 417         Call hCloseDocument
 418     Loop
 419
 420 endcase
 421
 422 '-----------------------------------------------------------------
 423
 424 testcase tTextframes_81
 425
 426     Dim sTestFile   as String
 427     Dim iVertical   as Integer
 428     Dim iVerticalTo as Integer
 429     Dim sPositionY  as String
 430
 431     sTestFile   = Convertpath (gTesttoolpath + "writer\optional\input\textframe\lineOfText.sxw")
 432     iVertical   = 2    ' Bottom
 433     iVerticalTo = 6    ' Line of text'
 434     sPositionY  = "3"+ gSeperator + "50" + gMeasurementUnit
 435
 436     printlog "- 'Line of text' - Bottom"
 437     '/// 'Line of text' - Bottom
 438
 439     Call hNewDocument
 440
 441     '/// Open a test file , which includes 1 frame which is
 442     '/// + anchored 'To Character' and a picture which is anchored
 443     '/// + in the frame
 444     Call hFileOpen(sTestFile,false)
 445     Call sMakeReadOnlyDocumentEditable
 446
 447     '/// Set focus to Frame
 448     Call wTypeKeys ( "<Shift F4>" )
 449     Sleep 1
 450
 451     '/// Format/Frame / Type , select Bottom in Vertical ,
 452     '/// + select 'Line of text' in vertical to
 453     Call fFormatFrame("TabType")
 454     Vertical.Select iVertical
 455     Sleep 1
 456     VerticalTo.Select iVerticalTo
 457     Sleep 1
 458     TabType.OK
 459
 460     '/// Check if the result is right
 461     'Set focus to the picture
 462     Call wTypeKeys "<Tab>"
 463     FormatAnchorToPage
 464     Sleep 1
 465     Call fPositionAndSize("TabPositionAndSizeWriter")
 466     if fCalculateTolerance( sPositionY, Verticalby.Gettext) > 0.3 then
 467        Warnlog "The picture's position isn't right !"
 468     end if
 469     TabPositionAndSizeWriter.Cancel
 470
 471     printlog " Close active document "
 472     Do Until GetDocumentCount = 0
 473         Call hCloseDocument
 474     Loop
 475
 476 endcase
 477
 478 '-----------------------------------------------------------------
 479
 480 testcase tTextframes_82
 481
 482     Dim sTestFile   as String
 483     Dim iVertical   as Integer
 484     Dim iVerticalTo as Integer
 485     Dim sPositionY  as String
 486
 487     sTestFile   = Convertpath (gTesttoolpath + "writer\optional\input\textframe\lineOfText.sxw")
 488     iVertical   = 4    ' Center
 489     iVerticalTo = 6    ' Line of text'
 490     sPositionY  = "1"+ gSeperator + "80" + gMeasurementUnit
 491
 492     printlog "- 'Line of text' - Center"
 493     '/// 'Line of text' - Center
 494
 495     Call hNewDocument
 496
 497     '/// Open a test file , which includes 1 frame which is
 498     '/// + anchored 'To Character' and a picture which is anchored
 499     '/// + in the frame
 500     Call hFileOpen(sTestFile,false)
 501     Call sMakeReadOnlyDocumentEditable
 502
 503     '/// Set focus to Frame
 504     Call wTypeKeys ( "<Shift F4>" )
 505     Sleep 1
 506
 507     '/// Format/Frame / Type , select Center in Vertical ,
 508     '/// + select 'Line of text' in vertical to
 509     Call fFormatFrame("TabType")
 510     Vertical.Select iVertical
 511     Sleep 1
 512     VerticalTo.Select iVerticalTo
 513     Sleep 1
 514     TabType.OK
 515
 516     '/// Check if the result is right
 517     'Set focus to the picture
 518     Call wTypeKeys "<Tab>"
 519     FormatAnchorToPage
 520     Sleep 1
 521     Call fPositionAndSize("TabPositionAndSizeWriter")
 522     if fCalculateTolerance( sPositionY, Verticalby.Gettext) > 0.3 then
 523        Warnlog "The picture's position isn't right !"
 524     end if
 525     TabPositionAndSizeWriter.Cancel
 526
 527     printlog " Close active document "
 528     Do Until GetDocumentCount = 0
 529         Call hCloseDocument
 530     Loop
 531
 532 endcase
 533
 534 '-----------------------------------------------------------------
 535
 536 testcase tTextframes_83
 537
 538     Dim sTestFile   as String
 539     Dim iVertical   as Integer
 540     Dim iVerticalTo as Integer
 541     Dim sPositionY  as String
 542     Dim sVerticalBy as String
 543
 544     sTestFile   = Convertpath (gTesttoolpath + "writer\optional\input\textframe\lineOfText.sxw")
 545     iVertical   = 6    ' From Bottom
 546     iVerticalTo = 2    ' Line of text'
 547     sPositionY  = "2"+ gSeperator + "30" + gMeasurementUnit
 548     sVerticalBy = "1"+ gSeperator + "00" + gMeasurementUnit
 549
 550     printlog "- 'Line of text' - From Bottom(positive)"
 551     '/// 'Line of text' - From Bottom(positive)
 552
 553     Call hNewDocument
 554
 555     '/// Open a test file , which includes 1 frame which is
 556     '/// + anchored 'To Character' and a picture which is anchored
 557     '/// + in the frame
 558     Call hFileOpen(sTestFile,false)
 559     Call sMakeReadOnlyDocumentEditable
 560
 561     '/// Set focus to Frame
 562     Call wTypeKeys ( "<Shift F4>" )
 563     Sleep 1
 564
 565     '/// Format/Frame / Type , select From Bottom in Vertical ,
 566     '/// + select 'Line of text' in vertical to ,
 567     '/// + input a positive number in vertical by
 568     Call fFormatFrame("TabType")
 569     if Vertical.GetItemCount <> 6 then
 570         warnlog " Missing string in frame options"
 571         TabType.Cancel
 572         Call hCloseDocument
 573         goto endsub
 574     end if
 575     Vertical.Select    iVertical
 576     Sleep 1
 577     VerticalTo.Select  iVerticalTo
 578     Sleep 1
 579     VerticalBy.SetText sVerticalBy
 580     TabType.OK
 581
 582     '/// Check if the result is right
 583     'Set focus to the picture
 584     Call wTypeKeys "<Tab>"
 585     FormatAnchorToPage
 586     Sleep 1
 587     Call fPositionAndSize("TabPositionAndSizeWriter")
 588     if fCalculateTolerance( sPositionY, Verticalby.Gettext) > 0.3 then
 589        Warnlog "The picture's position isn't right !"
 590     end if
 591     TabPositionAndSizeWriter.Cancel
 592
 593     printlog " Close active document "
 594     Do Until GetDocumentCount = 0
 595         Call hCloseDocument
 596     Loop
 597
 598 endcase
 599
 600 '-----------------------------------------------------------------
 601
 602 testcase tTextframes_84
 603
 604     Dim sTestFile   as String
 605     Dim iVertical   as Integer
 606     Dim iVerticalTo as Integer
 607     Dim sPositionY  as String
 608     Dim sVerticalBy as String
 609
 610     sTestFile   = Convertpath (gTesttoolpath + "writer\optional\input\textframe\lineOfText.sxw")
 611     iVertical   = 6    ' From Bottom
 612     iVerticalTo = 2    ' Line of text'
 613     sPositionY  = "4"+ gSeperator + "30" + gMeasurementUnit
 614     sVerticalBy = "-1"+ gSeperator + "00" + gMeasurementUnit
 615
 616     printlog "- 'Line of text' - From Bottom(negative)"
 617     '/// 'Line of text' - From Bottom(negative)
 618
 619     Call hNewDocument
 620
 621     '/// Open a test file , which includes 1 frame which is
 622     '/// + anchored 'To Character' and a picture which is anchored
 623     '/// + in the frame
 624     Call hFileOpen(sTestFile,false)
 625     Call sMakeReadOnlyDocumentEditable
 626
 627     '/// Set focus to Frame
 628     Call wTypeKeys ( "<Shift F4>" )
 629     Sleep 1
 630
 631     '/// Format/Frame / Type , select From Bottom in Vertical ,
 632     '/// + select 'Line of text' in vertical to ,
 633     '/// + input a negative number in vertical by
 634     Call fFormatFrame("TabType")
 635     if Vertical.GetItemCount <> 6 then
 636         warnlog " Missing string in frame options"
 637         TabType.Cancel
 638         Call hCloseDocument
 639         goto endsub
 640     end if
 641     Vertical.Select    iVertical
 642     Sleep 1
 643     VerticalTo.Select  iVerticalTo
 644     Sleep 1
 645     VerticalBy.SetText sVerticalBy
 646     TabType.OK
 647
 648     '/// Check if the result is right
 649     'Set focus to the picture
 650     Call wTypeKeys "<Tab>"
 651     FormatAnchorToPage
 652     Sleep 1
 653     Call fPositionAndSize("TabPositionAndSizeWriter")
 654     if fCalculateTolerance( sPositionY, Verticalby.Gettext) > 0.3 then
 655        Warnlog "The picture's position isn't right !"
 656     end if
 657     TabPositionAndSizeWriter.Cancel
 658
 659     printlog " Close active document "
 660     Do Until GetDocumentCount = 0
 661         Call hCloseDocument
 662     Loop
 663
 664 endcase
 665
 666 '-----------------------------------------------------------------
 667
 668 testcase tTextframes_85
 669
 670     Dim sTestFile       as String
 671     Dim iVerticalTop    as Integer
 672     Dim iVerticalBottom as Integer
 673     Dim iVerticalCenter as Integer
 674     Dim iVerticalTo     as Integer
 675
 676     sTestFile       = Convertpath (gTesttoolpath + "writer\optional\input\textframe\lineOfText.doc")
 677     iVerticalTop    = 1    ' Top
 678     iVerticalBottom = 2    ' Bottom
 679     iVerticalCenter = 4    ' Center
 680
 681     iVerticalTo     = 6    ' Line of text'
 682
 683     printlog "- Import from MS Word"
 684     '/// Import from MS Word
 685
 686     Call hNewDocument
 687
 688     '/// Open a MS Word file , which includes 3 frames ,
 689     '/// + One is top to the line text ,
 690     '/// + another one is center to the line text ,
 691     '/// + the 3rd one is bottom to the line text
 692     Call hFileOpen(sTestFile,false)
 693     Call sMakeReadOnlyDocumentEditable
 694     Sleep (2)
 695
 696     '/// Set focus to 1st Frame
 697     Call wTypeKeys ( "<Shift F4>" )
 698
 699     '/// Format/Frame / Type , check if 'To character' in anchor area
 700     '/// + check if 'Line of text' in vertical to ,
 701     '/// + check if 'Top' in Vertical
 702     Call fFormatFrame("TabType")
 703     if AnchorAtCharacter.IsChecked <> TRUE then
 704        Warnlog "The anchor should be To Character!"
 705     end if
 706     if Vertical.GetSelIndex <> iVerticalTop then
 707        Warnlog "should be Top , but get " &Vertical.GetSelText
 708     end if
 709     if VerticalTo.GetSelIndex <> iVerticalTo then
 710        Warnlog "Top:should be line of text , but get " &VerticalTo.GetSelText
 711     end if
 712     TabType.Cancel
 713
 714     '/// Set focus to 2nd Frame
 715     Call wTypeKeys "<Tab>"
 716     Sleep 1
 717
 718     '/// Format/Frame / Type , check if 'To character' in anchor area
 719     '/// + check if 'Line of text' in vertical to ,
 720     '/// + check if 'Center' in Vertical
 721     Call fFormatFrame("TabType")
 722     if AnchorAtCharacter.IsChecked <> TRUE then
 723        Warnlog "The anchor should be To Character!"
 724     end if
 725     if Vertical.GetSelIndex <> iVerticalCenter then
 726        Warnlog "should be Center , but get " &Vertical.GetSelText
 727     end if
 728     if VerticalTo.GetSelIndex <> iVerticalTo then
 729        Warnlog "Center:should be line of text , but get " &VerticalTo.GetSelText
 730     end if
 731     TabType.Cancel
 732
 733     '/// Set focus to 3rd Frame
 734     Call wTypeKeys "<Tab>"
 735     Sleep 1
 736
 737     '/// Format/Frame / Type , check if 'To character' in anchor area
 738     '/// + check if 'Line of text' in vertical to ,
 739     '/// + check if 'Bottom' in Vertical
 740     Call fFormatFrame("TabType")
 741     if AnchorAtCharacter.IsChecked <> TRUE then
 742        Warnlog "The anchor should be To Character!"
 743     end if
 744     if Vertical.GetSelIndex <> iVerticalBottom then
 745        Warnlog "should be Bottom , but get " &Vertical.GetSelText
 746     end if
 747     if VerticalTo.GetSelIndex <> iVerticalTo then
 748        Warnlog "Bottom:should be line of text , but get " &VerticalTo.GetSelText
 749     end if
 750     TabType.Cancel
 751
 752     printlog " Close active document "
 753     Do Until GetDocumentCount = 0
 754         Call hCloseDocument
 755     Loop
 756
 757 endcase
 758
 759 ' ------------------------------------------------------------------------------