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