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