'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 : Test of the insert graphic function - 4
'*
'************************************************************************
'*
' #1 tInsertGraphic_31 'Test Alignment via format/graphic: Anchor to paragraph -> Left, centered, right, top, center, bottom
' #1 tInsertGraphic_32 'Test Alignment via format/graphic: Anchor to page -> Left, centered, right, top, center, bottom
' #1 tInsertGraphic_33 'Test Alignment via format/graphic: Anchor to character -> Left, centered, right, top, center, bottom
' #1 tInsertGraphic_34 'Test Alignment via format/graphic: Anchor as character -> top, center, bottom of baseline
' #1 tInsertGraphic_35 'Test Wrap via format/graphic : none, Page Wrap, Optimal Page Wrap, Contour Wrap ,Wrap through, in Background , first paragraph
' #1 tInsertGraphic_36 'Test original size
' #1 tInsertGraphic_37 'Test keep ratio
' #1 tInsertGraphic_38 'Check the graphic name in Navigator
' #1 tInsertGraphic_39 'Test checkbox 'Position' in protect area
' #1 tInsertGraphic_40 'Test checkbox 'Print' in Property area"
' #1 tInsertGraphic_41 'Test checkbox 'Keep image size'
' #1 tInsertGraphic_42 'Test checkbox 'Keep scale'
'*
'\***********************************************************************
testcase tInsertGraphic_31
Dim iLeft as Integer
Dim iRight as Integer
Dim iCenterHorizontal as Integer
Dim iTop as Integer
Dim iBottom as Integer
Dim iCenterVertical as Integer
iLeft = 1 : iRight = 2 : iCenterHorizontal = 3
iTop = 1 : iBottom = 2 : iCenterVertical = 3
PrintLog "- Test Alignment via format/graphic: Anchor to paragraph -> Left, centered, right, top, center, bottom"
'/// Test Alignment via format/graphic: Anchor to paragraph -> Left, centered, right, top, center, bottom
Call hNewDocument
'/// Insert a graphics
fInsertGraphics("Bughunter.jpg")
PrintLog " Left:"
'/// Format / Graphic tabpage Type ,
'/// + Anchor to paragraph , and set Horizontal to left
fFormatGraphic("TabType")
Kontext "TabType"
AnchorAtparagraph.Check
Horizontal.Select iLeft
TabType.OK
'/// Check the graphic position
fFormatGraphic("TabType")
Kontext "TabType"
Sleep 1
if AnchorAtparagraph.IsChecked <> TRUE then Warnlog "Anchor should be checked to 'to paragraph' !"
if Horizontal.GetSelIndex <> iLeft then Warnlog "The graphic's Horizontal option is not correct ! "
TabType.Cancel
PrintLog " Centered:"
'/// Format / Graphic tabpage Type
'/// + Anchor to paragraph , and set Horizontal to Centered
fFormatGraphic("TabType")
Kontext "TabType"
AnchorAtparagraph.Check
Horizontal.Select iCenterHorizontal
TabType.OK
'/// Check the graphic position
fFormatGraphic("TabType")
Sleep 1
Kontext "TabType"
if AnchorAtparagraph.IsChecked <> TRUE then Warnlog "Anchor should be checked to 'to paragraph' !"
if Horizontal.GetSelIndex <> iCenterHorizontal then Warnlog "The graphic's Horizontal option is not correct ! "
TabType.Cancel
PrintLog " Right:"
'/// Format / Graphic tabpage Type
'/// + Anchor to paragraph , and set Horizontal to Right
fFormatGraphic("TabType")
Kontext "TabType"
AnchorAtparagraph.Check
Horizontal.Select iRight
TabType.OK
sleep(1)
'/// Check the graphic position
fFormatGraphic("TabType")
Sleep 1
Kontext "TabType"
if AnchorAtparagraph.IsChecked <> TRUE then Warnlog "Anchor should be checked to 'to paragraph' !"
if Horizontal.GetSelIndex <> iRight then Warnlog "The graphic's Horizontal option is not correct ! "
TabType.Cancel
PrintLog " Top:"
'/// Format / Graphic tabpage Type
'/// + Anchor to paragraph , and set Vertical to top
fFormatGraphic("TabType")
Kontext "TabType"
AnchorAtparagraph.Check
Vertical.Select iTop
TabType.OK
'/// Check the graphic position
fFormatGraphic("TabType")
Sleep 1
Kontext "TabType"
if AnchorAtparagraph.IsChecked <> TRUE then Warnlog "Anchor should be checked to 'to paragraph' !"
if Vertical.GetSelIndex <> iTop then Warnlog "The graphic's Vertical option is not correct ! "
TabType.Cancel
PrintLog " Center:"
'/// Format / Graphic tabpage Type
'/// + Anchor to paragraph , and set Vertical to Center
fFormatGraphic("TabType")
Kontext "TabType"
AnchorAtparagraph.Check
Vertical.Select iCenterVertical
TabType.OK
'/// Check the graphic position
fFormatGraphic("TabType")
Sleep 1
if AnchorAtparagraph.IsChecked <> TRUE then Warnlog "Anchor should be checked to 'to paragraph' !"
if Vertical.GetSelIndex <> iCenterVertical then Warnlog "The graphic's Vertical option is not correct ! #bug110281"
TabType.Cancel
PrintLog " Bottom:"
'/// Format / Graphic tabpage Type
'/// + Anchor to paragraph , and set Vertical to Bottom
fFormatGraphic("TabType")
AnchorAtparagraph.Check
Vertical.Select iBottom
TabType.OK
'/// Check the graphic position
fFormatGraphic("TabType")
Sleep 1
if AnchorAtparagraph.IsChecked <> TRUE then Warnlog "Anchor should be checked to 'to paragraph' !"
if Vertical.GetSelIndex <> iBottom then Warnlog "The graphic's Vertical option is not correct ! "
TabType.Cancel
Call hCloseDocument
endcase
'-------------------------------------------------------------------------------------------
testcase tInsertGraphic_32
Dim iLeft as Integer
Dim iRight as Integer
Dim iCenterHorizontal as Integer
Dim iTop as Integer
Dim iBottom as Integer
Dim iCenterVertical as Integer
iLeft = 1 : iRight = 2 : iCenterHorizontal = 3
iTop = 1 : iBottom = 2 : iCenterVertical = 3
PrintLog "- Test Alignment via format/graphic: Anchor to page -> Left, centered, right, top, center, bottom"
'/// Test Alignment via format/graphic: Anchor to page -> Left, centered, right, top, center, bottom
Call hNewDocument
'/// Insert a graphics
fInsertGraphics("Bughunter.jpg")
PrintLog " Left:"
'/// Format / Graphic tabpage Type
'/// + Anchor to page , and set Horizontal to left
fFormatGraphic("TabType")
AnchorAtPage.Check
Horizontal.Select iLeft
TabType.OK
'/// Check the graphic position
fFormatGraphic("TabType")
Sleep 1
if AnchorAtPage.IsChecked <> TRUE then Warnlog "Anchor should be checked to 'At Page' !"
if Horizontal.GetSelIndex <> iLeft then Warnlog "The graphic's Horizontal option is not correct ! "
TabType.Cancel
PrintLog " Centered:"
'/// Format / Graphic tabpage Type
'/// + Anchor to page , and set Horizontal to Centered
fFormatGraphic("TabType")
AnchorAtPage.Check
Horizontal.Select iCenterHorizontal
TabType.OK
'/// Check the graphic position
fFormatGraphic("TabType")
Sleep 1
if AnchorAtPage.IsChecked <> TRUE then Warnlog "Anchor should be checked to 'At Page' !"
if Horizontal.GetSelIndex <> iCenterHorizontal then Warnlog "The graphic's Horizontal option is not correct ! "
TabType.Cancel
PrintLog " Right:"
'/// Format / Graphic tabpage Type
'/// + Anchor to page , and set Horizontal to Right
fFormatGraphic("TabType")
AnchorAtPage.Check
Horizontal.Select iRight
TabType.OK
'/// Check the graphic position
fFormatGraphic("TabType")
Sleep 1
if AnchorAtPage.IsChecked <> TRUE then Warnlog "Anchor should be checked to 'At Page' !"
if Horizontal.GetSelIndex <> iRight then Warnlog "The graphic's Horizontal option is not correct ! "
TabType.Cancel
PrintLog " Top:"
'/// Format / Graphic tabpage Type
'/// + Anchor to page , and set Vertical to top
fFormatGraphic("TabType")
AnchorAtPage.Check
Vertical.Select iTop
TabType.OK
'/// Check the graphic position
fFormatGraphic("TabType")
Sleep 1
if AnchorAtPage.IsChecked <> TRUE then Warnlog "Anchor should be checked to 'At Page' !"
if Vertical.GetSelIndex <> iTop then Warnlog "The graphic's Vertical option is not correct ! "
TabType.Cancel
PrintLog " Center:"
'/// Format / Graphic tabpage Type
'/// + Anchor to page , and set Vertical to Center
fFormatGraphic("TabType")
AnchorAtPage.Check
Vertical.Select iCenterVertical
TabType.OK
'/// Check the graphic position
fFormatGraphic("TabType")
Sleep 1
if AnchorAtPage.IsChecked <> TRUE then Warnlog "Anchor should be checked to 'At Page' !"
if Vertical.GetSelIndex <> iCenterVertical then Warnlog "The graphic's Vertical option is not correct ! "
TabType.Cancel
PrintLog " Bottom:"
'/// Format / Graphic tabpage Type
'/// + Anchor to page , and set Vertical to Bottom
fFormatGraphic("TabType")
AnchorAtPage.Check
Vertical.Select iBottom
TabType.OK
'/// Check the graphic position
fFormatGraphic("TabType")
Sleep 1
if AnchorAtPage.IsChecked <> TRUE then Warnlog "Anchor should be checked to 'At Page' !"
if Vertical.GetSelIndex <> iBottom then Warnlog "The graphic's Vertical option is not correct ! "
TabType.Cancel
Call hCloseDocument
endcase
'-------------------------------------------------------------------------------------------
testcase tInsertGraphic_33
Dim iLeft as Integer
Dim iRight as Integer
Dim iCenterHorizontal as Integer
Dim iTop as Integer
Dim iBottom as Integer
Dim iCenterVertical as Integer
iLeft = 1 : iRight = 2 : iCenterHorizontal = 3
iTop = 1 : iBottom = 2 : iCenterVertical = 4
PrintLog "- Test Alignment via format/graphic: Anchor to character -> Left, centered, right, top, center, bottom"
'/// Test Alignment via format/graphic: Anchor to character -> Left, centered, right, top, center, bottom
Call hNewDocument
'/// Insert a graphics
fInsertGraphics("Bughunter.jpg")
PrintLog " Left:"
'/// Format / Graphic tabpage Type
'/// + Anchor At Character , and set Horizontal to left
fFormatGraphic("TabType")
AnchorAtCharacter.Check
Horizontal.Select iLeft
TabType.OK
'/// Check the graphic position
fFormatGraphic("TabType")
Sleep 1
if AnchorAtCharacter.IsChecked <> TRUE then Warnlog "Anchor should be checked to 'At Character' !"
if Horizontal.GetSelIndex <> iLeft then Warnlog "The graphic's Horizontal option is not correct ! "
TabType.Cancel
PrintLog " Centered:"
'/// Format / Graphic tabpage Type
'/// + Anchor At Character , and set Horizontal to Centered
fFormatGraphic("TabType")
AnchorAtCharacter.Check
Horizontal.Select iCenterHorizontal
TabType.OK
'/// Check the graphic position
fFormatGraphic("TabType")
Sleep 1
if AnchorAtCharacter.IsChecked <> TRUE then Warnlog "Anchor should be checked to 'At Character' !"
if Horizontal.GetSelIndex <> iCenterHorizontal then Warnlog "The graphic's Horizontal option is not correct ! "
TabType.Cancel
PrintLog " Right:"
'/// Format / Graphic tabpage Type
'/// + Anchor At Character , and set Horizontal to Right
fFormatGraphic("TabType")
AnchorAtCharacter.Check
Horizontal.Select iRight
TabType.OK
'/// Check the graphic position
fFormatGraphic("TabType")
Sleep 1
if AnchorAtCharacter.IsChecked <> TRUE then Warnlog "Anchor should be checked to 'At Character' !"
if Horizontal.GetSelIndex <> iRight then Warnlog "The graphic's Horizontal option is not correct ! "
TabType.Cancel
PrintLog " Top:"
'/// Format / Graphic tabpage Type
'/// + Anchor At Character , and set Vertical to top
fFormatGraphic("TabType")
AnchorAtCharacter.Check
Vertical.Select iTop
TabType.OK
'/// Check the graphic position
fFormatGraphic("TabType")
Sleep 1
if AnchorAtCharacter.IsChecked <> TRUE then Warnlog "Anchor should be checked to 'At Character' !"
if Vertical.GetSelIndex <> iTop then Warnlog "The graphic's Vertical option is not correct ! "
TabType.Cancel
PrintLog " Center:"
'/// Format / Graphic tabpage Type
'/// + Anchor At Character , and set Vertical to Center
fFormatGraphic("TabType")
AnchorAtCharacter.Check
Vertical.Select iCenterVertical
TabType.OK
'/// Check the graphic position
fFormatGraphic("TabType")
Sleep 1
if AnchorAtCharacter.IsChecked <> TRUE then Warnlog "Anchor should be checked to 'At Character' !"
if Vertical.GetSelIndex <> iCenterVertical then
if iSprache = 82 then
QAErrorlog "#i59378#Missing vertical position in in Format-Picture-dialog"
else
if Vertical.GetItemCount <> 6 then
QAErrorlog "#i59378#Missing vertical position in in Format-Picture-dialog"
else
Warnlog "The graphic's Vertical option is not correct ! "
end if
end if
end if
TabType.Cancel
PrintLog " Bottom:"
'/// Format / Graphic tabpage Type
'/// + Anchor At Character , and set Vertical to Bottom
fFormatGraphic("TabType")
AnchorAtCharacter.Check
Vertical.Select iBottom
TabType.OK
'/// Check the graphic position
fFormatGraphic("TabType")
Sleep 1
if AnchorAtCharacter.IsChecked <> TRUE then Warnlog "Anchor should be checked to 'At Character' !"
if Vertical.GetSelIndex <> iBottom then Warnlog "The graphic's Vertical option is not correct ! "
TabType.Cancel
Call hCloseDocument
endcase
'-------------------------------------------------------------------------------------------
testcase tInsertGraphic_34
Dim iTop as Integer
Dim iBottom as Integer
Dim iCenterVertical as Integer
iTop = 1 : iBottom = 2 : iCenterVertical = 3
PrintLog "- Test Alignment via format/graphic: Anchor as character -> top, center, bottom of baseline"
'/// Test Alignment via format/graphic: Anchor as character -> top, center, bottom of baseline
Call hNewDocument
'/// Insert a graphics
fInsertGraphics("Bughunter.jpg")
PrintLog " Base line at top:"
'/// Format / Graphic tabpage Type
'/// + Anchor as character , and set Base line at top
fFormatGraphic("TabType")
Sleep 1
AnchorAsCharacter.Check
Vertical.Select iTop
TabType.OK
'/// Check the graphic position
fFormatGraphic("TabType")
Sleep 1
if AnchorAsCharacter.IsChecked <> TRUE then Warnlog "Anchor should be checked to 'As character' !"
if Horizontal.IsEnabled = TRUE then Warnlog "The Horizontal listbox should not be enabled ! "
if Vertical.GetSelIndex <> iTop then Warnlog "The graphic's Vertical option is not correct ! "
TabType.Cancel
PrintLog " Base line at center:"
'/// Format / Graphic tabpage Type
'/// + Anchor as character , and set Base line at center
fFormatGraphic("TabType")
Sleep 1
AnchorAsCharacter.Check
Vertical.Select iCenterVertical
TabType.OK
'/// Check the graphic position
fFormatGraphic("TabType")
Sleep 1
if AnchorAsCharacter.IsChecked <> TRUE then Warnlog "Anchor should be checked to 'As character' !"
if Horizontal.IsEnabled = TRUE then Warnlog "The Horizontal listbox should not be enabled ! "
if Vertical.GetSelIndex <> iCenterVertical then Warnlog "The graphic's Vertical option is not correct ! "
TabType.Cancel
PrintLog " Base line at bottom:"
'/// Format / Graphic tabpage Type
'/// + Anchor as character , and set Base line at bottom
fFormatGraphic("TabType")
Sleep 1
AnchorAsCharacter.Check
Vertical.Select iBottom
TabType.OK
'/// Check the graphic position
fFormatGraphic("TabType")
Sleep 1
if AnchorAsCharacter.IsChecked <> TRUE then Warnlog "Anchor should be checked to 'As character' !"
if Horizontal.IsEnabled = TRUE then Warnlog "The Horizontal listbox should not be enabled ! "
if Vertical.GetSelIndex <> iBottom then Warnlog "The graphic's Vertical option is not correct ! "
TabType.Cancel
Call hCloseDocument
endcase
'-------------------------------------------------------------------------------------------
testcase tInsertGraphic_35
PrintLog "- Test Wrap via dialog : none, Page Wrap, Optimal Page Wrap, Contour Wrap ,Wrap through, in Background , first paragraph"
'/// Test Wrap via dialog , including
'/// + none, Page Wrap, Optimal Page Wrap, Contour Wrap,
'/// + Wrap through, in Background, first paragraph
Call hNewDocument
'/// Insert a graphics
fInsertGraphics("Bughunter.jpg")
PrintLog " 1. No Wrap:"
'/// Format / Graphic / tabpage Wrap - No page
fFormatGraphic("TabUmlauf")
Sleep 1
Kein.Check
TabUmlauf.OK
fFormatGraphic("TabUmlauf")
Sleep 1
if Kein.IsChecked <> TRUE then Warnlog "Graphic wrapping situation is wrong !"
TabUmlauf.Cancel
PrintLog " 2. Page Wrap:"
'/// Format / Graphic / tabpage Wrap - Page Wrap
fFormatGraphic("TabUmlauf")
Sleep 1
Parallel.Check
TabUmlauf.OK
fFormatGraphic("TabUmlauf")
Sleep 1
if Parallel.IsChecked <> TRUE then Warnlog "Graphic wrapping situation is wrong !"
TabUmlauf.Cancel
PrintLog " 3. Optimal Page Wrap:"
'/// Format / Graphic / tabpage Wrap - Optimal Page Wrap
fFormatGraphic("TabUmlauf")
Sleep 1
Dynamisch.Check
TabUmlauf.OK
fFormatGraphic("TabUmlauf")
Sleep 1
if Dynamisch.IsChecked <> TRUE then Warnlog "Graphic wrapping situation is wrong !"
TabUmlauf.Cancel
PrintLog " 4. Wrap through:"
'/// Format / Graphic / tabpage Wrap - Wrap through
fFormatGraphic("TabUmlauf")
Sleep 1
Durchlauf.Check
TabUmlauf.OK
fFormatGraphic("TabUmlauf")
Sleep 1
if Durchlauf.IsChecked <> TRUE then Warnlog "Graphic wrapping situation is wrong !"
TabUmlauf.Cancel
PrintLog " 5. In Background:"
'/// Format / Graphic / tabpage Wrap - In Background
fFormatGraphic("TabUmlauf")
Sleep 1
Durchlauf.Check
ImHintergrund.Check
TabUmlauf.OK
fFormatGraphic("TabUmlauf")
Sleep 1
if Durchlauf.IsChecked <> TRUE then Warnlog "Graphic wrapping situation is wrong !"
if ImHintergrund.IsChecked <> TRUE then Warnlog "Background configuration is wrong !"
TabUmlauf.Cancel
PrintLog " 6. first paragraph:"
'/// Format / Graphic / tabpage Wrap - first paragraph
fFormatGraphic("TabUmlauf")
Sleep 1
Parallel.Check
ErsterAbsatz.Check
TabUmlauf.OK
fFormatGraphic("TabUmlauf")
Sleep 1
if Parallel.IsChecked <> TRUE then Warnlog "Graphic wrapping situation is wrong !"
if ErsterAbsatz.IsChecked <> TRUE then Warnlog "first paragraph configuration is wrong !"
TabUmlauf.Cancel
PrintLog " 7. Contour:"
'/// Format / Graphic / tabpage Wrap - first paragraph
FormatWrapPageWrap
Sleep 1
fFormatGraphic("TabUmlauf")
Sleep 1
Kontur.Check
TabUmlauf.OK
fFormatGraphic("TabUmlauf")
Sleep 1
if Kontur.IsChecked <> TRUE then Warnlog "Contour configuration is wrong !"
TabUmlauf.Cancel
Call hCloseDocument
endcase
'-------------------------------------------------------------------------------------------
testcase tInsertGraphic_36
Dim sOriginalWidth as String
Dim sOriginalHeight as String
Dim sNewWidth as String
Dim sNewHeight as String
sNewWidth = "7"+ gSeperator + "00" + gMeasurementUnit
sNewHeight = "5"+ gSeperator + "00" + gMeasurementUnit
PrintLog "- Test original size "
'/// Test original size
Call hNewDocument
'/// Insert a graphics
fInsertGraphics("Bughunter.jpg")
'/// Format / Graphic tabpage Type , change the graphic's size
fFormatGraphic("TabType")
sOriginalWidth = Width.GetText
sOriginalHeight = Height.GetText
KeepRatio.UnCheck
wait 500
Width.SetText sNewWidth
wait 500
Height.SetText sNewHeight
wait 500
TabType.OK
'/// Check if original size works well
fFormatGraphic("TabType")
if Width.GetText <> sNewWidth then Warnlog "The graphic's width is wrong !"
wait 500
if Height.GetText <> sNewHeight then Warnlog "The graphic's height is wrong !"
wait 500
OriginalSize.Click
Sleep 1
if Width.GetText <> sOriginalWidth then Warnlog "The graphic's width isn't recovered to before!"
wait 500
if Height.GetText <> sOriginalHeight then Warnlog "The graphic's height isn't recovered to before !"
wait 500
TabType.Cancel
Call hCloseDocument
endcase
'-------------------------------------------------------------------------------------------
testcase tInsertGraphic_37
Dim sWidth as String
Dim sHeight as String
Dim sNewWidth as String
Dim sNewHeight as String
sWidth = "4"+ gSeperator + "00" + gMeasurementUnit
sHeight = "3"+ gSeperator + "00" + gMeasurementUnit
sNewWidth = "8"+ gSeperator + "00" + gMeasurementUnit
sNewHeight = "6"+ gSeperator + "00" + gMeasurementUnit
PrintLog "- Test keep ratio"
'/// Test keep ratio
Call hNewDocument
'/// Insert a graphics and check 'keep ratio'
fInsertGraphics("Bughunter.jpg")
fFormatGraphic("TabType")
KeepRatio.UnCheck
wait 500
Width.SetText sWidth
wait 500
Height.SetText sHeight
wait 500
KeepRatio.Check
wait 500
TabType.OK
Sleep 1
'/// Format / Graphic tabpage Type , change the graphic's width
'/// + Check if keep ratio works well
fFormatGraphic("TabType")
Kontext "TabType"
Width.SetText sNewWidth
Sleep 1
if Height.GetText <> sNewHeight then Warnlog "The graphic's height is wrong !"
TabType.Cancel
Call hCloseDocument
endcase
'-------------------------------------------------------------------------------------------
testcase tInsertGraphic_38
Dim sGraphicName as String
Dim sNavActualItemName as string
sGraphicName = "TEST1"
PrintLog "- Check the graphic name in Navigator"
'/// Check the graphic name in Navigator
Call hNewDocument
'/// Insert a graphics
Call fInsertGraphics("Bughunter.jpg")
'/// Format / Graphic / Options , set a new name
Call fFormatGraphic("TabZusaetze")
sleep(3)
Kontext "TabZusaetze"
ObjektName.SetText sGraphicName
sleep(3)
TabZusaetze.OK
sleep(1)
'/// Active navigator to check the graphic name
Call fStartupNavigator( "Graphics" , 2 )
sleep(2)
Kontext "NavigatorWriter"
sNavActualItemName = Auswahlliste.GetitemText(2)
if sNavActualItemName <> sGraphicName then
warnlog "The graphic name should be " + sGraphicName & " but get " & sNavActualItemName & "!"
end if
Call fCloseNavigator
Call hCloseDocument
endcase
'-------------------------------------------------------------------------------------------
testcase tInsertGraphic_39
Dim sHorizontalBy as String
Dim sVerticalBy as String
PrintLog "- Test checkbox 'Position' in protect area"
'/// Test checkbox 'Position' in protect area
Call hNewDocument
'/// Insert a graphics
fInsertGraphics("Bughunter.jpg")
'/// Format / Graphic / Options , check 'Position'
fFormatGraphic("TabZusaetze")
wait 500
if PositionSchuetzen.IsChecked = TRUE then warnlog "The default situation of checkbox - position should be unchecked"
wait 500
PositionSchuetzen.Check
wait 500
TabZusaetze.OK
'Check the original position
fFormatGraphic("TabType")
wait 500
sHorizontalBy = HorizontalBy.GetText
sVerticalBy = VerticalBy.GetText
TabType.Cancel
'/// move the picture with keyboard
Call wTypeKeys ""
'/// + Check if the position is changed
fFormatGraphic("TabType")
if HorizontalBy.GetText <> sHorizontalBy then warnlog "The position Horizontal should be " +sHorizontalBy + " but get " + HorizontalBy.GetText
if VerticalBy.GetText <> sVerticalBy then warnlog "The position Vertical should be " +sVerticalBy + " but get " + VerticalBy.GetText
TabType.Cancel
Call hCloseDocument
endcase
'-------------------------------------------------------------------------------------------
testcase tInsertGraphic_40
Dim sHorizontalBy as String
Dim sVerticalBy as String
PrintLog "- Test checkbox 'Print' in Property area"
'/// Test checkbox 'Print' in Property area
Call hNewDocument
'/// Insert a graphics
fInsertGraphics("Bughunter.jpg")
'/// Format / Graphic / Options , check Position
fFormatGraphic("TabZusaetze")
wait 500
if Drucken.IsChecked <> TRUE then warnlog "The default situation of checkbox - print should be checked"
wait 500
PositionSchuetzen.UnCheck
wait 500
TabZusaetze.OK
'/// Print to Printer
PrintLog "- Please go to printer to check if you get a blank paper!"
FilePrint
Kontext "Active"
if Active.Exists then
if Active.GetRT = 304 then
Active.Ok
QAErrorLog "No Default-Printer!"
Kontext "Printing"
Sleep 1
Printing.Cancel
end if
else
Kontext "Printing"
Sleep 1
Printing.OK
Sleep 5
end if
Kontext "Active"
if Active.Exists then
if Active.GetRT = 304 then
Active.Ok
end if
end if
Call hCloseDocument
endcase
'-------------------------------------------------------------------------------------------