testautomation/spreadsheet/required/includes/c_upd_formatmenu3.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 2000, 2010 Oracle and/or its affiliates.
   6 '
   7 ' OpenOffice.org - a multi-platform office productivity suite
   8 '
   9 ' This file is part of OpenOffice.org.
  10 '
  11 ' OpenOffice.org is free software: you can redistribute it and/or modify
  12 ' it under the terms of the GNU Lesser General Public License version 3
  13 ' only, as published by the Free Software Foundation.
  14 '
  15 ' OpenOffice.org is distributed in the hope that it will be useful,
  16 ' but WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18 ' GNU Lesser General Public License version 3 for more details
  19 ' (a copy is included in the LICENSE file that accompanied this code).
  20 '
  21 ' You should have received a copy of the GNU Lesser General Public License
  22 ' version 3 along with OpenOffice.org.  If not, see
  23 ' <http://www.openoffice.org/license.html>
  24 ' for a copy of the LGPLv3 License.
  25 '
  26 '/***********************************************************************
  27 '*
  28 '* owner : oliver.craemer@oracle.com
  29 '*
  30 '* short description : Resource Test - Format Menu Part III
  31 '*
  32 '\***********************************************************************
  33
  34 sub c_upd_formatmenu3
  35
  36     Printlog Chr(13) + "--------- Format Menu Part III (c_upd_formatmenu3.inc) ---------"
  37
  38     call tFormatGraphicPositionAndSize
  39     call tFormatGraphicLine
  40     call tFormatGraphicArea
  41     call tFormatGraphicText
  42     call tFormatGraphicPoints
  43
  44 end sub
  45
  46 '-----------------------------------------------------------
  47
  48 testcase tFormatGraphicPositionAndSize
  49 '///<u><b>Format - Graphic – Position and Size</b></u>
  50
  51     '/// Load document from 'gTesttoolPath + "spreadsheet\required\input\twoobjects.ods"'
  52     printlog " Load document from 'gTesttoolPath + spreadsheet\required\input\twoobjects.ods"
  53     hFileOpenLocally( gTesttoolPath + "spreadsheet\required\input\twoobjects.ods" )
  54     '/// Select first object by Navigator
  55     printlog " Select first object by Navigator"
  56     Call fNavigatorSelectObject ("drawing objects", 1)
  57     '/// Open 'Position and Size' – dialog by 'Format – Graphic – Position and Size'
  58     printlog " Open 'Position and Size' – dialog by 'Format – Graphic – Position and Size'"
  59     FormatTransform
  60
  61     printlog
  62     '/// Switch to tabpage 'Position and Size'
  63     printlog " Switch to tabpage 'Position and Size'"
  64     Kontext
  65     Active.SetPage TabPositionAndSize
  66     Kontext "TabPositionAndSize"
  67     Call DialogTest ( TabPositionAndSize )
  68     '/// Uncheck 'Position'
  69     printlog " Uncheck 'Position'"
  70     ProtectPosition.Uncheck
  71     '/// Check 'Size'
  72     printlog " Uncheck 'Size'"
  73     ProtectSize.Uncheck
  74     '/// Increase 'Position X'
  75     printlog " Increase 'Position X'"
  76     PositionX.More
  77     '/// Decrease 'Position Y'
  78     printlog " Decrease 'Position Y'"
  79     PositionY.Less
  80     '/// Increase 'Width'
  81     printlog " Increase 'Width'"
  82     Width.More
  83     '/// Decrease 'Height'
  84     printlog " Decrease 'Height'"
  85     Height.Less
  86     '/// Check 'Keep ratio'
  87     printlog " Check 'Keep ratio'"
  88     KeepRatio.Check
  89
  90     printlog ""
  91     '/// Switch to tabpage 'Rotation'
  92     printlog " Switch to tabpage 'Rotation'"
  93     Kontext
  94     Active.SetPage TabDrehung
  95     Kontext "TabDrehung"
  96     Call DialogTest ( TabDrehung )
  97     '/// Increase 'Position X'
  98     printlog " Increase 'Position X'"
  99     PositionX.More
 100     '/// Decrease 'Position Y'
 101     printlog " Decrease 'Position Y'"
 102     PositionY.Less
 103     '/// Increase 'Angle'
 104     printlog " Increase 'Angle'"
 105     Winkel.More
 106     '/// Switch to tabpage 'Slant & Corner Radius'
 107     printlog " Switch to tabpage 'Slant & Corner Radius'"
 108     Kontext
 109     Active.SetPage TabSchraegstellen
 110     Kontext "TabSchraegstellen"
 111     Call DialogTest ( TabSchraegstellen )
 112     '/// Increase radius
 113     printlog " Increase radius"
 114     Radius.More
 115     '/// Increase angle
 116     printlog " Increase angle"
 117     Winkel.More
 118     '/// Close 'Position and Size' – dialog by 'Cancel'
 119     printlog " Close 'Position and Size' – dialog by 'Cancel'"
 120     TabSchraegstellen.Close
 121     '/// Close document
 122     printlog " Close document"
 123     call hCloseDocument
 124     hFileDelete( gLastWorkFile )
 125
 126 endcase
 127
 128 '-----------------------------------------------------------
 129
 130 testcase tFormatGraphicLine
 131 '///<u><b>Format - Graphic - Line</b></u>
 132
 133     Dim sTitle as string
 134
 135     '/// Load document from 'gTesttoolPath + "spreadsheet\required\input\twoobjects.ods"'
 136     printlog " Load document from 'gTesttoolPath + spreadsheet\required\input\twoobjects.ods"
 137     hFileOpenLocally( gTesttoolPath & "spreadsheet\required\input\twoobjects.ods" )
 138
 139     '/// Select first object by Navigator
 140     printlog " Select first object by Navigator"
 141     Call fNavigatorSelectObject ("drawing objects", 1)
 142     '/// Open 'Format – Line' dialog by 'Format – Graphic – Line'
 143     printlog " Open 'Format – Line' dialog by 'Format – Graphic – Line'"
 144     FormatLine
 145     '/// Switch to tabpage 'Line'
 146     printlog " Switch to tabpage 'Line'"
 147     Kontext
 148     active.setpage TabLinie
 149     Kontext "TabLinie"
 150     Call DialogTest ( TabLinie )
 151     '/// Verify that the 'Style' listbox for 'Line properties' is not empty
 152     printlog " Verify that the 'Style' listbox for 'Line properties' is not empty"
 153     If Stil.GetItemCount < 1 then
 154         warnlog "The listbox for styles is empty"
 155     end if
 156     '/// Verify that the 'Color' listbox for 'Line properties' is not empty
 157     printlog " Verify that the 'Color' listbox for 'Line properties' is not empty"
 158     If Farbe.GetItemCount < 1 then
 159         warnlog "The listbox for colors is empty"
 160     end if
 161     '/// Increase 'Width'
 162     printlog " Increase 'Width'"
 163     Breite.More
 164     '/// Increase 'Transparency'
 165     printlog " Increase 'Transparency'"
 166     Transparenz.More
 167     '/// Uncheck 'Synchronize ends'
 168     printlog " Uncheck 'Synchronize ends'"
 169     EndenSynchronisieren.Uncheck
 170     '/// Verify that the left 'Style' listbox for 'Arrow Styles' is not empty
 171     printlog " Verify that the left 'Style' listbox for 'Arrow Styles' is not empty"
 172     If StilLinks.GetItemCount < 1 then
 173         warnlog "The listbox for styles is empty"
 174     end if
 175     printlog "Choose second entry"
 176     StilLinks.Select 2
 177     '/// Verify that the right 'Style' listbox for 'Arrow Styles' is not empty
 178     printlog " Verify that the right 'Style' listbox for 'Arrow Styles' is not empty"
 179     If StilRechts.GetItemCount < 1 then
 180         warnlog "The listbox for styles is empty"
 181     end if
 182     printlog "Choose second entry"
 183     StilRechts.Select 2
 184     '/// Check the left 'Center' checkbox
 185     printlog " Check the left 'Center' checkbox"
 186     ZentriertLinks.Check
 187     '/// Check the right 'Center' checkbox
 188     printlog " Check the right 'Center' checkbox"
 189     ZentriertRechts.Check
 190     '/// Verify that the 'Style' listbox for 'Corner Style' is not empty
 191     printlog " Verify that the 'Style' listbox for 'Corner Style' is not empty"
 192     If CornerStyle.GetItemCount < 1 then
 193         warnlog "The listbox for styles is empty"
 194     end if
 195
 196     printlog ""
 197     '/// Switch to tabpage 'Line Styles'
 198     printlog " Switch to tabpage 'Line Styles'"
 199     Kontext
 200     active.setpage TabLinienstile
 201     Kontext "TabLinienstile"
 202     Call DialogTest ( TabLinienstile )
 203     '/// Verify that the 'Line Style' listbox is not empty
 204     printlog " Verify that the 'Line Style' listbox is not empty"
 205     If Linienstil.GetItemCount < 1 then
 206         warnlog "The listbox for styles is empty"
 207     end if
 208     '/// Choose first entry in left 'Type' listbox
 209     printlog " Choose second entry in left 'Type' listbox"
 210     TypLinks.Select 2
 211     '/// Choose second entry in right 'Type' listbox
 212     printlog " Choose second entry in right 'Type' listbox"
 213     TypRechts.Select 2
 214     '/// Increase left 'Number'
 215     printlog " Increase left 'Number'"
 216     AnzahlLinks.More
 217     '/// Decrease right 'Number'
 218     printlog " Decrease right 'Number'"
 219     AnzahlRechts.Less
 220     '/// Increase left 'Length'
 221     printlog " Increase left 'Length'"
 222     LaengeLinks.More
 223     '/// Decrease right 'Length'
 224     printlog " Decrease right 'Length'"
 225     LaengeRechts.Less
 226     '/// Increase 'Spacing'
 227     printlog " Increase 'Spacing'"
 228     Abstand.More
 229     '/// Check 'Fit to line width'
 230     printlog " Check 'Fit to line width'"
 231     AnLinienbreite.Check
 232     '/// Press 'Add' button
 233     printlog " Press 'Add' button"
 234     Hinzufuegen.Click
 235     Kontext "NameDlg"
 236     Call DialogTest ( NameDlg )
 237     '/// Enter string 'Testlinestyle'
 238     printlog " Enter string 'Testlinestyle'"
 239     Eingabefeld.SetText "Testlinestyle"
 240     '/// Close 'Name' dialog with 'Cancel'
 241     printlog " Close 'Name' dialog with 'Cancel'"
 242     NameDlg.Cancel
 243     Kontext "TabLinienstile"
 244     '/// Press 'Modify' button
 245     printlog " Press 'Modify' button"
 246     Aendern.Click
 247     Kontext "NameDlg"
 248     '/// Close 'Name' dialog with 'Cancel'
 249     printlog " Close 'Name' dialog with 'Cancel'"
 250     NameDlg.Cancel
 251     Kontext "TabLinienstile"
 252     '/// Press 'Delete' button
 253     printlog " Press 'Delete' button"
 254     Loeschen.Click
 255     Kontext "Active"
 256     '/// Close messagebox with 'No'
 257     printlog " Close messagebox with 'No'"
 258     Active.No
 259     Kontext "TabLinienstile"
 260     '/// Press 'Open' button
 261     printlog " Press 'Open' button"
 262     Oeffnen.click
 263     Kontext "OeffnenDlg"
 264     '/// Close 'Open' dialog with 'Cancel'
 265     printlog " Close 'Open' dialog with 'Cancel'"
 266     OeffnenDlg.Cancel
 267     Kontext "TabLinienstile"
 268     '/// Press 'Save' button
 269     printlog " Press 'Save' button"
 270     Speichern.click
 271     Kontext "SpeichernDlg"
 272     '/// Close 'Save' dialog with 'Cancel'
 273     printlog " Close 'Save' dialog with 'Cancel'"
 274     SpeichernDlg.Cancel
 275     Kontext "TabLinienstile"
 276
 277     printlog ""
 278     '/// Switch to tabpage 'Arrow Styles'
 279     printlog " Switch to tabpage 'Arrow Styles'"
 280     Kontext
 281     active.setpage TabLinienenden
 282     Kontext "Active"
 283     If Active.Exists then
 284         Kontext "Linienstil"
 285         Linienstil.Cancel
 286     end if
 287     Kontext "TabLinienenden"
 288     Call DialogTest ( TabLinienenden )
 289     '/// Set 'Titel' to 'Test'
 290     printlog " Set 'Titel' to 'Test'"
 291     'To get the Office back to the default the title must be memorized for restoring
 292     sTitle = Textfeld.GetText
 293     Textfeld.SetText "Test"
 294     '/// Verify that the 'Arrow style' listbox is not empty
 295     printlog " Verify that the 'Arrow style' listbox is not empty"
 296     If Liste.GetItemCount < 1 then
 297         warnlog "The style listbox is empty"
 298     end if
 299     '/// Press 'Add' button
 300     printlog " Press 'Add' button"
 301     Hinzufuegen.click
 302     Kontext "NameDlg"
 303     '/// Enter string 'Testlinestyle'
 304     printlog " Enter string 'Testlinestyle'"
 305     Eingabefeld.SetText "Testlinestyle"
 306     '/// Close 'Name' dialog with 'Cancel'
 307     printlog " Close 'Name' dialog with 'Cancel'"
 308     NameDlg.Cancel
 309     Kontext "TabLinienenden"
 310     '/// Press 'Modify' button
 311     printlog " Press 'Modify' button"
 312     Aendern.Click
 313     '/// Press 'Modify' button again
 314     printlog " Press 'Modify' button again"
 315     Aendern.Click
 316     '/// Close messagebox with 'OK'
 317     printlog " Close messagebox with 'OK'"
 318     Kontext
 319     if Active.exists (2) then
 320         active.OK
 321     end if
 322     Kontext "NameDlg"
 323     '/// Enter original title to restore defaults
 324     printlog " Enter original title to restore defaults"
 325     Eingabefeld.SetText sTitle
 326     '/// Close 'Name' dialog with 'OK'
 327     printlog " Close 'Name' dialog with 'OK'"
 328     NameDlg.OK
 329     Kontext "TabLinienenden"
 330     '/// Press 'Delete' button
 331     printlog " Press 'Delete' button"
 332     Loeschen.Click
 333     Kontext "Active"
 334     '/// Close messagebox with 'No'
 335     printlog " Close messagebox with 'No'"
 336     active.no
 337     Kontext "TabLinienenden"
 338     '/// Press 'Open' button
 339     printlog " Press 'Open' button"
 340     Oeffnen.Click
 341     Kontext "OeffnenDLG"
 342     Kontext "Active"
 343     If Active.Exists then
 344         Active.No
 345     end if
 346     Kontext "OeffnenDLG"
 347     '/// Close 'Open' dialog with 'Cancel'
 348     printlog " Close 'Open' dialog with 'Cancel'"
 349     OeffnenDLG.Cancel
 350     Kontext "TabLinienenden"
 351     '/// Press 'Save' button
 352     printlog " Press 'Save' button"
 353     Speichern.click
 354     Kontext "SpeichernDLG"
 355     '/// Close 'Save' dialog with 'Cancel'
 356     printlog " Close 'Save' dialog with 'Cancel'"
 357     SpeichernDLg.Cancel
 358     Kontext "TabLinienenden"
 359     '/// Close dialog with 'Cancel'
 360     printlog " Close dialog with 'Cancel'"
 361     TabLinienenden.Cancel
 362     '/// Close document
 363     printlog " Close document"
 364     Call hCloseDocument
 365     hFileDelete( gLastWorkFile )
 366
 367 endcase
 368
 369 '-----------------------------------------------------------
 370
 371 testcase tFormatGraphicArea
 372 '///<u><b>Format -  - Graphic - Area</b></u>
 373
 374     '/// Load document from 'gTesttoolPath + "spreadsheet\required\input\twoobjects.ods"'
 375     printlog " Load document from 'gTesttoolPath + spreadsheet\required\input\twoobjects.ods"
 376     hFileOpenLocally( gTesttoolPath & "spreadsheet\required\input\twoobjects.ods" )
 377     '/// Select first object by Navigator
 378     printlog " Select first object by Navigator"
 379     Call fNavigatorSelectObject ("drawing objects", 1)
 380     '/// Open 'Format – Area' dialog by 'Format – Area'
 381     printlog " Open 'Format – Area' dialog by 'Format – Area'"
 382     FormatArea
 383
 384     printlog ""
 385     '/// Switch to tabpage 'Area'
 386     printlog " Switch to tabpage 'Area'"
 387     Kontext
 388     active.SetPage TabArea
 389     Kontext "TabArea"
 390     '/// Choose first entry (None) in 'Fill' listbox
 391     printlog " Choose first entry (None) in 'Fill' listbox"
 392     FillOptions.Select 1
 393     Call DialogTest ( TabArea,1 )
 394     '/// Choose second entry (Color) in 'Fill' listbox
 395     printlog " Choose second entry (Color) in 'Fill' listbox"
 396     FillOptions.Select 2
 397     Call DialogTest ( TabArea,2 )
 398     '/// Verify that the 'Color' listbox has items
 399     printlog " Verify that the 'Color' listbox has items"
 400     If ColourList.GetItemCount < 1 then
 401         warnlog "The color list is empty"
 402     end if
 403     '/// Choose third entry (Gradient) in 'Fill' listbox
 404     printlog " Choose third entry (Gradient) in 'Fill' listbox"
 405     FillOptions.Select 3
 406     Call DialogTest ( TabArea,3 )
 407     '/// Verify that the 'Gradient' listbox has items
 408     printlog " Verify that the 'Gradient' listbox has items"
 409     If GradientList.GetItemCount < 1 then
 410         warnlog "The gradient list is empty"
 411     end if
 412     '/// Uncheck 'Automatic'
 413     printlog " Uncheck 'Automatic'"
 414     Automatic.UnCheck
 415     '/// Increase 'Increments'
 416     printlog " Increase 'Increments'"
 417     Increments.More
 418     '/// Choose fourth entry (Hatching) in 'Fill' listbox
 419     printlog " Choose fourth entry (Hatching) in 'Fill' listbox"
 420     FillOptions.Select 4
 421     Call DialogTest ( TabArea,4 )
 422     '/// Verify that the 'Hatching' listbox has items
 423     printlog " Verify that the 'Hatching' listbox has items"
 424     If HatchingList.GetItemCount < 1 then
 425         warnlog "The hatching list is empty"
 426     end if
 427     '/// Check 'Background color'
 428     printlog " Check 'Background color'"
 429     BackgroundColour.Check
 430     '/// Verify that the 'Color' listbox has items
 431     printlog " Verify that the 'Color' listbox has items"
 432     If BackgroundColourList.GetItemCount < 1 then
 433         warnlog "The color list is empty"
 434     end if
 435     '/// Choose fifth entry (Bitmaps) in 'Fill' listbox
 436     printlog " Choose fifth entry (Bitmaps) in 'Fill' listbox"
 437     FillOptions.Select 5
 438     Call DialogTest ( TabArea,5 )
 439     '/// Verify that the 'Bitmap' listbox has items
 440     printlog " Verify that the 'Bitmap' listbox has items"
 441     If BitmapList.GetItemCount < 1 then
 442         warnlog "The bitmap list is empty"
 443     end if
 444     '/// Uncheck 'Original'
 445     printlog " Uncheck 'Original'"
 446     Original.UnCheck
 447     '/// Increase 'Width'
 448     printlog " Increase 'Width'"
 449     Width.More
 450     '/// Check 'Relative'
 451     printlog " Check 'Relative'"
 452     Relative.Check
 453     '/// Decrease 'Height'
 454     printlog " Decrease 'Height'"
 455     Height.Less
 456     '/// Check 'Tile'
 457     printlog " Check 'Tile'"
 458     Tile.Check
 459     '/// Increase 'X Offset'
 460     printlog " Increase 'X Offset'"
 461     XOffset.More
 462     '/// Increase 'Y Offset'
 463     printlog " Increase 'Y Offset'"
 464     YOffset.More
 465     '/// Uncheck 'Tile'
 466     printlog " Uncheck 'Tile'"
 467     Tile.UnCheck
 468     '/// Uncheck 'AutoFit'
 469     printlog " Uncheck 'AutoFit'"
 470     Stretch.UnCheck
 471     '/// Check 'Tile'
 472     printlog " Check 'Tile'"
 473     Tile.Check
 474     '/// Check 'Row'
 475     printlog " Check 'Row'"
 476     Row.Check
 477     '/// Check 'Column'
 478     printlog " Check 'Column'"
 479     Column.Check
 480     '/// Increase percentvalue
 481     printlog " Increase percentvalue"
 482     Offset.More
 483
 484     printlog ""
 485     '/// Switch to tabpage 'Shadow'
 486     printlog " Switch to tabpage 'Shadow'"
 487     Kontext
 488     active.SetPage TabSchatten
 489     kontext "TabSchatten"
 490     Call DialogTest ( TabSchatten )
 491     '/// Check 'Use shadow'
 492     printlog " Check 'Use shadow'"
 493     Anzeigen.Check
 494     '/// Increase 'Distance'
 495     printlog " Increase 'Distance'"
 496     Entfernung.More
 497     '/// Verify that the 'Color' listbox has items
 498     printlog " Verify that the 'Color' listbox has items"
 499     if Farbe.getItemCount < 1 then
 500         warnlog "The listbox for colors is empty"
 501     end if
 502     '/// Increase 'Transparency'
 503     printlog " Increase 'Transparency'"
 504     Transparenz.More
 505
 506     printlog ""
 507     '/// Switch to tabpage 'Transparency'
 508     printlog " Switch to tabpage 'Transparency'"
 509     Kontext
 510     active.SetPage TabTransparenz
 511     Kontext "TabTransparenz"
 512     Call DialogTest ( TabTransparenz )
 513     '/// Check 'Transparency'
 514     printlog " Check 'Transparency'"
 515     LineareTransparenz.Check
 516     '/// Increase percentvalue
 517     printlog " Increase percentvalue"
 518     MFLinTransparenz.More
 519     '/// Check 'Gradient'
 520     printlog " Check 'Gradient'"
 521     Transparenzverlauf.Check
 522     '/// Choose last entry (Square) for 'Type'
 523     printlog " Choose last entry (Square) for 'Type'"
 524     TransparenzverlaufTyp.Select 6
 525     '/// Increase 'Center X'
 526     printlog " Increase 'Center X'"
 527     MFZentrumX.More
 528     '/// Decrease 'Center Y'
 529     printlog " Decrease 'Center Y'"
 530     MFZentrumY.Less
 531     '/// Increase 'Angle'
 532     printlog " Increase 'Angle'"
 533     MFWinkel.More
 534     '/// Increase 'Border'
 535     printlog " Increase 'Border'"
 536     MFRand.More
 537     '/// Increase 'Start value'
 538     printlog " Increase 'Start value'"
 539     MFStartwert.More
 540     '/// Decrease 'End value'
 541     printlog " Decrease 'End value'"
 542     MFEndwert.Less
 543
 544     printlog ""
 545     '/// Switch to tabpage 'Colors'
 546     printlog " Switch to tabpage 'Colors'"
 547     Kontext
 548     active.SetPage TabFarben
 549     Kontext "TabFarben"
 550     Call DialogTest ( TabFarben )
 551     '/// Enter colorname 'Color_added_by_Testtool'
 552     printlog " Enter colorname 'Color_added_by_Testtool'"
 553     FarbName.SetText "Color_added_by_Testtool"
 554     '/// Verify that the color listbox is not empty
 555     printlog " Verify that the color listbox is not empty"
 556     if Farbe.getItemCount < 1 then
 557         warnlog "The listbox for colors is empty"
 558     end if
 559     '/// Choose RGB
 560     printlog " Choose RGB"
 561     Farbmodell.Select 1
 562     '/// Increase 'R'
 563     printlog " Increase 'R'"
 564     R.More
 565     '/// Decrease 'G'
 566     printlog " Decrease 'G'"
 567     G.Less
 568     '/// Increase 'B'
 569     printlog " Increase 'B'"
 570     B.More
 571     '/// Choose 'CMYK'
 572     printlog " Choose 'CMYK'"
 573     Farbmodell.Select 2
 574     '/// Increase 'C'
 575     printlog " Increase 'C'"
 576     C.More
 577     '/// Decrease 'M'
 578     printlog " Decrease 'M'"
 579     M.Less
 580     '/// Increase 'Y'
 581     printlog " Increase 'Y'"
 582     Y.More
 583     '/// Decrease 'K'
 584     printlog " Decrease 'K'"
 585     K.Less
 586     '/// Press 'Add' button
 587     printlog " Press 'Add' button"
 588     Hinzufuegen.Click
 589     '/// Press 'Modify' button
 590     printlog " Press 'Modify' button"
 591     Aendern.Click
 592     '/// Press 'Edit' button
 593     printlog " Press 'Edit' button"
 594     Bearbeiten.Click
 595     Kontext "FarbeDlg"
 596     Call DialogTest ( FarbeDlg )
 597     '/// Increase 'Cyan'
 598     printlog " Increase 'Cyan'"
 599     Cyan.More
 600     '/// Decrease 'Magenta'
 601     printlog " Decrease 'Magenta'"
 602     Magenta.Less
 603     '/// Increase 'Yellow'
 604     printlog " Increase 'Yellow'"
 605     Yellow.More
 606     '/// Decrease 'Key'
 607     printlog " Decrease 'Key'"
 608     Key.Less
 609     '/// Increase 'Red'
 610     printlog " Increase 'Red'"
 611     Rot.More
 612     '/// Decrease 'Green'
 613     printlog " Decrease 'Green'"
 614     Gruen.Less
 615     '/// Increase 'Blue'
 616     printlog " Increase 'Blue'"
 617     Blau.More
 618     '/// Increase 'Hue'
 619     printlog " Increase 'Hue'"
 620     Farbton.More
 621     '/// Decrease 'Saturation'
 622     printlog " Decrease 'Saturation'"
 623     Saettigung.Less
 624     '/// Increase 'Brightness'
 625     printlog " Increase 'Brightness'"
 626     Hell.More
 627     '/// Press left arrow button
 628     printlog " Press left arrow button"
 629     Links.Click
 630     '/// Press right arrow button
 631     printlog " Press right arrow button"
 632     Rechts.Click
 633     '/// Close dialog with 'Cancel'
 634     printlog " Close dialog with 'Cancel'"
 635     FarbeDlg.Cancel
 636     Kontext "TabFarben"
 637     '/// Press 'Delete' button
 638     printlog " Press 'Delete' button"
 639     Loeschen.Click
 640     '/// Close messagebox with 'Yes'
 641     printlog " Close messagebox with 'Yes'"
 642     Kontext "Active"
 643     Active.Yes
 644     Kontext "TabFarben"
 645     '/// Press 'Open' button to open 'File open' dialog
 646     printlog " Press 'Open' button to open 'File open' dialog"
 647     Oeffnen.click
 648     '/// A messagebox that the modified list is not saved appears. Click 'No'
 649     printlog " A messagebox that the modified list is not saved appears. Click 'No'"
 650     Kontext "Active"
 651     Active.No
 652     '/// Close 'Open' dialog with 'Cancel'
 653     printlog " Close 'Open' dialog with 'Cancel'"
 654     Kontext "OeffnenDLG"
 655     OeffnenDLG.Cancel
 656     Kontext "TabFarben"
 657     '/// Press 'Save' button to open 'Save as' dialog
 658     printlog " Press 'Save' button to open 'Save as' dialog"
 659     Speichern.Click
 660     Kontext "SpeichernDLG"
 661     '/// Close 'Save' dialog with 'Cancel'
 662     printlog " Close 'Save' dialog with 'Cancel'"
 663     SpeichernDLG.Cancel
 664
 665     printlog ""
 666     '/// Switch to tabpage 'Gradients'
 667     printlog " Switch to tabpage 'Gradients'"
 668     Kontext
 669     active.SetPage TabFarbverlaeufe
 670     Kontext "TabFarbverlaeufe"
 671     '/// Choose last entry (Rectangular) in 'Type' listbox
 672     printlog " Choose last entry (Rectangular) in 'Type' listbox"
 673     Typ.Select 6
 674     '/// Increase 'Center X'
 675     printlog " Increase 'Center X'"
 676     ZentrumX.More
 677     '/// Decrease 'Center Y'
 678     printlog " Decrease 'Center Y'"
 679     ZentrumY.Less
 680     '/// Increase 'Angle'
 681     printlog " Increase 'Angle'"
 682     Winkel.More
 683     '/// Increase 'Border'
 684     printlog " Increase 'Border'"
 685     Rand.More
 686     '/// Choose second entry in 'From' listbox
 687     printlog " Choose second entry in 'From' listbox"
 688     Von.Select 2
 689     '/// Decrease percentvalue
 690     printlog " Decrease percentvalue"
 691     VonWert.Less
 692     '/// Choose fifth entry in 'To' listbox
 693     printlog " Choose fifth entry in 'To' listbox"
 694     Bis.Select 5
 695     '/// Decrease percentvalue
 696     printlog " Decrease percentvalue"
 697     BisWert.Less
 698     '/// Press 'Add' button to open 'Name' dialog
 699     printlog " Press 'Add' button to open 'Name' dialog"
 700     Hinzufuegen.Click
 701     Kontext "NameDlg"
 702     '/// Close 'name' dialog with 'Cancel'
 703     printlog " Close 'name' dialog with 'Cancel'"
 704     NameDlg.Cancel
 705     Kontext "TabFarbverlaeufe"
 706     '/// Press 'Modify' button to open 'Name' dialog
 707     printlog " Press 'Modify' button to open 'Name' dialog"
 708     Aendern.Click
 709     Kontext "NameDlg"
 710     '/// Close 'name' dialog with 'Cancel'
 711     printlog " Close 'name' dialog with 'Cancel'"
 712     NameDlg.Cancel
 713     Kontext "TabFarbverlaeufe"
 714     '/// Press 'Delete' button
 715     printlog " Press 'Delete' button"
 716     Loeschen.Click
 717     '/// Close messagebox with 'No'
 718     printlog " Close messagebox with 'No'"
 719     kontext
 720     active.no
 721     Kontext "TabFarbverlaeufe"
 722     '/// Press 'Open' button to open 'File open' dialog
 723     printlog " Press 'Open' button to open 'File open' dialog"
 724     Oeffnen.Click
 725     Kontext "OeffnenDLG"
 726     '/// Close 'Open' dialog with 'Cancel'
 727     printlog " Close 'Open' dialog with 'Cancel'"
 728     OeffnenDLG.Cancel
 729     Kontext "TabFarbverlaeufe"
 730     '/// Press 'Save' button to open 'Save as' dialog
 731     printlog " Press 'Save' button to open 'Save as' dialog"
 732     Speichern.Click
 733     Kontext "SpeichernDLG"
 734     '/// Close 'Save' dialog with 'Cancel'
 735     printlog " Close 'Save' dialog with 'Cancel'"
 736     SpeichernDLG.Cancel
 737
 738     printlog ""
 739     '/// Switch to tabpage 'Hatching'
 740     printlog " Switch to tabpage 'Hatching'"
 741     Kontext
 742     active.SetPage TabSchraffuren
 743     Kontext "TabSchraffuren"
 744     '/// If a messagebox appears, close messagebox with 'Cancel'
 745     printlog " If a messagebox appears, close messagebox with 'Cancel'"
 746     Kontext
 747     Kontext "Active"
 748     If Active.Exists then
 749         Kontext "Linienstil"
 750         Linienstil.Cancel
 751     end if
 752     Kontext "TabSchraffuren"
 753     '/// Verify that there are sample hatchings
 754     printlog " Verify that there are sample hatchings"
 755     If Tabelle.GetItemCount < 1 then
 756         warnlog "There are no hatchings available"
 757     end if
 758     '/// Decrease 'Spacing'
 759     printlog " Decrease 'Spacing'"
 760     Abstand.Less
 761     '/// Increase 'Angle'
 762     printlog " Increase 'Angle'"
 763     Winkel.More
 764     '/// Verify that the 'Line type' listbox has three entries
 765     printlog " Verify that the 'Line type' listbox has three entries"
 766     If Linientyp.GetItemCount < 1 then
 767         warnlog "There are no linetypes available"
 768     end if
 769     '/// Verify that the color listbox is not empty
 770     printlog " Verify that the color listbox is not empty"
 771     If Linienfarbe.GetItemCount < 1 then
 772         warnlog "There are no linecolors available"
 773     end if
 774     '/// Press 'Add' button to open 'Name' dialog
 775     printlog " Press 'Add' button to open 'Name' dialog"
 776     Hinzufuegen.Click
 777     '/// Close 'name' dialog with 'Cancel'
 778     printlog " Close 'name' dialog with 'Cancel'"
 779     Kontext "NameDlg"
 780     NameDlg.Cancel
 781     Kontext "TabSchraffuren"
 782     '/// Press 'Modify' button to open 'Name' dialog
 783     printlog " Press 'Modify' button to open 'Name' dialog"
 784     Aendern.Click
 785     '/// Close 'name' dialog with 'Cancel'
 786     printlog " Close 'name' dialog with 'Cancel'"
 787     Kontext "NameDlg"
 788     NameDlg.Cancel
 789     Kontext "TabSchraffuren"
 790     '/// Press 'Delete' button
 791     printlog " Press 'Delete' button"
 792     Loeschen.Click
 793     '/// Close messagebox with 'No'
 794     printlog " Close messagebox with 'No'"
 795     Kontext
 796     if Active.exists then
 797         Active.no
 798     end if
 799     Kontext "TabSchraffuren"
 800     '/// Press 'Open' button to open 'File open' dialog
 801     printlog " Press 'Open' button to open 'File open' dialog"
 802     Oeffnen.Click
 803     Kontext "OeffnenDLG"
 804     '/// Close 'Open' dialog with 'Cancel'
 805     printlog " Close 'Open' dialog with 'Cancel'"
 806     OeffnenDLG.Cancel
 807     Kontext "TabSchraffuren"
 808     '/// Press 'Save' button to open 'Save as' dialog
 809     printlog " Press 'Save' button to open 'Save as' dialog"
 810     Speichern.Click
 811     '/// Close 'Save' dialog with 'Cancel'
 812     printlog " Close 'Save' dialog with 'Cancel'"
 813     Kontext "SpeichernDLG"
 814     SpeichernDLG.Cancel
 815
 816     printlog ""
 817     '/// Switch to tabpage 'Bitmaps'
 818     printlog " Switch to tabpage 'Bitmaps'"
 819     Kontext
 820     active.SetPage TabBitmap
 821     Kontext "TabBitmap"
 822     '/// If a messagebox appears, close messagebox with 'Cancel'
 823     printlog " If a messagebox appears, close messagebox with 'Cancel'"
 824     Kontext
 825     Kontext "Active"
 826     If Active.Exists then
 827         Kontext "Linienstil"
 828         Linienstil.Cancel
 829     end if
 830     Kontext "TabBitmap"
 831     Call DialogTest ( TabBitmap )
 832     '/// Verify that the listbox for 'Foreground color' is not empty
 833     printlog " Verify that the listbox for 'Foreground color' is not empty"
 834     If Vordergrund.GetItemCount < 1 then
 835         warnlog "There are no colors available"
 836     end if
 837     '/// Verify that the listbox for Background color' is not empty
 838     printlog " Verify that the listbox for Background color' is not empty"
 839     If Hintergrund.GetItemCount < 1 then
 840         warnlog "There are no colors available"
 841     end if
 842     '/// Verify that the listbox for Bitmaps is not empty
 843     printlog " Verify that the listbox for Bitmaps is not empty"
 844     If Tabelle.GetItemCount < 1 then
 845         warnlog "There are no Bitmaps available"
 846     end if
 847     '/// Press 'Add' button to open 'Name' dialog
 848     printlog " Press 'Add' button to open 'Name' dialog"
 849     Hinzufuegen.Click
 850     '/// Close 'name' dialog with 'Cancel'
 851     printlog " Close 'name' dialog with 'Cancel'"
 852     Kontext "NameDlg"
 853     NameDlg.Cancel
 854     Kontext "TabBitmap"
 855     '/// Press 'Modify' button to open 'Name' dialog
 856     printlog " Press 'Modify' button to open 'Name' dialog"
 857     Aendern.Click
 858     '/// Close 'name' dialog with 'Cancel'
 859     printlog " Close 'name' dialog with 'Cancel'"
 860     Kontext "NameDlg"
 861     NameDlg.Cancel
 862     Kontext "TabBitmap"
 863     '/// Press 'Import' button to open 'Import' dialog
 864     printlog " Press 'Import' button to open 'Import' dialog"
 865     Import.Click
 866     Kontext "GrafikEinfuegenDlg"
 867     '/// Close 'Import' dialog with 'Cancel'
 868     printlog " Close 'Import' dialog with 'Cancel'"
 869     GrafikEinfuegenDlg.Cancel
 870     Kontext "TabBitmap"
 871     '/// Press 'Delete' button
 872     printlog " Press 'Delete' button"
 873     Loeschen.Click
 874     '/// Close messagebox with 'No'
 875     printlog " Close messagebox with 'No'"
 876     Kontext
 877     if Active.exists then
 878         Active.no
 879     end if
 880     Kontext "TabBitmap"
 881     '/// Press 'Open' button to open 'File open' dialog
 882     printlog " Press 'Open' button to open 'File open' dialog"
 883     Oeffnen.Click
 884     '/// If a messagebox appears, close messagebox with 'No'
 885     printlog " If a messagebox appears, close messagebox with 'No'"
 886     Kontext "OeffnenDLG"
 887     '/// Close 'Open' dialog with 'Cancel'
 888     printlog " Close 'Open' dialog with 'Cancel'"
 889     OeffnenDLG.Cancel
 890     Kontext "TabBitmap"
 891     '/// Press 'Save' button to open 'Save as' dialog
 892     printlog " Press 'Save' button to open 'Save as' dialog"
 893     Speichern.Click
 894     Kontext "SpeichernDLG"
 895     '/// Close 'Save' dialog with 'Cancel'
 896     printlog " Close 'Save' dialog with 'Cancel'"
 897     SpeichernDLG.Cancel
 898
 899     printlog ""
 900     '/// Close 'Area' dialog with 'Cancel'
 901     printlog " Close 'Area' dialog with 'Cancel'"
 902     Kontext "TabBitmap"
 903     TabBitmap.Cancel
 904
 905     '/// Close document
 906     printlog " Close document"
 907     Call hCloseDocument
 908     hFileDelete( gLastWorkFile )
 909
 910 endcase
 911
 912 '-----------------------------------------------------------
 913
 914 testcase tFormatGraphicText
 915 '///<u><b>Format - Graphic - Text</b></u>
 916
 917     '/// Load document from 'gTesttoolPath + "spreadsheet\required\input\twoobjects.ods"'
 918     printlog " Load document from 'gTesttoolPath + spreadsheet\required\input\twoobjects.ods"
 919     hFileOpenLocally( gTesttoolPath & "spreadsheet\required\input\twoobjects.ods" )
 920     '/// Select first object by Navigator
 921     printlog " Select first object by Navigator"
 922     Call fNavigatorSelectObject ("drawing objects", 1)
 923     '/// Open 'Format – Line' dialog by 'Format – Graphic – Line'
 924     printlog " Open 'Format – Text' dialog by 'Format – Graphic – Text'"
 925     FormatTextCalc
 926     '/// Switch to tabpage 'Text'
 927     printlog " Switch to tabpage 'Text'"
 928     Kontext
 929     Active.SetPage TabText
 930     Kontext "TabText"
 931     Call DialogTest ( TabText )
 932     '/// Verify that 'Fit width to text' is disabled
 933     printlog " Verify that 'Fit width to text' is disabled"
 934     If BreiteAnTextAnpassen.IsEnabled then
 935         warnlog "Fit width to text is enabled"
 936     end if
 937     '/// Verify that 'Fit heights to text' is disabled
 938     printlog " Verify that 'Fit heights to text' is disabled"
 939     If HoeheAnTextAnpassen.IsEnabled then
 940         warnlog "Fit heights to text is enabled"
 941     end if
 942     '/// Verify that 'Word wrap text in shape' is disabled
 943     printlog " Verify that 'Word wrap text in shape' is disabled"
 944     If WordWrap.IsEnabled then
 945         warnlog "Word wrap text in shape is enabled"
 946     end if
 947     '/// Verify that 'Resize shape to fit text' is disabled
 948     printlog " Verify that 'Resize shape to fit text' is disabled"
 949     If ResizeShape.IsEnabled then
 950         warnlog "Resize shape to fit textt is enabled"
 951     end if
 952     '/// Uncheck 'Fit to frame'
 953     printlog " Uncheck 'Fit to frame'"
 954     AmRahmenAnpassen.UnCheck
 955     '/// Uncheck 'Adjust to contour'
 956     printlog " Uncheck 'Adjust to contour'"
 957     Konturfluss.UnCheck
 958     '/// Increase 'Spacing Left'
 959     printlog " Increase 'Spacing Left'"
 960     Links.More
 961     '/// Increase 'Spacing Right'
 962     printlog " Increase 'Spacing Right'"
 963     Rechts.More
 964     '/// Increase 'Spacing Top'
 965     printlog " Increase 'Spacing Top'"
 966     Oben.More
 967     '/// Increase 'Spacing Bottom'
 968     printlog " Increase 'Spacing Bottom'"
 969     Unten.More
 970     '/// Check 'Full Width'
 971     printlog " Check 'Full Width'"
 972     GanzeBreite.Check
 973
 974     '/// Switch to tabpage 'Text Animation'
 975     printlog " Switch to tabpage 'Text Animation'"
 976     Kontext
 977     Active.SetPage TabLauftext
 978     Kontext "TabLauftext"
 979     Call DialogTest ( TabLauftext )
 980     '/// Choose 'Effect' 4 (Scroll back and forth)
 981     Effekt.Select 4
 982     '/// Click button 'Up'
 983     printlog " Click button 'Up'"
 984     NachOben.Click
 985     '/// Click button 'Left'
 986     printlog " Click button 'Left'"
 987     NachLinks.Click
 988     '/// Click button 'Down'
 989     printlog " Click button 'Down'"
 990     NachUnten.Click
 991     '/// Click button 'Right'
 992     printlog " Click button 'Right'"
 993     NachRechts.Click
 994     '/// UnCheck 'Start inside'
 995     printlog " UnCheck 'Start inside'"
 996     TextSichtbarBeimStarten.UnCheck
 997     '/// UnCheck 'Text visible when exiting'
 998     printlog " UnCheck 'Text visible when exiting'"
 999     TextSichtbarBeimBeenden.UnCheck
