testautomation/framework/optional/includes/options_ooo_print.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 2000, 2010 Oracle and/or its affiliates.
   6 '
   7 ' OpenOffice.org - a multi-platform office productivity suite
   8 '
   9 ' This file is part of OpenOffice.org.
  10 '
  11 ' OpenOffice.org is free software: you can redistribute it and/or modify
  12 ' it under the terms of the GNU Lesser General Public License version 3
  13 ' only, as published by the Free Software Foundation.
  14 '
  15 ' OpenOffice.org is distributed in the hope that it will be useful,
  16 ' but WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18 ' GNU Lesser General Public License version 3 for more details
  19 ' (a copy is included in the LICENSE file that accompanied this code).
  20 '
  21 ' You should have received a copy of the GNU Lesser General Public License
  22 ' version 3 along with OpenOffice.org.  If not, see
  23 ' <http://www.openoffice.org/license.html>
  24 ' for a copy of the LGPLv3 License.
  25 '
  26 '/************************************************************************
  27 '*
  28 '* owner : thorsten.bosbach@oracle.com
  29 '*
  30 '* short description : Tools->Options: OpenOffice.org Print
  31 '*
  32 '\******************************************************************************
  33
  34
  35 testcase tOOoPrint
  36
  37   Dim lbSave ( 3 ) as Boolean
  38   Dim lsSavePrinter ( 3 ) as String
  39   Dim lbSavePrinter ( 13 ) as Boolean
  40   Dim lsSaveFile ( 3 ) as String
  41   Dim lbSaveFile ( 13 ) as Boolean
  42
  43    ToolsOptions
  44    hToolsOptions ( "StarOffice", "Print" )
  45
  46  printlog " - save old settings"
  47  printlog "    - save settings for 'printer'"
  48   Printer.Check
  49   Sleep (2)
  50    lbSavePrinter (1)  = ReduceTransparency.IsChecked
  51    ReduceTransparency.Uncheck
  52    lbSave(3) = Transparency.IsChecked
  53    ReduceTransparency.Check
  54    lbSavePrinter (2)  = Automatically.IsChecked
  55    lbSavePrinter (3)  = NoTransparency.IsChecked
  56
  57    lbSavePrinter (4)  = ReduceGradients.IsChecked
  58    ReduceGradients.Check
  59    lbSavePrinter (5)  = GradientStripes.IsChecked
  60    lbSavePrinter (6)  = IntermediateColor.IsChecked
  61    GradientStripes.Check
  62    lsSavePrinter (1)  = Stripes.GetText
  63
  64    lbSavePrinter (7)  = ReduceBitmaps.IsChecked
  65    ReduceBitmaps.Check
  66    lbSavePrinter (8)  = GoodPrintQuality.IsChecked
  67    lbSavePrinter (9)  = NormalPrintQuality.IsChecked
  68    lbSavePrinter (10) = Resolution.IsChecked
  69    lbSavePrinter (11) = IncludeTransparentObjects.IsChecked
  70    Resolution.Check
  71    lsSavePrinter (2)  = DPI.GetSelText
  72
  73    lbSavePrinter (12) = ConvertColorsToGrayscale.IsChecked
  74
  75  printlog "    - save settings for 'print to file'"
  76   PrintToFile.Check
  77   Sleep (2)
  78    lbSaveFile (1)  = ReduceTransparency.IsChecked
  79    ReduceTransparency.Check
  80    lbSaveFile (2)  = Automatically.IsChecked
  81    lbSaveFile (3)  = NoTransparency.IsChecked
  82
  83    lbSaveFile (4)  = ReduceGradients.IsChecked
  84    ReduceGradients.Check
  85    lbSaveFile (5)  = GradientStripes.IsChecked
  86    lbSaveFile (6)  = IntermediateColor.IsChecked
  87    GradientStripes.Check
  88    lsSaveFile (1)  = Stripes.GetText
  89
  90    lbSaveFile (7)  = ReduceBitmaps.IsChecked
  91    ReduceBitmaps.Check
  92    lbSaveFile (8)  = GoodPrintQuality.IsChecked
  93    lbSaveFile (9)  = NormalPrintQuality.IsChecked
  94    lbSaveFile (10) = Resolution.IsChecked
  95    lbSaveFile (11) = IncludeTransparentObjects.IsChecked
  96    Resolution.Check
  97    lsSaveFile (2)  = DPI.GetSelText
  98
  99    lbSaveFile (12) = ConvertColorsToGrayscale.IsChecked
 100
 101  printlog "    - save general settings "
 102    lbSave(1) = PaperOrientation.IsChecked
 103    lbSave(2) = PaperSize.IsChecked
 104
 105  printlog " - invert/change settings"
 106  printlog "    - changes for 'printer'"
 107   Printer.Check
 108   Sleep (2)
 109    if lbSavePrinter (1) = FALSE then ReduceTransparency.Check else ReduceTransparency.UnCheck
 110    if ReduceTransparency.IsChecked then
 111       NoTransparency.Check
 112    else
 113       if lbSave(3)         = FALSE then Transparency.Check else Transparency.UnCheck
 114    end if
 115
 116    if lbSavePrinter (4) = FALSE then ReduceGradients.Check else ReduceGradients.UnCheck
 117    if ReduceGradients.IsChecked then
 118       IntermediateColor.Check
 119    end if
 120
 121    if lbSavePrinter (7)  = FALSE then ReduceBitmaps.Check else ReduceBitmaps.UnCheck
 122    if ReduceBitmaps.IsChecked then
 123       Resolution.Check
 124       DPI.select 1
 125       if lbSavePrinter (11) = FALSE then IncludeTransparentObjects.Check else IncludeTransparentObjects.UnCheck
 126    end if
 127
 128    if lbSavePrinter (12) = FALSE then ConvertColorsToGrayscale.Check else ConvertColorsToGrayscale.UnCheck
 129
 130  printlog "    - changes for 'print to file'"
 131   PrintToFile.Check
 132   Sleep (2)
 133    if lbSaveFile (1) = FALSE then ReduceTransparency.Check else ReduceTransparency.UnCheck
 134    if ReduceTransparency.IsChecked then
 135       Automatically.Check
 136    end if
 137
 138    if lbSaveFile (4) = FALSE then ReduceGradients.Check else ReduceGradients.UnCheck
 139    if ReduceGradients.IsChecked then
 140       GradientStripes.Check
 141       Stripes.SetText "30"
 142    end if
 143
 144    if lbSaveFile (7)  = FALSE then ReduceBitmaps.Check else ReduceBitmaps.UnCheck
 145    if ReduceBitmaps.IsChecked then
 146       GoodPrintQuality.Check
 147       if lbSaveFile (11) = FALSE then IncludeTransparentObjects.Check else IncludeTransparentObjects.UnCheck
 148    end if
 149
 150    if lbSaveFile (12) = FALSE then ConvertColorsToGrayscale.Check else ConvertColorsToGrayscale.UnCheck
 151
 152  printlog "    - changes for general settings"
 153    if lbSave(1) = FALSE then PaperOrientation.Check else PaperOrientation.UnCheck
 154    if lbSave(2) = FALSE then PaperSize.Check else PaperSize.UnCheck
 155
 156    Kontext "ExtrasOptionenDlg"
 157    ExtrasOptionenDlg.OK
 158    Sleep (3)
 159
 160  printlog " - exit/restart StarOffice"
 161    ExitRestartTheOffice
 162
 163  printlog " - check invertation/changes"
 164    ToolsOptions
 165    hToolsOptions ( "StarOffice", "Print" )
 166
 167  printlog "    - check for 'printer'"
 168   Printer.Check
 169   Sleep (2)
 170    if ReduceTransparency.IsChecked = lbSavePrinter (1) then Warnlog "Reduce transparency => changes not saved! => BugID 87446"
 171    if ReduceTransparency.IsChecked then
 172       if NoTransparency.IsChecked <> TRUE              then Warnlog "No transparency => changes not saved!"
 173    else
 174       if Transparency.IsChecked = lbSave(2)            then Warnlog "Transparency => changes not saved!"
 175    end if
 176
 177
 178    if ReduceGradients.IsChecked = lbSavePrinter (4)    then Warnlog "ReduceGradients => changes not saved!"
 179    if ReduceGradients.IsChecked then
 180       if IntermediateColor.IsChecked <> TRUE           then Warnlog "Intermediate color => changes not saved!"
 181    end if
 182
 183    if ReduceBitmaps.IsChecked = lbSavePrinter (7)      then Warnlog "Reduce bitmaps => changes not saved!"
 184    if ReduceBitmaps.IsChecked then
 185       if Resolution.IsChecked <> TRUE then
 186          Warnlog "Resolution => changes not saved!"
 187       else
 188          if DPI.GetSelIndex <> 1                       then Warnlog "DPI => changes not saved!"
 189       end if
 190       if IncludeTransparentObjects.IsChecked = lbSavePrinter (11) then Warnlog "Include Transparent Objects => changes not saved!"
 191    end if
 192
 193    if ConvertColorsToGrayscale.IsChecked = lbSavePrinter (12) then Warnlog "Convert Colors To Grayscale => changes not saved!"
 194
 195  printlog "    - check for 'print to file'"
 196   PrintToFile.Check
 197   Sleep (2)
 198    if ReduceTransparency.IsChecked = lbSaveFile (1)    then Warnlog "Reduce transparency => changes not saved!"
 199    if ReduceTransparency.IsChecked then
 200       if Automatically.IsChecked  <> TRUE              then Warnlog "Automatically => changes not saved!"
 201    end if
 202
 203    if ReduceGradients.IsChecked = lbSaveFile (4)       then Warnlog "Reduce gradients => changes not saved!"
 204    if ReduceGradients.IsChecked then
 205       if GradientStripes.IsChecked <> TRUE             then Warnlog "GradientStripes => changes not saved!"
 206       if GradientStripes.IsChecked then
 207          if Stripes.GetText <> "30"                    then Warnlog "Stripes => changes not saved!"
 208       end if
 209    end if
 210
 211    if ReduceBitmaps.IsChecked = lbSaveFile (7)         then Warnlog "Reduce bitmaps => changes not saved!"
 212
 213    if ReduceBitmaps.IsChecked then
 214       if GoodPrintQuality.IsChecked <> TRUE            then Warnlog "Good print quality => changes not saved!"
 215       if IncludeTransparentObjects.IsChecked = lbSaveFile (11) then Warnlog "Include transparent objects = changes not saved!"
 216    end if
 217
 218    if ConvertColorsToGrayscale.IsChecked = lbSaveFile (12) then warnlog "Convert colors to grayscale => changes not saved!"
 219
 220  printlog "    - check for general settings"
 221    if PaperOrientation.IsChecked = lbSave(1)           then warnlog "Paper orientation => changes not saved! #i29960"
 222    if PaperSize.IsChecked        = lbSave(2)           then Warnlog "Paper size => changes not saved! #i29960"
 223
 224  printlog " - 2. changes"
 225  printlog "    - 'printer'"
 226   Printer.Check
 227   Sleep (2)
 228    ReduceTransparency.UnCheck
 229    ReduceGradients.Check
 230     GradientStripes.Check
 231     Stripes.SetText "120"
 232    ReduceBitmaps.Check
 233     GoodPrintQuality.Check
 234     IncludeTransparentObjects.Check
 235    ConvertColorsToGrayscale.UnCheck
 236
 237  printlog "    - 'print to file'"
 238   PrintToFile.Check
 239    ReduceTransparency.Check
 240     NoTransparency.Check
 241    ReduceGradients.Uncheck
 242    ReduceBitmaps.UnCheck
 243    ConvertColorsToGrayscale.Check
 244
 245  printlog "    - general settings"
 246    PaperOrientation.UnCheck
 247    PaperSize.Check
 248
 249    Kontext "ExtrasOptionenDlg"
 250    ExtrasOptionenDlg.OK
 251    Sleep (3)
 252
 253  printlog " - check 2. changes"
 254    ToolsOptions
 255    hToolsOptions ( "StarOffice", "Print" )
 256
 257  printlog "    - check for 'printer'"
 258   Printer.Check
 259   Sleep (2)
 260    if ReduceTransparency.IsChecked <> FALSE then Warnlog "Reduce transparency => changes not saved!"
 261    if ReduceGradients.IsChecked    <> TRUE  then
 262       Warnlog "ReduceGradients => changes not saved!"
 263    else
 264       if GradientStripes.IsChecked <> TRUE  then
 265          Warnlog "GradientStripes => changes not saved!"
 266       else
 267          if Stripes.GetText <> "120"        then Warnlog "Stripes => changes not saved!"
 268       end if
 269    end if
 270    if ReduceBitmaps.IsChecked <> TRUE then
 271       Warnlog "Reduce bitmaps => changes not saved!"
 272    else
 273       if GoodPrintQuality.IsChecked <> TRUE          then Warnlog "Good print quality => changes not saved!"
 274       if IncludeTransparentObjects.IsChecked <> TRUE then Warnlog "Include Transparent Objects => changes not saved!"
 275    end if
 276    if ConvertColorsToGrayscale.IsChecked <> FALSE    then Warnlog "Convert Colors To Grayscale => changes not saved!"
 277
 278  printlog "    - check 'print to file'"
 279   PrintToFile.Check
 280   Sleep (2)
 281    if ReduceTransparency.IsChecked <> TRUE then
 282       Warnlog "Reduce transparency => changes not saved!"
 283    else
 284       if NoTransparency.IsChecked <> TRUE then Warnlog "No transpanency => changes not saved!"
 285    end if
 286    if ReduceGradients.IsChecked <> FALSE then Warnlog "Reduce gradients => changes not saved!"
 287    if ReduceBitmaps.IsChecked <> FALSE then Warnlog "Reduce bitmaps => changes not saved!"
 288    if ConvertColorsToGrayscale.IsChecked <> TRUE then Warnlog "Convert colors to grayscale => changes not saved!"
 289
 290  printlog "    - check general settings"
 291    if PaperOrientation.IsChecked <> FALSE then warnlog "Paper orientation => changes not saved!"
 292    if PaperSize.IsChecked        <> TRUE  then Warnlog "Paper size => changes not saved! #i29960"
 293
 294  printlog " - reset to saved settings"
 295  printlog "    - 'printer'"
 296   Printer.Check
 297   Sleep (2)
 298    ReduceTransparency.Check
 299    if lbSavePrinter (2)  = TRUE then Automatically.Check
 300    if lbSavePrinter (3)  = TRUE then NoTransparency.Check
 301    ReduceTransparency.UnCheck
 302    if lbSave(3)          = TRUE then Transparency.Check       else Transparency.Uncheck
 303    if lbSavePrinter (1)  = TRUE then ReduceTransparency.check else ReduceTransparency.Uncheck
 304
 305    ReduceGradients.Check
 306    GradientStripes.Check
 307    Stripes.SetText lsSavePrinter (1)
 308    if lbSavePrinter (5)  = TRUE then GradientStripes.Check
 309    if lbSavePrinter (6)  = TRUE then IntermediateColor.Check
 310    if lbSavePrinter (4)  = TRUE then ReduceGradients.Check else ReduceGradients.UnCheck
 311    if lbSavePrinter (4)  = TRUE then ReduceGradients.Check else ReduceGradients.UnCheck
 312
 313    ReduceBitmaps.Check
 314    Resolution.Check
 315    DPI.Select lsSavePrinter (2)
 316    if lbSavePrinter (8)  = TRUE then GoodPrintQuality.Check
 317    if lbSavePrinter (9)  = TRUE then NormalPrintQuality.Check
 318    if lbSavePrinter (10) = TRUE then Resolution.Check
 319    if lbSavePrinter (11) = TRUE then IncludeTransparentObjects.Check else IncludeTransparentObjects.UnCheck
 320    if lbSavePrinter (7)  = TRUE then ReduceBitmaps.Check else ReduceBitmaps.UnCheck
 321
 322    if lbSavePrinter (12) = TRUE then ConvertColorsToGrayscale.Check else ConvertColorsToGrayscale.UnCheck
 323
 324  printlog "    - 'print to file'"
 325   PrintToFile.Check
 326   Sleep (2)
 327    ReduceTransparency.Check
 328    if lbSaveFile (2)  = TRUE then Automatically.Check
 329    if lbSaveFile (3)  = TRUE then NoTransparency.Check
 330    if lbSaveFile (1)  = TRUE then ReduceTransparency.Check else ReduceTransparency.UnCheck
 331
 332    ReduceGradients.Check
 333    GradientStripes.Check
 334    Stripes.SetText lsSaveFile (1)
 335    if lbSaveFile (5)  = TRUE then GradientStripes.Check
 336    if lbSaveFile (6)  = TRUE then IntermediateColor.Check
 337    if lbSaveFile (4)  = TRUE then ReduceGradients.Check else ReduceGradients.UnCheck
 338
 339    ReduceBitmaps.Check
 340    Resolution.Check
 341    DPI.Select lsSaveFile (2)
 342    if lbSaveFile (8)  = TRUE then GoodPrintQuality.Check
 343    if lbSaveFile (9)  = TRUE then NormalPrintQuality.Check
 344    if lbSaveFile (10) = TRUE then Resolution.Check
 345    if lbSaveFile (11) = TRUE then IncludeTransparentObjects.Check else IncludeTransparentObjects.UnCheck
 346    if lbSaveFile (7)  = TRUE then ReduceBitmaps.Check else ReduceBitmaps.Uncheck
 347
 348    if lbSaveFile (12) = TRUE then ConvertColorsToGrayscale.Check else ConvertColorsToGrayscale.UnCheck
 349
 350  printlog "    - general settings"
 351    if lbSave(1) = TRUE then PaperOrientation.check else PaperOrientation.Uncheck
 352    if lbSave(2) = TRUE then PaperSize.Check else PaperSize.UnCheck
 353
 354    Kontext "ExtrasOptionenDlg"
 355    ExtrasOptionenDlg.OK
 356    Sleep (3)
 357
 358  printlog " - check changes"
 359    ToolsOptions
 360    hToolsOptions ( "StarOffice", "Print" )
 361
 362  printlog "    - check for 'printer'"
 363   Printer.Check
 364   Sleep (2)
 365    if ReduceTransparency.IsChecked        <> lbSavePrinter (1)  then Warnlog "Reduce transparency => changes not saved!"
 366    ReduceTransparency.Check
 367    if Automatically.IsChecked             <> lbSavePrinter (2)  then Warnlog "Automatically => changes not saved!"
 368    if NoTransparency.IsChecked            <> lbSavePrinter (3)  then Warnlog "No transparency => changes not saved!"
 369    ReduceTransparency.UnCheck
 370    if Transparency.IsChecked              <> lbSave(3)          then Warnlog "Transparency => changes not saved!"
 371    if lbSavePrinter (1) = TRUE then ReduceTransparency.Check else ReduceTransparency.UnCheck
 372
 373    if ReduceGradients.IsChecked           <> lbSavePrinter (4) then Warnlog "Reduce Gradients => changes not saved!"
 374    ReduceGradients.Check
 375    if GradientStripes.IsChecked           <> lbSavePrinter (5)  then Warnlog "GradientStripes => changes not saved!"
 376    if IntermediateColor.IsChecked         <> lbSavePrinter (6)  then Warnlog "Intermediate color => changes not saved!"
 377    GradientStripes.Check
 378    if Stripes.GetText <> lsSavePrinter (1)                      then Warnlog "Stripes => changes not saved!"
 379    if lbSavePrinter (5) = TRUE then GradientStripes.Check else IntermediateColor.Check
 380    if lbSavePrinter (4)  = TRUE then ReduceGradients.Check else ReduceGradients.UnCheck
 381
 382    if ReduceBitmaps.IsChecked <> lbSavePrinter (7) then Warnlog "Reduce Bitmaps => changes not saved!"
 383    ReduceBitmaps.Check
 384    if GoodPrintQuality.IsChecked          <> lbSavePrinter (8)  then Warnlog "Good print quality => changes not saved!"
 385    if NormalPrintQuality.IsChecked        <> lbSavePrinter (9)  then Warnlog "Normal print quality => changes not saved!"
 386    if Resolution.IsChecked                <> lbSavePrinter (10) then Warnlog "Resolution => changes not saved!"
 387    if IncludeTransparentObjects.IsChecked <> lbSavePrinter (11) then Warnlog "Include transparent objects => changes not saved!"
 388    Resolution.Check
 389    if DPI.GetSelText <> lsSavePrinter (2)                       then Warnlog "DPI => changes not saved!"
 390    if lbSavePrinter (8)  = TRUE then GoodPrintQuality.Check
 391    if lbSavePrinter (9)  = TRUE then NormalPrintQuality.Check
 392    if lbSavePrinter (10) = TRUE then Resolution.Check
 393    if lbSavePrinter (7)  = TRUE then ReduceBitmaps.Check else ReduceBitmaps.Uncheck
 394
 395    if ConvertColorsToGrayscale.IsChecked  <> lbSavePrinter (12) then Warnlog "Convert colors to grayscale => changes not saved!"
 396
 397  printlog "    - 'print to file'"
 398   PrintToFile.Check
 399   Sleep (2)
 400    if ReduceTransparency.IsChecked        <> lbSaveFile (1)  then Warnlog "Reduce transparency => changes not saved!"
 401    ReduceTransparency.Check
 402    if Automatically.IsChecked             <> lbSaveFile (2)  then Warnlog "Automatically => changes not saved!"
 403    if NoTransparency.IsChecked            <> lbSaveFile (3)  then Warnlog "No transparency => changes not saved!"
 404    if lbSaveFile (1) = TRUE then ReduceTransparency.Check else ReduceTransparency.UnCheck
 405
 406    if ReduceGradients.IsChecked           <> lbSaveFile (4) then Warnlog "Reduce Gradients => changes not saved!"
 407    ReduceGradients.Check
 408    if GradientStripes.IsChecked           <> lbSaveFile (5)  then Warnlog "GradientStripes => changes not saved!"
 409    if IntermediateColor.IsChecked         <> lbSaveFile (6)  then Warnlog "Intermediate color => changes not saved!"
 410    GradientStripes.Check
 411    if Stripes.GetText <> lsSaveFile (1)                      then Warnlog "Stripes => changes not saved!"
 412    if lbSaveFile (5) = TRUE then GradientStripes.Check else IntermediateColor.Check
 413    if lbSaveFile (4)  = TRUE then ReduceGradients.Check else ReduceGradients.UnCheck
 414
 415    if ReduceBitmaps.IsChecked <> lbSaveFile (7) then Warnlog "Reduce Bitmaps => changes not saved!"
 416    ReduceBitmaps.Check
 417    if GoodPrintQuality.IsChecked          <> lbSaveFile (8)  then Warnlog "Good print quality => changes not saved!"
 418    if NormalPrintQuality.IsChecked        <> lbSaveFile (9)  then Warnlog "Normal print quality => changes not saved!"
 419    if Resolution.IsChecked                <> lbSaveFile (10) then Warnlog "Resolution => changes not saved!"
 420    if IncludeTransparentObjects.IsChecked <> lbSaveFile (11) then Warnlog "Include transparent objects => changes not saved!"
 421    Resolution.Check
 422    if DPI.GetSelText <> lsSavePrinter (2)                       then Warnlog "DPI => changes not saved!"
 423    if lbSaveFile (8)  = TRUE then GoodPrintQuality.Check
 424    if lbSaveFile (9)  = TRUE then NormalPrintQuality.Check
 425    if lbSaveFile (10) = TRUE then Resolution.Check
 426    if lbSaveFile (7)  = TRUE then ReduceBitmaps.Check else ReduceBitmaps.Uncheck
 427
 428    if ConvertColorsToGrayscale.IsChecked  <> lbSaveFile (12) then Warnlog "Convert colors to grayscale => changes not saved!"
 429
 430  printlog "    - general settings"
 431    if PaperOrientation.Ischecked          <> lbSave(1)       then Warnlog "Paper orientation => changes not saved!"
 432    if PaperSize.IsChecked                 <> lbSave(2)       then Warnlog "Paper size. => changes not saved!"
 433
 434    Kontext "ExtrasOptionenDlg"
 435    ExtrasOptionenDlg.OK
 436    Sleep (3)
 437 endcase
 438