'encoding UTF-8 Do not remove or change this line!
'*************************************************************************
'
' Licensed to the Apache Software Foundation (ASF) under one
' or more contributor license agreements. See the NOTICE file
' distributed with this work for additional information
' regarding copyright ownership. The ASF licenses this file
' to you under the Apache License, Version 2.0 (the
' "License"); you may not use this file except in compliance
' with the License. You may obtain a copy of the License at
'
' http://www.apache.org/licenses/LICENSE-2.0
'
' Unless required by applicable law or agreed to in writing,
' software distributed under the License is distributed on an
' "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
' KIND, either express or implied. See the License for the
' specific language governing permissions and limitations
' under the License.
'
'*************************************************************************
'*
'* short description : Resource Test - Format Menu Part III
'*
'\***********************************************************************
sub c_upd_formatmenu3
Printlog Chr(13) + "--------- Format Menu Part III (c_upd_formatmenu3.inc) ---------"
call tFormatGraphicPositionAndSize
call tFormatGraphicLine
call tFormatGraphicArea
call tFormatGraphicText
call tFormatGraphicPoints
end sub
'-----------------------------------------------------------
testcase tFormatGraphicPositionAndSize
'///Format - Graphic – Position and Size
'/// Load document from 'gTesttoolPath + "spreadsheet\required\input\twoobjects.ods"'
printlog " Load document from 'gTesttoolPath + spreadsheet\required\input\twoobjects.ods"
hFileOpenLocally( gTesttoolPath + "spreadsheet\required\input\twoobjects.ods" )
'/// Select first object by Navigator
printlog " Select first object by Navigator"
Call fNavigatorSelectObject ("drawing objects", 1)
'/// Open 'Position and Size' – dialog by 'Format – Graphic – Position and Size'
printlog " Open 'Position and Size' – dialog by 'Format – Graphic – Position and Size'"
FormatTransform
printlog
'/// Switch to tabpage 'Position and Size'
printlog " Switch to tabpage 'Position and Size'"
Kontext
Active.SetPage TabPositionAndSize
Kontext "TabPositionAndSize"
Call DialogTest ( TabPositionAndSize )
'/// Uncheck 'Position'
printlog " Uncheck 'Position'"
ProtectPosition.Uncheck
'/// Check 'Size'
printlog " Uncheck 'Size'"
ProtectSize.Uncheck
'/// Increase 'Position X'
printlog " Increase 'Position X'"
PositionX.More
'/// Decrease 'Position Y'
printlog " Decrease 'Position Y'"
PositionY.Less
'/// Increase 'Width'
printlog " Increase 'Width'"
Width.More
'/// Decrease 'Height'
printlog " Decrease 'Height'"
Height.Less
'/// Check 'Keep ratio'
printlog " Check 'Keep ratio'"
KeepRatio.Check
printlog ""
'/// Switch to tabpage 'Rotation'
printlog " Switch to tabpage 'Rotation'"
Kontext
Active.SetPage TabDrehung
Kontext "TabDrehung"
Call DialogTest ( TabDrehung )
'/// Increase 'Position X'
printlog " Increase 'Position X'"
PositionX.More
'/// Decrease 'Position Y'
printlog " Decrease 'Position Y'"
PositionY.Less
'/// Increase 'Angle'
printlog " Increase 'Angle'"
Winkel.More
'/// Switch to tabpage 'Slant & Corner Radius'
printlog " Switch to tabpage 'Slant & Corner Radius'"
Kontext
Active.SetPage TabSchraegstellen
Kontext "TabSchraegstellen"
Call DialogTest ( TabSchraegstellen )
'/// Increase radius
printlog " Increase radius"
Radius.More
'/// Increase angle
printlog " Increase angle"
Winkel.More
'/// Close 'Position and Size' – dialog by 'Cancel'
printlog " Close 'Position and Size' – dialog by 'Cancel'"
TabSchraegstellen.Close
'/// Close document
printlog " Close document"
call hCloseDocument
hFileDelete( gLastWorkFile )
endcase
'-----------------------------------------------------------
testcase tFormatGraphicLine
'///Format - Graphic - Line
Dim sTitle as string
'/// Load document from 'gTesttoolPath + "spreadsheet\required\input\twoobjects.ods"'
printlog " Load document from 'gTesttoolPath + spreadsheet\required\input\twoobjects.ods"
hFileOpenLocally( gTesttoolPath & "spreadsheet\required\input\twoobjects.ods" )
'/// Select first object by Navigator
printlog " Select first object by Navigator"
Call fNavigatorSelectObject ("drawing objects", 1)
'/// Open 'Format – Line' dialog by 'Format – Graphic – Line'
printlog " Open 'Format – Line' dialog by 'Format – Graphic – Line'"
FormatLine
'/// Switch to tabpage 'Line'
printlog " Switch to tabpage 'Line'"
Kontext
active.setpage TabLinie
Kontext "TabLinie"
Call DialogTest ( TabLinie )
'/// Verify that the 'Style' listbox for 'Line properties' is not empty
printlog " Verify that the 'Style' listbox for 'Line properties' is not empty"
If Stil.GetItemCount < 1 then
warnlog "The listbox for styles is empty"
end if
'/// Verify that the 'Color' listbox for 'Line properties' is not empty
printlog " Verify that the 'Color' listbox for 'Line properties' is not empty"
If Farbe.GetItemCount < 1 then
warnlog "The listbox for colors is empty"
end if
'/// Increase 'Width'
printlog " Increase 'Width'"
Breite.More
'/// Increase 'Transparency'
printlog " Increase 'Transparency'"
Transparenz.More
'/// Uncheck 'Synchronize ends'
printlog " Uncheck 'Synchronize ends'"
EndenSynchronisieren.Uncheck
'/// Verify that the left 'Style' listbox for 'Arrow Styles' is not empty
printlog " Verify that the left 'Style' listbox for 'Arrow Styles' is not empty"
If StilLinks.GetItemCount < 1 then
warnlog "The listbox for styles is empty"
end if
printlog "Choose second entry"
StilLinks.Select 2
'/// Verify that the right 'Style' listbox for 'Arrow Styles' is not empty
printlog " Verify that the right 'Style' listbox for 'Arrow Styles' is not empty"
If StilRechts.GetItemCount < 1 then
warnlog "The listbox for styles is empty"
end if
printlog "Choose second entry"
StilRechts.Select 2
'/// Check the left 'Center' checkbox
printlog " Check the left 'Center' checkbox"
ZentriertLinks.Check
'/// Check the right 'Center' checkbox
printlog " Check the right 'Center' checkbox"
ZentriertRechts.Check
'/// Verify that the 'Style' listbox for 'Corner Style' is not empty
printlog " Verify that the 'Style' listbox for 'Corner Style' is not empty"
If CornerStyle.GetItemCount < 1 then
warnlog "The listbox for styles is empty"
end if
printlog ""
'/// Switch to tabpage 'Line Styles'
printlog " Switch to tabpage 'Line Styles'"
Kontext
active.setpage TabLinienstile
Kontext "TabLinienstile"
Call DialogTest ( TabLinienstile )
'/// Verify that the 'Line Style' listbox is not empty
printlog " Verify that the 'Line Style' listbox is not empty"
If Linienstil.GetItemCount < 1 then
warnlog "The listbox for styles is empty"
end if
'/// Choose first entry in left 'Type' listbox
printlog " Choose second entry in left 'Type' listbox"
TypLinks.Select 2
'/// Choose second entry in right 'Type' listbox
printlog " Choose second entry in right 'Type' listbox"
TypRechts.Select 2
'/// Increase left 'Number'
printlog " Increase left 'Number'"
AnzahlLinks.More
'/// Decrease right 'Number'
printlog " Decrease right 'Number'"
AnzahlRechts.Less
'/// Increase left 'Length'
printlog " Increase left 'Length'"
LaengeLinks.More
'/// Decrease right 'Length'
printlog " Decrease right 'Length'"
LaengeRechts.Less
'/// Increase 'Spacing'
printlog " Increase 'Spacing'"
Abstand.More
'/// Check 'Fit to line width'
printlog " Check 'Fit to line width'"
AnLinienbreite.Check
'/// Press 'Add' button
printlog " Press 'Add' button"
Hinzufuegen.Click
Kontext "NameDlg"
Call DialogTest ( NameDlg )
'/// Enter string 'Testlinestyle'
printlog " Enter string 'Testlinestyle'"
Eingabefeld.SetText "Testlinestyle"
'/// Close 'Name' dialog with 'Cancel'
printlog " Close 'Name' dialog with 'Cancel'"
NameDlg.Cancel
Kontext "TabLinienstile"
'/// Press 'Modify' button
printlog " Press 'Modify' button"
Aendern.Click
Kontext "NameDlg"
'/// Close 'Name' dialog with 'Cancel'
printlog " Close 'Name' dialog with 'Cancel'"
NameDlg.Cancel
Kontext "TabLinienstile"
'/// Press 'Delete' button
printlog " Press 'Delete' button"
Loeschen.Click
Kontext "Active"
'/// Close messagebox with 'No'
printlog " Close messagebox with 'No'"
Active.No
Kontext "TabLinienstile"
'/// Press 'Open' button
printlog " Press 'Open' button"
Oeffnen.click
Kontext "OeffnenDlg"
'/// Close 'Open' dialog with 'Cancel'
printlog " Close 'Open' dialog with 'Cancel'"
OeffnenDlg.Cancel
Kontext "TabLinienstile"
'/// Press 'Save' button
printlog " Press 'Save' button"
Speichern.click
Kontext "SpeichernDlg"
'/// Close 'Save' dialog with 'Cancel'
printlog " Close 'Save' dialog with 'Cancel'"
SpeichernDlg.Cancel
Kontext "TabLinienstile"
printlog ""
'/// Switch to tabpage 'Arrow Styles'
printlog " Switch to tabpage 'Arrow Styles'"
Kontext
active.setpage TabLinienenden
Kontext "Active"
If Active.Exists then
Kontext "Linienstil"
Linienstil.Cancel
end if
Kontext "TabLinienenden"
Call DialogTest ( TabLinienenden )
'/// Set 'Titel' to 'Test'
printlog " Set 'Titel' to 'Test'"
'To get the Office back to the default the title must be memorized for restoring
sTitle = Textfeld.GetText
Textfeld.SetText "Test"
'/// Verify that the 'Arrow style' listbox is not empty
printlog " Verify that the 'Arrow style' listbox is not empty"
If Liste.GetItemCount < 1 then
warnlog "The style listbox is empty"
end if
'/// Press 'Add' button
printlog " Press 'Add' button"
Hinzufuegen.click
Kontext "NameDlg"
'/// Enter string 'Testlinestyle'
printlog " Enter string 'Testlinestyle'"
Eingabefeld.SetText "Testlinestyle"
'/// Close 'Name' dialog with 'Cancel'
printlog " Close 'Name' dialog with 'Cancel'"
NameDlg.Cancel
Kontext "TabLinienenden"
'/// Press 'Modify' button
printlog " Press 'Modify' button"
Aendern.Click
'/// Press 'Modify' button again
printlog " Press 'Modify' button again"
Aendern.Click
'/// Close messagebox with 'OK'
printlog " Close messagebox with 'OK'"
Kontext
if Active.exists (2) then
active.OK
end if
Kontext "NameDlg"
'/// Enter original title to restore defaults
printlog " Enter original title to restore defaults"
Eingabefeld.SetText sTitle
'/// Close 'Name' dialog with 'OK'
printlog " Close 'Name' dialog with 'OK'"
NameDlg.OK
Kontext "TabLinienenden"
'/// Press 'Delete' button
printlog " Press 'Delete' button"
Loeschen.Click
Kontext "Active"
'/// Close messagebox with 'No'
printlog " Close messagebox with 'No'"
active.no
Kontext "TabLinienenden"
'/// Press 'Open' button
printlog " Press 'Open' button"
Oeffnen.Click
Kontext "OeffnenDLG"
Kontext "Active"
If Active.Exists then
Active.No
end if
Kontext "OeffnenDLG"
'/// Close 'Open' dialog with 'Cancel'
printlog " Close 'Open' dialog with 'Cancel'"
OeffnenDLG.Cancel
Kontext "TabLinienenden"
'/// Press 'Save' button
printlog " Press 'Save' button"
Speichern.click
Kontext "SpeichernDLG"
'/// Close 'Save' dialog with 'Cancel'
printlog " Close 'Save' dialog with 'Cancel'"
SpeichernDLg.Cancel
Kontext "TabLinienenden"
'/// Close dialog with 'Cancel'
printlog " Close dialog with 'Cancel'"
TabLinienenden.Cancel
'/// Close document
printlog " Close document"
Call hCloseDocument
hFileDelete( gLastWorkFile )
endcase
'-----------------------------------------------------------
testcase tFormatGraphicArea
'///Format - - Graphic - Area
'/// Load document from 'gTesttoolPath + "spreadsheet\required\input\twoobjects.ods"'
printlog " Load document from 'gTesttoolPath + spreadsheet\required\input\twoobjects.ods"
hFileOpenLocally( gTesttoolPath & "spreadsheet\required\input\twoobjects.ods" )
'/// Select first object by Navigator
printlog " Select first object by Navigator"
Call fNavigatorSelectObject ("drawing objects", 1)
'/// Open 'Format – Area' dialog by 'Format – Area'
printlog " Open 'Format – Area' dialog by 'Format – Area'"
FormatArea
printlog ""
'/// Switch to tabpage 'Area'
printlog " Switch to tabpage 'Area'"
Kontext
active.SetPage TabArea
Kontext "TabArea"
'/// Choose first entry (None) in 'Fill' listbox
printlog " Choose first entry (None) in 'Fill' listbox"
FillOptions.Select 1
Call DialogTest ( TabArea,1 )
'/// Choose second entry (Color) in 'Fill' listbox
printlog " Choose second entry (Color) in 'Fill' listbox"
FillOptions.Select 2
Call DialogTest ( TabArea,2 )
'/// Verify that the 'Color' listbox has items
printlog " Verify that the 'Color' listbox has items"
If ColourList.GetItemCount < 1 then
warnlog "The color list is empty"
end if
'/// Choose third entry (Gradient) in 'Fill' listbox
printlog " Choose third entry (Gradient) in 'Fill' listbox"
FillOptions.Select 3
Call DialogTest ( TabArea,3 )
'/// Verify that the 'Gradient' listbox has items
printlog " Verify that the 'Gradient' listbox has items"
If GradientList.GetItemCount < 1 then
warnlog "The gradient list is empty"
end if
'/// Uncheck 'Automatic'
printlog " Uncheck 'Automatic'"
Automatic.UnCheck
'/// Increase 'Increments'
printlog " Increase 'Increments'"
Increments.More
'/// Choose fourth entry (Hatching) in 'Fill' listbox
printlog " Choose fourth entry (Hatching) in 'Fill' listbox"
FillOptions.Select 4
Call DialogTest ( TabArea,4 )
'/// Verify that the 'Hatching' listbox has items
printlog " Verify that the 'Hatching' listbox has items"
If HatchingList.GetItemCount < 1 then
warnlog "The hatching list is empty"
end if
'/// Check 'Background color'
printlog " Check 'Background color'"
BackgroundColour.Check
'/// Verify that the 'Color' listbox has items
printlog " Verify that the 'Color' listbox has items"
If BackgroundColourList.GetItemCount < 1 then
warnlog "The color list is empty"
end if
'/// Choose fifth entry (Bitmaps) in 'Fill' listbox
printlog " Choose fifth entry (Bitmaps) in 'Fill' listbox"
FillOptions.Select 5
Call DialogTest ( TabArea,5 )
'/// Verify that the 'Bitmap' listbox has items
printlog " Verify that the 'Bitmap' listbox has items"
If BitmapList.GetItemCount < 1 then
warnlog "The bitmap list is empty"
end if
'/// Uncheck 'Original'
printlog " Uncheck 'Original'"
Original.UnCheck
'/// Increase 'Width'
printlog " Increase 'Width'"
Width.More
'/// Check 'Relative'
printlog " Check 'Relative'"
Relative.Check
'/// Decrease 'Height'
printlog " Decrease 'Height'"
Height.Less
'/// Check 'Tile'
printlog " Check 'Tile'"
Tile.Check
'/// Increase 'X Offset'
printlog " Increase 'X Offset'"
XOffset.More
'/// Increase 'Y Offset'
printlog " Increase 'Y Offset'"
YOffset.More
'/// Uncheck 'Tile'
printlog " Uncheck 'Tile'"
Tile.UnCheck
'/// Uncheck 'AutoFit'
printlog " Uncheck 'AutoFit'"
Stretch.UnCheck
'/// Check 'Tile'
printlog " Check 'Tile'"
Tile.Check
'/// Check 'Row'
printlog " Check 'Row'"
Row.Check
'/// Check 'Column'
printlog " Check 'Column'"
Column.Check
'/// Increase percentvalue
printlog " Increase percentvalue"
Offset.More
printlog ""
'/// Switch to tabpage 'Shadow'
printlog " Switch to tabpage 'Shadow'"
Kontext
active.SetPage TabSchatten
kontext "TabSchatten"
Call DialogTest ( TabSchatten )
'/// Check 'Use shadow'
printlog " Check 'Use shadow'"
Anzeigen.Check
'/// Increase 'Distance'
printlog " Increase 'Distance'"
Entfernung.More
'/// Verify that the 'Color' listbox has items
printlog " Verify that the 'Color' listbox has items"
if Farbe.getItemCount < 1 then
warnlog "The listbox for colors is empty"
end if
'/// Increase 'Transparency'
printlog " Increase 'Transparency'"
Transparenz.More
printlog ""
'/// Switch to tabpage 'Transparency'
printlog " Switch to tabpage 'Transparency'"
Kontext
active.SetPage TabTransparenz
Kontext "TabTransparenz"
Call DialogTest ( TabTransparenz )
'/// Check 'Transparency'
printlog " Check 'Transparency'"
LineareTransparenz.Check
'/// Increase percentvalue
printlog " Increase percentvalue"
MFLinTransparenz.More
'/// Check 'Gradient'
printlog " Check 'Gradient'"
Transparenzverlauf.Check
'/// Choose last entry (Square) for 'Type'
printlog " Choose last entry (Square) for 'Type'"
TransparenzverlaufTyp.Select 6
'/// Increase 'Center X'
printlog " Increase 'Center X'"
MFZentrumX.More
'/// Decrease 'Center Y'
printlog " Decrease 'Center Y'"
MFZentrumY.Less
'/// Increase 'Angle'
printlog " Increase 'Angle'"
MFWinkel.More
'/// Increase 'Border'
printlog " Increase 'Border'"
MFRand.More
'/// Increase 'Start value'
printlog " Increase 'Start value'"
MFStartwert.More
'/// Decrease 'End value'
printlog " Decrease 'End value'"
MFEndwert.Less
printlog ""
'/// Switch to tabpage 'Colors'
printlog " Switch to tabpage 'Colors'"
Kontext
active.SetPage TabFarben
Kontext "TabFarben"
Call DialogTest ( TabFarben )
'/// Enter colorname 'Color_added_by_Testtool'
printlog " Enter colorname 'Color_added_by_Testtool'"
FarbName.SetText "Color_added_by_Testtool"
'/// Verify that the color listbox is not empty
printlog " Verify that the color listbox is not empty"
if Farbe.getItemCount < 1 then
warnlog "The listbox for colors is empty"
end if
'/// Choose RGB
printlog " Choose RGB"
Farbmodell.Select 1
'/// Increase 'R'
printlog " Increase 'R'"
R.More
'/// Decrease 'G'
printlog " Decrease 'G'"
G.Less
'/// Increase 'B'
printlog " Increase 'B'"
B.More
'/// Choose 'CMYK'
printlog " Choose 'CMYK'"
Farbmodell.Select 2
'/// Increase 'C'
printlog " Increase 'C'"
C.More
'/// Decrease 'M'
printlog " Decrease 'M'"
M.Less
'/// Increase 'Y'
printlog " Increase 'Y'"
Y.More
'/// Decrease 'K'
printlog " Decrease 'K'"
K.Less
'/// Press 'Add' button
printlog " Press 'Add' button"
Hinzufuegen.Click
'/// Press 'Modify' button
printlog " Press 'Modify' button"
Aendern.Click
'/// Press 'Edit' button
printlog " Press 'Edit' button"
Bearbeiten.Click
Kontext "FarbeDlg"
Call DialogTest ( FarbeDlg )
'/// Increase 'Cyan'
printlog " Increase 'Cyan'"
Cyan.More
'/// Decrease 'Magenta'
printlog " Decrease 'Magenta'"
Magenta.Less
'/// Increase 'Yellow'
printlog " Increase 'Yellow'"
Yellow.More
'/// Decrease 'Key'
printlog " Decrease 'Key'"
Key.Less
'/// Increase 'Red'
printlog " Increase 'Red'"
Rot.More
'/// Decrease 'Green'
printlog " Decrease 'Green'"
Gruen.Less
'/// Increase 'Blue'
printlog " Increase 'Blue'"
Blau.More
'/// Increase 'Hue'
printlog " Increase 'Hue'"
Farbton.More
'/// Decrease 'Saturation'
printlog " Decrease 'Saturation'"
Saettigung.Less
'/// Increase 'Brightness'
printlog " Increase 'Brightness'"
Hell.More
'/// Press left arrow button
printlog " Press left arrow button"
Links.Click
'/// Press right arrow button
printlog " Press right arrow button"
Rechts.Click
'/// Close dialog with 'Cancel'
printlog " Close dialog with 'Cancel'"
FarbeDlg.Cancel
Kontext "TabFarben"
'/// Press 'Delete' button
printlog " Press 'Delete' button"
Loeschen.Click
'/// Close messagebox with 'Yes'
printlog " Close messagebox with 'Yes'"
Kontext "Active"
Active.Yes
Kontext "TabFarben"
'/// Press 'Open' button to open 'File open' dialog
printlog " Press 'Open' button to open 'File open' dialog"
Oeffnen.click
'/// A messagebox that the modified list is not saved appears. Click 'No'
printlog " A messagebox that the modified list is not saved appears. Click 'No'"
Kontext "Active"
Active.No
'/// Close 'Open' dialog with 'Cancel'
printlog " Close 'Open' dialog with 'Cancel'"
Kontext "OeffnenDLG"
OeffnenDLG.Cancel
Kontext "TabFarben"
'/// Press 'Save' button to open 'Save as' dialog
printlog " Press 'Save' button to open 'Save as' dialog"
Speichern.Click
Kontext "SpeichernDLG"
'/// Close 'Save' dialog with 'Cancel'
printlog " Close 'Save' dialog with 'Cancel'"
SpeichernDLG.Cancel
printlog ""
'/// Switch to tabpage 'Gradients'
printlog " Switch to tabpage 'Gradients'"
Kontext
active.SetPage TabFarbverlaeufe
Kontext "TabFarbverlaeufe"
'/// Choose last entry (Rectangular) in 'Type' listbox
printlog " Choose last entry (Rectangular) in 'Type' listbox"
Typ.Select 6
'/// Increase 'Center X'
printlog " Increase 'Center X'"
ZentrumX.More
'/// Decrease 'Center Y'
printlog " Decrease 'Center Y'"
ZentrumY.Less
'/// Increase 'Angle'
printlog " Increase 'Angle'"
Winkel.More
'/// Increase 'Border'
printlog " Increase 'Border'"
Rand.More
'/// Choose second entry in 'From' listbox
printlog " Choose second entry in 'From' listbox"
Von.Select 2
'/// Decrease percentvalue
printlog " Decrease percentvalue"
VonWert.Less
'/// Choose fifth entry in 'To' listbox
printlog " Choose fifth entry in 'To' listbox"
Bis.Select 5
'/// Decrease percentvalue
printlog " Decrease percentvalue"
BisWert.Less
'/// Press 'Add' button to open 'Name' dialog
printlog " Press 'Add' button to open 'Name' dialog"
Hinzufuegen.Click
Kontext "NameDlg"
'/// Close 'name' dialog with 'Cancel'
printlog " Close 'name' dialog with 'Cancel'"
NameDlg.Cancel
Kontext "TabFarbverlaeufe"
'/// Press 'Modify' button to open 'Name' dialog
printlog " Press 'Modify' button to open 'Name' dialog"
Aendern.Click
Kontext "NameDlg"
'/// Close 'name' dialog with 'Cancel'
printlog " Close 'name' dialog with 'Cancel'"
NameDlg.Cancel
Kontext "TabFarbverlaeufe"
'/// Press 'Delete' button
printlog " Press 'Delete' button"
Loeschen.Click
'/// Close messagebox with 'No'
printlog " Close messagebox with 'No'"
kontext
active.no
Kontext "TabFarbverlaeufe"
'/// Press 'Open' button to open 'File open' dialog
printlog " Press 'Open' button to open 'File open' dialog"
Oeffnen.Click
Kontext "OeffnenDLG"
'/// Close 'Open' dialog with 'Cancel'
printlog " Close 'Open' dialog with 'Cancel'"
OeffnenDLG.Cancel
Kontext "TabFarbverlaeufe"
'/// Press 'Save' button to open 'Save as' dialog
printlog " Press 'Save' button to open 'Save as' dialog"
Speichern.Click
Kontext "SpeichernDLG"
'/// Close 'Save' dialog with 'Cancel'
printlog " Close 'Save' dialog with 'Cancel'"
SpeichernDLG.Cancel
printlog ""
'/// Switch to tabpage 'Hatching'
printlog " Switch to tabpage 'Hatching'"
Kontext
active.SetPage TabSchraffuren
Kontext "TabSchraffuren"
'/// If a messagebox appears, close messagebox with 'Cancel'
printlog " If a messagebox appears, close messagebox with 'Cancel'"
Kontext
Kontext "Active"
If Active.Exists then
Kontext "Linienstil"
Linienstil.Cancel
end if
Kontext "TabSchraffuren"
'/// Verify that there are sample hatchings
printlog " Verify that there are sample hatchings"
If Tabelle.GetItemCount < 1 then
warnlog "There are no hatchings available"
end if
'/// Decrease 'Spacing'
printlog " Decrease 'Spacing'"
Abstand.Less
'/// Increase 'Angle'
printlog " Increase 'Angle'"
Winkel.More
'/// Verify that the 'Line type' listbox has three entries
printlog " Verify that the 'Line type' listbox has three entries"
If Linientyp.GetItemCount < 1 then
warnlog "There are no linetypes available"
end if
'/// Verify that the color listbox is not empty
printlog " Verify that the color listbox is not empty"
If Linienfarbe.GetItemCount < 1 then
warnlog "There are no linecolors available"
end if
'/// Press 'Add' button to open 'Name' dialog
printlog " Press 'Add' button to open 'Name' dialog"
Hinzufuegen.Click
'/// Close 'name' dialog with 'Cancel'
printlog " Close 'name' dialog with 'Cancel'"
Kontext "NameDlg"
NameDlg.Cancel
Kontext "TabSchraffuren"
'/// Press 'Modify' button to open 'Name' dialog
printlog " Press 'Modify' button to open 'Name' dialog"
Aendern.Click
'/// Close 'name' dialog with 'Cancel'
printlog " Close 'name' dialog with 'Cancel'"
Kontext "NameDlg"
NameDlg.Cancel
Kontext "TabSchraffuren"
'/// Press 'Delete' button
printlog " Press 'Delete' button"
Loeschen.Click
'/// Close messagebox with 'No'
printlog " Close messagebox with 'No'"
Kontext
if Active.exists then
Active.no
end if
Kontext "TabSchraffuren"
'/// Press 'Open' button to open 'File open' dialog
printlog " Press 'Open' button to open 'File open' dialog"
Oeffnen.Click
Kontext "OeffnenDLG"
'/// Close 'Open' dialog with 'Cancel'
printlog " Close 'Open' dialog with 'Cancel'"
OeffnenDLG.Cancel
Kontext "TabSchraffuren"
'/// Press 'Save' button to open 'Save as' dialog
printlog " Press 'Save' button to open 'Save as' dialog"
Speichern.Click
'/// Close 'Save' dialog with 'Cancel'
printlog " Close 'Save' dialog with 'Cancel'"
Kontext "SpeichernDLG"
SpeichernDLG.Cancel
printlog ""
'/// Switch to tabpage 'Bitmaps'
printlog " Switch to tabpage 'Bitmaps'"
Kontext
active.SetPage TabBitmap
Kontext "TabBitmap"
'/// If a messagebox appears, close messagebox with 'Cancel'
printlog " If a messagebox appears, close messagebox with 'Cancel'"
Kontext
Kontext "Active"
If Active.Exists then
Kontext "Linienstil"
Linienstil.Cancel
end if
Kontext "TabBitmap"
Call DialogTest ( TabBitmap )
'/// Verify that the listbox for 'Foreground color' is not empty
printlog " Verify that the listbox for 'Foreground color' is not empty"
If Vordergrund.GetItemCount < 1 then
warnlog "There are no colors available"
end if
'/// Verify that the listbox for Background color' is not empty
printlog " Verify that the listbox for Background color' is not empty"
If Hintergrund.GetItemCount < 1 then
warnlog "There are no colors available"
end if
'/// Verify that the listbox for Bitmaps is not empty
printlog " Verify that the listbox for Bitmaps is not empty"
If Tabelle.GetItemCount < 1 then
warnlog "There are no Bitmaps available"
end if
'/// Press 'Add' button to open 'Name' dialog
printlog " Press 'Add' button to open 'Name' dialog"
Hinzufuegen.Click
'/// Close 'name' dialog with 'Cancel'
printlog " Close 'name' dialog with 'Cancel'"
Kontext "NameDlg"
NameDlg.Cancel
Kontext "TabBitmap"
'/// Press 'Modify' button to open 'Name' dialog
printlog " Press 'Modify' button to open 'Name' dialog"
Aendern.Click
'/// Close 'name' dialog with 'Cancel'
printlog " Close 'name' dialog with 'Cancel'"
Kontext "NameDlg"
NameDlg.Cancel
Kontext "TabBitmap"
'/// Press 'Import' button to open 'Import' dialog
printlog " Press 'Import' button to open 'Import' dialog"
Import.Click
Kontext "GrafikEinfuegenDlg"
'/// Close 'Import' dialog with 'Cancel'
printlog " Close 'Import' dialog with 'Cancel'"
GrafikEinfuegenDlg.Cancel
Kontext "TabBitmap"
'/// Press 'Delete' button
printlog " Press 'Delete' button"
Loeschen.Click
'/// Close messagebox with 'No'
printlog " Close messagebox with 'No'"
Kontext
if Active.exists then
Active.no
end if
Kontext "TabBitmap"
'/// Press 'Open' button to open 'File open' dialog
printlog " Press 'Open' button to open 'File open' dialog"
Oeffnen.Click
'/// If a messagebox appears, close messagebox with 'No'
printlog " If a messagebox appears, close messagebox with 'No'"
Kontext "OeffnenDLG"
'/// Close 'Open' dialog with 'Cancel'
printlog " Close 'Open' dialog with 'Cancel'"
OeffnenDLG.Cancel
Kontext "TabBitmap"
'/// Press 'Save' button to open 'Save as' dialog
printlog " Press 'Save' button to open 'Save as' dialog"
Speichern.Click
Kontext "SpeichernDLG"
'/// Close 'Save' dialog with 'Cancel'
printlog " Close 'Save' dialog with 'Cancel'"
SpeichernDLG.Cancel
printlog ""
'/// Close 'Area' dialog with 'Cancel'
printlog " Close 'Area' dialog with 'Cancel'"
Kontext "TabBitmap"
TabBitmap.Cancel
'/// Close document
printlog " Close document"
Call hCloseDocument
hFileDelete( gLastWorkFile )
endcase
'-----------------------------------------------------------
testcase tFormatGraphicText
'///Format - Graphic - Text
'/// Load document from 'gTesttoolPath + "spreadsheet\required\input\twoobjects.ods"'
printlog " Load document from 'gTesttoolPath + spreadsheet\required\input\twoobjects.ods"
hFileOpenLocally( gTesttoolPath & "spreadsheet\required\input\twoobjects.ods" )
'/// Select first object by Navigator
printlog " Select first object by Navigator"
Call fNavigatorSelectObject ("drawing objects", 1)
'/// Open 'Format – Line' dialog by 'Format – Graphic – Line'
printlog " Open 'Format – Text' dialog by 'Format – Graphic – Text'"
FormatTextCalc
'/// Switch to tabpage 'Text'
printlog " Switch to tabpage 'Text'"
Kontext
Active.SetPage TabText
Kontext "TabText"
Call DialogTest ( TabText )
'/// Verify that 'Fit width to text' is disabled
printlog " Verify that 'Fit width to text' is disabled"
If BreiteAnTextAnpassen.IsEnabled then
warnlog "Fit width to text is enabled"
end if
'/// Verify that 'Fit heights to text' is disabled
printlog " Verify that 'Fit heights to text' is disabled"
If HoeheAnTextAnpassen.IsEnabled then
warnlog "Fit heights to text is enabled"
end if
'/// Verify that 'Word wrap text in shape' is disabled
printlog " Verify that 'Word wrap text in shape' is disabled"
If WordWrap.IsEnabled then
warnlog "Word wrap text in shape is enabled"
end if
'/// Verify that 'Resize shape to fit text' is disabled
printlog " Verify that 'Resize shape to fit text' is disabled"
If ResizeShape.IsEnabled then
warnlog "Resize shape to fit textt is enabled"
end if
'/// Uncheck 'Fit to frame'
printlog " Uncheck 'Fit to frame'"
AmRahmenAnpassen.UnCheck
'/// Uncheck 'Adjust to contour'
printlog " Uncheck 'Adjust to contour'"
Konturfluss.UnCheck
'/// Increase 'Spacing Left'
printlog " Increase 'Spacing Left'"
Links.More
'/// Increase 'Spacing Right'
printlog " Increase 'Spacing Right'"
Rechts.More
'/// Increase 'Spacing Top'
printlog " Increase 'Spacing Top'"
Oben.More
'/// Increase 'Spacing Bottom'
printlog " Increase 'Spacing Bottom'"
Unten.More
'/// Check 'Full Width'
printlog " Check 'Full Width'"
GanzeBreite.Check
'/// Switch to tabpage 'Text Animation'
printlog " Switch to tabpage 'Text Animation'"
Kontext
Active.SetPage TabLauftext
Kontext "TabLauftext"
Call DialogTest ( TabLauftext )
'/// Choose 'Effect' 4 (Scroll back and forth)
Effekt.Select 4
'/// Click button 'Up'
printlog " Click button 'Up'"
NachOben.Click
'/// Click button 'Left'
printlog " Click button 'Left'"
NachLinks.Click
'/// Click button 'Down'
printlog " Click button 'Down'"
NachUnten.Click
'/// Click button 'Right'
printlog " Click button 'Right'"
NachRechts.Click
'/// UnCheck 'Start inside'
printlog " UnCheck 'Start inside'"
TextSichtbarBeimStarten.UnCheck
'/// UnCheck 'Text visible when exiting'
printlog " UnCheck 'Text visible when exiting'"
TextSichtbarBeimBeenden.UnCheck
'/// Uncheck 'Continous'
printlog " Uncheck 'Continous'"
Endlos.UnCheck
'/// Increase number
printlog " Increase number"
Anzahl.More
'/// Check 'Pixels'
printlog " Check 'Pixels'"
Pixel.Check
'/// Increase number
printlog " Increase number"
Schrittweite.More
'/// Uncheck 'Automatic'
printlog " Uncheck 'Automatic'"
Automatisch.UnCheck
'/// Increase time
printlog " Increase time"
Verzoegerung.More
'/// Close dialog with 'Cancel'
printlog " Close dialog with 'Cancel'"
TabLauftext.Cancel
'/// Close document
printlog " Close document"
call hCloseDocument
hFileDelete( gLastWorkFile )
endcase
'-----------------------------------------------------------
testcase tFormatGraphicPoints
'///Format - Graphic - Points
'/// Load document from 'gTesttoolPath + "spreadsheet\required\input\twoobjects.ods"'
printlog " Load document from 'gTesttoolPath + spreadsheet\required\input\twoobjects.ods"
hFileOpenLocally( gTesttoolPath & "spreadsheet\required\input\twoobjects.ods" )
'/// Select first object by Navigator
printlog " Select first object by Navigator"
Call fNavigatorSelectObject ("drawing objects", 1)
'/// Toggle 'Points' by 'Format - Graphic - Points
FormatPointsCalc
FormatPointsCalc
'/// Close document
printlog " Close document"
call hCloseDocument
hFileDelete( gLastWorkFile )
endcase
'-----------------------------------------------------------