testautomation/global/tools/includes/optional/t_toolbar_calc.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: t_toolbar_calc.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-13 10:27:09 $
  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 : helge.delfs@sun.com
  35 '*
  36 '* short description : Toolbar tools - Calc
  37 '*
  38 '***************************************************************************************
  39 '*
  40 ' #0 fGetObjectCalc
  41 '*
  42 '\*************************************************************************************
  43
  44 '*******************************************************
  45 '* This function will get the location for image button
  46 '* in Commands in Tools/Customize/Toolbars from Calc
  47 '*******************************************************
  48 function fGetObjectCalc(sToolbar as String , sObject as String) as Integer
  49
  50   Select case sToolbar
  51       case "3D-Settings"
  52           Select case sObject
  53               case "Extrusion On/Off"   : fGetObjectCalc  = 1
  54                    '-----------------                       2
  55               case "Tilt Down"          : fGetObjectCalc  = 3
  56               case "Tilt Up"            : fGetObjectCalc  = 4
  57               case "Tilt Left"          : fGetObjectCalc  = 5
  58               case "Tilt Right"         : fGetObjectCalc  = 6
  59                    '-----------------                       7
  60               case "Depth"              : fGetObjectCalc  = 8
  61               case "Direction"          : fGetObjectCalc  = 9
  62               case "Lighting"           : fGetObjectCalc  = 10
  63               case "Surfact"            : fGetObjectCalc  = 11
  64               case "3D Color"           : fGetObjectCalc  = 12
  65               case else : QAErrorLog "The test does not support Object : " + sObject
  66                           fGetObjectCalc   = 0
  67           end select
  68
  69       case "Align"
  70           Select case sObject
  71               case "Left"              : fGetObjectCalc  = 1
  72               case "Centered"          : fGetObjectCalc  = 2
  73               case "Right"             : fGetObjectCalc  = 3
  74               case "Top"               : fGetObjectCalc  = 4
  75               case "Center"            : fGetObjectCalc  = 5
  76               case "Bottom"            : fGetObjectCalc  = 6
  77               case else : QAErrorLog "The test does not support Object : " + sObject
  78                           fGetObjectCalc   = 0
  79           end select
  80
  81       case "Basic Shapes"
  82           Select case sObject
  83           end select
  84
  85       case "Block Arrows"
  86           Select case sObject
  87           end select
  88
  89       case "Callouts"
  90           Select case sObject
  91           end select
  92
  93       case "Color"
  94           Select case sObject
  95           end select
  96
  97       case "Controls"
  98           Select case sObject
  99           end select
 100
 101       case "Drawing"
 102           Select case sObject
 103               case "Select"            : fGetObjectCalc  = 1
 104                    '-----------------                      2
 105               case "Line"              : fGetObjectCalc  = 3
 106               case "Rectangle"         : fGetObjectCalc  = 4
 107               case "Ellipse"           : fGetObjectCalc  = 5
 108               case "Polygon"           : fGetObjectCalc  = 6
 109               case "Curve"             : fGetObjectCalc  = 7
 110               case "Freeform Line"     : fGetObjectCalc  = 8
 111               case "Arc"               : fGetObjectCalc  = 9
 112               case "Ellipse Pie"       : fGetObjectCalc  = 10
 113               case "Circle Segment"    : fGetObjectCalc  = 11
 114               case "Text"              : fGetObjectCalc  = 12
 115               case "Vertical Text"     : fGetObjectCalc  = 13
 116               case "Text Animation"    : fGetObjectCalc  = 14
 117               case "Callouts"          : fGetObjectCalc  = 15
 118               case "Vertical Callouts" : fGetObjectCalc  = 16
 119                    '-----------------                      17
 120               case else : QAErrorLog "The test does not support Object : " + sObject
 121                           fGetObjectCalc   = 0
 122           end select
 123
 124       case "Drawing Object Properties"
 125           Select case sObject
 126               case "Display Grid"       : fGetObjectCalc  = 21
 127               case "Snap to Grid"       : fGetObjectCalc  = 22
 128               case "Guides When Moving" : fGetObjectCalc  = 23
 129               case else : QAErrorLog "The test does not support Object : " + sObject
 130                           fGetObjectCalc   = 0
 131           end select
 132
 133       case "Flowchart"
 134           Select case sObject
 135           end select
 136
 137       case "Fontwork"
 138           Select case sObject
 139           end select
 140
 141       case "Fontwork Shape"
 142           Select case sObject
 143           end select
 144
 145       case "Form Design"
 146           Select case sObject
 147               case "Bring to Front"  : fGetObjectCalc  = 14
 148               case "Send to Back"    : fGetObjectCalc  = 15
 149               case "Group"           : fGetObjectCalc  = 17
 150               case "UnGroup"         : fGetObjectCalc  = 18
 151               case "Enter Group"     : fGetObjectCalc  = 19
 152               case "Exit Group"      : fGetObjectCalc  = 20
 153               case else : QAErrorLog "The test does not support Object : " + sObject
 154                           fGetObjectCalc   = 0
 155           end select
 156
 157       case "Form Filter"
 158           Select case sObject
 159           end select
 160
 161       case "Form Navigation"
 162           Select case sObject
 163           end select
 164
 165       case "Form Object"
 166           Select case sObject
 167           end select
 168
 169       case "Formatting" :
 170           Select case sObject
 171               case "Styles and Formatting"     : fGetObjectCalc  = 1
 172               case "Apply Style"               : fGetObjectCalc  = 2
 173               '----------------------                              3
 174               case "Font Name"                 : fGetObjectCalc  = 4
 175               '----------------------                              5
 176               case "Font Size"                 : fGetObjectCalc  = 6
 177               '----------------------                              7
 178               case "Bold"                      : fGetObjectCalc  = 8
 179               case "Italic"                    : fGetObjectCalc  = 9
 180               case "Underline"                 : fGetObjectCalc  = 10
 181               case "Underline:Double"          : fGetObjectCalc  = 11
 182               '----------------------                              12
 183               case "Align Left"                : fGetObjectCalc  = 13
 184               case "Align Center Horizontally" : fGetObjectCalc  = 14
 185               case "Align Right"               : fGetObjectCalc  = 15
 186               case "Justified"                 : fGetObjectCalc  = 16
 187               case "Merge Cells"               : fGetObjectCalc  = 17
 188               '----------------------                              18
 189               case "Left-To-Right"             : fGetObjectCalc  = 19
 190               case "Right-To-Left"             : fGetObjectCalc  = 20
 191               '----------------------                              21
 192               case else : QAErrorLog "The test does not support Object : " + sObject
 193                           fGetObjectCalc   = 0
 194           end select
 195
 196       case "Full Screen"
 197           Select case sObject
 198               case "Full Screen" : fGetObjectCalc  = 1
 199           end select
 200
 201       case "Graphic Filter"
 202           Select case sObject
 203           end select
 204
 205       case "Insert"
 206           Select case sObject
 207               case "Chart"          : fGetObjectCalc  = 18
 208               case "Insert Object"  : fGetObjectCalc  = 19
 209               case "Controls"       : fGetObjectCalc  = 20
 210               case else : QAErrorLog "The test does not support Object : " + sObject
 211                           fGetObjectCalc   = 0
 212           end select
 213
 214       case "Insert Cell"
 215           Select case sObject
 216           end select
 217
 218       case "Insert Object"
 219           Select case sObject
 220           end select
 221
 222       case "Media Playback"
 223           Select case sObject
 224           end select
 225
 226       case "More Controls"
 227           Select case sObject
 228           end select
 229
 230       case "Picture"
 231           Select case sObject
 232           end select
 233
 234       case "Standard"
 235           Select case sObject
 236               case "Load URL"                   : fGetObjectCalc  = 1
 237               case "New"                        : fGetObjectCalc  = 2
 238               case "New Document From Template" : fGetObjectCalc  = 3
 239               case "Open"                       : fGetObjectCalc  = 4
 240               case "Save"                       : fGetObjectCalc  = 5
 241               case "Save As"                    : fGetObjectCalc  = 6
 242               case "Document as E-mail"         : fGetObjectCalc  = 7
 243                    '-----------------                               8
 244               case "Edit File"                  : fGetObjectCalc  = 9
 245                    '-----------------                               10
 246               case "Export Directly as PDF"     : fGetObjectCalc  = 11
 247               case "Print File Directly"        : fGetObjectCalc  = 12
 248               case "Page Rreview"               : fGetObjectCalc  = 13
 249                    '-----------------                               14
 250               case "Spellcheck"                 : fGetObjectCalc  = 15
 251               case "AutoSpellcheck"             : fGetObjectCalc  = 16
 252                    '-----------------                               17
 253               case "Cut"                        : fGetObjectCalc  = 18
 254               case "Copy"                       : fGetObjectCalc  = 19
 255               case "Paste"                      : fGetObjectCalc  = 20
 256               case "Format Paintbrush"          : fGetObjectCalc  = 21
 257                    '-----------------                               22
 258               case "Can't Undo"                 : fGetObjectCalc  = 23
 259               case "Can't Restore"              : fGetObjectCalc  = 24
 260                    '-----------------                               25
 261               case "Hyperlink"                  : fGetObjectCalc  = 26
 262               case "Sort Ascending"             : fGetObjectCalc  = 27
 263               case "Sort Descending"            : fGetObjectCalc  = 28
 264                    '-----------------                               29
 265               case "Insert Chart"               : fGetObjectCalc  = 30
 266               case "Show Draw Functions"        : fGetObjectCalc  = 31
 267                    '-----------------                               32
 268               case "Find & Replace"             : fGetObjectCalc  = 33
 269               case "Navigator"                  : fGetObjectCalc  = 34
 270               case "Gallery"                    : fGetObjectCalc  = 35
 271               case "Data Sources"               : fGetObjectCalc  = 36
 272               case "Zoom"                       : fGetObjectCalc  = 37
 273                    '-----------------                               38
 274               case "StarOffice Help"            : fGetObjectCalc  = 39
 275               case "What's This?"               : fGetObjectCalc  = 40
 276               case else : QAErrorLog "The test does not support Object : " + sObject
 277                           fGetObjectCalc   = 0
 278           end select
 279
 280       case "Standard(Viewing Mode)"
 281           Select case sObject
 282           end select
 283
 284       case "Stars and Banners"
 285           Select case sObject
 286           end select
 287
 288       case "Symbol Shapes"
 289           Select case sObject
 290           end select
 291
 292       case "Text Formatting"
 293           Select case sObject
 294           end select
 295
 296       case "Tools"
 297           Select case sObject
 298           end select
 299
 300       case "previewbar"
 301           Select case sObject
 302           end select
 303
 304   end select
 305
 306 end function