1000     '/// Uncheck 'Continous'
1001     printlog " Uncheck 'Continous'"
1002     Endlos.UnCheck
1003     '/// Increase number
1004     printlog " Increase number"
1005     Anzahl.More
1006     '/// Check 'Pixels'
1007     printlog " Check 'Pixels'"
1008     Pixel.Check
1009     '/// Increase number
1010     printlog " Increase number"
1011     Schrittweite.More
1012     '/// Uncheck 'Automatic'
1013     printlog " Uncheck 'Automatic'"
1014     Automatisch.UnCheck
1015     '/// Increase time
1016     printlog " Increase time"
1017     Verzoegerung.More
1018
1019     '/// Close dialog with 'Cancel'
1020     printlog " Close dialog with 'Cancel'"
1021     TabLauftext.Cancel
1022     '/// Close document
1023     printlog " Close document"
1024     call hCloseDocument
1025     hFileDelete( gLastWorkFile )
1026
1027 endcase
1028
1029 '-----------------------------------------------------------
1030
1031 testcase tFormatGraphicPoints
1032 '///<u><b>Format - Graphic - Points</b></u>
1033
1034     '/// Load document from 'gTesttoolPath + "spreadsheet\required\input\twoobjects.ods"'
1035     printlog " Load document from 'gTesttoolPath + spreadsheet\required\input\twoobjects.ods"
1036     hFileOpenLocally( gTesttoolPath & "spreadsheet\required\input\twoobjects.ods" )
1037     '/// Select first object by Navigator
1038     printlog " Select first object by Navigator"
1039     Call fNavigatorSelectObject ("drawing objects", 1)
1040     '/// Toggle 'Points' by 'Format - Graphic - Points
1041     FormatPointsCalc
1042     FormatPointsCalc
1043     '/// Close document
1044     printlog " Close document"
1045     call hCloseDocument
1046     hFileDelete( gLastWorkFile )
1047
1048 endcase
1049
1050 '-----------------------------------------------------------
1051