testautomation/writer/optional/includes/insertgraphic/w_insertgraphic3.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_insertgraphic3.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: fredrikh $ $Date: 2008-06-18 15:03:54 $
  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 - 3
  37 '*
  38 '************************************************************************
  39 '*
  40 ' #1 tInsertGraphic_21     'Test Alignment via dialog: anchor to paragraph -> Left, centered, right, top, center, bottom
  41 ' #1 tInsertGraphic_22     'Test Alignment via dialog: anchor to page -> Left, centered, right, top, center, bottom
  42 ' #1 tInsertGraphic_23     'Test Alignment via dialog: anchor to character -> Left, centered, right, top, center, bottom
  43 ' #1 tInsertGraphic_24     'Test Alignment via dialog: anchor as character -> top, center, bottom of baseline
  44 ' #1 tInsertGraphic_25     'Test Alignment via Contextmenu: anchor to paragraph -> Left, centered, right, top, center, bottom
  45 ' #1 tInsertGraphic_26     'Test Alignment via Contextmenu: anchor to page -> Left, centered, right, top, center, bottom
  46 ' #1 tInsertGraphic_27     'Test Alignment via Contextmenu: anchor to character -> Left, centered, right, top, center, bottom
  47 ' #1 tInsertGraphic_28     'Test Alignment via Contextmenu: anchor as character -> top, center, bottom of baseline
  48 ' #1 tInsertGraphic_29     'Test Wrap via dialog : none, Page Wrap, Optimal Page Wrap, Contour Wrap ,Wrap through, in Background , first paragraph
  49 ' #1 tInsertGraphic_30     'Test Wrap via ContextMenuTest : none, Page Wrap, Optimal Page Wrap, Contour Wrap ,Wrap through, in Background , first paragraph
  50 '*
  51 '\***********************************************************************
  52
  53 testcase tInsertGraphic_21
  54
  55   Dim iLeft as Integer , iRight as Integer  , iCenterHorizontal as Integer
  56   Dim iTop  as Integer , iBottom as Integer , iCenterVertical   as Integer
  57
  58   iLeft = 1 : iRight  = 2  : iCenterHorizontal = 3
  59   iTop  = 1 : iBottom = 2  : iCenterVertical   = 3
  60
  61   PrintLog "- Test Alignment via dialog: anchor to paragraph -> Left, centered, right, top, center, bottom"
  62  '/// Test Alignment via dialog: anchor to paragraph -> Left, centered, right, top, center, bottom
  63
  64    Call hNewDocument
  65
  66   '/// Insert a graphics
  67    fInsertGraphics("Bughunter.jpg")
  68
  69   '/// Format / anchor / to paragraph
  70    FormatAnchorToParagraph
  71    Sleep 1
  72
  73    PrintLog "  Left:"
  74   '/// Format / Alignment / Left
  75    FormatAlignmentLeft
  76    Sleep 1
  77
  78   '/// - Check the graphic position
  79    fFormatGraphic("TabType")
  80     Sleep 1
  81     if AnchorAtparagraph.IsChecked <> TRUE  then Warnlog "Anchor should be checked to 'to paragraph' !"
  82     if Horizontal.GetSelIndex      <> iLeft then Warnlog "The graphic's Horizontal option is not correct ! "
  83     if Vertical.GetSelIndex        <> iTop  then Warnlog "The graphic's Vertical option is not correct ! "
  84    TabType.Cancel
  85
  86    PrintLog "  Centered:"
  87   '/// Format / Alignment / Centered
  88    FormatAlignmentCentered
  89    Sleep 1
  90
  91   '/// - Check the graphic position
  92    fFormatGraphic("TabType")
  93     Sleep 1
  94     if Horizontal.GetSelIndex <> iCenterHorizontal then Warnlog "The graphic's Horizontal option is not correct ! "
  95     if Vertical.GetSelIndex   <> iTop              then Warnlog "The graphic's Vertical option is not correct ! "
  96    TabType.Cancel
  97
  98    PrintLog "  Right:"
  99   '/// Format / Alignment / Right
 100    FormatAlignmentRight
 101    Sleep 1
 102
 103   '/// - Check the graphic position
 104    fFormatGraphic("TabType")
 105     Sleep 1
 106     if Horizontal.GetSelIndex <> iRight  then Warnlog "The graphic's Horizontal option is not correct ! "
 107     if Vertical.GetSelIndex   <> iTop    then Warnlog "The graphic's Vertical option is not correct ! "
 108    TabType.Cancel
 109
 110    PrintLog "  Top:"
 111   '/// Format / Alignment / Top
 112    FormatAlignmentTop
 113    Sleep 1
 114
 115   '/// - Check the graphic position
 116    fFormatGraphic("TabType")
 117     Sleep 1
 118     if Horizontal.GetSelIndex <> iRight   then Warnlog "The graphic's Horizontal option is not correct ! "
 119     if Vertical.GetSelIndex   <> iTop     then Warnlog "The graphic's Vertical option is not correct ! "
 120    TabType.Cancel
 121
 122    PrintLog "  Center:"
 123   '/// Format / Alignment / Center
 124    FormatAlignmentCenter
 125    Sleep 1
 126
 127   '/// - Check the graphic position
 128    fFormatGraphic("TabType")
 129     Sleep 1
 130     if Horizontal.GetSelIndex <> iRight            then Warnlog "The graphic's Horizontal option is not correct ! "
 131     if Vertical.GetSelIndex   <> iCenterVertical   then Warnlog "#110281# The graphic's Vertical option is not correct ! "
 132    TabType.Cancel
 133
 134    PrintLog "  Bottom:"
 135   '/// Format / Alignment / Bottom
 136    FormatAlignmentBottom
 137    Sleep 1
 138
 139   '/// - Check the graphic position
 140    fFormatGraphic("TabType")
 141     Sleep 1
 142     if Horizontal.GetSelIndex <> iRight   then Warnlog "The graphic's Horizontal option is not correct ! "
 143     if Vertical.GetSelIndex   <> iBottom  then Warnlog "The graphic's Vertical option is not correct ! "
 144    TabType.Cancel
 145
 146    Call hCloseDocument
 147
 148 endcase
 149
 150 '-------------------------------------------------------------------------------------------
 151
 152 testcase tInsertGraphic_22
 153
 154   Dim iLeft as Integer , iRight  as Integer , iCenterHorizontal as Integer
 155   Dim iTop  as Integer , iBottom as Integer , iCenterVertical   as Integer
 156
 157   iLeft = 1 : iRight  = 2  : iCenterHorizontal = 3
 158   iTop  = 1 : iBottom = 2  : iCenterVertical   = 3
 159
 160   PrintLog "- Test Alignment via dialog: anchor to page -> Left, centered, right, top, center, bottom"
 161  '/// Test Alignment via dialog: anchor to page -> Left, centered, right, top, center, bottom
 162
 163    Call hNewDocument
 164
 165   '/// Insert a graphics
 166    fInsertGraphics("Bughunter.jpg")
 167
 168   '/// Format / anchor / To Page
 169    FormatAnchorToPage
 170    Sleep 1
 171
 172    PrintLog "  Left:"
 173   '/// Format / Alignment / Left
 174    FormatAlignmentLeft
 175    Sleep 1
 176
 177   '/// - Check the graphic position
 178    fFormatGraphic("TabType")
 179     Sleep 1
 180     if AnchorAtPage.IsChecked <> TRUE  then Warnlog "Anchor should be checked to 'To Page' !"
 181     if Horizontal.GetSelIndex <> iLeft then Warnlog "The graphic's Horizontal option is not correct ! "
 182     if Vertical.GetSelIndex   <> iTop  then Warnlog "The graphic's Vertical option is not correct ! "
 183    TabType.Cancel
 184
 185    PrintLog "  Centered:"
 186   '/// Format / Alignment / Centered
 187    FormatAlignmentCentered
 188    Sleep 1
 189
 190   '/// - Check the graphic position
 191    fFormatGraphic("TabType")
 192     Sleep 1
 193     if Horizontal.GetSelIndex <> iCenterHorizontal then Warnlog "The graphic's Horizontal option is not correct ! "
 194     if Vertical.GetSelIndex   <> iTop              then Warnlog "The graphic's Vertical option is not correct ! "
 195    TabType.Cancel
 196
 197    PrintLog "  Right:"
 198   '/// Format / Alignment / Right
 199    FormatAlignmentRight
 200    Sleep 1
 201
 202   '/// - Check the graphic position
 203    fFormatGraphic("TabType")
 204     Sleep 1
 205     if Horizontal.GetSelIndex <> iRight  then Warnlog "The graphic's Horizontal option is not correct ! "
 206     if Vertical.GetSelIndex   <> iTop    then Warnlog "The graphic's Vertical option is not correct ! "
 207    TabType.Cancel
 208
 209    PrintLog "  Top:"
 210   '/// Format / Alignment / Top
 211    FormatAlignmentTop
 212    Sleep 1
 213
 214   '/// - Check the graphic position
 215    fFormatGraphic("TabType")
 216     Sleep 1
 217     if Horizontal.GetSelIndex <> iRight   then Warnlog "The graphic's Horizontal option is not correct ! "
 218     if Vertical.GetSelIndex   <> iTop     then Warnlog "The graphic's Vertical option is not correct ! "
 219    TabType.Cancel
 220
 221    PrintLog "  Center:"
 222   '/// Format / Alignment / Center
 223    FormatAlignmentCenter
 224    Sleep 1
 225
 226   '/// - Check the graphic position
 227    fFormatGraphic("TabType")
 228     Sleep 1
 229     if Horizontal.GetSelIndex <> iRight            then Warnlog "The graphic's Horizontal option is not correct ! "
 230     if Vertical.GetSelIndex   <> iCenterVertical   then Warnlog "The graphic's Vertical option is not correct ! "
 231    TabType.Cancel
 232
 233    PrintLog "  Bottom:"
 234   '/// Format / Alignment / Bottom
 235    FormatAlignmentBottom
 236    Sleep 1
 237
 238   '/// - Check the graphic position
 239    fFormatGraphic("TabType")
 240     Sleep 1
 241     if Horizontal.GetSelIndex <> iRight   then Warnlog "The graphic's Horizontal option is not correct ! "
 242     if Vertical.GetSelIndex   <> iBottom  then Warnlog "The graphic's Vertical option is not correct ! "
 243    TabType.Cancel
 244
 245    Call hCloseDocument
 246
 247 endcase
 248
 249 '-------------------------------------------------------------------------------------------
 250
 251 testcase tInsertGraphic_23
 252
 253   Dim iLeft as Integer , iRight  as Integer , iCenterHorizontal as Integer
 254   Dim iTop  as Integer , iBottom as Integer , iCenterVertical   as Integer
 255
 256   iLeft = 1 : iRight  = 2  : iCenterHorizontal = 3
 257   iTop  = 1 : iBottom = 2  : iCenterVertical   = 3
 258
 259   PrintLog "- Test Alignment via dialog: anchor to character -> Left, centered, right, top, center, bottom"
 260  '/// Test Alignment via dialog: anchor to character -> Left, centered, right, top, center, bottom
 261
 262    Call hNewDocument
 263
 264   '/// Insert a graphics
 265    fInsertGraphics("Bughunter.jpg")
 266
 267   '/// Format / anchor / To character
 268    FormatAnchorTocharacter
 269    Sleep 1
 270
 271    PrintLog "  Left:"
 272   '/// Format / Alignment / Left
 273    FormatAlignmentLeft
 274    Sleep 1
 275
 276   '/// - Check the graphic position
 277    fFormatGraphic("TabType")
 278     Sleep 1
 279     if AnchorAtCharacter.IsChecked <> TRUE   then Warnlog "Anchor should be checked to 'to paragraph' !"
 280     if Horizontal.GetSelIndex <> iLeft then Warnlog "The graphic's Horizontal option is not correct ! "
 281     if Vertical.GetSelIndex   <> iTop  then Warnlog "The graphic's Vertical option is not correct ! "
 282    TabType.Cancel
 283
 284    PrintLog "  Centered:"
 285   '/// Format / Alignment / Centered
 286    FormatAlignmentCentered
 287    Sleep 1
 288
 289   '/// - Check the graphic position
 290    fFormatGraphic("TabType")
 291     Sleep 1
 292     if Horizontal.GetSelIndex <> iCenterHorizontal then Warnlog "The graphic's Horizontal option is not correct ! "
 293     if Vertical.GetSelIndex   <> iTop              then Warnlog "The graphic's Vertical option is not correct ! "
 294    TabType.Cancel
 295
 296    PrintLog "  Right:"
 297   '/// Format / Alignment / Right
 298    FormatAlignmentRight
 299    Sleep 1
 300
 301   '/// - Check the graphic position
 302    fFormatGraphic("TabType")
 303     Sleep 1
 304     if Horizontal.GetSelIndex <> iRight  then Warnlog "The graphic's Horizontal option is not correct ! "
 305     if Vertical.GetSelIndex   <> iTop    then Warnlog "The graphic's Vertical option is not correct ! "
 306    TabType.Cancel
 307
 308    PrintLog "  Top:"
 309   '/// Format / Alignment / Top
 310    FormatAlignmentTop
 311    Sleep 1
 312
 313   '/// - Check the graphic position
 314    fFormatGraphic("TabType")
 315     Sleep 1
 316     if Horizontal.GetSelIndex <> iRight   then Warnlog "The graphic's Horizontal option is not correct ! "
 317     if Vertical.GetSelIndex   <> iTop     then Warnlog "The graphic's Vertical option is not correct ! "
 318    TabType.Cancel
 319
 320    PrintLog "  Center:"
 321   '/// Format / Alignment / Center
 322    FormatAlignmentCenter
 323    Sleep 1
 324
 325   '/// - Check the graphic position
 326    fFormatGraphic("TabType")
 327     Sleep 1
 328     if Horizontal.GetSelIndex <> iRight            then Warnlog "The graphic's Horizontal option is not correct ! "
 329     if Vertical.GetSelIndex   <> iCenterVertical   then qaErrorLog "#111962# The graphic's Vertical option is not correct ! "
 330    TabType.Cancel
 331
 332    PrintLog "  Bottom:"
 333   '/// Format / Alignment / Bottom
 334    FormatAlignmentBottom
 335    Sleep 1
 336
 337   '/// - Check the graphic position
 338    fFormatGraphic("TabType")
 339     Sleep 1
 340     if Horizontal.GetSelIndex <> iRight   then Warnlog "The graphic's Horizontal option is not correct ! "
 341     if Vertical.GetSelIndex   <> iBottom  then Warnlog "The graphic's Vertical option is not correct ! "
 342    TabType.Cancel
 343
 344    Call hCloseDocument
 345
 346 endcase
 347
 348 '-------------------------------------------------------------------------------------------
 349
 350 testcase tInsertGraphic_24
 351
 352   Dim iTop as Integer  , iBottom as Integer , iCenterVertical as Integer
 353
 354   iTop  = 1 : iBottom = 2  : iCenterVertical   = 3
 355
 356   PrintLog "- Test Alignment via dialog: anchor as character -> top, center, bottom of baseline"
 357  '/// Test Alignment via dialog: anchor as character -> top, center, bottom of baseline
 358
 359    Call hNewDocument
 360
 361   '/// Insert a graphics
 362    fInsertGraphics("Bughunter.jpg")
 363
 364   '/// Format / anchor / As character
 365    FormatAnchorAsCharacter
 366    Sleep 1
 367
 368    PrintLog "  Base line at top:"
 369   '/// Format / Alignment / Base line at top
 370    FormatAlignmentTop
 371    Sleep 1
 372
 373   '/// - Check the graphic position
 374    fFormatGraphic("TabType")
 375     Sleep 1
 376     if Horizontal.IsEnabled  =  TRUE  then Warnlog "The Horizontal listbox should not be enabled ! "
 377     if Vertical.GetSelIndex  <> iTop  then Warnlog "The graphic's Vertical option is not correct ! "
 378    TabType.Cancel
 379
 380    PrintLog "  Base line at center:"
 381   '/// Format / Alignment / Base line at center
 382    FormatAlignmentCenter
 383    Sleep 1
 384
 385   '/// - Check the graphic position
 386    fFormatGraphic("TabType")
 387     Sleep 1
 388     if Horizontal.IsEnabled  =  TRUE            then Warnlog "The Horizontal listbox should not be enabled ! "
 389     if Vertical.GetSelIndex  <> iCenterVertical then Warnlog "The graphic's Vertical option is not correct ! "
 390    TabType.Cancel
 391
 392    PrintLog "  Base line at bottom:"
 393   '/// Format / Alignment / Base line at bottom
 394    FormatAlignmentBottom
 395    Sleep 1
 396
 397   '/// - Check the graphic position
 398    fFormatGraphic("TabType")
 399     Sleep 1
 400     if Horizontal.IsEnabled  =  TRUE     then Warnlog "The Horizontal listbox should not be enabled ! "
 401     if Vertical.GetSelIndex  <> iBottom  then Warnlog "The graphic's Vertical option is not correct ! "
 402    TabType.Cancel
 403
 404    Call hCloseDocument
 405
 406 endcase
 407
 408 '-------------------------------------------------------------------------------------------
 409
 410 testcase tInsertGraphic_25
 411
 412   Dim iLeft as Integer , iRight  as Integer , iCenterHorizontal as Integer
 413   Dim iTop  as Integer , iBottom as Integer , iCenterVertical   as Integer
 414
 415   iLeft = 1 : iRight  = 2 : iCenterHorizontal = 3
 416   iTop  = 1 : iBottom = 2 : iCenterVertical   = 3
 417
 418   PrintLog "- Test Alignment via Contextmenu: anchor to paragraph -> Left, centered, right, top, center, bottom"
 419  '/// Test Alignment via Contextmenu: anchor to paragraph -> Left, centered, right, top, center, bottom
 420
 421    Call hNewDocument
 422
 423   '/// Insert a graphics
 424    fInsertGraphics("Bughunter.jpg")
 425
 426   '/// ContextMenu anchor / to paragraph
 427    Call wOpenContextMenu
 428     hMenuSelectNr(3)
 429     Sleep 2
 430     hMenuSelectNr(2)
 431     Sleep 1
 432
 433    PrintLog "  Left:"
 434   '/// ContextMenu Alignment / Left
 435    Call wOpenContextMenu
 436     hMenuSelectNr(2)
 437     Sleep 2
 438     hMenuSelectNr(1)
 439     Sleep 1
 440
 441   '/// - Check the graphic position
 442    fFormatGraphic("TabType")
 443     Sleep 1
 444     if AnchorAtparagraph.IsChecked <> TRUE  then Warnlog "Anchor should be checked to 'to paragraph' !"
 445     if Horizontal.GetSelIndex      <> iLeft then Warnlog "The graphic's Horizontal option is not correct ! "
 446     if Vertical.GetSelIndex        <> iTop  then Warnlog "The graphic's Vertical option is not correct ! "
 447    TabType.Cancel
 448
 449    PrintLog "  Centered:"
 450   '/// ContextMenu Alignment / Centered
 451    Call wOpenContextMenu
 452     hMenuSelectNr(2)
 453     Sleep 2
 454     hMenuSelectNr(2)
 455     Sleep 1
 456
 457   '/// - Check the graphic position
 458    fFormatGraphic("TabType")
 459     Sleep 1
 460     if Horizontal.GetSelIndex <> iCenterHorizontal then Warnlog "The graphic's Horizontal option is not correct ! "
 461     if Vertical.GetSelIndex   <> iTop              then Warnlog "The graphic's Vertical option is not correct ! "
 462    TabType.Cancel
 463
 464    PrintLog "  Right:"
 465   '/// ContextMenu Alignment / Right
 466    Call wOpenContextMenu
 467     hMenuSelectNr(2)
 468     Sleep 2
 469     hMenuSelectNr(3)
 470     Sleep 1
 471
 472   '/// - Check the graphic position
 473    fFormatGraphic("TabType")
 474     Sleep 1
 475     if Horizontal.GetSelIndex <> iRight  then Warnlog "The graphic's Horizontal option is not correct ! "
 476     if Vertical.GetSelIndex   <> iTop    then Warnlog "The graphic's Vertical option is not correct ! "
 477    TabType.Cancel
 478
 479    PrintLog "  Top:"
 480   '/// ContextMenu Alignment / Top
 481    Call wOpenContextMenu
 482     hMenuSelectNr(2)
 483     Sleep 2
 484     hMenuSelectNr(4)
 485     Sleep 1
 486
 487   '/// - Check the graphic position
 488    fFormatGraphic("TabType")
 489     Sleep 1
 490     if Horizontal.GetSelIndex <> iRight   then Warnlog "The graphic's Horizontal option is not correct ! "
 491     if Vertical.GetSelIndex   <> iTop     then Warnlog "The graphic's Vertical option is not correct ! "
 492    TabType.Cancel
 493
 494    PrintLog "  Center:"
 495   '/// ContextMenu Alignment / Center
 496    Call wOpenContextMenu
 497     hMenuSelectNr(2)
 498     Sleep 2
 499     hMenuSelectNr(5)
 500     Sleep 1
 501
 502   '/// - Check the graphic position
 503    fFormatGraphic("TabType")
 504     Sleep 1
 505     if Horizontal.GetSelIndex <> iRight            then Warnlog "The graphic's Horizontal option is not correct ! "
 506     if Vertical.GetSelIndex   <> iCenterVertical   then Warnlog "#110281# The graphic's Vertical option is not correct ! "
 507    TabType.Cancel
 508
 509    PrintLog "  Bottom:"
 510   '/// ContextMenu Alignment / Bottom
 511    Call wOpenContextMenu
 512     hMenuSelectNr(2)
 513     Sleep 2
 514     hMenuSelectNr(6)
 515     Sleep 1
 516
 517   '/// - Check the graphic position
 518    fFormatGraphic("TabType")
 519     Sleep 1
 520     if Horizontal.GetSelIndex <> iRight   then Warnlog "The graphic's Horizontal option is not correct ! "
 521     if Vertical.GetSelIndex   <> iBottom  then Warnlog "The graphic's Vertical option is not correct ! "
 522    TabType.Cancel
 523
 524    Call hCloseDocument
 525
 526 endcase
 527
 528 '-------------------------------------------------------------------------------------------
 529
 530 testcase tInsertGraphic_26
 531
 532   Dim iLeft as Integer , iRight  as Integer , iCenterHorizontal as Integer
 533   Dim iTop  as Integer , iBottom as Integer , iCenterVertical   as Integer
 534
 535   iLeft = 1 : iRight  = 2  : iCenterHorizontal = 3
 536   iTop  = 1 : iBottom = 2  : iCenterVertical   = 3
 537
 538   PrintLog "- Test Alignment via Contextmenu: anchor to page -> Left, centered, right, top, center, bottom"
 539  '/// Test Alignment via dialog: Contextmenu to page -> Left, centered, right, top, center, bottom
 540
 541    Call hNewDocument
 542
 543   '/// Insert a graphics
 544    fInsertGraphics("Bughunter.jpg")
 545
 546   '/// ContextMenu anchor / To Page
 547    Call wOpenContextMenu
 548     hMenuSelectNr(3)
 549     Sleep 2
 550     hMenuSelectNr(1)
 551     Sleep 1
 552
 553    PrintLog "  Left:"
 554   '/// ContextMenu Alignment / Left
 555    Call wOpenContextMenu
 556     hMenuSelectNr(2)
 557     Sleep 2
 558     hMenuSelectNr(1)
 559     Sleep 1
 560
 561   '/// - Check the graphic position
 562    fFormatGraphic("TabType")
 563     Sleep 1
 564     if AnchorAtPage.IsChecked <> TRUE  then Warnlog "Anchor should be checked to 'To Page' !"
 565     if Horizontal.GetSelIndex <> iLeft then Warnlog "The graphic's Horizontal option is not correct ! "
 566     if Vertical.GetSelIndex   <> iTop  then Warnlog "The graphic's Vertical option is not correct ! "
 567    TabType.Cancel
 568
 569    PrintLog "  Centered:"
 570   '/// ContextMenu Alignment / Centered
 571    Call wOpenContextMenu
 572     hMenuSelectNr(2)
 573     Sleep 2
 574     hMenuSelectNr(2)
 575     Sleep 1
 576
 577   '/// - Check the graphic position
 578    fFormatGraphic("TabType")
 579     Sleep 1
 580     if Horizontal.GetSelIndex <> iCenterHorizontal then Warnlog "The graphic's Horizontal option is not correct ! "
 581     if Vertical.GetSelIndex   <> iTop              then Warnlog "The graphic's Vertical option is not correct ! "
 582    TabType.Cancel
 583
 584    PrintLog "  Right:"
 585   '/// ContextMenu Alignment / Right
 586    Call wOpenContextMenu
 587     hMenuSelectNr(2)
 588     Sleep 2
 589     hMenuSelectNr(3)
 590     Sleep 1
 591
 592   '/// - Check the graphic position
 593    fFormatGraphic("TabType")
 594     Sleep 1
 595     if Horizontal.GetSelIndex <> iRight  then Warnlog "The graphic's Horizontal option is not correct ! "
 596     if Vertical.GetSelIndex   <> iTop    then Warnlog "The graphic's Vertical option is not correct ! "
 597    TabType.Cancel
 598
 599    PrintLog "  Top:"
 600   '/// ContextMenu Alignment / Top
 601    Call wOpenContextMenu
 602     hMenuSelectNr(2)
 603     Sleep 2
 604     hMenuSelectNr(4)
 605     Sleep 1
 606
 607   '/// - Check the graphic position
 608    fFormatGraphic("TabType")
 609     Sleep 1
 610     if Horizontal.GetSelIndex <> iRight   then Warnlog "The graphic's Horizontal option is not correct ! "
 611     if Vertical.GetSelIndex   <> iTop     then Warnlog "The graphic's Vertical option is not correct ! "
 612    TabType.Cancel
 613
 614    PrintLog "  Center:"
 615   '/// ContextMenu Alignment / Center
 616    Call wOpenContextMenu
 617     hMenuSelectNr(2)
 618     Sleep 2
 619     hMenuSelectNr(5)
 620     Sleep 1
 621
 622   '/// - Check the graphic position
 623    fFormatGraphic("TabType")
 624     Sleep 1
 625     if Horizontal.GetSelIndex <> iRight            then Warnlog "The graphic's Horizontal option is not correct ! "
 626     if Vertical.GetSelIndex   <> iCenterVertical   then Warnlog "The graphic's Vertical option is not correct ! "
 627    TabType.Cancel
 628
 629    PrintLog "  Bottom:"
 630   '/// ContextMenu Alignment / Bottom
 631    Call wOpenContextMenu
 632     hMenuSelectNr(2)
 633     Sleep 2
 634     hMenuSelectNr(6)
 635     Sleep 1
 636
 637   '/// - Check the graphic position
 638    fFormatGraphic("TabType")
 639     Sleep 1
 640     if Horizontal.GetSelIndex <> iRight   then Warnlog "The graphic's Horizontal option is not correct ! "
 641     if Vertical.GetSelIndex   <> iBottom  then Warnlog "The graphic's Vertical option is not correct ! "
 642    TabType.Cancel
 643
 644    Call hCloseDocument
 645
 646 endcase
 647
 648 '-------------------------------------------------------------------------------------------
 649
 650 testcase tInsertGraphic_27
 651
 652   Dim iLeft as Integer , iRight  as Integer , iCenterHorizontal as Integer
 653   Dim iTop  as Integer , iBottom as Integer , iCenterVertical   as Integer
 654
 655   iLeft = 1 : iRight  = 2  : iCenterHorizontal = 3
 656   iTop  = 1 : iBottom = 2  : iCenterVertical   = 3
 657
 658   PrintLog "- Test Alignment via Contextmenu: anchor to character -> Left, centered, right, top, center, bottom"
 659  '/// Test Alignment via Contextmenu: anchor to character -> Left, centered, right, top, center, bottom
 660
 661    Call hNewDocument
 662
 663   '/// Insert a graphics
 664    fInsertGraphics("Bughunter.jpg")
 665
 666   '/// ContextMenu anchor / To character
 667    Call wOpenContextMenu
 668     hMenuSelectNr(3)
 669     Sleep 2
 670     hMenuSelectNr(3)
 671     Sleep 1
 672
 673    PrintLog "  Left:"
 674   '/// ContextMenu Alignment / Left
 675    Call wOpenContextMenu
 676     hMenuSelectNr(2)
 677     Sleep 2
 678     hMenuSelectNr(1)
 679     Sleep 1
 680
 681   '/// - Check the graphic position
 682    fFormatGraphic("TabType")
 683     Sleep 1
 684     if AnchorAtCharacter.IsChecked <> TRUE  then Warnlog "Anchor should be checked to 'to paragraph' !"
 685     if Horizontal.GetSelIndex      <> iLeft then Warnlog "The graphic's Horizontal option is not correct ! "
 686     if Vertical.GetSelIndex        <> iTop  then Warnlog "The graphic's Vertical option is not correct ! "
 687    TabType.Cancel
 688
 689    PrintLog "  Centered:"
 690   '/// ContextMenu Alignment / Centered
 691    Call wOpenContextMenu
 692     hMenuSelectNr(2)
 693     Sleep 2
 694     hMenuSelectNr(2)
 695     Sleep 1
 696
 697   '/// - Check the graphic position
 698    fFormatGraphic("TabType")
 699     Sleep 1
 700     if Horizontal.GetSelIndex <> iCenterHorizontal then Warnlog "The graphic's Horizontal option is not correct ! "
 701     if Vertical.GetSelIndex   <> iTop              then Warnlog "The graphic's Vertical option is not correct ! "
 702    TabType.Cancel
 703
 704    PrintLog "  Right:"
 705   '/// ContextMenu Alignment / Right
 706    Call wOpenContextMenu
 707     hMenuSelectNr(2)
 708     Sleep 2
 709     hMenuSelectNr(3)
 710     Sleep 1
 711
 712   '/// - Check the graphic position
 713    fFormatGraphic("TabType")
 714     Sleep 1
 715     if Horizontal.GetSelIndex <> iRight  then Warnlog "The graphic's Horizontal option is not correct ! "
 716     if Vertical.GetSelIndex   <> iTop    then Warnlog "The graphic's Vertical option is not correct ! "
 717    TabType.Cancel
 718
 719    PrintLog "  Top:"
 720   '/// ContextMenu Alignment / Top
 721    Call wOpenContextMenu
 722     hMenuSelectNr(2)
 723     Sleep 2
 724     hMenuSelectNr(4)
 725     Sleep 1
 726
 727   '/// - Check the graphic position
 728    fFormatGraphic("TabType")
 729     Sleep 1
 730     if Horizontal.GetSelIndex <> iRight   then Warnlog "The graphic's Horizontal option is not correct ! "
 731     if Vertical.GetSelIndex   <> iTop     then Warnlog "The graphic's Vertical option is not correct ! "
 732    TabType.Cancel
 733
 734    PrintLog "  Center:"
 735   '/// ContextMenu Alignment / Center
 736    Call wOpenContextMenu
 737     hMenuSelectNr(2)
 738     Sleep 2
 739     hMenuSelectNr(5)
 740     Sleep 1
 741
 742   '/// - Check the graphic position
 743    fFormatGraphic("TabType")
 744     Sleep 1
 745     if Horizontal.GetSelIndex <> iRight            then Warnlog "The graphic's Horizontal option is not correct ! "
 746     if Vertical.GetSelIndex   <> iCenterVertical   then QAErrorlog "#111962#The graphic's Vertical option is not correct ! "
 747    TabType.Cancel
 748
 749    PrintLog "  Bottom:"
 750   '/// ContextMenu Alignment / Bottom
 751    Call wOpenContextMenu
 752     hMenuSelectNr(2)
 753     Sleep 2
 754     hMenuSelectNr(6)
 755     Sleep 1
 756
 757   '/// - Check the graphic position
 758    fFormatGraphic("TabType")
 759     Sleep 1
 760     if Horizontal.GetSelIndex <> iRight   then Warnlog "The graphic's Horizontal option is not correct ! "
 761     if Vertical.GetSelIndex   <> iBottom  then Warnlog "The graphic's Vertical option is not correct ! "
 762    TabType.Cancel
 763
 764    Call hCloseDocument
 765
 766 endcase
 767
 768 '-------------------------------------------------------------------------------------------
 769
 770 testcase tInsertGraphic_28
 771
 772   Dim iTop as Integer , iBottom as Integer , iCenterVertical as Integer
 773
 774   iTop  = 1 : iBottom = 2  : iCenterVertical   = 3
 775
 776   PrintLog "- Test Alignment via Contextmenu: anchor as character -> top, center, bottom of baseline"
 777  '/// Test Alignment via Contextmenu: anchor as character -> top, center, bottom of baseline
 778
 779    Call hNewDocument
 780
 781   '/// Insert a graphics
 782    fInsertGraphics("Bughunter.jpg")
 783
 784   '/// ContextMenu anchor / As character
 785    Call wOpenContextMenu
 786     hMenuSelectNr(3)
 787     Sleep 2
 788     hMenuSelectNr(4)
 789     Sleep 1
 790
 791    PrintLog "  Base line at top:"
 792   '/// ContextMenu Alignment / Base line at top
 793    Call wOpenContextMenu
 794     hMenuSelectNr(2)
 795     Sleep 2
 796     hMenuSelectNr(1)
 797     Sleep 1
 798
 799   '/// - Check the graphic position
 800    fFormatGraphic("TabType")
 801     Sleep 1
 802     if Horizontal.IsEnabled  = TRUE  then Warnlog "The Horizontal listbox should not be enabled ! "
 803     if Vertical.GetSelIndex <> iTop  then Warnlog "The graphic's Vertical option is not correct ! "
 804    TabType.Cancel
 805
 806    PrintLog "  Base line at center:"
 807   '/// ContextMenu Alignment / Base line at center
 808    Call wOpenContextMenu
 809     hMenuSelectNr(2)
 810     Sleep 2
 811     hMenuSelectNr(2)
 812     Sleep 1
 813
 814   '/// - Check the graphic position
 815    fFormatGraphic("TabType")
 816     Sleep 1
 817     if Horizontal.IsEnabled  =  TRUE           then Warnlog "The Horizontal listbox should not be enabled ! "
 818     if Vertical.GetSelIndex <> iCenterVertical then Warnlog "The graphic's Vertical option is not correct ! "
 819    TabType.Cancel
 820
 821    PrintLog "  Base line at bottom:"
 822   '/// ContextMenu Alignment / Base line at bottom
 823    Call wOpenContextMenu
 824     hMenuSelectNr(2)
 825     Sleep 2
 826     hMenuSelectNr(3)
 827     Sleep 1
 828
 829   '/// - Check the graphic position
 830    fFormatGraphic("TabType")
 831     Sleep 1
 832     if Horizontal.IsEnabled  =  TRUE    then Warnlog "The Horizontal listbox should not be enabled ! "
 833     if Vertical.GetSelIndex <> iBottom  then Warnlog "The graphic's Vertical option is not correct ! "
 834    TabType.Cancel
 835
 836    Call hCloseDocument
 837
 838 endcase
 839
 840 '-------------------------------------------------------------------------------------------
 841
 842 testcase tInsertGraphic_29
 843
 844   PrintLog "- Test Wrap via dialog : none, Page Wrap, Optimal Page Wrap, Contour Wrap ,Wrap through, in Background , first paragraph"
 845  '/// <b> Test Wrap via dialog , including </b>
 846  '/// + </b> none, Page Wrap, Optimal Page Wrap, Contour Wrap, </b>
 847  '/// + </b> Wrap through, in Background, first paragraph </b>
 848
 849    Call hNewDocument
 850
 851   '/// Insert a graphics
 852    fInsertGraphics("Bughunter.jpg")
 853
 854    PrintLog "  1. No Wrap:"
 855   '/// Format / Wrap / No Wrap
 856    FormatWrapNoWrap
 857    Sleep 1
 858
 859    fFormatGraphic("TabUmlauf")
 860     Sleep 1
 861     if Kein.IsChecked <> TRUE then Warnlog "Graphic wrapping situation is wrong !"
 862    TabUmlauf.Cancel
 863
 864    PrintLog "  2. Page Wrap:"
 865   '/// Format / Wrap / Page Wrap
 866    FormatWrapPageWrap
 867    Sleep 1
 868
 869    fFormatGraphic("TabUmlauf")
 870     Sleep 1
 871     if Parallel.IsChecked <> TRUE then Warnlog "Graphic wrapping situation is wrong !"
 872    TabUmlauf.Cancel
 873
 874    PrintLog "  3. Optimal Page Wrap:"
 875   '/// Format / Wrap / Optimal Page Wrap
 876    FormatWrapOptimalPageWrap
 877    Sleep 1
 878
 879    fFormatGraphic("TabUmlauf")
 880     Sleep 1
 881     if Dynamisch.IsChecked <> TRUE then Warnlog "Graphic wrapping situation is wrong !"
 882    TabUmlauf.Cancel
 883
 884    PrintLog "  4. Wrap through:"
 885   '/// Format / Wrap / Wrap through
 886    FormatWrapThrough
 887    Sleep 1
 888
 889    fFormatGraphic("TabUmlauf")
 890     Sleep 1
 891     if Durchlauf.IsChecked <> TRUE then Warnlog "Graphic wrapping situation is wrong !"
 892    TabUmlauf.Cancel
 893
 894    PrintLog "  5. In Background:"
 895   '/// Format / Wrap / in Background
 896    FormatWrapInBackground
 897    Sleep 1
 898
 899    fFormatGraphic("TabUmlauf")
 900     Sleep 1
 901     if Durchlauf.IsChecked     <> TRUE then Warnlog "Graphic wrapping situation is wrong !"
 902     if ImHintergrund.IsChecked <> TRUE then Warnlog "Background configuration is wrong !"
 903    TabUmlauf.Cancel
 904
 905    PrintLog "  6. first paragraph:"
 906   '/// Format / Wrap / first paragraph
 907    FormatWrapFirstparagraph
 908    Sleep 1
 909
 910    fFormatGraphic("TabUmlauf")
 911     Sleep 1
 912     if Parallel.IsChecked      <> TRUE then QaErrorLog "#i94558# - Graphic wrapping situation is wrong !"
 913     if ErsterAbsatz.IsChecked  <> TRUE then Warnlog "first paragraph configuration is wrong !"
 914    TabUmlauf.Cancel
 915
 916    PrintLog "  7. Contour:"
 917   '/// Format / Wrap / Contour
 918    FormatWrapPageWrap
 919    Sleep 1
 920    FormatWrapContour
 921    Sleep 1
 922
 923    fFormatGraphic("TabUmlauf")
 924     Sleep 1
 925     if Kontur.IsChecked  <> TRUE then Warnlog "Contour configuration is wrong !"
 926    TabUmlauf.Cancel
 927
 928    Call hCloseDocument
 929
 930 endcase
 931
 932 '-------------------------------------------------------------------------------------------
 933
 934 testcase tInsertGraphic_30
 935
 936   PrintLog "- Test Wrap via Contextmenu : none, Page Wrap, Optimal Page Wrap, Contour Wrap ,Wrap through, in Background , first paragraph"
 937  '/// <b> Test Wrap via Contextmenu , including </b>
 938  '/// + <b> none, Page Wrap, Optimal Page Wrap, Contour Wrap, </b>
 939  '/// + <b> Wrap through, in Background, first paragraph   </b>
 940
 941    Call hNewDocument
 942
 943   '/// + Insert a graphics
 944    fInsertGraphics("Bughunter.jpg")
 945
 946    PrintLog "  1. No Wrap:"
 947   '/// Contextmenu Wrap / No Wrap
 948    Call wOpenContextMenu
 949     hMenuSelectNr(4)
 950     Sleep 2
 951     hMenuSelectNr(1)
 952     Sleep 1
 953
 954    fFormatGraphic("TabUmlauf")
 955     Sleep 1
 956     if Kein.IsChecked <> TRUE then Warnlog "Graphic wrapping situation is wrong !"
 957    TabUmlauf.Cancel
 958
 959    PrintLog "  2. Page Wrap:"
 960   '/// Contextmenu Wrap / Page Wrap
 961    Call wOpenContextMenu
 962     hMenuSelectNr(4)
 963     Sleep 2
 964     hMenuSelectNr(2)
 965     Sleep 1
 966
 967    fFormatGraphic("TabUmlauf")
 968     Sleep 1
 969     if Parallel.IsChecked <> TRUE then QaErrorLog "#i94558# - Graphic wrapping situation is wrong !"
 970    TabUmlauf.Cancel
 971
 972    PrintLog "  3. Optimal Page Wrap:"
 973   '/// Contextmenu Wrap / Optimal Page Wrap
 974    Call wOpenContextMenu
 975     hMenuSelectNr(4)
 976     Sleep 2
 977     hMenuSelectNr(3)
 978     Sleep 1
 979
 980    fFormatGraphic("TabUmlauf")
 981     Sleep 1
 982     if Dynamisch.IsChecked <> TRUE then Warnlog "Graphic wrapping situation is wrong !"
 983    TabUmlauf.Cancel
 984
 985    PrintLog "  4. Wrap through:"
 986   '/// Contextmenu Wrap / Wrap through
 987    Call wOpenContextMenu
 988     hMenuSelectNr(4)
 989     Sleep 2
 990     hMenuSelectNr(4)
 991     Sleep 1
 992
 993    fFormatGraphic("TabUmlauf")
 994     Sleep 1
 995     if Durchlauf.IsChecked <> TRUE then Warnlog "Graphic wrapping situation is wrong !"
 996    TabUmlauf.Cancel
 997
 998    PrintLog "  5. In Background:"
 999   '/// Contextmenu Wrap / in Background
