testautomation/global/tools/includes/optional/t_toolbar_impress.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_impress.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 - Impress
  37 '*
  38 '***************************************************************************************
  39 '*
  40 ' #0 fGetObjectImpress
  41 '*
  42 '\*************************************************************************************
  43
  44 '*******************************************************
  45 '* This function will get the location for image button
  46 '* in Commands in Tools/Customize/Toolbars from Impress
  47 '*******************************************************
  48 function fGetObjectImpress(sToolbar as String , sObject as String) as Integer
  49
  50   Select case sToolbar
  51       case "3D-Objects"
  52           Select case sObject
  53           end select
  54
  55       case "3D-Settings"
  56           Select case sObject
  57               case "Extrusion On/Off"   : fGetObjectImpress  = 1
  58                    '-----------------                          2
  59               case "Tilt Down"          : fGetObjectImpress  = 3
  60               case "Tilt Up"            : fGetObjectImpress  = 4
  61               case "Tilt Left"          : fGetObjectImpress  = 5
  62               case "Tilt Right"         : fGetObjectImpress  = 6
  63                    '-----------------                          7
  64               case "Depth"              : fGetObjectImpress  = 8
  65               case "Direction"          : fGetObjectImpress  = 9
  66               case "Lighting"           : fGetObjectImpress  = 10
  67               case "Surfact"            : fGetObjectImpress  = 11
  68               case "3D Color"           : fGetObjectImpress  = 12
  69               case else : QAErrorLog "The test does not support Object : " + sObject
  70                           fGetObjectImpress   = 0
  71           end select
  72
  73       case "Align"
  74           Select case sObject
  75               case "Left"              : fGetObjectImpress  = 1
  76               case "Centered"          : fGetObjectImpress  = 2
  77               case "Right"             : fGetObjectImpress  = 3
  78                    '-----------------                         4
  79               case "Top"               : fGetObjectImpress  = 5
  80               case "Center"            : fGetObjectImpress  = 6
  81               case "Bottom"            : fGetObjectImpress  = 7
  82               case else : QAErrorLog "The test does not support Object : " + sObject
  83                           fGetObjectImpress   = 0
  84           end select
  85
  86       case "Arrows"
  87           Select case sObject
  88           end select
  89
  90       case "Basic Shapes"
  91           Select case sObject
  92           end select
  93
  94       case "Block Arrows"
  95           Select case sObject
  96           end select
  97
  98       case "Bullets and Numbering"
  99           Select case sObject
 100           end select
 101
 102       case "Callouts"
 103           Select case sObject
 104           end select
 105
 106       case "Color"
 107           Select case sObject
 108           end select
 109
 110       case "Connectors"
 111           Select case sObject
 112           end select
 113
 114       case "Controls"
 115           Select case sObject
 116           end select
 117
 118       case "Drawing"
 119           Select case sObject
 120               case "Select"            : fGetObjectImpress  = 1
 121                    '-----------------                         2
 122               case "Line"              : fGetObjectImpress  = 3
 123               case "Rectangle"         : fGetObjectImpress  = 4
 124               case "Ellipse"           : fGetObjectImpress  = 5
 125               case "Text"              : fGetObjectImpress  = 6
 126               case "Vertical Text"     : fGetObjectImpress  = 7
 127                    '-----------------                         8
 128               case "Curve"             : fGetObjectImpress  = 9
 129               case "Connector"         : fGetObjectImpress  = 10
 130               case "3D Objects"        : fGetObjectImpress  = 11
 131               case "Basic Shapes"      : fGetObjectImpress  = 12
 132               case "Symbol Shapes"     : fGetObjectImpress  = 13
 133               case "Block Arrows"      : fGetObjectImpress  = 14
 134               case "Flowcharts"        : fGetObjectImpress  = 15
 135               case "Callouts"          : fGetObjectImpress  = 16
 136               case "Stars"             : fGetObjectImpress  = 17
 137                    '-----------------                         18
 138               case "Points"            : fGetObjectImpress  = 19
 139               case "Glue Points"       : fGetObjectImpress  = 20
 140               case "To Curve"          : fGetObjectImpress  = 21
 141               case "To Polygon"        : fGetObjectImpress  = 22
 142               case "To 3D"             : fGetObjectImpress  = 23
 143               case "To 3D Rotation Objet" : fGetObjectImpress  = 24
 144                    '-----------------                         25
 145               case "Fontwork Gallery"  : fGetObjectImpress  = 26
 146               case "From File"         : fGetObjectImpress  = 27
 147               case "Gallerty"          : fGetObjectImpress  = 28
 148                    '-----------------                         29
 149               case "Rotate"            : fGetObjectImpress  = 30
 150               case "Rotation and Size" : fGetObjectImpress  = 31
 151               case "Flip"              : fGetObjectImpress  = 32
 152               case "Alignment"         : fGetObjectImpress  = 33
 153               case "Arrange"           : fGetObjectImpress  = 34
 154                    '-----------------                         35
 155               case "Insert"            : fGetObjectImpress  = 36
 156               case "Controls"          : fGetObjectImpress  = 37
 157                    '-----------------                         38
 158               case "Extrusion On/Off"  : fGetObjectImpress  = 39
 159               case "Custom Animation"  : fGetObjectImpress  = 40
 160               case "Interaction"       : fGetObjectImpress  = 41
 161               case "Animated Image"    : fGetObjectImpress  = 42
 162               case "3D Effects"        : fGetObjectImpress  = 43
 163               case else : QAErrorLog "The test does not support Object : " + sObject
 164                           fGetObjectImpress   = 0
 165           end select
 166
 167       case "Edit Points"
 168           Select case sObject
 169           end select
 170
 171       case "Flowchart"
 172           Select case sObject
 173           end select
 174
 175       case "Fontwork"
 176           Select case sObject
 177           end select
 178
 179       case "Fontwork Shape"
 180           Select case sObject
 181           end select
 182
 183       case "Form Design"
 184           Select case sObject
 185           end select
 186
 187       case "Form Filter"
 188           Select case sObject
 189           end select
 190
 191       case "Form Navigation"
 192           Select case sObject
 193           end select
 194
 195       case "Full Screen"
 196           Select case sObject
 197           end select
 198
 199       case "Gluepoints"
 200           Select case sObject
 201           end select
 202
 203       case "Graphic Filter"
 204           Select case sObject
 205           end select
 206
 207       case "Insert"
 208          Select case sObject
 209               case "Floating Frame" : fGetObjectImpress  = 6
 210               case "Plug-in"        : fGetObjectImpress  = 8
 211               case "Applet"         : fGetObjectImpress  = 9
 212               case "File"           : fGetObjectImpress  = 11
 213               case "Sound"          : fGetObjectImpress  = 14
 214               case "Video"          : fGetObjectImpress  = 15
 215           end select
 216
 217       case "OLE-Object"
 218           Select case sObject
 219               case "Wrap Left"         : fGetObjectImpress  = 11
 220               case "Wrap Right"        : fGetObjectImpress  = 12
 221               case "Optimal Page Wrap" : fGetObjectImpress  = 16
 222               case else : QAErrorLog "The test does not support Object : " + sObject
 223                           fGetObjectImpress   = 0
 224           end select
 225
 226       case "Standard"
 227           Select case sObject
 228               case "Load URL"                   : fGetObjectImpress  = 1
 229               case "New"                        : fGetObjectImpress  = 2
 230               case "New Document From Template" : fGetObjectImpress  = 3
 231               case "Open"                       : fGetObjectImpress  = 4
 232               case "Save"                       : fGetObjectImpress  = 5
 233               case "Save As"                    : fGetObjectImpress  = 6
 234               case "Document as E-mail"         : fGetObjectImpress  = 7
 235                    '-----------------                                  8
 236               case "Edit File"                  : fGetObjectImpress  = 9
 237                    '-----------------                                  10
 238               case "Export Directly as PDF"     : fGetObjectImpress  = 11
 239               case "Print File Directly"        : fGetObjectImpress  = 12
 240                    '-----------------                                  13
 241               case "Spellcheck"                 : fGetObjectImpress  = 14
 242               case "AutoSpellcheck"             : fGetObjectImpress  = 15
 243                    '-----------------                                  16
 244               case "Cut"                        : fGetObjectImpress  = 17
 245               case "Copy"                       : fGetObjectImpress  = 18
 246               case "Paste"                      : fGetObjectImpress  = 19
 247               case "Format Paintbrush"          : fGetObjectImpress  = 20
 248                    '-----------------                                  21
 249               case "Can't Undo"                 : fGetObjectImpress  = 22
 250               case "Can't Restore"              : fGetObjectImpress  = 23
 251                    '-----------------                                  24
 252               case "Chart"                      : fGetObjectImpress  = 25
 253               case "CALC"                : fGetObjectImpress  = 26
 254               case "Hyperlink"                  : fGetObjectImpress  = 27
 255                    '-----------------                                  28
 256               case "Display Grid"               : fGetObjectImpress  = 29
 257                    '-----------------                                  30
 258               case "Navigator"                  : fGetObjectImpress  = 31
 259               case "Zoom"                       : fGetObjectImpress  = 32
 260                    '-----------------                                  33
 261               case "StarOffice Help"            : fGetObjectImpress  = 34
 262               case "What's This?"               : fGetObjectImpress  = 35
 263               case else : QAErrorLog "The test does not support Object : " + sObject
 264                           fGetObjectImpress   = 0
 265           end select
 266
 267       case "Table"
 268           Select case sObject
 269               case "Table"     : fGetObjectImpress  = 22
 270               case "Columns"   : fGetObjectImpress  = 23
 271               case "Rows"      : fGetObjectImpress  = 24
 272           end select
 273
 274       case "Text Object"
 275           Select case sObject
 276               case "Line Spacing 1"   : fGetObjectImpress  = 16
 277               case "Line Spacing 1.5" : fGetObjectImpress  = 17
 278               case "Line Spacing 2"   : fGetObjectImpress  = 18
 279               case "Font Color"       : fGetObjectImpress  = 20
 280               case "Left-To-Right"    : fGetObjectImpress  = 22
 281               case "Right-To-Left"    : fGetObjectImpress  = 23
 282           end select
 283
 284       case "XML Form Design"
 285           Select case sObject
 286               case "Bring to Front"  : fGetObjectImpress  = 14
 287               case "Send to Back"    : fGetObjectImpress  = 15
 288               case "Group"           : fGetObjectImpress  = 17
 289               case "UnGroup"         : fGetObjectImpress  = 18
 290               case "Enter Group"     : fGetObjectImpress  = 19
 291               case "Exit Group"      : fGetObjectImpress  = 20
 292           end select
 293
 294   end select
 295
 296 end function