testautomation/graphics/optional/includes/global/g_customshapes.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: g_customshapes.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 10:42:39 $
  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 : wolfram.garten@sun.com
  35 '*
  36 '* short description : Customshapes-test
  37 '*
  38 '*********************************************************************
  39 ' #1 tCustomshapes
  40 ' #1 tFormatPaintbrush
  41 '\********************************************************************
  42 testcase tCustomshapes
  43
  44    dim counter as Integer
  45    dim MakeInto3Dcounter as Integer
  46
  47    '/// Create new document ///'
  48    Call hNewDocument
  49      if gApplication = "DRAW" then
  50         Kontext "Documentdraw"
  51      else '(Impress)
  52         Kontext "DocumentImpress"
  53      endif
  54      kontext "Toolbar"
  55      sleep 1
  56      printlog "insert a Smiley."
  57      '/// From the toolbar: Insert three objects: ///'
  58      '/// insert a Smiley. ///'
  59      kontext "Toolbar"
  60      if Toolbar.Exists then
  61         if Toolbar.IsVisible then
  62            sleep 1
  63            try
  64               SymbolShapes.TearOff
  65            catch
  66               warnlog "bug for GH from FHA; .tearoff doesnt tell success"
  67            endcatch
  68            sleep 1
  69            kontext "SymbolShapes"
  70            SymbolShapesSmiley.Click
  71            sleep 1
  72
  73            gMouseDown (40,40)
  74            gMouseMove (40,40,60,60)
  75            gMouseUp (60,60)
  76
  77            sleep 1
  78            kontext "SymbolShapes"
  79            SymbolShapes.Close
  80
  81            '/// Unmark all objects ///'
  82            hTypeKeys "<ESCAPE>"
  83
  84            '/// Mark the Smiley ///'
  85            hTypeKeys "<TAB>"
  86
  87            printlog "Rename the object to 'First'."
  88            '/// Rename the object to 'First' ///"
  89            hOpenContextMenu
  90            sleep 2
  91            'Choose rename.
  92            if hMenuFindSelect(27027, true, 15) = false then
  93               Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
  94               Call hCloseDocument
  95               Goto Endsub
  96            endif
  97            kontext "NameDlgObject"
  98            NameField.SetText "First"
  99            NameDlgObject.OK
 100
 101            printlog "Set the object -Title/Description to 'SecondTitle' and 'SecondText'"
 102            '/// Open the Context-menu and set the description of the object to 'First' ///"
 103            hOpenContextMenu
 104            sleep (2)
 105            'Choose "Description"
 106            if hMenuFindSelect(27033, true, 14) = false then
 107               Warnlog "Context-Menu-entry `Description` was not found. Therefore the test ends."
 108               Call hCloseDocument
 109               Goto Endsub
 110            endif
 111            kontext "DescriptionObject"
 112            DescriptionTitle.SetText "FirstTitle"
 113            DescriptionText.SetText "FirstText"
 114            DescriptionObject.Ok
 115         else
 116            warnlog "the Toolbar wasnt visible."
 117         endif
 118      else
 119         warnlog "the Toolbar didnt exist."
 120      endif
 121      gMouseClick 90, 90
 122
 123      printlog "Insert a Triangle."
 124      '/// Insert a Triangle ///'
 125      kontext "Toolbar"
 126      if Toolbar.Exists then
 127         if Toolbar.IsVisible then
 128            try
 129               BasicShapes.TearOff
 130            catch
 131               warnlog "bug for GH from FHA; .tearoff doesnt tell success"
 132            endcatch
 133            kontext "BasicShapes"
 134            sleep 1
 135            IsoscelesTriangle.click
 136            sleep 1
 137
 138            gMouseDown (45,33)
 139            gMouseMove (45,33,55,42)
 140            gMouseUp (55,42)
 141            sleep 1
 142            kontext "BasicShapes"
 143            BasicShapes.Close
 144            sleep 1
 145
 146            '/// Unmark all objects ///'
 147            hTypeKeys "<ESCAPE>"
 148            '/// Mark the Triangle ///'
 149            hTypeKeys "<TAB>", 2
 150
 151            printlog "Rename the object into 'Second'."
 152            '/// Rename the object into 'Second'. ///'
 153            hOpenContextMenu
 154            sleep 2
 155            'Choose rename.
 156            if hMenuFindSelect(27027, true, 15) = false then
 157               Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
 158               Call hCloseDocument
 159              Goto Endsub
 160            endif
 161
 162            sleep 1
 163            kontext "NameDlgObject"
 164            NameField.SetText "Second"
 165            NameDlgObject.OK
 166
 167            printlog "Set the object -Title/Description to 'SecondTitle' and 'SecondText'."
 168            '/// Open the Context-menu and set the description of the object to 'SecondTitle' and 'SecondText' ///"
 169            hOpenContextMenu
 170            sleep (2)
 171            'Choose "Description"
 172            if hMenuFindSelect(27033, true, 14) = false then
 173               Warnlog "Context-Menu-entry `Description` was not found. Therefore the test ends."
 174               Call hCloseDocument
 175               Goto Endsub
 176            endif
 177            kontext "DescriptionObject"
 178            DescriptionTitle.SetText "SecondTitle"
 179            DescriptionText.SetText "SecondText"
 180            DescriptionObject.Ok
 181         else
 182            warnlog "the Toolbar wasnt visible."
 183         endif
 184      else
 185         warnlog "the Toolbar didnt exist."
 186      endif
 187      gMouseClick 90, 90
 188
 189      printlog "Insert Thinking-cloud."
 190      '/// Insert Thinking-cloud. ///'
 191      kontext "Toolbar"
 192      if Toolbar.Exists then
 193         if Toolbar.IsVisible then
 194            sleep 1
 195            try
 196               CalloutShapes.TearOff  ' insert Thinking-cloud
 197            catch
 198               warnlog "bug for GH from FHA; .tearoff doesnt tell success"
 199            endcatch
 200            kontext "Callouts"
 201            sleep 1
 202            Cloud.click
 203            sleep 1
 204
 205            gMouseDown (1,1)
 206            gMouseMove (1,1,35,30)
 207            gMouseUp (35,30)
 208            sleep 1
 209
 210            kontext "Callouts"
 211            Callouts.Close
 212            sleep 1
 213
 214            '/// Unmark all objects ///'
 215            hTypeKeys "<ESCAPE>"
 216            '/// Mark the cloud ///'
 217            hTypeKeys "<TAB>", 3
 218
 219            printlog "Rename the object to 'Third'."
 220            '/// Rename the object to 'Third'. ///'
 221            hOpenContextMenu
 222            sleep 2
 223            'Choose rename.
 224            if hMenuFindSelect(27027, true, 15) = false then
 225               Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
 226               Call hCloseDocument
 227               Goto Endsub
 228            endif
 229            Kontext "NameDlgObject"
 230            NameField.SetText "Third"
 231            NameDlgObject.OK
 232
 233            printlog "Set the object -Title/Description to 'ThirdTitle' and 'ThirdText'."
 234            '/// Open the Context-menu and set the description of the object to 'First' ///"
 235            hOpenContextMenu
 236            sleep (2)
 237            'Choose "Description"
 238            if hMenuFindSelect(27033, true, 14) = false then
 239               Warnlog "Context-Menu-entry `Description` was not found. Therefore the test ends."
 240               Call hCloseDocument
 241               Goto Endsub
 242            endif
 243            kontext "DescriptionObject"
 244            DescriptionTitle.SetText "ThirdTitle"
 245            DescriptionText.SetText "ThirdText"
 246            DescriptionObject.Ok
 247         else
 248            warnlog "the Toolbar wasnt visible."
 249         endif
 250      else
 251         warnlog "the Toolbar didnt exist."
 252      endif
 253      gMouseClick 90, 90
 254
 255      printlog "Change all objects into 3D."
 256      '/// Change all objects into 3D. ///'
 257      if gApplication = "DRAW" then
 258         Kontext "Documentdraw"
 259      else '(Impress)
 260         Kontext "DocumentImpress"
 261      endif
 262      For MakeInto3Dcounter = 1 to 3
 263          hTypeKeys "<TAB>", MakeInto3Dcounter
 264          kontext "Toolbar"
 265          if Toolbar.Exists then
 266              if Toolbar.IsVisible then
 267                  if ExtrusionOnOff.Exists then
 268                      ExtrusionOnOff.Click
 269                      sleep (3)
 270                  else
 271                      sleep (1)
 272                      Toolbar.OpenContextMenu ' enable forms button in menuebar
 273                      sleep (1)
 274                      hMenuselectNr (1)
 275                      sleep (1)
 276                      if hMenuFindSelect(1024, true, 25) = false then
 277                          Warnlog "Context-Menu-entry `Extrusion On/Off` was not found. Therefore the test ends."
 278                          Call hCloseDocument
 279                          Goto Endsub
 280                      endif
 281                      sleep (1)
 282                      kontext "Toolbar"
 283                      ExtrusionOnOff.Click
 284                      sleep (3)
 285                  endif
 286                  Kontext "ExtrusionObjectBar"
 287                  if ExtrusionObjectBar.Exists then
 288                      if ExtrusionObjectBar.IsVisible then
 289                          printlog "   Objects got converted into Extrusion-objects, correct."
 290                      else
 291                          warnlog "   No Extrusion-toolbar visible. Eventually a problem making objects into Extrusion-Objects."
 292                      endif
 293                  endif
 294              endif
 295          else
 296              warnlog "   the 'Toolbar' -Toolbar didnt exist."
 297          endif
 298          sleep (1)
 299          hTypeKeys "<ESCAPE>"
 300      Next MakeInto3Dcounter
 301
 302      printlog "See if the objects still are Custom Shapes."
 303      '/// See if the objects still are Custom Shapes ///'
 304      '/// We do so by moving the lower part of the the thinking-cloud. ///'
 305      gMouseClick 90, 1
 306      hTypeKeys "<TAB><TAB><TAB>"
 307
 308      hTypeKeys "<MOD1 TAB>" ,9
 309      if gApplication = "IMPRESS" then
 310         hTypeKeys "<RIGHT>" ,86
 311         hTypeKeys "<UP>", 48
 312      else
 313         hTypeKeys "<RIGHT>" ,131
 314         hTypeKeys "<UP>" ,53
 315      endif
 316      sleep 1
 317
 318      gMouseClick 90, 1
 319      hTypeKeys "<TAB>"
 320
 321      printlog "Check the name of the selected object (should be 'First')"
 322      '/// Check the name of the selected object (should be 'First') ///'
 323      hOpenContextMenu
 324      sleep 2
 325      'Choose rename.
 326      if hMenuFindSelect(27027, true, 15) = false then
 327         Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
 328         Call hCloseDocument
 329         Goto Endsub
 330      endif
 331
 332      sleep 1
 333      kontext "NameDlgObject"
 334      if NameField.GetText <> "First" then
 335         warnlog "   Wrong object. Should have been the first, but was the " + NameField.GetText
 336      else
 337         Printlog "   The first object still had the correct name, good."
 338      endif
 339      NameDlgObject.OK
 340
 341      printlog "Open the Context-menu and check if the description of the object is right"
 342      '/// Open the Context-menu and check if the description of the object is right ///"
 343      hOpenContextMenu
 344      sleep (2)
 345      'Choose "Description"
 346      if hMenuFindSelect(27033, true, 14) = false then
 347         Warnlog "Context-Menu-entry `Description` was not found. Therefore the test ends."
 348         Call hCloseDocument
 349         Goto Endsub
 350      endif
 351      kontext "DescriptionObject"
 352      if DescriptionTitle.GetText <> "FirstTitle" then
 353          Warnlog "   The description-title for the first object were not 'FirstTitle', but: " + DescriptionTitle.GetText
 354      endif
 355      if DescriptionText.GetText <> "FirstText" then
 356          Warnlog "   The description-text for the first object were not 'FirstText', but: " + DescriptionText.GetText
 357      endif
 358      DescriptionObject.Ok
 359
 360      Kontext "ExtrusionObjectBar"
 361      if ExtrusionObjectBar.Exists then
 362         if ExtrusionObjectBar.IsVisible then
 363            printlog "   The first object got converted into a 3D-object (Extrusion-Object), correct."
 364         else
 365            warnlog "   No Extrusion-Object-toolbar visible. Eventually a problem making the object into 3D."
 366         endif
 367      endif
 368
 369      gMouseClick 90, 1
 370      hTypeKeys "<TAB><TAB>"
 371      '/// Check the name of the selected object (should be 'Second') ///'
 372      hOpenContextMenu
 373      sleep 2
 374      'Choose rename.
 375      if hMenuFindSelect(27027, true, 15) = false then
 376         Warnlog "   Context-Menu-entry `Rename` was not found. Therefore the test ends."
 377         Call hCloseDocument
 378         Goto Endsub
 379      endif
 380
 381      sleep 1
 382      kontext "NameDlgObject"
 383      if NameField.GetText <> "Second" then
 384         warnlog "   Wrong object. Should have been the second, but was the " + NameField.GetText
 385      else
 386         Printlog "   The second object still had the correct name, good."
 387      endif
 388      NameDlgObject.OK
 389
 390      printlog "Open the Context-menu and check if the description of the object is right"
 391      '/// Open the Context-menu and check if the description of the object is right ///"
 392      hOpenContextMenu
 393      sleep (2)
 394      'Choose "Description"
 395      if hMenuFindSelect(27033, true, 14) = false then
 396         Warnlog "Context-Menu-entry `Description` was not found. Therefore the test ends."
 397         Call hCloseDocument
 398         Goto Endsub
 399      endif
 400      kontext "DescriptionObject"
 401      if DescriptionTitle.GetText <> "SecondTitle" then
 402         Warnlog "   The description-title for the second object were not 'SecondTitle', but: " + DescriptionTitle.GetText
 403      else
 404         printlog "   The description-title for the second object were correct"
 405      endif
 406      if DescriptionText.GetText <> "SecondText" then
 407         Warnlog "   The description-text for the second object were not 'SecondText', but: " + DescriptionText.GetText
 408      else
 409         printlog "   The description-text for the second object were correct"
 410      endif
 411      DescriptionObject.Ok
 412
 413      Kontext "ExtrusionObjectBar"
 414      if ExtrusionObjectBar.Exists then
 415         if ExtrusionObjectBar.IsVisible then
 416            printlog "   The first second got converted into 3D-object (Extrusion-Object), correct."
 417         else
 418            warnlog "   No Extrusion-Object-toolbar visible. Eventually a problem making the object into 3D."
 419         endif
 420      endif
 421
 422      gMouseClick 90, 1
 423      hTypeKeys "<TAB><TAB><TAB>"
 424      '/// Check the name of the selected object (should be "Third") ///'
 425      hOpenContextMenu
 426      sleep 2
 427      'Choose rename.
 428      if hMenuFindSelect(27027, true, 15) = false then
 429         Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
 430         Call hCloseDocument
 431         Goto Endsub
 432      endif
 433
 434      sleep 1
 435      kontext "NameDlgObject"
 436      if NameField.GetText <> "Third" then
 437         warnlog "   Wrong object. Should have been the third, but was the " + NameField.GetText
 438      else
 439         Printlog "   The third object still had the correct name, good."
 440      endif
 441      NameDlgObject.OK
 442
 443      printlog "Open the Context-menu and check if the description of the object is right"
 444      '/// Open the Context-menu and check if the description of the object is right ///"
 445      hOpenContextMenu
 446      sleep (2)
 447      'Choose "Description"
 448      if hMenuFindSelect(27033, true, 14) = false then
 449         Warnlog "Context-Menu-entry `Description` was not found. Therefore the test ends."
 450         Call hCloseDocument
 451         Goto Endsub
 452      endif
 453      kontext "DescriptionObject"
 454      if DescriptionTitle.GetText <> "ThirdTitle" then
 455         Warnlog "   The description-title for object three were not 'ThirdTitle', but: " + DescriptionTitle.GetText
 456      else
 457         printlog "   The description-title for the second object were correct."
 458      endif
 459      if DescriptionText.GetText <> "ThirdText" then
 460         Warnlog "   The description-text for object three were not 'ThirdText', but: " + DescriptionText.GetText
 461      else
 462         printlog "   The description-text for object three were correct."
 463      endif
 464      DescriptionObject.Ok
 465
 466      Kontext "ExtrusionObjectBar"
 467      if ExtrusionObjectBar.Exists then
 468         if ExtrusionObjectBar.IsVisible then
 469            printlog "   The third object got converted into 3D-object (Extrusion-Object), correct."
 470         else
 471            warnlog "   No Extrusion-Object-toolbar visible. Eventually a problem making the object into 3D."
 472         endif
 473      endif
 474
 475      printlog "End of test. Close the document."
 476      Call hCloseDocument         '/// Close Document ///'
 477
 478 endcase 'tCustomshapes
 479 '---------------------------------------------------------
 480 testcase tFormatPaintbrush
 481
 482    dim counter, ZaehlerVerlauf, j as Integer
 483    '/// Hatching ///'
 484    dim HatchingDistance as string
 485    dim HatchingAngle as string
 486    dim HatchingLineType as string
 487    dim HatchingLineColor as string
 488
 489    dim position_value as string
 490    dim show_value as boolean
 491    dim distance_value as string
 492    dim color_value as string
 493    dim transparency_value as string
 494
 495    dim NoTransparency_value as boolean
 496    dim linearTransparency_value as boolean
 497    dim MFLintransparency_value as string
 498    dim Transparencyverlauf_value as boolean
 499    dim TransparencyType_value as string
 500    dim MFCenterX_value as string
 501    dim MFCenterY_value as string
 502    dim MFAngle_value as string
 503    dim MFRand_value as string
 504    dim MFStart_value as string
 505    dim MFEnd_value as string
 506
 507    dim colorname_value as string
 508    dim color2_value as string
 509    dim colormodel_value as integer
 510    dim R_value as string
 511    dim G_value as string
 512    dim B_value as string
 513    dim C_value as string
 514    dim M_value as string
 515    dim Y_value as string
 516    dim K_value as string
 517
 518    dim type_value as string
 519    dim centerx_value as string
 520    dim centery_value as string
 521    dim angle_value as string
 522    dim rand_value as string
 523    dim from_value as string
 524    dim fromvalue_value as string
 525    dim to_value as string
 526    dim tovalue_value as string
 527    dim to_wert_value as string
 528
 529    dim front_value as string
 530    dim background_value as string
 531
 532    '/// Create new document ///'
 533    Call hNewDocument
 534       '/// Create a new rectangle ///'
 535       hRechteckErstellen ( 10, 10, 30, 30 )
 536       FormatArea
 537          '/// Switch to Tabpage "Area" ///'
 538          Kontext
 539          Active.SetPage TabArea
 540          Kontext "TabArea"
 541          sleep 1
 542          FillOptions.Select 4          '/// Select hatching, control after closing and reopening dialog if changes are recognized ///'
 543          '/// Switch to Tabpage "Hatching" ///'
 544          Kontext
 545          Active.setpage TabSchraffuren
 546          Kontext "TabSchraffuren"
 547
 548          '/// Get the values for the Rectangle ///'
 549          HatchingDistance = Abstand.GetText
 550          HatchingAngle = Winkel.GetText
 551          'Definition
 552          HatchingLineType = Linientyp.GetSelText
 553          HatchingLineColor = Linienfarbe.GetSelText
 554
 555          'TabSchraffuren.OK
 556          sleep 1
 557
 558 '         FormatArea
 559          '/// Switch to Tabpage "Shaddow" ///'
 560          Kontext
 561          Active.setpage TabSchatten
 562          Kontext "TabSchatten"
 563
 564          show_value = Anzeigen.isChecked 'Boolean
 565          if Anzeigen.isChecked then
 566             position_value = Position.GetSelText
 567             distance_value = Entfernung.GetSelText
 568             color_value = Farbe.GetSelText
 569             transparency_value = Transparenz.GetSelText
 570          endif
 571          sleep 1
 572
 573          '/// Switch to Tabpage "Transparency" ///'
 574          Kontext
 575          Active.SetPage TabTransparenz
 576          Kontext "TabTransparenz"
 577
 578          NoTransparency_value = KeineTransparenz.isChecked
 579          linearTransparency_value = LineareTransparenz.isChecked
 580          MFLinTransparency_value = MFLinTransparenz.GetText
 581          Transparencyverlauf_value = Transparenzverlauf.isChecked
 582          TransparencyType_value = TransparenzverlaufTyp.GetSelText
 583          MFCenterX_value = MFZentrumX.GetText
 584          MFCenterY_value = MFZentrumY.GetText
 585          MFAngle_value = MFWinkel.GetText
 586          MFRand_value = MFRand.GetText
 587          MFStart_value = MFStartwert.GetText
 588          MFEnd_value = MFEndwert.GetText
 589
 590          sleep 1
 591          '/// Switch to Tabpage "Color" ///'
 592          Kontext
 593          Active.setpage TabFarben
 594          Kontext "TabFarben"
 595
 596          colorname_value = FarbName.GetText
 597          color_value = Farbe.GetSelText
 598          colormodel_value = Farbmodell.GetSelIndex
 599          if colormodel_value = 1 then
 600             R_value = R.GetText
 601             G_value = G.GetText
 602             B_value = B.GetText
 603          else 'farbmodell_value = 2
 604             C_value = C.GetText
 605             M_value = M.GetText
 606             Y_value = Y.GetText
 607             K_value = K.GetText
 608          endif
 609          sleep 1
 610
 611          '/// Switch to Tabpage "Gradient" ///'
 612          Kontext
 613          Active.setpage TabFarbverlaeufe
 614          Kontext "TabFarbverlaeufe"
 615
 616          type_value = Typ.GetSelText
 617          Centerx_value = ZentrumX.GetText
 618          Centery_value = ZentrumY.GetText
 619          angle_value = Winkel.GetText
 620          rand_value = Rand.GetText
 621          from_value = Von.GetSelText
 622          fromvalue_value = VonWert.GetText
 623          to_value = Bis.GetSelText
 624          tovalue_value = BisWert.GetText
 625          sleep 1
 626
 627          '/// Switch to Tabpage "Bitmap" ///'
 628          Kontext
 629          Active.setpage TabBitmap
 630          Kontext "TabBitmap"
 631
 632          front_value = Vordergrund.GetSelText
 633          background_value = Hintergrund.GetSelText
 634          sleep 1
 635       '/// Close the FormatArea-dialogue with "OK" ///'
 636       TabBitmap.OK
 637       sleep 2
 638
 639       '/// Create a second rectangle, and use the "Paintbrush-icon" to copy the settings for the first rectangle onto the new one ///'
 640       hRechteckErstellen ( 70, 70, 90, 90 )
 641       if gApplication = "DRAW" then
 642          kontext "Documentdraw"
 643          Documentdraw.Mousedown 20, 20
 644          Documentdraw.Mouseup 20, 20
 645          sleep 1
 646          kontext "Standardbar"
 647          FormatPaintbrush.Click
 648          kontext "Documentdraw"
 649          sleep 1
 650          Documentdraw.Mousedown 80, 80
 651          Documentdraw.Mouseup 80, 80
 652          sleep 1
 653       else '(Impress)
 654          Kontext "DocumentImpress"
 655          DocumentImpress.Mousedown 20, 20
 656          DocumentImpress.Mouseup 20, 20
 657          sleep 1
 658          kontext "Standardbar"
 659          FormatPaintbrush.Click
 660          kontext "DocumentImpress"
 661          sleep 1
 662          DocumentImpress.Mousedown 80, 80
 663          DocumentImpress.Mouseup 80, 80
 664          sleep 1
 665       endif
 666
 667       '/// Check if the Formatting is like the first one. ///'
 668       FormatArea
 669          '/// Switch to Tabpage "Area" ///'
 670          Kontext
 671          Active.SetPage TabArea
 672          Kontext "TabArea"
 673 '         if FillOptions.GetSelIndex <> 4 then        '/// The selected value should be 'no fill' ///'
 674 '            warnlog "The FillOptions-value was not transferred correctly."
 675 '         else
 676 '            printlog "The FillOptions-value was transferred correctly."
 677 '         endif
 678
 679             sleep 1                      '/// control if changes are still there after closing and reopening dialog ///'
 680             FillOptions.Select 4         '/// Select hatching, control after closing and reopening dialog if changes are recognized ///'
 681             '/// Switch to Tabpage "Hatching" ///'
 682             kontext
 683             Active.setpage TabSchraffuren
 684             kontext "TabSchraffuren"
 685
 686             if HatchingDistance <> Abstand.GetText then
 687                warnlog "Hatching:Distance  changed. Should be: " + HatchingDistance + ". Was: " + Abstand.GetText
 688             endif
 689             if HatchingAngle <> Winkel.GetText then
 690                warnlog "Hatching:Angle  changed. Should be: " + HatchingAngle + ". Was: " + Winkel.GetText
 691             endif
 692             'Definition
 693             if HatchingLineType <> Linientyp.GetSelText then
 694                warnlog "Hatching:LineType  changed. Should be: " + HatchingLineType + ". Was: " + Linientyp.GetSelText
 695             endif
 696             if HatchingLineColor <> Linienfarbe.GetSelText then
 697                warnlog "Hatching:LineColor  changed. Should be: " + HatchingLineColor + ". Was: " + Linienfarbe.GetSelText
 698             endif
 699             sleep 1
 700
 701          '/// Switch to Tabpage "Shaddow" ///'
 702          Kontext
 703          Active.setpage TabSchatten
 704          Kontext "TabSchatten"
 705
 706             if Show_value = true then
 707                if Anzeigen.isChecked <> true then
 708                   warnlog "Shaddow:Show  had changed! Should have been true, but was " + Anzeigen.isChecked
 709                else
 710                   if position_value <> Position.GetSelText then
 711                      warnlog "Shaddow:position:value  changed. Should be: " + position_value + ". Was: " + Position.GetSelText
 712                   endif
 713                   if distance_value <> Entfernung.GetSelText then
 714                      warnlog "Shaddow:distance:value  changed. Should be: " + distance_value + ". Was: " + Entfernung.GetSelText
 715                   endif
 716                   if color_value <> Farbe.GetSelText then
 717                      warnlog "Shaddow:Color:value  changed. Should be: " + color_value + ". Was: " + Farbe.GetSelText
 718                   endif
 719                   if transparency_value <> Transparenz.GetSelText then
 720                      warnlog "Shaddow:transparency:value  changed. Should be: " + transparency_value + ". Was: " + Transparenz.GetSelText
 721                   endif
 722                endif
 723             endif
 724             sleep 1
 725
 726          '/// Switch to Tabpage "Transparency" ///'
 727          Kontext
 728          Active.SetPage TabTransparenz
 729          Kontext "TabTransparenz"
 730             if NoTransparency_value <> KeineTransparenz.isChecked then
 731                warnlog "Transparency:NoTransparency -value changed. Should be: " + NoTransparency_value + ". Was: " + KeineTransparenz.isChecked
 732             endif
 733             if linearTransparency_value <> LineareTransparenz.isChecked then
 734                warnlog "Transparency:lineareTransparency -value changed. Should be: " + linearTransparency_value + ". Was: " + LineareTransparenz.isChecked
 735             endif
 736             if MFLinTransparency_value <> MFLinTransparenz.GetText then
 737                warnlog "Transparency:MFLinTransparency -value changed. Should be: " + MFLinTransparency_value + ". Was: " + MFLinTransparenz.GetText
 738             endif
 739             if Transparencyverlauf_value <> Transparenzverlauf.isChecked then
 740                warnlog "Transparency:Transparencyverlauf -value changed. Should be: " + Transparencyverlauf_value + ". Was: " + Transparenzverlauf.isChecked
 741             endif
 742             if TransparencyType_value <> TransparenzverlaufTyp.GetSelText then
 743                warnlog "Transparency:TransparencyType -value changed. Should be: " + TransparencyType_value + ". Was: " + TransparenzverlaufTyp.GetSelText
 744             endif
 745             if MFCenterX_value <> MFZentrumX.GetText then
 746                warnlog "Transparency:MFCenterX -value changed. Should be: " + MFCenterX_value + ". Was: " + MFZentrumX.GetText
 747             endif
 748             if MFCenterY_value <> MFZentrumY.GetText then
 749                warnlog "Transparency:MFCenterY -value changed. Should be: " + MFCenterY_value + ". Was: " + MFZentrumY.GetText
 750             endif
 751             if MFAngle_value <> MFWinkel.GetText then
 752                warnlog "Transparency:MFAngle -value changed. Should be: " + MFAngle_value + ". Was: " + MFWinkel.GetText
 753             endif
 754             if MFRand_value <> MFRand.GetText then
 755                warnlog "Transparency:MFRand -value changed. Should be: " + MFRand_value + ". Was: " + MFRand.GetText
 756             endif
 757             if MFStart_value <> MFStartwert.GetText then
 758                warnlog "Transparency:MFStart -value changed. Should be: " + MFStart_value + ". Was: " + MFStartwert.GetText
 759             endif
 760             if MFEnd_value <> MFEndwert.GetText then
 761                warnlog "Transparency:MFEnd -value changed. Should be: " + MFEnd_value + ". Was: " + MFEndwert.GetText
 762             endif
 763             sleep 1
 764
 765          '/// Switch to Tabpage "Color" ///'
 766          Kontext
 767          Active.setpage TabFarben
 768          Kontext "TabFarben"
 769
 770             if colorname_value <> FarbName.GetText then
 771                warnlog "colorname_value changed. Should be: " + colorname_value + ". Was: " + FarbName.GetText
 772             endif
 773             if color_value <> Farbe.GetSelText then
 774                warnlog "color_value changed. Should be: " + color_value + ". Was: " + Farbe.GetSelText
 775             endif
 776             if colormodel_value <> Farbmodell.GetSelIndex then
 777                warnlog "colormodel_value changed. Should be: " + colormodel_value + ". Was: " + Farbmodell.GetSelIndex
 778             endif
 779             if colormodel_value = 1 then
 780                if R_value <> R.GetText then
 781                   warnlog "R_value changed. Should be: " + R_value + ". Was: " + R.GetText
 782                endif
 783                if G_value <> G.GetText then
 784                   warnlog "G_value changed. Should be: " + G_value + ". Was: " + G.GetText
 785                endif
 786                if B_value <> B.GetText then
 787                   warnlog "B_value changed. Should be: " + B_value + ". Was: " + B.GetText
 788                endif
 789             endif
 790             if colormodel_value = 2 then
 791                if C_value <> C.GetText then
 792                   warnlog "C_value changed.Should be: " + C_value + ". Was: " + C.GetText
 793                endif
 794                if M_value <> M.GetText then
 795                   warnlog "M_value changed. Should be: " + M_value + ". Was: " + M.GetText
 796                endif
 797                if Y_value <> Y.GetText then
 798                   warnlog "Y_value changed. Should be: " + Y_value + ". Was: " + Y.GetText
 799                endif
 800                if K_value <> K.GetText then
 801                   warnlog "K_value changed. Should be: " + K_value + ". Was: " + K.GetText
 802                endif
 803             endif
 804             sleep 1
 805
 806          '/// Switch to Tabpage "Gradient" ///'
 807          Kontext
 808          Active.setpage TabFarbverlaeufe
 809          Kontext "TabFarbverlaeufe"
 810             if type_value <> Typ.GetSelText then
 811                warnlog "type_value changed. Should be: " + type_value + ". Was: " + Typ.GetSelText
 812             endif
 813             if centerx_value <> ZentrumX.GetText then
 814                warnlog "centerx_value changed. Should be: " + centerx_value + ". Was: " + ZentrumX.GetText
 815             endif
 816             if centery_value <> ZentrumY.GetText then
 817                warnlog "centery_value changed. Should be: " + centery_value + ". Was: " + ZentrumY.GetText
 818             endif
 819             if angle_value <> Winkel.GetText then
 820                warnlog "angle_value changed. Should be: " + angle_value + ". Was: " + Winkel.GetText
 821             endif
 822             if rand_value <> Rand.GetText then
 823                warnlog "rand_value changed. Should be: " + rand_value + ". Was: " + Rand.GetText
 824             endif
 825             if from_value <> Von.GetSelText then
 826                warnlog "from_value changed. Should be: " + from_value + ". Was: " + Von.GetSelText
 827             endif
 828             if fromvalue_value <> VonWert.GetText then
 829                warnlog "fromvalue_value changed. Should be: " + fromvalue_value + ". Was: " + VonWert.GetText
 830             endif
 831             if to_value <> Bis.GetSelText then
 832                warnlog "to_value changed. Should be: " + to_value + ". Was: " + Bis.GetSelText
 833             endif
 834             if tovalue_value <> BisWert.GetText then
 835                warnlog "tovalue_value changed. Should be: " + tovalue_value + ". Was: " + BisWert.GetText
 836             endif
 837             sleep 1
 838
 839          '/// Switch to Tabpage "Bitmap" ///'
 840          Kontext
 841          Active.setpage TabBitmap
 842          Kontext "TabBitmap"
 843             if front_value <> Vordergrund.GetSelText then
 844                warnlog "vordergrund_value changed. Should be: " + front_value + ". Was: " + Vordergrund.GetSelText
 845             endif
 846             if background_value <> Hintergrund.GetSelText then
 847                warnlog "background_value changed. Should be: " + background_value + ". Was: " + Hintergrund.GetSelText
 848             endif
 849             sleep 1
 850       TabBitmap.OK
 851    Call hCloseDocument         '/// Close Document ///'
 852
 853 endcase 'tFormatPaintbrush