1000    Call wOpenContextMenu
1001     hMenuSelectNr(4)
1002     Sleep 2
1003     hMenuSelectNr(5)
1004     Sleep 1
1005
1006    fFormatGraphic("TabUmlauf")
1007     Sleep 1
1008     if Durchlauf.IsChecked     <> TRUE then Warnlog "Graphic wrapping situation is wrong !"
1009     if ImHintergrund.IsChecked <> TRUE then Warnlog "Background configuration is wrong !"
1010    TabUmlauf.Cancel
1011
1012    PrintLog "  6. first paragraph:"
1013   '/// Contextmenu Wrap / first paragraph
1014    Call wOpenContextMenu
1015     hMenuSelectNr(4)
1016     Sleep 2
1017     hMenuSelectNr(7)
1018     Sleep 1
1019
1020    fFormatGraphic("TabUmlauf")
1021     Sleep 1
1022     if Parallel.IsChecked      <> TRUE then QaErrorLog "#i94558# - Graphic wrapping situation is wrong !"
1023     if ErsterAbsatz.IsChecked  <> TRUE then Warnlog "first paragraph configuration is wrong !"
1024    TabUmlauf.Cancel
1025
1026    PrintLog "  7. Contour:"
1027   '/// Contextmenu Wrap / Contour
1028    Call wOpenContextMenu
1029     hMenuSelectNr(4)
1030     Sleep 2
1031     hMenuSelectNr(2)
1032     Sleep 1
1033
1034    Call wOpenContextMenu
1035     hMenuSelectNr(4)
1036     Sleep 2
1037     hMenuSelectNr(6)
1038     Sleep 1
1039
1040    fFormatGraphic("TabUmlauf")
1041     Sleep 1
1042     if Kontur.IsChecked  <> TRUE then Warnlog "Contour configuration is wrong !"
1043    TabUmlauf.Cancel
1044
1045    Call hCloseDocument
1046
1047 endcase