testautomation/writer/optional/includes/insertgraphic/w_insertgraphic4.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_insertgraphic4.inc,v $
  10 '*
  11 '* $Revision: 1.2 $
  12 '*
  13 '* last change: $Author: vg $ $Date: 2008-08-18 12:31:06 $
  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 the insert graphic function - 4
  37 '*
  38 '************************************************************************
  39 '*
  40 ' #1 tInsertGraphic_31      'Test Alignment via format/graphic: Anchor to paragraph -> Left, centered, right, top, center, bottom
  41 ' #1 tInsertGraphic_32      'Test Alignment via format/graphic: Anchor to page -> Left, centered, right, top, center, bottom
  42 ' #1 tInsertGraphic_33      'Test Alignment via format/graphic: Anchor to character -> Left, centered, right, top, center, bottom
  43 ' #1 tInsertGraphic_34      'Test Alignment via format/graphic: Anchor as character -> top, center, bottom of baseline
  44 ' #1 tInsertGraphic_35      'Test Wrap via format/graphic : none, Page Wrap, Optimal Page Wrap, Contour Wrap ,Wrap through, in Background , first paragraph
  45 ' #1 tInsertGraphic_36      'Test original size
  46 ' #1 tInsertGraphic_37      'Test keep ratio
  47 ' #1 tInsertGraphic_38      'Check the graphic name in Navigator
  48 ' #1 tInsertGraphic_39      'Test checkbox 'Position' in protect area
  49 ' #1 tInsertGraphic_40      'Test checkbox 'Print' in Property area"
  50 ' #1 tInsertGraphic_41      'Test checkbox 'Keep image size'
  51 ' #1 tInsertGraphic_42      'Test checkbox 'Keep scale'
  52 '*
  53 '\***********************************************************************
  54
  55 testcase tInsertGraphic_31
  56
  57   Dim iLeft as Integer
  58   Dim iRight as Integer
  59   Dim iCenterHorizontal as Integer
  60   Dim iTop as Integer
  61   Dim iBottom as Integer
  62   Dim iCenterVertical as Integer
  63
  64   iLeft = 1 : iRight  = 2  : iCenterHorizontal = 3
  65   iTop  = 1 : iBottom = 2  : iCenterVertical   = 3
  66
  67   PrintLog "- Test Alignment via format/graphic: Anchor to paragraph -> Left, centered, right, top, center, bottom"
  68  '/// Test Alignment via format/graphic: Anchor to paragraph -> Left, centered, right, top, center, bottom
  69
  70    Call hNewDocument
  71
  72   '/// Insert a graphics
  73    fInsertGraphics("Bughunter.jpg")
  74
  75    PrintLog "  Left:"
  76   '/// Format / Graphic tabpage Type ,
  77   '/// + Anchor to paragraph , and set Horizontal to left
  78    fFormatGraphic("TabType")
  79     Kontext "TabType"
  80     AnchorAtparagraph.Check
  81     Horizontal.Select iLeft
  82    TabType.OK
  83
  84   '/// Check the graphic position
  85    fFormatGraphic("TabType")
  86     Kontext "TabType"
  87     Sleep 1
  88     if AnchorAtparagraph.IsChecked <> TRUE  then Warnlog "Anchor should be checked to 'to paragraph' !"
  89     if Horizontal.GetSelIndex      <> iLeft then Warnlog "The graphic's Horizontal option is not correct ! "
  90    TabType.Cancel
  91
  92    PrintLog "  Centered:"
  93   '/// Format / Graphic tabpage Type
  94   '/// + Anchor to paragraph , and set Horizontal to Centered
  95    fFormatGraphic("TabType")
  96     Kontext "TabType"
  97     AnchorAtparagraph.Check
  98     Horizontal.Select iCenterHorizontal
  99    TabType.OK
 100
 101   '/// Check the graphic position
 102    fFormatGraphic("TabType")
 103     Sleep 1
 104     Kontext "TabType"
 105     if AnchorAtparagraph.IsChecked <> TRUE              then Warnlog "Anchor should be checked to 'to paragraph' !"
 106     if Horizontal.GetSelIndex      <> iCenterHorizontal then Warnlog "The graphic's Horizontal option is not correct ! "
 107    TabType.Cancel
 108
 109    PrintLog "  Right:"
 110   '/// Format / Graphic tabpage Type
 111   '/// + Anchor to paragraph , and set Horizontal to Right
 112    fFormatGraphic("TabType")
 113     Kontext "TabType"
 114     AnchorAtparagraph.Check
 115     Horizontal.Select iRight
 116    TabType.OK
 117    sleep(1)
 118
 119   '/// Check the graphic position
 120    fFormatGraphic("TabType")
 121     Sleep 1
 122     Kontext "TabType"
 123     if AnchorAtparagraph.IsChecked <> TRUE    then Warnlog "Anchor should be checked to 'to paragraph' !"
 124     if Horizontal.GetSelIndex      <> iRight  then Warnlog "The graphic's Horizontal option is not correct ! "
 125    TabType.Cancel
 126
 127    PrintLog "  Top:"
 128   '/// Format / Graphic tabpage Type
 129   '/// + Anchor to paragraph , and set Vertical to top
 130    fFormatGraphic("TabType")
 131     Kontext "TabType"
 132     AnchorAtparagraph.Check
 133     Vertical.Select iTop
 134    TabType.OK
 135
 136   '/// Check the graphic position
 137    fFormatGraphic("TabType")
 138     Sleep 1
 139     Kontext "TabType"
 140     if AnchorAtparagraph.IsChecked <> TRUE  then Warnlog "Anchor should be checked to 'to paragraph' !"
 141     if Vertical.GetSelIndex        <> iTop  then Warnlog "The graphic's Vertical option is not correct ! "
 142    TabType.Cancel
 143
 144    PrintLog "  Center:"
 145   '/// Format / Graphic tabpage Type
 146   '/// + Anchor to paragraph , and set Vertical to Center
 147    fFormatGraphic("TabType")
 148     Kontext "TabType"
 149     AnchorAtparagraph.Check
 150     Vertical.Select iCenterVertical
 151    TabType.OK
 152
 153   '/// Check the graphic position
 154    fFormatGraphic("TabType")
 155     Sleep 1
 156     if AnchorAtparagraph.IsChecked <> TRUE             then Warnlog "Anchor should be checked to 'to paragraph' !"
 157     if Vertical.GetSelIndex        <> iCenterVertical  then Warnlog "The graphic's Vertical option is not correct ! #bug110281"
 158    TabType.Cancel
 159
 160    PrintLog "  Bottom:"
 161   '/// Format / Graphic tabpage Type
 162   '/// + Anchor to paragraph , and set Vertical to Bottom
 163    fFormatGraphic("TabType")
 164     AnchorAtparagraph.Check
 165     Vertical.Select iBottom
 166    TabType.OK
 167
 168   '/// Check the graphic position
 169    fFormatGraphic("TabType")
 170     Sleep 1
 171     if AnchorAtparagraph.IsChecked <> TRUE     then Warnlog "Anchor should be checked to 'to paragraph' !"
 172     if Vertical.GetSelIndex        <> iBottom  then Warnlog "The graphic's Vertical option is not correct ! "
 173    TabType.Cancel
 174
 175    Call hCloseDocument
 176
 177 endcase
 178
 179 '-------------------------------------------------------------------------------------------
 180
 181 testcase tInsertGraphic_32
 182
 183   Dim iLeft as Integer
 184   Dim iRight as Integer
 185   Dim iCenterHorizontal as Integer
 186   Dim iTop as Integer
 187   Dim iBottom as Integer
 188   Dim iCenterVertical as Integer
 189
 190   iLeft = 1 : iRight  = 2  : iCenterHorizontal = 3
 191   iTop  = 1 : iBottom = 2  : iCenterVertical   = 3
 192
 193   PrintLog "- Test Alignment via format/graphic: Anchor to page -> Left, centered, right, top, center, bottom"
 194  '/// Test Alignment via format/graphic: Anchor to page -> Left, centered, right, top, center, bottom
 195
 196    Call hNewDocument
 197
 198   '/// Insert a graphics
 199    fInsertGraphics("Bughunter.jpg")
 200
 201    PrintLog "  Left:"
 202   '/// Format / Graphic tabpage Type
 203   '/// + Anchor to page , and set Horizontal to left
 204    fFormatGraphic("TabType")
 205     AnchorAtPage.Check
 206     Horizontal.Select iLeft
 207    TabType.OK
 208
 209   '/// Check the graphic position
 210    fFormatGraphic("TabType")
 211     Sleep 1
 212     if AnchorAtPage.IsChecked <> TRUE  then Warnlog "Anchor should be checked to 'At Page' !"
 213     if Horizontal.GetSelIndex <> iLeft then Warnlog "The graphic's Horizontal option is not correct ! "
 214    TabType.Cancel
 215
 216    PrintLog "  Centered:"
 217   '/// Format / Graphic tabpage Type
 218   '/// + Anchor to page , and set Horizontal to Centered
 219    fFormatGraphic("TabType")
 220     AnchorAtPage.Check
 221     Horizontal.Select iCenterHorizontal
 222    TabType.OK
 223
 224   '/// Check the graphic position
 225    fFormatGraphic("TabType")
 226     Sleep 1
 227     if AnchorAtPage.IsChecked <> TRUE              then Warnlog "Anchor should be checked to 'At Page' !"
 228     if Horizontal.GetSelIndex <> iCenterHorizontal then Warnlog "The graphic's Horizontal option is not correct ! "
 229    TabType.Cancel
 230
 231    PrintLog "  Right:"
 232   '/// Format / Graphic tabpage Type
 233   '/// + Anchor to page , and set Horizontal to Right
 234    fFormatGraphic("TabType")
 235     AnchorAtPage.Check
 236     Horizontal.Select iRight
 237    TabType.OK
 238
 239   '/// Check the graphic position
 240    fFormatGraphic("TabType")
 241     Sleep 1
 242     if AnchorAtPage.IsChecked <> TRUE    then Warnlog "Anchor should be checked to 'At Page' !"
 243     if Horizontal.GetSelIndex <> iRight  then Warnlog "The graphic's Horizontal option is not correct ! "
 244    TabType.Cancel
 245
 246    PrintLog "  Top:"
 247   '/// Format / Graphic tabpage Type
 248   '/// + Anchor to page , and set Vertical to top
 249    fFormatGraphic("TabType")
 250     AnchorAtPage.Check
 251     Vertical.Select iTop
 252    TabType.OK
 253
 254   '/// Check the graphic position
 255    fFormatGraphic("TabType")
 256     Sleep 1
 257     if AnchorAtPage.IsChecked <> TRUE  then Warnlog "Anchor should be checked to 'At Page' !"
 258     if Vertical.GetSelIndex   <> iTop  then Warnlog "The graphic's Vertical option is not correct ! "
 259    TabType.Cancel
 260
 261    PrintLog "  Center:"
 262   '/// Format / Graphic tabpage Type
 263   '/// + Anchor to page , and set Vertical to Center
 264    fFormatGraphic("TabType")
 265     AnchorAtPage.Check
 266     Vertical.Select iCenterVertical
 267    TabType.OK
 268
 269   '/// Check the graphic position
 270    fFormatGraphic("TabType")
 271     Sleep 1
 272     if AnchorAtPage.IsChecked <> TRUE             then Warnlog "Anchor should be checked to 'At Page' !"
 273     if Vertical.GetSelIndex   <> iCenterVertical  then Warnlog "The graphic's Vertical option is not correct ! "
 274    TabType.Cancel
 275
 276    PrintLog "  Bottom:"
 277   '/// Format / Graphic tabpage Type
 278   '/// + Anchor to page , and set Vertical to Bottom
 279    fFormatGraphic("TabType")
 280     AnchorAtPage.Check
 281     Vertical.Select iBottom
 282    TabType.OK
 283
 284   '/// Check the graphic position
 285    fFormatGraphic("TabType")
 286     Sleep 1
 287     if AnchorAtPage.IsChecked <> TRUE     then Warnlog "Anchor should be checked to 'At Page' !"
 288     if Vertical.GetSelIndex   <> iBottom  then Warnlog "The graphic's Vertical option is not correct ! "
 289    TabType.Cancel
 290
 291    Call hCloseDocument
 292
 293 endcase
 294
 295 '-------------------------------------------------------------------------------------------
 296
 297 testcase tInsertGraphic_33
 298
 299     Dim iLeft as Integer
 300     Dim iRight as Integer
 301     Dim iCenterHorizontal as Integer
 302     Dim iTop as Integer
 303     Dim iBottom as Integer
 304     Dim iCenterVertical as Integer
 305
 306     iLeft = 1 : iRight  = 2  : iCenterHorizontal = 3
 307     iTop  = 1 : iBottom = 2  : iCenterVertical   = 4
 308
 309     PrintLog "- Test Alignment via format/graphic: Anchor to character -> Left, centered, right, top, center, bottom"
 310     '/// Test Alignment via format/graphic: Anchor to character -> Left, centered, right, top, center, bottom
 311
 312     Call hNewDocument
 313
 314     '/// Insert a graphics
 315     fInsertGraphics("Bughunter.jpg")
 316
 317     PrintLog "  Left:"
 318     '/// Format / Graphic tabpage Type
 319     '/// + Anchor At Character , and set Horizontal to left
 320     fFormatGraphic("TabType")
 321     AnchorAtCharacter.Check
 322     Horizontal.Select iLeft
 323     TabType.OK
 324
 325     '/// Check the graphic position
 326     fFormatGraphic("TabType")
 327     Sleep 1
 328     if AnchorAtCharacter.IsChecked <> TRUE  then Warnlog "Anchor should be checked to 'At Character' !"
 329     if Horizontal.GetSelIndex      <> iLeft then Warnlog "The graphic's Horizontal option is not correct ! "
 330     TabType.Cancel
 331
 332     PrintLog "  Centered:"
 333     '/// Format / Graphic tabpage Type
 334     '/// + Anchor At Character , and set Horizontal to Centered
 335     fFormatGraphic("TabType")
 336     AnchorAtCharacter.Check
 337     Horizontal.Select iCenterHorizontal
 338     TabType.OK
 339
 340     '/// Check the graphic position
 341     fFormatGraphic("TabType")
 342     Sleep 1
 343     if AnchorAtCharacter.IsChecked <> TRUE              then Warnlog "Anchor should be checked to 'At Character' !"
 344     if Horizontal.GetSelIndex      <> iCenterHorizontal then Warnlog "The graphic's Horizontal option is not correct ! "
 345     TabType.Cancel
 346
 347     PrintLog "  Right:"
 348     '/// Format / Graphic tabpage Type
 349     '/// + Anchor At Character , and set Horizontal to Right
 350     fFormatGraphic("TabType")
 351     AnchorAtCharacter.Check
 352     Horizontal.Select iRight
 353     TabType.OK
 354
 355     '/// Check the graphic position
 356     fFormatGraphic("TabType")
 357     Sleep 1
 358     if AnchorAtCharacter.IsChecked <> TRUE    then Warnlog "Anchor should be checked to 'At Character' !"
 359     if Horizontal.GetSelIndex      <> iRight  then Warnlog "The graphic's Horizontal option is not correct ! "
 360     TabType.Cancel
 361
 362     PrintLog "  Top:"
 363     '/// Format / Graphic tabpage Type
 364     '/// + Anchor At Character , and set Vertical to top
 365     fFormatGraphic("TabType")
 366     AnchorAtCharacter.Check
 367     Vertical.Select iTop
 368     TabType.OK
 369
 370     '/// Check the graphic position
 371     fFormatGraphic("TabType")
 372     Sleep 1
 373     if AnchorAtCharacter.IsChecked <> TRUE  then Warnlog "Anchor should be checked to 'At Character' !"
 374     if Vertical.GetSelIndex        <> iTop  then Warnlog "The graphic's Vertical option is not correct ! "
 375     TabType.Cancel
 376
 377     PrintLog "  Center:"
 378     '/// Format / Graphic tabpage Type
 379     '/// + Anchor At Character , and set Vertical to Center
 380     fFormatGraphic("TabType")
 381     AnchorAtCharacter.Check
 382     Vertical.Select iCenterVertical
 383     TabType.OK
 384
 385     '/// Check the graphic position
 386     fFormatGraphic("TabType")
 387     Sleep 1
 388     if AnchorAtCharacter.IsChecked <> TRUE             then Warnlog "Anchor should be checked to 'At Character' !"
 389     if Vertical.GetSelIndex        <> iCenterVertical  then
 390         if iSprache = 82 then
 391             QAErrorlog "#i59378#Missing vertical position in in Format-Picture-dialog"
 392         else
 393             if Vertical.GetItemCount <> 6 then
 394                 QAErrorlog "#i59378#Missing vertical position in in Format-Picture-dialog"
 395             else
 396                 Warnlog "The graphic's Vertical option is not correct ! "
 397             end if
 398         end if
 399     end if
 400     TabType.Cancel
 401
 402     PrintLog "  Bottom:"
 403     '/// Format / Graphic tabpage Type
 404     '/// + Anchor At Character , and set Vertical to Bottom
 405     fFormatGraphic("TabType")
 406     AnchorAtCharacter.Check
 407     Vertical.Select iBottom
 408     TabType.OK
 409
 410     '/// Check the graphic position
 411     fFormatGraphic("TabType")
 412     Sleep 1
 413     if AnchorAtCharacter.IsChecked <> TRUE     then Warnlog "Anchor should be checked to 'At Character' !"
 414     if Vertical.GetSelIndex        <> iBottom  then Warnlog "The graphic's Vertical option is not correct ! "
 415     TabType.Cancel
 416
 417     Call hCloseDocument
 418
 419 endcase
 420
 421 '-------------------------------------------------------------------------------------------
 422
 423 testcase tInsertGraphic_34
 424
 425   Dim iTop as Integer
 426   Dim iBottom as Integer
 427   Dim iCenterVertical as Integer
 428
 429   iTop  = 1 : iBottom = 2  : iCenterVertical   = 3
 430
 431   PrintLog "- Test Alignment via format/graphic: Anchor as character -> top, center, bottom of baseline"
 432  '/// Test Alignment via format/graphic: Anchor as character -> top, center, bottom of baseline
 433
 434    Call hNewDocument
 435
 436   '/// Insert a graphics
 437    fInsertGraphics("Bughunter.jpg")
 438
 439    PrintLog "  Base line at top:"
 440   '/// Format / Graphic tabpage Type
 441   '/// + Anchor as character , and set Base line at top
 442    fFormatGraphic("TabType")
 443     Sleep 1
 444     AnchorAsCharacter.Check
 445     Vertical.Select iTop
 446    TabType.OK
 447
 448   '/// Check the graphic position
 449    fFormatGraphic("TabType")
 450     Sleep 1
 451     if AnchorAsCharacter.IsChecked <> TRUE  then Warnlog "Anchor should be checked to 'As character' !"
 452     if Horizontal.IsEnabled        =  TRUE  then Warnlog "The Horizontal listbox should not be enabled ! "
 453     if Vertical.GetSelIndex        <> iTop  then Warnlog "The graphic's Vertical option is not correct ! "
 454    TabType.Cancel
 455
 456    PrintLog "  Base line at center:"
 457   '/// Format / Graphic tabpage Type
 458   '/// + Anchor as character , and set Base line at center
 459    fFormatGraphic("TabType")
 460     Sleep 1
 461     AnchorAsCharacter.Check
 462     Vertical.Select iCenterVertical
 463    TabType.OK
 464
 465   '/// Check the graphic position
 466    fFormatGraphic("TabType")
 467     Sleep 1
 468     if AnchorAsCharacter.IsChecked <> TRUE            then Warnlog "Anchor should be checked to 'As character' !"
 469     if Horizontal.IsEnabled        =  TRUE            then Warnlog "The Horizontal listbox should not be enabled ! "
 470     if Vertical.GetSelIndex        <> iCenterVertical then Warnlog "The graphic's Vertical option is not correct ! "
 471    TabType.Cancel
 472
 473    PrintLog "  Base line at bottom:"
 474   '/// Format / Graphic tabpage Type
 475   '/// + Anchor as character , and set Base line at bottom
 476    fFormatGraphic("TabType")
 477     Sleep 1
 478     AnchorAsCharacter.Check
 479     Vertical.Select iBottom
 480    TabType.OK
 481
 482   '/// Check the graphic position
 483    fFormatGraphic("TabType")
 484     Sleep 1
 485     if AnchorAsCharacter.IsChecked <> TRUE     then Warnlog "Anchor should be checked to 'As character' !"
 486     if Horizontal.IsEnabled        =  TRUE     then Warnlog "The Horizontal listbox should not be enabled ! "
 487     if Vertical.GetSelIndex        <> iBottom  then Warnlog "The graphic's Vertical option is not correct ! "
 488    TabType.Cancel
 489
 490    Call hCloseDocument
 491
 492 endcase
 493
 494 '-------------------------------------------------------------------------------------------
 495
 496 testcase tInsertGraphic_35
 497
 498   PrintLog "- Test Wrap via dialog : none, Page Wrap, Optimal Page Wrap, Contour Wrap ,Wrap through, in Background , first paragraph"
 499  '/// <b> Test Wrap via dialog , including </b>
 500  '/// +<b> none, Page Wrap, Optimal Page Wrap, Contour Wrap, </b>
 501  '/// +<b> Wrap through, in Background, first paragraph  </b>
 502
 503    Call hNewDocument
 504
 505   '/// Insert a graphics
 506    fInsertGraphics("Bughunter.jpg")
 507
 508    PrintLog "  1. No Wrap:"
 509   '/// Format / Graphic / tabpage Wrap - No page
 510    fFormatGraphic("TabUmlauf")
 511     Sleep 1
 512     Kein.Check
 513    TabUmlauf.OK
 514
 515    fFormatGraphic("TabUmlauf")
 516     Sleep 1
 517     if Kein.IsChecked <> TRUE then Warnlog "Graphic wrapping situation is wrong !"
 518    TabUmlauf.Cancel
 519
 520    PrintLog "  2. Page Wrap:"
 521   '/// Format / Graphic / tabpage Wrap - Page Wrap
 522    fFormatGraphic("TabUmlauf")
 523     Sleep 1
 524     Parallel.Check
 525    TabUmlauf.OK
 526
 527    fFormatGraphic("TabUmlauf")
 528     Sleep 1
 529     if Parallel.IsChecked <> TRUE then Warnlog "Graphic wrapping situation is wrong !"
 530    TabUmlauf.Cancel
 531
 532    PrintLog "  3. Optimal Page Wrap:"
 533   '/// Format / Graphic / tabpage Wrap - Optimal Page Wrap
 534    fFormatGraphic("TabUmlauf")
 535     Sleep 1
 536     Dynamisch.Check
 537    TabUmlauf.OK
 538
 539    fFormatGraphic("TabUmlauf")
 540     Sleep 1
 541     if Dynamisch.IsChecked <> TRUE then Warnlog "Graphic wrapping situation is wrong !"
 542    TabUmlauf.Cancel
 543
 544    PrintLog "  4. Wrap through:"
 545   '/// Format / Graphic / tabpage Wrap - Wrap through
 546    fFormatGraphic("TabUmlauf")
 547     Sleep 1
 548     Durchlauf.Check
 549    TabUmlauf.OK
 550
 551    fFormatGraphic("TabUmlauf")
 552     Sleep 1
 553     if Durchlauf.IsChecked <> TRUE then Warnlog "Graphic wrapping situation is wrong !"
 554    TabUmlauf.Cancel
 555
 556    PrintLog "  5. In Background:"
 557   '/// Format / Graphic / tabpage Wrap - In Background
 558    fFormatGraphic("TabUmlauf")
 559     Sleep 1
 560     Durchlauf.Check
 561     ImHintergrund.Check
 562    TabUmlauf.OK
 563
 564    fFormatGraphic("TabUmlauf")
 565     Sleep 1
 566     if Durchlauf.IsChecked     <> TRUE then Warnlog "Graphic wrapping situation is wrong !"
 567     if ImHintergrund.IsChecked <> TRUE then Warnlog "Background configuration is wrong !"
 568    TabUmlauf.Cancel
 569
 570    PrintLog "  6. first paragraph:"
 571   '/// Format / Graphic / tabpage Wrap - first paragraph
 572    fFormatGraphic("TabUmlauf")
 573     Sleep 1
 574     Parallel.Check
 575     ErsterAbsatz.Check
 576    TabUmlauf.OK
 577
 578    fFormatGraphic("TabUmlauf")
 579     Sleep 1
 580     if Parallel.IsChecked      <> TRUE then Warnlog "Graphic wrapping situation is wrong !"
 581     if ErsterAbsatz.IsChecked  <> TRUE then Warnlog "first paragraph configuration is wrong !"
 582    TabUmlauf.Cancel
 583
 584    PrintLog "  7. Contour:"
 585   '/// Format / Graphic / tabpage Wrap - first paragraph
 586    FormatWrapPageWrap
 587    Sleep 1
 588    fFormatGraphic("TabUmlauf")
 589     Sleep 1
 590     Kontur.Check
 591    TabUmlauf.OK
 592
 593    fFormatGraphic("TabUmlauf")
 594     Sleep 1
 595     if Kontur.IsChecked  <> TRUE then Warnlog "Contour configuration is wrong !"
 596    TabUmlauf.Cancel
 597
 598    Call hCloseDocument
 599
 600 endcase
 601
 602 '-------------------------------------------------------------------------------------------
 603
 604 testcase tInsertGraphic_36
 605
 606   Dim sOriginalWidth as String
 607   Dim sOriginalHeight as String
 608   Dim sNewWidth as String
 609   Dim sNewHeight as String
 610
 611   sNewWidth  = "7"+ gSeperator + "00" + gMeasurementUnit
 612   sNewHeight = "5"+ gSeperator + "00" + gMeasurementUnit
 613
 614   PrintLog "- Test original size "
 615  '/// Test original size
 616
 617    Call hNewDocument
 618
 619   '/// Insert a graphics
 620    fInsertGraphics("Bughunter.jpg")
 621
 622   '/// Format / Graphic tabpage Type , change the graphic's size
 623    fFormatGraphic("TabType")
 624     sOriginalWidth  = Width.GetText
 625     sOriginalHeight = Height.GetText
 626     KeepRatio.UnCheck
 627     wait 500
 628     Width.SetText  sNewWidth
 629     wait 500
 630     Height.SetText sNewHeight
 631     wait 500
 632    TabType.OK
 633
 634   '/// Check if original size works well
 635    fFormatGraphic("TabType")
 636     if Width.GetText  <> sNewWidth       then Warnlog "The graphic's width is wrong !"
 637     wait 500
 638     if Height.GetText <> sNewHeight      then Warnlog "The graphic's height is wrong !"
 639     wait 500
 640     OriginalSize.Click
 641     Sleep 1
 642     if Width.GetText  <> sOriginalWidth  then Warnlog "The graphic's width isn't recovered to before!"
 643     wait 500
 644     if Height.GetText <> sOriginalHeight then Warnlog "The graphic's height isn't recovered to before !"
 645     wait 500
 646    TabType.Cancel
 647
 648    Call hCloseDocument
 649
 650 endcase
 651
 652 '-------------------------------------------------------------------------------------------
 653
 654 testcase tInsertGraphic_37
 655
 656   Dim sWidth as String
 657   Dim sHeight as String
 658   Dim sNewWidth as String
 659   Dim sNewHeight as String
 660
 661   sWidth  = "4"+ gSeperator + "00" + gMeasurementUnit
 662   sHeight = "3"+ gSeperator + "00" + gMeasurementUnit
 663
 664   sNewWidth  = "8"+ gSeperator + "00" + gMeasurementUnit
 665   sNewHeight = "6"+ gSeperator + "00" + gMeasurementUnit
 666
 667   PrintLog "- Test keep ratio"
 668  '/// Test keep ratio
 669
 670    Call hNewDocument
 671
 672   '/// Insert a graphics and check 'keep ratio'
 673    fInsertGraphics("Bughunter.jpg")
 674
 675    fFormatGraphic("TabType")
 676     KeepRatio.UnCheck
 677     wait 500
 678     Width.SetText  sWidth
 679     wait 500
 680     Height.SetText sHeight
 681     wait 500
 682     KeepRatio.Check
 683     wait 500
 684    TabType.OK
 685    Sleep 1
 686
 687   '/// Format / Graphic tabpage Type , change the graphic's width
 688   '/// + Check if keep ratio works well
 689    fFormatGraphic("TabType")
 690     Kontext "TabType"
 691     Width.SetText sNewWidth
 692     Sleep 1
 693     if Height.GetText <> sNewHeight then Warnlog "The graphic's height is wrong !"
 694    TabType.Cancel
 695
 696    Call hCloseDocument
 697
 698 endcase
 699
 700 '-------------------------------------------------------------------------------------------
 701
 702 testcase tInsertGraphic_38
 703
 704     Dim sGraphicName as String
 705     Dim sNavActualItemName as string
 706
 707     sGraphicName = "TEST1"
 708
 709     PrintLog "- Check the graphic name in Navigator"
 710     '/// Check the graphic name in Navigator
 711
 712     Call hNewDocument
 713
 714     '/// Insert a graphics
 715     Call fInsertGraphics("Bughunter.jpg")
 716
 717     '/// Format / Graphic / Options , set a new name
 718     Call fFormatGraphic("TabZusaetze")
 719     sleep(3)
 720     Kontext "TabZusaetze"
 721     ObjektName.SetText sGraphicName
 722     sleep(3)
 723     TabZusaetze.OK
 724     sleep(1)
 725
 726     '/// Active navigator to check the graphic name
 727     Call fStartupNavigator( "Graphics" , 2 )
 728     sleep(2)
 729     Kontext "NavigatorWriter"
 730         sNavActualItemName = Auswahlliste.GetitemText(2)
 731         if sNavActualItemName <> sGraphicName then
 732             warnlog "The graphic name should be " + sGraphicName & " but get " & sNavActualItemName & "!"
 733         end if
 734     Call fCloseNavigator
 735
 736     Call hCloseDocument
 737 endcase
 738
 739 '-------------------------------------------------------------------------------------------
 740
 741 testcase tInsertGraphic_39
 742
 743   Dim sHorizontalBy as String
 744   Dim sVerticalBy as String
 745
 746   PrintLog "- Test checkbox 'Position' in protect area"
 747  '/// Test checkbox 'Position' in protect area
 748
 749    Call hNewDocument
 750
 751   '/// Insert a graphics
 752    fInsertGraphics("Bughunter.jpg")
 753
 754   '/// Format / Graphic / Options , check 'Position'
 755    fFormatGraphic("TabZusaetze")
 756     wait 500
 757     if PositionSchuetzen.IsChecked = TRUE then warnlog "The default situation of checkbox - position should be unchecked"
 758     wait 500
 759     PositionSchuetzen.Check
 760     wait 500
 761    TabZusaetze.OK
 762
 763   'Check the original position
 764    fFormatGraphic("TabType")
 765     wait 500
 766     sHorizontalBy = HorizontalBy.GetText
 767     sVerticalBy   = VerticalBy.GetText
 768    TabType.Cancel
 769
 770   '/// move the picture with keyboard
 771    Call wTypeKeys "<Down><Down><Right><Right>"
 772
 773   '/// + Check if the position is changed
 774    fFormatGraphic("TabType")
 775      if HorizontalBy.GetText <> sHorizontalBy then warnlog "The position Horizontal should be " +sHorizontalBy + " but get " + HorizontalBy.GetText
 776      if VerticalBy.GetText   <> sVerticalBy   then warnlog "The position Vertical should be " +sVerticalBy + " but get " + VerticalBy.GetText
 777    TabType.Cancel
 778
 779    Call hCloseDocument
 780
 781 endcase
 782
 783 '-------------------------------------------------------------------------------------------
 784
 785 testcase tInsertGraphic_40
 786
 787     Dim sHorizontalBy as String
 788     Dim sVerticalBy as String
 789
 790     PrintLog "- Test checkbox 'Print' in Property area"
 791     '/// Test checkbox 'Print' in Property area
 792
 793     Call hNewDocument
 794
 795     '/// Insert a graphics
 796     fInsertGraphics("Bughunter.jpg")
 797
 798     '/// Format / Graphic / Options , check Position
 799     fFormatGraphic("TabZusaetze")
 800     wait 500
 801     if Drucken.IsChecked <> TRUE then warnlog "The default situation of checkbox - print should be checked"
 802     wait 500
 803     PositionSchuetzen.UnCheck
 804     wait 500
 805     TabZusaetze.OK
 806
 807     '/// Print to Printer
 808     PrintLog "-   Please go to printer to check if you get a blank paper!"
 809     FilePrint
 810     Kontext "Active"
 811     if Active.Exists then
 812         if Active.GetRT = 304 then
 813             Active.Ok
 814             QAErrorLog "No Default-Printer!"
 815             Kontext "DruckenDlg"
 816             Sleep 1
 817             DruckenDlg.Cancel
 818         end if
 819     else
 820         Kontext "DruckenDlg"
 821         Sleep 1
 822         DruckenDlg.OK
 823         Sleep 5
 824     end if
 825
 826     Kontext "Active"
 827     if Active.Exists then
 828         if Active.GetRT = 304 then
 829             Active.Ok
 830         end if
 831     end if
 832
 833     Call hCloseDocument
 834
 835 endcase
 836
 837 '-------------------------------------------------------------------------------------------