testautomation/global/tools/includes/required/t_option.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_option.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-13 10:27:10 $
  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 : thorsten.bosbach@sun.com
  35 '*
  36 '* short description : General option test (sub-routines for options tests)
  37 '*
  38 '\******************************************************************************
  39
  40 function hToolsOptions ( Applicationname as string, Tabpagename as string, OPTIONAL bSilent as Boolean ) as Boolean
  41
  42     const CFN = "global::tools::includes::required::t_option.inc:"
  43
  44     Dim bCorPage as Boolean
  45     Dim bFirst as Boolean
  46
  47     Dim InitialNodeCount as Integer ' All nodes collapsed
  48     Dim CurrentNodeCount as Integer ' Number of nodes when a top node is expanded
  49     Dim iCurrentPage as Integer     ' Increment variable for stepping through the nodes
  50     Dim startpos as integer
  51
  52     Applicationname = ucase( Applicationname )
  53     Tabpagename     = ucase( Tabpagename     )
  54
  55     '///<i>hToolsOptions</i>: Routine to select the correct option page
  56     '///+<u>input</u>: The groupname as string, name of optionpage as string
  57     '///+<u>note</u>: The options dialog has to be opened
  58     '///+<u>OPTIONAL</u>: TRUE as an additional parameter if you want a printlog instead of a warning if a page has not been found.
  59
  60     if IsMissing(bSilent) then
  61         bSilent = FALSE
  62     end if
  63
  64     Kontext "Active"
  65     try
  66         if Active.Exists(1) then Active.OK
  67     catch
  68         if Active.Exists(1) then Active.No
  69     endcatch
  70     '///Group names list:
  71     '///+<ul><li>&quot;StarOffice&quot;</li>
  72     '///+<li>&quot;LoadSave&quot;</li>
  73     '///+<li>&quot;LanguageSettings&quot;</li>
  74     '///+<li>&quot;Internet&quot;</li>
  75     '///+<li>&quot;Textdocument&quot;</li>
  76     '///+<li>&quot;HTMLDocument&quot;</li>
  77     '///+<li>&quot;Spreadsheet&quot;</li>
  78     '///+<li>&quot;Presentation&quot;</li>
  79     '///+<li>&quot;Drawing&quot;</li>
  80     '///+<li>&quot;Formula&quot;</li>
  81     '///+<li>&quot;Chart&quot;</li>
  82     '///+<li>&quot;Datasource&quot;</li></ul>
  83     Kontext "ExtrasOptionenDlg"
  84
  85     if ExtrasOptionenDlg.Exists then
  86         Optionsliste.TypeKeys "<HOME>"
  87         for iCurrentPage = 1 to 12+1
  88             Optionsliste.TypeKeys "-<DOWN>"
  89         next iCurrentPage
  90         'Optionsliste.TypeKeys "<HOME>"
  91         InitialNodeCount = Optionsliste.GetItemCount
  92         select case Applicationname
  93         case "STAROFFICE"        : startpos = 1
  94         case "LOADSAVE"          : startpos = 2
  95         case "LANGUAGESETTINGS"  : startpos = 3
  96         case "WRITER"            : startpos = 4
  97         case "MASTERDOCUMENT"    : startpos = 4
  98         case "HTML"              : startpos = 5
  99         case "CALC"              : startpos = 4
 100         case "IMPRESS"           : startpos = 4
 101         case "DRAW"              : startpos = 4
 102         case "MATH"              : startpos = 4
 103         case "DATASOURCES"       : startpos = InitialNodeCount -2
 104         case "CHART"             : startpos = InitialNodeCount -1
 105         case "INTERNET"          : startpos = InitialNodeCount ' always the last one
 106         case else
 107             warnlog( CFN & "Invalid Application name specified: " & Applicationname )
 108             printlog( "Valid options are:" )
 109             printlog( "gApplications: WRITER, CALC, MASTERDOCUMENT, DRAW, IMPRESS, HTML, MATH, CHART" )
 110             printlog( "additionally.: STAROFFICE, LOADSAVE, LANGUAGESETTINGS, DATASOURCES, INTERNET" )
 111             printlog( "All names must be uppercase" )
 112             exit function
 113         end select
 114
 115         Optionsliste.select Startpos
 116         Optionsliste.typekeys "+"
 117         CurrentNodeCount = Optionsliste.GetItemCount
 118         bFirst = TRUE
 119         for iCurrentPage = 1 to CurrentNodeCount - InitialNodeCount
 120             bCorPage = FALSE
 121             Kontext "ExtrasOptionenDlg"
 122             Optionsliste.TypeKeys "<DOWN>"
 123             WaitSlot() ' Some sort of NOOP
 124             select case Applicationname
 125             case "STAROFFICE"
 126                 '///Pages in group &quot;StarOffice&quot;are:
 127                 '///+<ul><li>&quot;UserData&quot;</li>
 128                 '///+<li>&quot;General&quot;</li>
 129                 '///+<li>&quot;Memory&quot;</li>
 130                 '///+<li>&quot;View&quot;</li>
 131                 '///+<li>&quot;Print&quot;</li>
 132                 '///+<li>&quot;Paths&quot;</li>
 133                 '///+<li>&quot;Colors&quot;</li>
 134                 '///+<li>&quot;FontReplacement&quot;</li>
 135                 '///+<li>&quot;Security&quot;</li>
 136                 '///+<li>&quot;Appearence&quot;</li>
 137                 '///+<li>&quot;Accessibility&quot;</li>
 138                 '///+<li>&quot;Java&quot;</li></ul>
 139                 select case Tabpagename
 140                 case "USERDATA"
 141                     Kontext "TabBenutzerdaten"
 142                     if TabBenutzerdaten.exists then bCorPage = TRUE
 143                 case "GENERAL"
 144                     if bFirst = TRUE then Optionsliste.Select ( startpos + 2 )
 145                     bFirst = FALSE
 146                     Kontext "TabSonstigesAllgemein"
 147                     If TabSonstigesAllgemein.exists(2) then bCorPage = TRUE
 148                 case "MEMORY"
 149                     if bFirst = TRUE then Optionsliste.Select ( startpos + 3 )
 150                     bFirst = FALSE
 151                     Kontext "TabMemory"
 152                     If TabMemory.exists(2) then bCorPage = TRUE
 153                 case "VIEW"
 154                     if bFirst = TRUE then Optionsliste.Select ( startpos + 4 )
 155                     bFirst = FALSE
 156                     Kontext "TabAnsichtAllgemein"
 157                     If TabAnsichtAllgemein.exists(2) then bCorPage = TRUE
 158                 case "PRINT"
 159                     if bFirst = TRUE then Optionsliste.Select ( startpos + 5 )
 160                     bFirst = FALSE
 161                     Kontext "TabPrintStarOffice"
 162                     if TabPrintStarOffice.exists(2) then bCorPage = TRUE
 163                 case "PATHS"
 164                     if bFirst = TRUE then Optionsliste.Select ( startpos + 6 )
 165                     bFirst = FALSE
 166                     Kontext "TabPfade"
 167                     If TabPfade.exists(2) then bCorPage = TRUE
 168                 case "COLORS"
 169                     if bFirst = TRUE then Optionsliste.Select ( startpos + 7 )
 170                     bFirst = FALSE
 171                     Kontext "TabFarben"
 172                     If TabFarben.exists(4) then bCorPage = TRUE
 173                 case "FONTREPLACEMENT"
 174                     if bFirst = TRUE then Optionsliste.Select ( startpos + 8 )
 175                     bFirst = FALSE
 176                     Kontext "TabSchriftErsetzung"
 177                     If TabSchriftErsetzung.exists(2) then bCorPage = TRUE
 178                 case "SECURITY"
 179                     if bFirst = TRUE then Optionsliste.Select ( startpos + 9 )
 180                     bFirst = FALSE
 181                     Kontext "TabSecurity"
 182                     If TabSecurity.exists(2) then bCorPage = TRUE
 183                 case "APPEARANCE"
 184                     if bFirst = TRUE then Optionsliste.Select ( startpos + 10 )
 185                     bFirst = FALSE
 186                     Kontext "TabAppearance"
 187                     If TabAppearance.exists(2) then bCorPage = TRUE
 188                 case "ACCESSIBILITY"
 189                     if bFirst = TRUE then Optionsliste.Select ( startpos + 11 )
 190                     bFirst = FALSE
 191                     Kontext "TabAccessibility"
 192                     If TabAccessibility.exists(2) then bCorPage = TRUE
 193                 case "JAVA"
 194                     if bFirst = TRUE then Optionsliste.Select ( startpos + 12 )
 195                     bFirst = FALSE
 196                     Kontext "TabJava"
 197                     If TabJava.exists(2) then bCorPage = TRUE
 198                 case "ONLINEUPDATE"
 199                     if bFirst = TRUE then Optionsliste.Select ( startpos + 13 )
 200                     bFirst = FALSE
 201                     Kontext "TabOnlineUpdate"
 202                     If TabOnlineUpdate.exists(2) then bCorPage = TRUE
 203                 case "IMPROVEMENT"
 204                     if bFirst = TRUE then Optionsliste.Select ( startpos + 14 )
 205                     bFirst = FALSE
 206                     Kontext "TabOOoImprovement"
 207                     If TabOOoImprovement.exists(2) then bCorPage = TRUE
 208                 case else :  bCorPage = FALSE
 209                 end select
 210             case "LOADSAVE"
 211                 '///Pages in group &quot;LoadSave&quot;are:
 212                 '///+<ul><li>&quot;General&quot;</li>
 213                 '///+<li>&quot;VBAProperties&quot;</li>
 214                 '///+<li>&quot;MicrosoftOffice&quot;</li>
 215                 '///+<li>&quot;HTMLCompatibility&quot;</li></ul>
 216                 select case Tabpagename
 217                 case "GENERAL"
 218                     Kontext "TabSpeichern"
 219                     if TabSpeichern.exists then bCorPage = TRUE
 220                 case "VBAPROPERTIES"
 221                     if bFirst = TRUE then Optionsliste.Select ( startpos + 2 )
 222                     bFirst = FALSE
 223                     Kontext "TabMicrosoftOffice97"
 224                     If WinwordBasicLaden.exists(4) then bCorPage = TRUE
 225                 case "MICROSOFTOFFICE"
 226                     if bFirst = TRUE then Optionsliste.Select ( startpos + 3 )
 227                     bFirst = FALSE
 228                     Kontext "TabMicrosoftOffice2"
 229                     If Auswahl.exists(4) then bCorPage = TRUE
 230                 case "HTMLCOMPATIBILITY"
 231                     if bFirst = TRUE then Optionsliste.Select ( startpos + 4 )
 232                     bFirst = FALSE
 233                     Kontext "TabHtml"
 234                     If TabHtml.exists(2) then bCorPage = TRUE
 235                 case else : bCorPage = FALSE
 236                 end select
 237             case "LANGUAGESETTINGS"
 238                 '///Pages in group &quot;LanguageSettings&quot;are:
 239                 '///+<ul><li>&quot;Language&quot;</li>
 240                 '///+<li>&quot;WritingAids&quot;</li>
 241                 '///+<li>&quot;SearchingJapanese&quot;</li>
 242                 '///+<li>&quot;AsianLayout&quot;</li></ul>
 243                 '///+<li>&quot;Complex Text Layout&quot;</li></ul>
 244                 Kontext "Active"
 245                 if Active.Exists then Active.OK
 246                 Kontext "ExtrasOptionenDlg"
 247                 select case Tabpagename
 248                 case "LANGUAGES"
 249                     Kontext "TabSprachen"
 250                     If TabSprachen.exists(2) then bCorPage = TRUE
 251                 case "WRITINGAIDS"
 252                     if bFirst = TRUE then Optionsliste.Select ( startpos + 2 )
 253                     bFirst = FALSE
 254                     Kontext "TabLinguistik"
 255                     If TabLinguistik.exists(2) then bCorPage = TRUE
 256                 case "SEARCHINGINJAPANESE"
 257                     if bFirst = TRUE then Optionsliste.Select ( startpos + 3 )
 258                     bFirst = FALSE
 259                     Kontext "TabJapaneseFind"
 260                     if TabJapaneseFind.exists(2) then bCorPage = TRUE
 261                 case "ASIANLAYOUT"
 262                     if bFirst = TRUE then Optionsliste.Select ( startpos + 4 )
 263                     bFirst = FALSE
 264                     Kontext "TabAsianLayoutOptions"
 265                     if TabAsianLayoutOptions.exists(2) then bCorPage = TRUE
 266                 case "COMPLEXTEXTLAYOUT"
 267                     if bFirst = TRUE then Optionsliste.Select ( startpos + 5 )
 268                     bFirst = FALSE
 269                     Kontext "TabComplexTextLayout"
 270                     if TabComplexTextLayout.exists(2) then bCorPage = TRUE
 271                 case else : bCorPage = FALSE
 272                 end select
 273             case "INTERNET"
 274                 '///Pages in group &quot;Internet&quot;are:
 275                 '///+<ul><li>&quot;Proxy&quot;</li>
 276                 '///+<li>&quot;Search&quot;</li></ul>
 277                 Kontext "Active"
 278                 if Active.Exists then Active.OK
 279                 Kontext "ExtrasOptionenDlg"
 280                 select case Tabpagename
 281                 case "PROXY"
 282                     Kontext "ProxyWarnung"
 283                     if ProxyWarnung.Exists then
 284                         NichtMehrAnzeigen.Check
 285                         ProxyWarnung.OK
 286                     end if
 287                     Kontext "TabProxyServer"
 288                     if TabProxyServer.exists(2) then bCorPage = TRUE
 289                 case "SEARCH"
 290                     if bFirst = TRUE then Optionsliste.Select ( startpos + 2 )
 291                     bFirst = FALSE
 292                     Kontext "TabSuche"
 293                     If TabSuche.exists(2) then bCorPage = TRUE
 294                 case "EMAIL"
 295                     if bFirst = TRUE then Optionsliste.Select ( startpos + 3 )
 296                     bFirst = FALSE
 297                     Kontext "TabEmail"
 298                     If TabEmail.exists(2) then bCorPage = TRUE
 299                 case else : bCorPage = FALSE
 300                 end select
 301             case "WRITER"
 302                 '///Pages in group &quot;TextDocument&quot;are:
 303                 '///+<ul><li>&quot;General&quot;</li>
 304                 '///+<li>&quot;View&quot;</li>
 305                 '///+<li>&quot;FormattinAids&quot;</li>
 306                 '///+<li>&quot;Grid&quot;</li>
 307                 '///+<li>&quot;BasicFonts&quot;</li>
 308                 '///+<li>&quot;BasicFontsAsian&quot;</li>
 309                 '///+<li>&quot;BasicFontsCTL&quot;</li>
 310                 '///+<li>&quot;Print&quot;</li>
 311                 '///+<li>&quot;Table&quot;</li>
 312                 '///+<li>&quot;Changes&quot;</li></ul>
 313                 select case Tabpagename
 314                 case "GENERAL"
 315                     Kontext "TabLaden"
 316                     If TabLaden.exists then bCorPage = TRUE
 317                 case "VIEW"
 318                     if bFirst = TRUE then Optionsliste.Select ( startpos + 2 )
 319                     bFirst = FALSE
 320                     Kontext "TabInhalteWriter"
 321                     If TabInhalteWriter.exists(2) then bCorPage = TRUE
 322                 case "FORMATTINGAIDS"
 323                     if bFirst = TRUE then Optionsliste.Select ( startpos + 3 )
 324                     bFirst = FALSE
 325                     Kontext "TabDirektCursor"
 326                     If TabDirektCursor.exists(2) then bCorPage = TRUE
 327                 case "GRID"
 328                     if bFirst = TRUE then Optionsliste.Select ( startpos + 4 )
 329                     bFirst = FALSE
 330                     Kontext "TabRaster"
 331                     If TabRaster.exists(2) then bCorPage = TRUE
 332                 case "BASICFONTS"
 333                     if bFirst = TRUE then Optionsliste.Select ( startpos + 5 )
 334                     bFirst = FALSE
 335                     Kontext "TabGrundschriften"
 336                     If TabGrundschriften.exists(2) then bCorPage = TRUE
 337                 case "BASICFONTSASIAN"
 338                     if bFirst = TRUE then Optionsliste.Select ( startpos + 6 )
 339                     bFirst = FALSE
 340                     Kontext "TabGrundschriftenASIAN"
 341                     If TabGrundschriftenASIAN.exists(2) then bCorPage = TRUE
 342                 case "BASICFONTSCTL"
 343                     if bFirst = TRUE then Optionsliste.Select ( startpos + 6 )
 344                     bFirst = FALSE
 345                     Kontext "TabGrundschriftenCTL"
 346                     If TabGrundschriftenCTL.exists(2) then bCorPage = TRUE
 347                 case "PRINT"
 348                     if bFirst = TRUE then Optionsliste.Select ( startpos + 6 )
 349                     bFirst = FALSE
 350                     Kontext "TabDruckenWriter"
 351                     If TabDruckenWriter.exists(2) then bCorPage = TRUE
 352                 case "TABLE"
 353                     if bFirst = TRUE then Optionsliste.Select ( startpos + 7 )
 354                     bFirst = FALSE
 355                     Kontext "TabTabelleOptionen"
 356                     If TabTabelleOptionen.exists(2) then bCorPage = TRUE
 357                 case "CHANGES"
 358                     if bFirst = TRUE then Optionsliste.Select ( startpos + 8 )
 359                     bFirst = FALSE
 360                     Kontext "TabAenderungenWriter"
 361                     If TabAenderungenWriter.exists(2) then bCorPage = TRUE
 362                 case "COMPATIBILITY"
 363                     if bFirst = TRUE then Optionsliste.Select ( startpos + 9 )
 364                     bFirst = FALSE
 365                     Kontext "TabCompatibility"
 366                     If TabCompatibility.exists(2) then bCorPage = TRUE
 367                 case "AUTOCAPTION"
 368                     if bFirst = TRUE then Optionsliste.Select ( startpos + 10 )
 369                     bFirst = FALSE
 370                     Kontext "TabAutoCaption"
 371                     If TabAutoCaption.exists(2) then bCorPage = TRUE
 372                 case "MAILMERGEEMAIL"
 373                     if bFirst = TRUE then Optionsliste.Select ( startpos + 11 )
 374                     bFirst = FALSE
 375                     Kontext "TabMailMergeEMail"
 376                     If TabMailMergeEMail.exists(2) then bCorPage = TRUE
 377
 378                 case else : bCorPage = FALSE
 379                 end select
 380             case "HTML"
 381                 '///Pages in group &quot;HTMLDocument&quot;are:
 382                 '///+<ul><li>&quot;General&quot;</li>
 383                 '///+<li>&quot;View&quot;</li>
 384                 '///+<li>&quot;Grid&quot;</li>
 385                 '///+<li>&quot;Print&quot;</li>
 386                 '///+<li>&quot;Table&quot;</li>
 387                 '///+<li>&quot;Source&quot;</li>
 388                 '///+<li>&quot;Background&quot;</li></ul>
 389                 select case Tabpagename
 390                 case "VIEW"
 391                     Kontext "TabInhalteHTML"
 392                     If TabInhalteHTML.exists then bCorPage = TRUE
 393                 case "FORMATTINGAIDS"
 394                     if bFirst = TRUE then Optionsliste.Select ( startpos + 2 )
 395                     bFirst = FALSE
 396                     Kontext "TabDirektCursor"
 397                     If TabDirektCursor.exists(2) then bCorPage = TRUE
 398                 case "GRID"
 399                     if bFirst = TRUE then Optionsliste.Select ( startpos + 3 )
 400                     bFirst = FALSE
 401                     Kontext "TabRaster"
 402                     If TabRaster.exists(2) then bCorPage = TRUE
 403                 case "PRINT"
 404                     if bFirst = TRUE then Optionsliste.Select ( startpos + 4 )
 405                     bFirst = FALSE
 406                     Kontext "TabDruckenHTML"
 407                     If TabDruckenHTML.exists(2) then bCorPage = TRUE
 408                 case "TABLE"
 409                     if bFirst = TRUE then Optionsliste.Select ( startpos + 5 )
 410                     bFirst = FALSE
 411                     Kontext "TabTabelleOptionen"
 412                     If TabTabelleOptionen.exists(2) then bCorPage = TRUE
 413                 case "BACKGROUND"
 414                     if bFirst = TRUE then Optionsliste.Select ( startpos + 6 )
 415                     bFirst = FALSE
 416                     Kontext "TabHintergrund"
 417                     If TabHintergrund.exists then bCorPage = TRUE
 418                 case else : bCorPage = FALSE
 419                 end select
 420             case "CALC"
 421                 '///Pages in group &quot;Spreadsheet&quot;are:
 422                 '///+<ul><li>&quot;General&quot;</li>
 423                 '///+<li>&quot;View&quot;</li>
 424                 '///+<li>&quot;Calculate&quot;</li>
 425                 '///+<li>&quot;Sortlists&quot;</li>
 426                 '///+<li>&quot;Changes&quot;</li>
 427                 '///+<li>&quot;Grid&quot;</li>
 428                 '///+<li>&quot;Print&quot;</li></ul>
 429                 select case Tabpagename
 430                 case "GENERAL"
 431                     Kontext "TabLayoutCalc"
 432                     If TabLayoutCalc.exists(2) then bCorPage = TRUE
 433                 case "VIEW"
 434                     if bFirst = TRUE then Optionsliste.Select ( startpos + 2 )
 435                     bFirst = FALSE
 436                     Kontext "TabInhaltCalc"
 437                     If TabInhaltCalc.exists(2) then bCorPage = TRUE
 438                 case "CALCULATE"
 439                     if bFirst = TRUE then Optionsliste.Select ( startpos + 3 )
 440                     bFirst = FALSE
 441                     Kontext "TabBerechnen"
 442                     If TabBerechnen.exists(2) then bCorPage = TRUE
 443                 case "SORTLISTS"
 444                     if bFirst = TRUE then Optionsliste.Select ( startpos + 4 )
 445                     bFirst = FALSE
 446                     Kontext "TabSortierlisten"
 447                     If TabSortierlisten.exists(2) then bCorPage = TRUE
 448                 case "CHANGES"
 449                     if bFirst = TRUE then Optionsliste.Select ( startpos + 5 )
 450                     bFirst = FALSE
 451                     Kontext "TabAenderungenCalc"
 452                     If TabAenderungenCalc.exists(2) then bCorPage = TRUE
 453                 case "GRID"
 454                     if bFirst = TRUE then Optionsliste.Select ( startpos + 6 )
 455                     bFirst = FALSE
 456                     Kontext "TabRaster"
 457                     If TabRaster.exists(2) then bCorPage = TRUE
 458                 case "PRINT"
 459                     if bFirst = TRUE then Optionsliste.Select ( startpos + 7 )
 460                     bFirst = FALSE
 461                     Kontext "TabPrintCalcOptions"
 462                     If TabPrintCalcOptions.exists(2) then bCorPage = TRUE
 463                 case else : bCorPage = FALSE
 464                 end select
 465             case "IMPRESS"
 466                 '///Pages in group &quot;Presentation&quot;are:
 467                 '///+<ul><li>&quot;General&quot;</li>
 468                 '///+<li>&quot;View&quot;</li>
 469                 '///+<li>&quot;Grid&quot;</li>
 470                 '///+<li>&quot;Print&quot;</li></ul>
 471                 select case Tabpagename
 472                 case "GENERAL"
 473                     Kontext "TabSonstigesDraw"
 474                     If TabSonstigesDraw.exists then bCorPage = TRUE
 475                 case "VIEW"
 476                     if bFirst = TRUE then Optionsliste.Select ( startpos + 2 )
 477                     bFirst = FALSE
 478                     Kontext "TabInhalteDraw"
 479                     If TabInhalteDraw.exists(2) then bCorPage = TRUE
 480                 case "GRID"
 481                     if bFirst = TRUE then Optionsliste.Select ( startpos + 3 )
 482                     bFirst = FALSE
 483                     Kontext "TabRaster"
 484                     If TabRaster.exists(2) then bCorPage = TRUE
 485                 case "PRINT"
 486                     if bFirst = TRUE then Optionsliste.Select ( startpos + 4 )
 487                     bFirst = FALSE
 488                     Kontext "TabDruckenDraw"
 489                     If TabDruckenDraw.exists(2) then bCorPage = TRUE
 490                 case else : bCorPage = FALSE
 491                 end select
 492             case "DRAW"
 493                 '///Pages in group &quot;Drawing&quot;are:
 494                 '///+<ul><li>&quot;General&quot;</li>
 495                 '///+<li>&quot;View&quot;</li>
 496                 '///+<li>&quot;Grid&quot;</li>
 497                 '///+<li>&quot;Print&quot;</li></ul>
 498                 select case Tabpagename
 499                 case "GENERAL"
 500                     Kontext "TabSonstigesDraw"
 501                     If TabSonstigesDraw.exists then bCorPage = TRUE
 502                 case "VIEW"
 503                     if bFirst = TRUE then Optionsliste.Select ( startpos + 2 )
 504                     bFirst = FALSE
 505                     Kontext "TabInhalteDraw"
 506                     If TabInhalteDraw.exists(2) then bCorPage = TRUE
 507                 case "GRID"
 508                     if bFirst = TRUE then Optionsliste.Select ( startpos + 3 )
 509                     bFirst = FALSE
 510                     Kontext "TabRaster"
 511                     If TabRaster.exists(2) then bCorPage = TRUE
 512                 case "PRINT"
 513                     if bFirst = TRUE then Optionsliste.Select ( startpos + 4 )
 514                     bFirst = FALSE
 515                     Kontext "TabDruckenDraw"
 516                     If TabDruckenDraw.exists(2) then bCorPage = TRUE
 517                 case else : bCorPage = FALSE
 518                 end select
 519             case "MATH"
 520                 '///Page(s) in group &quot;Formula&quot;are:
 521                 '///+<ul><li>&quot;Settings&quot;</li></ul>
 522                 select case Tabpagename
 523                 case "SETTINGS"
 524                     Kontext "TabDruckenMath"
 525                     If TabDruckenMath.exists then bCorPage = TRUE
 526                 case else : bCorPage = FALSE
 527                 end select
 528             case "CHART"
 529                 '///Pages in group &quot;Chart&quot;are:
 530                 '///+<ul><li>&quot;DefaultColors&quot;</li></ul>
 531                 select case Tabpagename
 532                 case "DEFAULTCOLORS"
 533                     Kontext "TabGrundfarben"
 534                     If TabGrundfarben.exists(4) then bCorPage = TRUE
 535                 case else : bCorPage = FALSE
 536                 end select
 537             case "DATASOURCES"
 538                 '///Pages in group &quot;Datasource&quot;are:
 539                 '///+<ul><li>&quot;Connetions&quot;</li></ul>
 540                 select case Tabpagename
 541                 case "CONNECTIONS"
 542                     Kontext "TabConnections"
 543                     If TabConnections.exists(4) then bCorPage = TRUE
 544                 case "DATABASES"
 545                     Kontext "TabRegisteredDatabase"
 546                     If TabRegisteredDatabase.exists(4) then bCorPage = TRUE
 547                 case else : bCorPage = FALSE
 548                 end select
 549             case else
 550                 bCorPage = False
 551             end select
 552             If bCorPage = TRUE then Exit for
 553         next iCurrentPage
 554         if ( NOT bCorPage ) then
 555             if ( NOT bSilent ) then
 556                 warnlog CFN & Applicationname + " / " + Tabpagename + " could not be found! Please review your test!"
 557             else
 558                 printlog CFN & Applicationname + " / " + Tabpagename + " could not be found!"
 559             end if
 560         end if
 561     else
 562         bCorPage = FALSE
 563         warnlog CFN & "Please open the option-dialog with 'ToolsOptions' before you called this routine!"
 564     end if
 565     hToolsOptions = bCorPage
 566 end function
 567