testautomation/graphics/optional/includes/global/g_zoom.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: g_zoom.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 10:42:41 $
  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 : wolfram.garten@sun.com
  35 '*
  36 '* short description :
  37 '*
  38 '*********************************************************************
  39 ' #1 tViewZoom
  40 '\********************************************************************
  41
  42 testcase tViewZoom
  43  dim Zaehler as integer
  44  dim Position1 as integer
  45  dim Position2 as integer
  46  Dim Datei$
  47    Printlog "- view Zoom"
  48
  49     if (gApplication = "IMPRESS") then
  50         ExtensionString = "odp"
  51     else
  52         ExtensionString = "odg"
  53     end if
  54
  55     Datei$ = ConvertPath (gOfficePath + "user\work\test." & ExtensionString)
  56
  57     Printlog "- View-Zoom testing"
  58   if dir(Datei$) <> "" then app.Kill(Datei$) ' to avoid the anoying overwrite warnlog :-)
  59   Call hNewDocument            '/// new document ///'
  60   ViewZoom
  61   Kontext "Massstab"
  62   Vergroesserung100.Check       '/// set zoom to 50% ///'
  63   Massstab.OK
  64   '/// create a number of rectangles with different color properties ///'
  65    Kontext "SD_Farbleiste"
  66    sleep 1
  67     if SD_Farbleiste.Exists then
  68        Printlog "- Color toolbar will be disabled now"
  69        ViewToolbarsColorBar
  70     end if
  71    '/// All rectangles are created with same dimensions but using different zoom settings ///'
  72    For Zaehler = 1 to 9
  73       Position1 = 5 * Zaehler - 3
  74       Position2 = 105 - 5 * Zaehler
  75       Call hRechteckErstellen (Position1, Position1, Position2, Position2)
  76       FormatArea
  77       kontext
  78       Active.SetPage TabFarben
  79       Kontext "TabFarben"
  80       Farbe.Select 5*Zaehler
  81       TabFarben.OK
  82        sleep 1
  83        gMouseClick 50,0
  84    Next Zaehler
  85    sleep 2
  86   hFileSaveAs (Datei$)        '/// save document ///'
  87   sleep 3
  88    for Zaehler = 1 to 6           '/// changing zoom settings and checking functionality with controlling the color of the selected rectangle ///'
  89       ViewZoom
  90       Kontext "Massstab"
  91       VergroesserungStufenlos.check
  92       Stufenlos.Settext "45"
  93       Massstab.OK
  94        sleep 2
  95        gMouseClick 50,1
  96       ViewZoom
  97       Kontext "Massstab"
  98       Select Case Zaehler
  99          Case 1: VergroesserungStufenlos.check
 100                  Stufenlos.Settext "40"
 101          Case 2: VergroesserungStufenlos.check
 102                  Stufenlos.Settext "50"
 103          Case 3: VergroesserungStufenlos.check
 104                  Stufenlos.Settext "75"
 105          Case 4: VergroesserungStufenlos.check
 106                  Stufenlos.Settext "100"
 107          Case 5: VergroesserungStufenlos.check
 108                  Stufenlos.Settext "150"
 109          Case 6: VergroesserungStufenlos.check
 110                  Stufenlos.Settext "200"
 111
 112          'Case 2: Vergroesserung50.check
 113          'Case 3: Vergroesserung75.check
 114          'Case 4: Vergroesserung100.check
 115          'Case 5: Vergroesserung150.check
 116          'Case 6: Vergroesserung200.check
 117       End Select
 118       Massstab.OK
 119        sleep 1
 120       Kontext "DocumentImpress"
 121        gMouseClick 15,15            'hier soll die Maus ein Rechteck treffen;
 122                                     'die Farbe des Rechtecks sagt uns dann, ob
 123       FormatArea                    'richtig vergroessert oder verkleinert wurde.
 124        sleep 1
 125       Kontext
 126       Active.SetPage TabFarben
 127       Kontext "TabFarben"
 128       printlog "Color index ", Farbe.GetSelIndex
 129       TabFarben.Cancel
 130       sleep 1
 131    next Zaehler
 132
 133   'GanzeSeite.push
 134   'Optimal.push
 135   'Seitenbreite.push
 136   sleep 2
 137
 138  Call hCloseDocument         '/// close document ///'
 139 endcase