testautomation/graphics/optional/includes/global/g_convertto.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_convertto.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 10:42:39 $
  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 tiAendernUmwandelnInPolygon
  40 ' #1 tiModifyConvertToPolygon
  41 ' #1 tdContextConvertIntoBitmap
  42 ' #1 tiAendernUmwandelnInKurve
  43 ' #1 tiAendernUmwandelnInPolygonGrafik
  44 ' #1 tiAendernUmwandelnIn3D
  45 ' #1 tiAendernUmwandelnIn3DRotationskoerper
  46 ' #1 tiAendernUmwandelnInMetaFile
  47 '\*************************************************************************************
  48
  49 '  Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\columbia.dxf")
  50 '   Call hGrafikEinfuegen ConvertPath  ( gTesttoolPath + "global\input\graf_inp\enter.bmp" )
  51 '   Dateiname.SetText ConvertPath ( gTesttoolPath + "global\input\graf_inp\desp.bmp" )
  52 '  Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\purzel.gif")
  53
  54 '   Call tdContextFlip
  55 '   Call tdContextConvertIntoCurve
  56 '   Call tdContextConvertInto3D
  57 '   Call tdContextConvertInto3D_Rotationobject
  58 '   Call tdContextConvertIntoMetaFile
  59
  60 testcase tiModifyConvertToPolygon
  61    Dim PosX as string
  62    Dim PosY as string
  63    Dim Maxanzahl as string
  64    Dim Minanzahl as string
  65
  66    Call hNewDocument
  67    sleep 3
  68    hTextrahmenErstellen ("This is a text that will be transformed into a Polygon-object", 10,10,60,30)
  69    sleep 1
  70    hTypeKeys "<Escape>"
  71    sleep 1
  72    EditSelectAll
  73    sleep 1
  74    ContextConvertIntoPolygon
  75    sleep 1
  76    ContextPositionAndSize
  77       Kontext
  78       Active.SetPage TabPositionAndSize
  79       Kontext "TabPositionAndSize"
  80       PosX = Width.GetText
  81       PosY = Height.GetText
  82       TabPositionAndSize.OK
  83    sleep 1
  84    FormatCharacter
  85        Kontext
  86       Active.SetPage TabFont
  87       Kontext "TabFont"
  88       sleep 1
  89       try
  90          Size.SetText "96"
  91       catch
  92          if (gAsianSup OR gCTLSup) then
  93             try
  94                SizeWest.SetText "96"
  95             catch
  96                Warnlog "Asian or ctl support is enabled, but Size of font is not accessable :-("
  97             endcatch
  98          else
  99             Warnlog "Asian or ctl support is NOT enabled, but Size of font is not accessable :-("
 100             try
 101                SizeWest.SetText "96"
 102                qaErrorLog "SizeWest. works"
 103             catch
 104             endcatch
 105             try
 106                SizeEast.SetText "96"
 107                qaErrorLog "SizeEast. works"
 108             catch
 109             endcatch
 110             try
 111                Size.SetText "96"
 112                qaErrorLog "Size. works"
 113             catch
 114             endcatch
 115             try
 116                SizeCTL.SetText "96"
 117                qaErrorLog "SizeCTL. works"
 118             catch
 119             endcatch
 120          endif
 121       endcatch
 122       TabFont.OK
 123    sleep 1
 124    ContextPositionAndSize
 125       Kontext
 126       Active.SetPage TabPositionAndSize
 127       Kontext "TabPositionAndSize"
 128       '/// compare width and heigth to control is it is still text ///'
 129       if ( Width.GetText = PosX or Height.GetText = PosY ) Then
 130            Printlog "- Text converted into polygon"
 131       else
 132          Warnlog "- Convert into polygon does not work."
 133       end if
 134       TabPositionAndSize.OK
 135    sleep 1
 136     Call hCloseDocument
 137    Printlog "-------------------------------------------------end"
 138
 139    Call hNewDocument
 140    sleep 3
 141    '/// insert graphic (input\\impress\\grafik\\sample.bmp)///'
 142    Call hGrafikEinfuegen ConvertPath  ( gTesttoolPath + "global\input\graf_inp\enter.bmp" )
 143    sleep 3
 144    ContextConvertIntoPolygon
 145       Kontext "UmwandelnInPolygon"
 146        Farbanzahl.ToMax
 147        MaxAnzahl = Farbanzahl.GetText
 148       Farbanzahl.More 1
 149       If Maxanzahl < Farbanzahl.GetText Then Warnlog "- Maximum value could be raised."
 150       Farbanzahl.ToMin                                                                  '/// set color to min ///'
 151       MinAnzahl = Farbanzahl.GetText
 152       Farbanzahl.Less 1                                                                 '/// try to set a value lower than minimum ///'
 153       If Farbanzahl.GetText < Minanzahl then Warnlog "- Minimum value could be lowered."
 154       Farbanzahl.SetText "2"
 155       Vorschau.Click
 156       sleep 5
 157       UmwandelnInPolygon.OK
 158    sleep 5
 159     Printlog "- object vectorized."
 160     'TBO: verify nasty bug about asian/ctl support
 161       ToolsOptions
 162       call hToolsOptions ("Languagesettings", "Languages")
 163       printlog "Asian: '" + Aktivieren.IsChecked + "'"
 164       printlog "CTL  : '" + ComplexScriptEnabled.IsChecked + "'"
 165     Kontext "ExtrasOptionenDlg"
 166     ExtrasOptionenDlg.OK
 167     '-----------------------------------------------
 168    Call hCloseDocument
 169
 170 endcase 'tiModifyConvertToPolygon
 171 '--------------------------------------------------------
 172 testcase tdContextConvertIntoBitmap
 173
 174   Call hNewDocument                                                                     '/// new document  ///'
 175   sleep 3
 176   InsertGraphicsFromFile                                                                '/// insert graphic  ///'
 177   sleep 3
 178   kontext "Active"
 179     if Active.Exists Then
 180        Active.OK
 181     end if
 182   sleep 5
 183   Kontext "GrafikEinfuegenDlg"
 184   sleep 2
 185 '///  uses input\\impress\\grafik\\columbia.dxf ///
 186   Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\columbia.dxf")
 187   sleep 2
 188   Oeffnen.Click
 189   sleep 2
 190   Kontext "Active"
 191    if Active.Exists Then
 192       Warnlog Active.GetText + ", Test will end here because of problems putting graphics into the document"
 193       Active.OK
 194       sleep 2
 195       Call hCloseDocument
 196       goto endsub
 197    end if
 198   Kontext "DocumentImpress"
 199    try
 200         ContextConvertIntoBitmap                                                        '/// convert dxf file to bitmap  ///'
 201         sleep 1
 202         Printlog "- Convert into bitmap works"
 203    catch
 204         Warnlog "- Convert into bitmap does not work"
 205    endcatch
 206  sleep 2
 207   Call hCloseDocument                                                                    '/// close document  ///'
 208
 209 endcase 'tdContextConvertIntoBitmap
 210 '--------------------------------------------------------
 211 testcase tiAendernUmwandelnInKurve
 212
 213     Printlog "  ----- ContextConvertIntoCurve testen"
 214
 215  Call hNewDocument                                                      '/// New impress document///'
 216
 217   Call hTextrahmenErstellen ("I test,test,test,test only, if it works for you",20,20,60,30)     '/// create textbox///'
 218    sleep 2
 219    Kontext "DocumentImpress"
 220    gMouseDoubleClick  70,70                                     '/// deselect textbox ///'
 221    sleep 2
 222    EditSelectAll                                                '/// select textbox ///'
 223    sleep 2
 224    ContextConvertIntoCurve                                                      '/// convert into curve ///'
 225    sleep 3
 226    gMouseClick 30,15
 227
 228     hTypeKeys "<SHIFT RIGHT>",3                                 '/// try to select 3 letters ///'
 229      try
 230     EditCopy                                                    '/// try edit copy to check if its still text ///'
 231         Warnlog "  - Convert into curve, seperate letters should not be selectable anymore"
 232      catch
 233         Printlog "  - Text converted into a curve"
 234      endcatch
 235
 236  Call hCloseDocument                                                            '/// close document ///'
 237
 238 endcase 'tiAendernUmwandelnInKurve
 239 '--------------------------------------------------------
 240 testcase tiAendernUmwandelnInPolygonGrafik
 241
 242     Printlog "- Context/ConvertIntoPolygon"
 243
 244  Call hNewDocument                                                                      '/// new document ///'
 245
 246   InsertGraphicsFromFile                                                                '/// insert graphic (desp.bmp) ///'
 247
 248   Kontext "GrafikEinfuegenDlg"
 249    '///use graphic : input\\impress\\grafik\\desp.bmp ///
 250    Dateiname.SetText ConvertPath ( gTesttoolPath + "global\input\graf_inp\desp.bmp" )
 251    Oeffnen.Click
 252    sleep 3
 253   Kontext "DocumentImpress"
 254   EditSelectAll
 255   sleep 1
 256
 257   ContextConvertIntoPolygon                                                             '///  convert into polygon ///'
 258   Kontext "UmwandelnInPolygon"
 259    Printlog "- Testing vectorize dialog"
 260    Farbanzahl.ToMax                                                                     '/// set number of colors to max  ///'
 261      if Farbanzahl.GetText <> "32" Then Warnlog "- Maximum value for color depth should be 32, but it is: " + Farbanzahl.GetText
 262    Farbanzahl.ToMin                                                                     '/// set number of colors to min  ///'
 263    sleep 1
 264      if Farbanzahl.GetText <> "8" Then Warnlog "- Minimum value for color depth should be 8 but it is: " + Farbanzahl.GetText
 265    sleep 2
 266    Punktreduktion.SetText "50"                                                          '/// set point reduction to 50 ///'
 267    sleep 2
 268      if Punktreduktion.GetText <> "32 Pixel" Then Warnlog "- Maximum value should be 32, but it is: " + Punktreduktion.GetText
 269    sleep 1
 270    Punktreduktion.SetText "-50"                                                         '/// set an out of range value  ///'
 271    sleep 1
 272      if Punktreduktion.GetText <> "0 Pixel" Then Warnlog "- Minimum value should be 0, but it is: " + Punktreduktion.GetText
 273    Loecherfuellen.Uncheck                                                               '/// uncheck fill holes  ///'
 274     if Not Kachelgroesse.IsEnabled Then
 275        Printlog "- Control disabled."
 276     else
 277        Warnlog "- Control should be disabled if Fill is not checked."
 278     end if
 279    Vorschau.Click                                                                       '/// open preview  ///'
 280    sleep 2
 281    UmwandelnInPolygon.OK                                                                '/// close dialog ///'
 282    sleep 5
 283   Call hCloseDocument                                                                   '/// close document  ///'
 284
 285 endcase 'tiAendernUmwandelnInPolygonGrafik
 286 '--------------------------------------------------------
 287 testcase tiAendernUmwandelnIn3D
 288
 289     Printlog "- Convert into 3D"
 290  Call hNewDocument
 291  sleep 1                                                                '/// new impress document ///'
 292   hRechteckErstellen (10,10,40,40)                                                      '/// create rectangle  ///'
 293                     '/// convert into 3D ///'
 294    sleep 2
 295    gMouseclick 35,35
 296    sleep 1
 297    try
 298      ContextConvertInto3D                                                               '/// try to access convert ito 3d a 2nd time, should be impossible using a 3d object as source ///'
 299      Printlog "- Convert into 3D works"
 300    catch
 301      Warnlog "- Convert into 3D does not work"
 302    endcatch
 303  Call hCloseDocument                                                                    '/// close document '///
 304
 305 endcase 'tiAendernUmwandelnIn3D
 306 '--------------------------------------------------------
 307 testcase tiAendernUmwandelnIn3DRotationskoerper
 308
 309     Printlog "- ConvertInto3DRotationobject"
 310   Dim PosX
 311   Dim PosY
 312
 313  Call hNewDocument                                                                      '/// new document '///
 314   Kontext "DocumentImpress"
 315   hRechteckErstellen (20,20,50,50)                                                      '/// create rectangle  ///'
 316   sleep 1
 317   ContextPositionAndSize                                                                '/// get position values for the rectangle ///'
 318   Kontext
 319   Active.SetPage TabPositionAndSize
 320   Kontext "TabPositionAndSize"
 321   PosX = PositionX.GetText
 322   PosY = PositionY.GetText
 323   TabPositionAndSize.OK
 324   sleep 1
 325   Kontext "DocumentImpress"
 326   ContextConvertInto3DRotationObject                                                    '/// convert into 3d lathe object  ///'
 327   sleep 2
 328   ContextPositionAndSize
 329   Kontext
 330   Active.SetPage TabPositionAndSize                                                             '/// control changes in position values to confirm convert action  ///'
 331   Kontext "TabPositionAndSize"
 332    if PositionX.GetText = PosX and PositionY.GetText = PosY Then Warnlog "- No change in position or dimension, converting seemd not to work"
 333   TabPositionAndSize.OK
 334   sleep 1
 335  Call hCloseDocument                                                                    '/// close document ///'
 336
 337 endcase 'tiAendernUmwandelnIn3DRotationskoerper
 338 '--------------------------------------------------------
 339 testcase tiAendernUmwandelnInMetaFile
 340
 341     Printlog "- ConvertIntoMetaFile"
 342
 343     Call hNewDocument                                                                   '/// new document ///'
 344     sleep 3
 345     InsertGraphicsFromFile                                                              '/// insert graphic  ///'
 346     sleep 1
 347     kontext "Active"
 348     sleep 1
 349     if Active.Exists Then
 350        Active.OK
 351     end if
 352     sleep 1
 353     Kontext "GrafikEinfuegenDlg"
 354     sleep 2
 355     '///  uses input\\impress\\grafik\\desp.gif") ///
 356     Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\purzel.gif")
 357     sleep 2
 358     Oeffnen.Click
 359     sleep 5
 360     Kontext "DocumentImpress"
 361     try
 362         ContextConvertIntoMetafile                                                      '/// convert bitmap into metafile  ///'
 363         sleep 2
 364         Printlog "- Convert into Metafile does work"
 365     catch
 366         Warnlog "- Convert into Metafile does not work"
 367     endcatch
 368     sleep 2
 369     Call hCloseDocument                                                                 '/// close document  ///'
 370
 371 endcase 'tiAendernUmwandelnInMetaFile
 372