diff options
Diffstat (limited to 'testautomation/graphics/optional/includes/global/g_zoom.inc')
| -rwxr-xr-x | testautomation/graphics/optional/includes/global/g_zoom.inc | 163 |
1 files changed, 85 insertions, 78 deletions
diff --git a/testautomation/graphics/optional/includes/global/g_zoom.inc b/testautomation/graphics/optional/includes/global/g_zoom.inc index 55c8e86e506d..e0a3f6875e0d 100755 --- a/testautomation/graphics/optional/includes/global/g_zoom.inc +++ b/testautomation/graphics/optional/includes/global/g_zoom.inc @@ -40,13 +40,13 @@ '\******************************************************************** testcase tViewZoom - dim Zaehler as integer - dim Position1 as integer - dim Position2 as integer - Dim Datei$ - Printlog "- view Zoom" + dim Zaehler as integer + dim Position1 as integer + dim Position2 as integer + Dim Datei$ + Printlog "- view Zoom" - if (gApplication = "IMPRESS") then + if (gApplication = "IMPRESS") then ExtensionString = "odp" else ExtensionString = "odg" @@ -55,78 +55,85 @@ testcase tViewZoom Datei$ = ConvertPath (gOfficePath + "user\work\test." & ExtensionString) Printlog "- View-Zoom testing" - if dir(Datei$) <> "" then app.Kill(Datei$) ' to avoid the anoying overwrite warnlog :-) - ViewZoom - Kontext "Massstab" - Massstab.OK - Kontext "SD_Farbleiste" - sleep 1 - if SD_Farbleiste.Exists then - Printlog "- Color toolbar will be disabled now" - ViewToolbarsColorBar - end if - For Zaehler = 1 to 9 - Position1 = 5 * Zaehler - 3 - Position2 = 105 - 5 * Zaehler - Call hRechteckErstellen (Position1, Position1, Position2, Position2) - FormatArea - kontext - Active.SetPage TabFarben - Kontext "TabFarben" - Farbe.Select 5*Zaehler - TabFarben.OK - sleep 1 - gMouseClick 50,0 - Next Zaehler - sleep 2 - sleep 3 - ViewZoom - Kontext "Massstab" - VergroesserungStufenlos.check - Stufenlos.Settext "45" - Massstab.OK - sleep 2 - gMouseClick 50,1 - ViewZoom - Kontext "Massstab" - Select Case Zaehler - Case 1: VergroesserungStufenlos.check - Stufenlos.Settext "40" - Case 2: VergroesserungStufenlos.check - Stufenlos.Settext "50" - Case 3: VergroesserungStufenlos.check - Stufenlos.Settext "75" - Case 4: VergroesserungStufenlos.check - Stufenlos.Settext "100" - Case 5: VergroesserungStufenlos.check - Stufenlos.Settext "150" - Case 6: VergroesserungStufenlos.check - Stufenlos.Settext "200" - - 'Case 2: Vergroesserung50.check - 'Case 3: Vergroesserung75.check - 'Case 4: Vergroesserung100.check - 'Case 5: Vergroesserung150.check - 'Case 6: Vergroesserung200.check - End Select - Massstab.OK - sleep 1 - Kontext "DocumentImpress" - gMouseClick 15,15 'hier soll die Maus ein Rechteck treffen; - 'die Farbe des Rechtecks sagt uns dann, ob - FormatArea 'richtig vergroessert oder verkleinert wurde. - sleep 1 - Kontext - Active.SetPage TabFarben - Kontext "TabFarben" - printlog "Color index ", Farbe.GetSelIndex - TabFarben.Cancel - sleep 1 - next Zaehler + if dir(Datei$) <> "" then app.Kill(Datei$) ' to avoid the anoying overwrite warnlog :-) + Call hNewDocument '/// new document ///' + ViewZoom + Kontext "Massstab" + Vergroesserung100.Check '/// set zoom to 50% ///' + Massstab.OK + '/// create a number of rectangles with different color properties ///' + Kontext "SD_Farbleiste" + sleep 1 + if SD_Farbleiste.Exists then + Printlog "- Color toolbar will be disabled now" + ViewToolbarsColorBar + end if + '/// All rectangles are created with same dimensions but using different zoom settings ///' + For Zaehler = 1 to 9 + Position1 = 5 * Zaehler - 3 + Position2 = 105 - 5 * Zaehler + Call hRechteckErstellen (Position1, Position1, Position2, Position2) + FormatArea + kontext + Active.SetPage TabFarben + Kontext "TabFarben" + Farbe.Select 5*Zaehler + TabFarben.OK + sleep 1 + gMouseClick 50,0 + Next Zaehler + sleep 2 + hFileSaveAs (Datei$) '/// save document ///' + sleep 3 + for Zaehler = 1 to 6 '/// changing zoom settings and checking functionality with controlling the color of the selected rectangle ///' + ViewZoom + Kontext "Massstab" + VergroesserungStufenlos.check + Stufenlos.Settext "45" + Massstab.OK + sleep 2 + gMouseClick 50,1 + ViewZoom + Kontext "Massstab" + Select Case Zaehler + Case 1: VergroesserungStufenlos.check + Stufenlos.Settext "40" + Case 2: VergroesserungStufenlos.check + Stufenlos.Settext "50" + Case 3: VergroesserungStufenlos.check + Stufenlos.Settext "75" + Case 4: VergroesserungStufenlos.check + Stufenlos.Settext "100" + Case 5: VergroesserungStufenlos.check + Stufenlos.Settext "150" + Case 6: VergroesserungStufenlos.check + Stufenlos.Settext "200" + + 'Case 2: Vergroesserung50.check + 'Case 3: Vergroesserung75.check + 'Case 4: Vergroesserung100.check + 'Case 5: Vergroesserung150.check + 'Case 6: Vergroesserung200.check + End Select + Massstab.OK + sleep 1 + Kontext "DocumentImpress" + gMouseClick 15,15 'hier soll die Maus ein Rechteck treffen; + 'die Farbe des Rechtecks sagt uns dann, ob + FormatArea 'richtig vergroessert oder verkleinert wurde. + sleep 1 + Kontext + Active.SetPage TabFarben + Kontext "TabFarben" + printlog "Color index ", Farbe.GetSelIndex + TabFarben.Cancel + sleep 1 + next Zaehler - 'GanzeSeite.push - 'Optimal.push - 'Seitenbreite.push - sleep 2 + 'GanzeSeite.push + 'Optimal.push + 'Seitenbreite.push + sleep 2 + Call hCloseDocument '/// close document ///' endcase |