testautomation/writer/optional/includes/option/wh_o_1.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: wh_o_1.inc,v $
  10 '*
  11 '* $Revision: 1.2 $
  12 '*
  13 '* last change: $Author: vg $ $Date: 2008-08-18 12:32:16 $
  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 : HTML-Options
  37 '*
  38 '\***********************************************************************
  39
  40 sub wh_o_1
  41
  42     printLog Chr(13) + "---------    Options   - Tools HTML -    ----------"
  43
  44     Call tToolsOptionsHTMLContent
  45     Call tToolsOptionsHTMLLayout  'wrn:1
  46     Call tToolsOptionsHTMLGrid    'wrn:4
  47
  48 end sub
  49
  50 '------------------------------------------------------------------------------
  51 testcase tToolsOptionsHTMLContent
  52
  53     Dim irgendwas(17) as boolean
  54
  55     printlog "tToolsOptionsHTMLContent datei erstellen zum laden"
  56     '/// uses "input\\writer\\optional\\options\\options1.sxw"  ///
  57     '///+ Created Dokument with everything on ///'
  58     Call hNewDocument
  59
  60     printlog "'///- Tools/Options/HTML: Content ///"
  61
  62     printlog ("'/// - save states ///")
  63     ToolsOptions
  64     Call hToolsOptions ("HTML","View")
  65
  66     irgendwas(1) = GrafikenUndObjekte.IsChecked
  67     irgendwas(2) = Tabellen.IsChecked
  68     irgendwas(3) = Zeichnungen.IsChecked
  69     irgendwas(4) = Feldnamen.IsChecked
  70     irgendwas(5) = Notizen.IsChecked
  71
  72     'irgendwas(9) = Felder.IsChecked
  73
  74     printlog ("'/// - all states inverting ///")
  75
  76     if irgendwas(1) Then GrafikenUndObjekte.UnCheck Else GrafikenUndObjekte.Check
  77     if irgendwas(2) Then Tabellen.UnCheck Else Tabellen.Check
  78     if irgendwas(3) Then Zeichnungen.UnCheck Else Zeichnungen.Check
  79     if irgendwas(4) Then Feldnamen.UnCheck Else Feldnamen.Check
  80     if irgendwas(5) Then Notizen.UnCheck Else Notizen.Check
  81
  82     'if irgendwas(9) Then Felder.UnCheck Else Felder.Check
  83
  84     Kontext "ExtrasOptionenDlg"
  85     ExtrasOptionenDlg.OK
  86
  87     printlog ("'/// - SO quit - start ///")
  88
  89     Call wOfficeRestart
  90
  91     printlog ("'/// - checking states ///")
  92     ToolsOptions
  93     Call hToolsOptions ( "HTML","View" )
  94
  95     if ( irgendwas(1) = GrafikenUndObjekte.IsChecked ) Then WarnLog "GrafikenUndObjekte state changed"
  96     if ( irgendwas(2) = Tabellen.IsChecked  ) Then WarnLog "Tabellen state changed"
  97     if ( irgendwas(3) = Zeichnungen.IsChecked  ) Then WarnLog "Zeichnungen state changed"
  98     if ( irgendwas(4) = Feldnamen.IsChecked  ) Then  WarnLog "Feldnamen state changed"
  99     if ( irgendwas(5) = Notizen.IsChecked  ) Then  WarnLog "Notizen state changed"
 100
 101     printlog ("'/// - all UnCheck -> o ///")
 102
 103     GrafikenUndObjekte.UnCheck
 104     Tabellen.UnCheck
 105     Zeichnungen.UnCheck
 106     Feldnamen.UnCheck
 107     Notizen.UnCheck
 108
 109     'Felder.UnCheck
 110
 111     Kontext "ExtrasOptionenDlg"
 112     ExtrasOptionenDlg.OK
 113
 114     printlog ("'/// - check if all UnChecked ///")
 115     ToolsOptions
 116     hToolsOptions ( "HTML","View" )
 117
 118     if GrafikenUndObjekte.IsChecked Then WarnLog "GrafikenUndObjekte x"
 119     if Tabellen.IsChecked Then WarnLog "Tabellen x"
 120     if Zeichnungen.IsChecked Then WarnLog "Zeichnungen x"
 121     if Feldnamen.IsChecked Then  WarnLog "Feldnamen x"
 122     if Notizen.IsChecked Then  WarnLog "Notizen x"
 123
 124     Printlog ("'/// - all Check -> x ///")
 125     GrafikenUndObjekte.Check
 126     Tabellen.Check
 127     Zeichnungen.Check
 128     Feldnamen.Check
 129     Notizen.Check
 130
 131     Kontext "ExtrasOptionenDlg"
 132     ExtrasOptionenDlg.OK
 133
 134     printlog ("'/// - check if all Checked ///")
 135     ToolsOptions
 136     Call hToolsOptions ( "HTML","View" )
 137
 138     if true <> GrafikenUndObjekte.IsChecked Then WarnLog "GrafikenUndObjekte o"
 139     if True <> Tabellen.IsChecked Then WarnLog "Tabellen o"
 140     if True <> Zeichnungen.IsChecked Then WarnLog "Zeichnungen o"
 141     if True <> Feldnamen.IsChecked Then  WarnLog "Feldnamen o"
 142     if True <> Notizen.IsChecked Then  WarnLog "Notizen o"
 143
 144     printlog ("'/// - restore states ///")
 145     if ( irgendwas(1) = TRUE ) Then  GrafikenUndObjekte.Check Else GrafikenUndObjekte.UnCheck
 146     if ( irgendwas(2) = TRUE ) Then  Tabellen.Check Else Tabellen.UnCheck
 147     if ( irgendwas(3) = TRUE ) Then  Zeichnungen.Check Else Zeichnungen.UnCheck
 148     if ( irgendwas(4) = TRUE ) Then  Feldnamen.Check Else Feldnamen.UnCheck
 149     if ( irgendwas(5) = TRUE ) Then  Notizen.Check Else Notizen.UnCheck
 150
 151     Kontext "ExtrasOptionenDlg"
 152     ExtrasOptionenDlg.OK
 153
 154     Do Until GetDocumentCount = 0
 155         Call hCloseDocument
 156     Loop
 157 endcase
 158
 159 '------------------------------------------------------------------------------
 160 testcase tToolsOptionsHTMLLayout
 161     Dim irgendwas(11) as boolean
 162     Dim iMasseinheit(3) as integer
 163     Dim iTemp(3) as integer
 164     '///Open "writer\\optional\\input\\options\\options1.sxw ///
 165     Call hFileOpen ( gTesttoolPath + "writer\optional\input\options\options1.sxw" )
 166     Call sMakeReadOnlyDocumentEditable
 167
 168     printlog "'///- Tools/Options/Writer: View ///"
 169     ToolsOptions
 170     Call hToolsOptions ( "HTML" , "VIEW" ) '*TabLayoutHTML/ (1)
 171
 172     irgendwas(1) = Hilfslinien.IsChecked
 173     irgendwas(2) = FarbigeHandles.IsChecked
 174     irgendwas(3) = GrosseHandles.IsChecked
 175     irgendwas(4) = HorizontaleBildlaufleiste.IsChecked
 176     irgendwas(5) = VertikaleBildlaufleiste.IsChecked
 177     irgendwas(10) = Lineal.IsChecked
 178     irgendwas(6) = HorizontalesLineal.IsChecked
 179     irgendwas(7) = VertikalesLineal.IsChecked
 180     irgendwas(8) = WeichesScrollen.IsChecked
 181
 182     iMasseinheit(2) = HorizontalesLinealMasseinheit.GetSelIndex
 183     iMasseinheit(3) = VertikalesLinealMasseinheit.GetSelIndex
 184
 185     printlog ("'/// - all states inverting ///")
 186
 187     'this one has 2 places:  ViewTextBoundaries
 188     if irgendwas(1) Then Hilfslinien.UnCheck               Else Hilfslinien.Check
 189     if irgendwas(2) Then FarbigeHandles.UnCheck            Else FarbigeHandles.Check
 190     if irgendwas(3) Then GrosseHandles.UnCheck             Else GrosseHandles.Check
 191
 192     'this one has 2 places:   ViewRuler
 193     if irgendwas(4) Then HorizontaleBildlaufleiste.UnCheck Else HorizontaleBildlaufleiste.Check
 194     if irgendwas(5) Then VertikaleBildlaufleiste.UnCheck   Else VertikaleBildlaufleiste.Check
 195     if irgendwas(10) then Lineal.UnCheck  Else Lineal.Check ' has to be checked to enable Horizontal and Vertical Ruler
 196     if Lineal.IsChecked then
 197         if irgendwas(6) Then HorizontalesLineal.UnCheck        Else HorizontalesLineal.Check
 198         if irgendwas(7) Then VertikalesLineal.UnCheck          Else VertikalesLineal.Check
 199         if ( HorizontalesLinealMasseinheit.GetItemCount <> iMasseinheit(2) ) Then HorizontalesLinealMasseinheit.Select (HorizontalesLinealMasseinheit.GetItemCount) Else HorizontalesLinealMasseinheit.Select (1)
 200         if ( VertikalesLinealMasseinheit.GetItemCount <> iMasseinheit(3) ) Then VertikalesLinealMasseinheit.Select (VertikalesLinealMasseinheit.GetItemCount) Else VertikalesLinealMasseinheit.Select (1)
 201         iTemp(2) = HorizontalesLinealMasseinheit.GetSelIndex
 202         iTemp(3) = VertikalesLinealMasseinheit.GetSelIndex
 203         '/// if Asian Language enabled there has to be a checkbox 'Right-aligned' for 'Vertical-Ruler' ///
 204         if gAsianSup = True and VertikalesLineal.IsChecked = True then
 205             if RechtsAusgerichtet.IsVisible = True then
 206                 if irgendwas(9) Then RechtsAusgerichtet.Uncheck  Else RechtsAusgerichtet.Check
 207             else
 208                 Warnlog "- Checkbox 'Right-aligned' is not visible !"
 209             end if
 210         end if
 211     end if
 212     if irgendwas(8) Then WeichesScrollen.UnCheck           Else WeichesScrollen.Check
 213
 214     Kontext "ExtrasOptionenDlg"
 215     ExtrasOptionenDlg.OK
 216
 217     printlog ("'/// - SO quit - start ///")
 218
 219     Call wOfficeRestart
 220
 221     printlog ("'/// - checking states ///" )
 222     ToolsOptions
 223     Call hToolsOptions ( "HTML" , "VIEW" ) '*TabLayoutHTML/ (1)
 224
 225     if ( irgendwas(1) = Hilfslinien.IsChecked               ) Then WarnLog "Hilfslinien state changed"
 226     if ( irgendwas(2) = FarbigeHandles.IsChecked            ) Then WarnLog "FarbigeHandles state changed"
 227     if ( irgendwas(3) = GrosseHandles.IsChecked             ) Then WarnLog "GrosseHandles state changed"
 228     if ( irgendwas(4) = HorizontaleBildlaufleiste.IsChecked ) Then WarnLog "HorizontaleBildlaufleiste state changed"
 229     if ( irgendwas(5) = VertikaleBildlaufleiste.IsChecked   ) Then WarnLog "VertikaleBildlaufleiste state changed"
 230     if ( irgendwas(8) = WeichesScrollen.IsChecked          ) Then WarnLog "WeichesScrollen state changed"
 231     if ( irgendwas(10) = Lineal.IsChecked ) Then
 232         WarnLog "Ruler state changed"
 233         if ( irgendwas(6) = HorizontalesLineal.IsChecked        ) Then WarnLog "HorizontalesLineal state changed"
 234         if ( irgendwas(7) = VertikalesLineal.IsChecked         ) Then WarnLog "VertikalesLineal state changed"
 235         if ( HorizontalesLinealMasseinheit.GetSelIndex <> iTemp(2) ) Then WarnLog "HorizontalesLinealMasseinheit state changed"
 236         if ( VertikalesLinealMasseinheit.GetSelIndex <> iTemp(3) ) Then WarnLog "VertikalesLinealMasseinheit   state changed"
 237
 238         if gAsianSup = True and VertikalesLineal.IsChecked = True then
 239             if RechtsAusgerichtet.IsVisible = True then
 240                 if irgendwas(9) = RechtsAusgerichtet.IsChecked then WarnLog "Right-aligned state changed"
 241             else
 242                 Warnlog "- Checkbox 'Right-aligned' is not visible !"
 243             end if
 244         end if
 245     end if
 246
 247     printlog ("'/// - all UnCheck -> o ///")
 248     Hilfslinien.UnCheck
 249     FarbigeHandles.UnCheck
 250     GrosseHandles.UnCheck
 251
 252     HorizontaleBildlaufleiste.UnCheck
 253     VertikaleBildlaufleiste.UnCheck
 254     Lineal.Check
 255     HorizontalesLineal.UnCheck
 256     if gAsianSup = True then
 257         VertikalesLineal.Check
 258         RechtsAusgerichtet.Uncheck
 259     end if
 260     VertikalesLineal.Uncheck
 261     HorizontalesLinealMasseinheit.Select (1)
 262     VertikalesLinealMasseinheit.Select (1)
 263     Lineal.Uncheck
 264     WeichesScrollen.Uncheck
 265
 266     Kontext "ExtrasOptionenDlg"
 267     ExtrasOptionenDlg.OK
 268
 269     ViewTextBoundaries
 270     ViewRuler
 271
 272     printlog ("'/// - check if all UnChecked ///")
 273     ToolsOptions
 274     Call hToolsOptions ( "HTML" , "VIEW" ) '*TabLayoutHTML/ (1)
 275     if Hilfslinien.IsChecked               Then WarnLog "Hilfslinien x"
 276     if FarbigeHandles.IsChecked            Then WarnLog "FarbigeHandles x"
 277     if GrosseHandles.IsChecked             Then WarnLog "GrosseHandles x"
 278
 279     if HorizontaleBildlaufleiste.IsChecked Then WarnLog "HorizontaleBildlaufleiste x"
 280     if VertikaleBildlaufleiste.IsChecked   Then WarnLog "VertikaleBildlaufleiste x"
 281     if HorizontalesLineal.IsChecked        Then WarnLog "HorizontalesLineal x/ ViewRuler"
 282     if VertikalesLineal.IsChecked          Then WarnLog "VertikalesLineal x"
 283     if WeichesScrollen.IsChecked           Then WarnLog "WeichesScrollen x"
 284     if gAsianSup=True then
 285         if RechtsAusgerichtet.IsVisible = True then
 286             if RechtsAusgerichtet.IsEnabled = True then WarnLog "Right-aligned checkbox is enabled"
 287         else
 288             Warnlog "- Checkbox 'Right-aligned' is not visible !"
 289         end if
 290     end if
 291
 292     if ( HorizontalesLinealMasseinheit.GetSelIndex <> 1 ) Then WarnLog "HorizontalesLinealMasseinheit is not item 1"
 293     if ( VertikalesLinealMasseinheit.GetSelIndex <> 1 ) Then WarnLog "VertikalesLinealMasseinheit   is not item 1"
 294
 295     Printlog ("'/// - all Check -> x ///")
 296     Hilfslinien.Check
 297     FarbigeHandles.Check
 298     GrosseHandles.Check
 299     Lineal.Check
 300     HorizontaleBildlaufleiste.Check
 301     VertikaleBildlaufleiste.Check
 302     HorizontalesLineal.Check
 303     VertikalesLineal.Check
 304     WeichesScrollen.Check
 305
 306     HorizontalesLinealMasseinheit.Select (2)
 307     VertikalesLinealMasseinheit.Select (2)
 308     itemp(2) = HorizontalesLinealMasseinheit.GetSelIndex
 309     itemp(3) = VertikalesLinealMasseinheit.GetSelIndex
 310
 311     Kontext "ExtrasOptionenDlg"
 312     ExtrasOptionenDlg.OK
 313
 314     ViewTextBoundaries   ' see here :-)
 315     ViewRuler
 316
 317     printlog ("'/// - check if all Checked ///")
 318     ToolsOptions
 319     Call hToolsOptions ( "HTML" , "VIEW" ) '*TabLayoutHTML/ (1)
 320     if True <> Hilfslinien.IsChecked               Then WarnLog "Hilfslinien o"
 321     if True <> FarbigeHandles.IsChecked            Then WarnLog "FarbigeHandles o"
 322     if True <> GrosseHandles.IsChecked             Then WarnLog "GrosseHandles o"
 323
 324     if True <> HorizontaleBildlaufleiste.IsChecked Then WarnLog "HorizontaleBildlaufleiste o"
 325     if True <> VertikaleBildlaufleiste.IsChecked   Then WarnLog "VertikaleBildlaufleiste o"
 326     if True <> HorizontalesLineal.IsChecked        Then WarnLog "HorizontalesLineal o/      ViewRuler"
 327     if True <> VertikalesLineal.IsChecked          Then WarnLog "VertikalesLineal o"
 328     if True <> WeichesScrollen.IsChecked           Then WarnLog "WeichesScrollen o"
 329
 330     if ( HorizontalesLinealMasseinheit.GetSelIndex <> iTemp(2) ) Then WarnLog "HorizontalesLinealMasseinheit is not item " + iTemp(2) + " it's: " + HorizontalesLinealMasseinheit.GetSelIndex
 331     if ( VertikalesLinealMasseinheit.GetSelIndex <> iTemp(3) ) Then WarnLog "VertikalesLinealMasseinheit   is not item " + iTemp(3) + " it's: " + VertikalesLinealMasseinheit.GetSelIndex
 332
 333     Kontext "ExtrasOptionenDlg"
 334     ExtrasOptionenDlg.Cancel
 335
 336     '------------------------------------------------------------------
 337     printlog "'/// Lines Visibility Test ///'"
 338     Call hNewDocument
 339
 340     ' Table insert
 341     InsertTableWriter
 342     Kontext "TabelleEinfuegenWriter"
 343     TabelleEinfuegenWriter.OK
 344
 345     ' changing linewidth to 0
 346     FormatTable
 347     Kontext
 348     active.SetPage TabUmrandung
 349     Kontext "TabUmrandung"
 350     Stil.Select 1
 351     'Stil.Typekeys "<home>"
 352     TabUmrandung.Ok
 353     sleep (3)
 354
 355     ' insert graphic
 356     Kontext "DocumentWriter"
 357     DocumentWriter.TypeKeys "<down>"
 358     DocumentWriter.TypeKeys "<down>"
 359
 360     Call hGrafikEinfuegen gTesttoolPath + "writer\optional\input\options\ga000907.gif"
 361
 362     ' see everything
 363     ToolsOptions
 364     Call hToolsOptions ( "HTML" , "VIEW" )
 365
 366     '///' Hilfslinien.Check only, when graphic's in motion! ///'
 367     FarbigeHandles.Check
 368     GrosseHandles.Check
 369     Kontext "ExtrasOptionenDlg"
 370     ExtrasOptionenDlg.Ok
 371
 372     ToolsOptions
 373     Call hToolsOptions ( "HTML" , "VIEW" )
 374     FarbigeHandles.UnCheck
 375     GrosseHandles.UnCheck
 376     Kontext "ExtrasOptionenDlg"
 377     ExtrasOptionenDlg.Ok
 378
 379     Call hCloseDocument
 380
 381     ToolsOptions
 382     Call hToolsOptions ( "HTML" , "VIEW" )
 383
 384     if ( irgendwas(1) =  TRUE ) Then  Hilfslinien.Check               Else Hilfslinien.UnCheck
 385     if ( irgendwas(2) =  TRUE ) Then  FarbigeHandles.Check            Else FarbigeHandles.UnCheck
 386     if ( irgendwas(3) =  TRUE ) Then  GrosseHandles.Check             Else GrosseHandles.UnCheck
 387
 388     if ( irgendwas(4) =  TRUE ) Then  HorizontaleBildlaufleiste.Check Else HorizontaleBildlaufleiste.UnCheck
 389     if ( irgendwas(5) =  TRUE ) Then  VertikaleBildlaufleiste.Check   Else VertikaleBildlaufleiste.UnCheck
 390     Lineal.Check
 391     if ( irgendwas(6) =  TRUE ) Then  HorizontalesLineal.Check        Else HorizontalesLineal.UnCheck
 392     if ( irgendwas(7) = TRUE ) Then  VertikalesLineal.Check          Else VertikalesLineal.UnCheck
 393     HorizontalesLinealMasseinheit.Select (iMasseinheit(2))
 394     VertikalesLinealMasseinheit.Select (iMasseinheit(3))
 395
 396     if ( irgendwas(8) = TRUE ) Then  WeichesScrollen.Check           Else WeichesScrollen.UnCheck
 397
 398     Kontext "ExtrasOptionenDlg"
 399     ExtrasOptionenDlg.OK
 400
 401     Do Until GetDocumentCount = 0
 402         Call hCloseDocument
 403     Loop
 404 endcase
 405
 406 '------------------------------------------------------------------------------
 407 testcase tToolsOptionsHTMLGrid
 408
 409     Dim irgendwas(3) as boolean
 410     Dim sMetricField(4) as string      ' MetricField
 411     Dim sTempMetricField(4) as string
 412
 413     '/// uses: "writer\\optional\\input\\options\\options1.sxw" ///
 414     Call hFileOpen ( gTesttoolPath + "writer\optional\input\options\options1.sxw" )
 415     Call sMakeReadOnlyDocumentEditable
 416
 417     printlog "'///- Tools/Options/HTML: Grid ///"
 418     printlog ("'/// - save states ///")
 419
 420     ToolsOptions
 421     Call hToolsOptions ( "HTML","Grid" )
 422
 423     printlog ("'///TabRaster all UnCheck ! ///")
 424
 425     irgendwas(1) = FangrasterBenutzen.IsChecked
 426     irgendwas(2) = RasterSichtbar.IsChecked
 427     irgendwas(3) = AchsenSynchronisieren.IsChecked
 428
 429     sMetricField(1) = RasterAufloesungXAchse.GetText
 430     sMetricField(2) = RasterAufloesungYAchse.GetText
 431     sMetricField(3) = RasterUnterteilungXAchse.GetText
 432     sMetricField(4) = RasterUnterteilungYAchse.GetText
 433
 434     printlog ("'/// - all states inverting ///")
 435
 436     if irgendwas(1) Then FangrasterBenutzen.UnCheck    Else FangrasterBenutzen.Check
 437     if irgendwas(2) Then RasterSichtbar.UnCheck        Else RasterSichtbar.Check
 438     '      if irgendwas(3) Then AchsenSynchronisieren.UnCheck Else AchsenSynchronisieren.Check
 439     '   this CheckBox interacts with the MetricBoxes:
 440     AchsenSynchronisieren.UnCheck
 441
 442     sTempMetricField(1) = RasterAufloesungXAchse.GetText
 443     sTempMetricField(2) = RasterAufloesungYAchse.GetText
 444     sTempMetricField(3) = RasterUnterteilungXAchse.GetText
 445     sTempMetricField(4) = RasterUnterteilungYAchse.GetText
 446     RasterAufloesungXAchse.ToMax
 447     RasterAufloesungYAchse.ToMin
 448     RasterUnterteilungXAchse.ToMin
 449     RasterUnterteilungYAchse.ToMax
 450     if ( RasterAufloesungXAchse.GetText =   sTempMetricField(1) ) Then RasterAufloesungXAchse.ToMin
 451     if ( RasterAufloesungYAchse.GetText =   sTempMetricField(2) ) Then RasterAufloesungYAchse.ToMax
 452     if ( RasterUnterteilungXAchse.GetText = sTempMetricField(3) ) Then RasterUnterteilungXAchse.ToMax
 453     if ( RasterUnterteilungYAchse.GetText = sTempMetricField(4) ) Then RasterUnterteilungYAchse.ToMin
 454     sTempMetricField(1) = RasterAufloesungXAchse.GetText
 455     sTempMetricField(2) = RasterAufloesungYAchse.GetText
 456     sTempMetricField(3) = RasterUnterteilungXAchse.GetText
 457     sTempMetricField(4) = RasterUnterteilungYAchse.GetText
 458
 459     Kontext "ExtrasOptionenDlg"
 460     ExtrasOptionenDlg.OK
 461
 462     printlog ("'/// - SO quit - start///" )
 463
 464     Call wOfficeRestart
 465
 466     printlog ("'/// - checking states ///")
 467     ToolsOptions
 468     Call hToolsOptions ( "HTML","Grid" )
 469
 470     if (irgendwas(1) = FangrasterBenutzen.IsChecked    ) Then WarnLog "FangrasterBenutzen state changed BugID: 82944 "
 471     if (irgendwas(2) = RasterSichtbar.IsChecked        ) Then WarnLog "RasterSichtbar state changed"
 472     if ( AchsenSynchronisieren.IsChecked = TRUE ) Then WarnLog "AchsenSynchronisieren state changed"
 473     if ( RasterAufloesungXAchse.GetText <>   sTempMetricField(1) ) Then WarnLog "RasterAufloesungXAchse state changed"
 474     if ( RasterAufloesungYAchse.GetText <>   sTempMetricField(2) ) Then WarnLog "RasterAufloesungYAchse state changed"
 475     if ( RasterUnterteilungXAchse.GetText <> sTempMetricField(3) ) Then WarnLog "RasterUnterteilungXAchse state changed"
 476     if ( RasterUnterteilungYAchse.GetText <> sTempMetricField(4) ) Then WarnLog "RasterUnterteilungYAchse state changed"
 477
 478     Kontext "ExtrasOptionenDlg"
 479     ExtrasOptionenDlg.OK
 480
 481     printlog ("'/// - all UnCheck -> o ///")
 482     ToolsOptions
 483     Call hToolsOptions ( "HTML","Grid" )
 484
 485     FangrasterBenutzen.UnCheck
 486     RasterSichtbar.UnCheck
 487     AchsenSynchronisieren.UnCheck
 488     RasterAufloesungXAchse.ToMin
 489     RasterAufloesungYAchse.ToMin
 490     RasterUnterteilungXAchse.ToMin
 491     RasterUnterteilungYAchse.ToMin
 492     sTempMetricField(1) = RasterAufloesungXAchse.GetText
 493     sTempMetricField(2) = RasterAufloesungYAchse.GetText
 494     sTempMetricField(3) = RasterUnterteilungXAchse.GetText
 495     sTempMetricField(4) = RasterUnterteilungYAchse.GetText
 496     printlog ("'/// More test ///'")
 497     RasterAufloesungXAchse.More
 498     RasterAufloesungYAchse.More
 499     RasterUnterteilungXAchse.More
 500     RasterUnterteilungYAchse.More
 501     if ( sTempMetricField(1) = RasterAufloesungXAchse.GetText   ) Then WarnLog "RasterAufloesungXAchse  More-Button not working"
 502     if ( sTempMetricField(2) = RasterAufloesungYAchse.GetText   ) Then WarnLog "RasterAufloesungYAchse  More-Button not working"
 503     if ( sTempMetricField(3) = RasterUnterteilungXAchse.GetText ) Then WarnLog "RasterUnterteilungXAchse More-Button not working"
 504     if ( sTempMetricField(4) = RasterUnterteilungYAchse.GetText ) Then WarnLog "RasterUnterteilungYAchse More-Button not working"
 505     sTempMetricField(1) = RasterAufloesungXAchse.GetText
 506     sTempMetricField(2) = RasterAufloesungYAchse.GetText
 507     sTempMetricField(3) = RasterUnterteilungXAchse.GetText
 508     sTempMetricField(4) = RasterUnterteilungYAchse.GetText
 509
 510     Kontext "ExtrasOptionenDlg"
 511     ExtrasOptionenDlg.OK
 512
 513     printlog ("'/// - check if all UnChecked ///")
 514     ToolsOptions
 515     Call hToolsOptions ( "HTML","Grid" )
 516
 517     if FangrasterBenutzen.IsChecked     Then WarnLog "FangrasterBenutzen x"
 518     if RasterSichtbar.IsChecked         Then WarnLog "RasterSichtbar x"
 519     if AchsenSynchronisieren.IsChecked  Then WarnLog "AchsenSynchronisieren x"
 520     if ( RasterAufloesungXAchse.GetText <>   sTempMetricField(1) ) Then WarnLog "RasterAufloesungXAchse is not min."
 521     if ( RasterAufloesungYAchse.GetText <>   sTempMetricField(2) ) Then WarnLog "RasterAufloesungYAchse is not min."
 522     if ( RasterUnterteilungXAchse.GetText <> sTempMetricField(3) ) Then WarnLog "RasterUnterteilungXAchse is not min."
 523     if ( RasterUnterteilungYAchse.GetText <> sTempMetricField(4) ) Then WarnLog "RasterUnterteilungYAchse is not min."
 524
 525     Printlog (" - all Check -> x")
 526
 527     FangrasterBenutzen.Check
 528     RasterSichtbar.Check
 529     AchsenSynchronisieren.Check
 530
 531     '///' Synchronize axes check -------------------- ///'
 532     RasterAufloesungXAchse.ToMax
 533     wait 500
 534     sTempMetricField(1) = RasterAufloesungXAchse.GetText
 535     if RasterAufloesungYAchse.GetText <> sTempMetricField(1) then Warnlog "Y-axis res. differs from X-axis"
 536     RasterUnterteilungXAchse.ToMax
 537     wait 500
 538     sTempMetricField(3) = RasterUnterteilungXAchse.GetText
 539     if RasterUnterteilungYAchse.GetText <> sTempMetricField(3) then Warnlog "Y-axis sub. differs from X-axis"
 540     '--------------------------------------------
 541     sTempMetricField(2) = RasterAufloesungYAchse.GetText
 542     sTempMetricField(4) = RasterUnterteilungYAchse.GetText
 543
 544     Kontext "ExtrasOptionenDlg"
 545     ExtrasOptionenDlg.OK
 546
 547     printlog ("'/// - check if all Checked ///")
 548     ToolsOptions
 549     Call hToolsOptions ( "HTML","Grid" )
 550
 551     if True <> FangrasterBenutzen.IsChecked     Then WarnLog "FangrasterBenutzen o"
 552     if True <> RasterSichtbar.IsChecked         Then WarnLog "RasterSichtbar o"
 553     if True <> AchsenSynchronisieren.IsChecked  Then WarnLog "AchsenSynchronisieren o"
 554     if ( RasterAufloesungXAchse.GetText <>   sTempMetricField(1) ) Then WarnLog "RasterAufloesungXAchse is not max.Bug 54934 in 01:"
 555     if ( RasterAufloesungYAchse.GetText <>   sTempMetricField(2) ) Then WarnLog "RasterAufloesungYAchse is not max."
 556     if ( RasterUnterteilungXAchse.GetText <> sTempMetricField(3) ) Then WarnLog "RasterUnterteilungXAchse is not max."
 557     if ( RasterUnterteilungYAchse.GetText <> sTempMetricField(4) ) Then WarnLog "RasterUnterteilungYAchse is not max."
 558
 559     Kontext "ExtrasOptionenDlg"
 560     ExtrasOptionenDlg.Cancel
 561
 562         sleep (4)
 563
 564     '-------------------------------------------------------------------------------
 565     printlog ("'/// Function Test: Grid Resolution ///'")
 566     '///  ( gTesttoolPath + "writer\optional\input\options\gridtst.sxw" ) ///'
 567     '/// NOT Possible Without <ALT> + <cursor> stuff :-((((( BugID: 84741 ///'
 568     '/// uses"writer\optional\input\options\htmltag.html" ///
 569     Call hFileOpen ( gTesttoolPath + "writer\optional\input\options\htmltag.html" )
 570     Call sMakeReadOnlyDocumentEditable
 571
 572     '/// check if writeable!///'
 573     try
 574         FormatStylist
 575         FormatStylist
 576     catch
 577         '/// make writeable :-)///'
 578         Kontext "Funktionsleiste"
 579         Bearbeiten.click
 580     endcatch
 581     sleep (3)
 582
 583     ' select grafik element
 584     Call wNavigatorAuswahl(4,1)
 585     ViewNavigator
 586     sleep (2)
 587     FormatGraphics
 588     Kontext
 589     Active.Setpage TabType
 590     Kontext "TabType"
 591     AnchorAtPage.Check
 592     sleep (1)
 593     if ( 0 <> StrToDouble (HorizontalBy.GetText)) Then WarnLog "HorizontalBy wrong presupposition != 0"
 594     if ( 0 <> StrToDouble (VerticalBy.GetText)) Then WarnLog   "VerticalBy   wrong presupposition != 0"
 595     TabType.OK
 596
 597     ' change Grid Resolution
 598     ToolsOptions
 599     Call hToolsOptions ( "HTML","Grid" )
 600     RasterAufloesungXAchse.SetText("2")
 601     RasterAufloesungYAchse.SetText("3")
 602     RasterUnterteilungXAchse.SetText("2")
 603     RasterUnterteilungYAchse.SetText("3")
 604     Kontext "ExtrasOptionenDlg"
 605     ExtrasOptionenDlg.OK
 606
 607     '/// move grafik with <Alt> + <up/down> ///'
 608     '/// resulting step = resolution / subdivision ///'
 609     Kontext "DocumentWriter"
 610     DocumentWriter.TypeKeys "<Mod2 Down>"
 611     DocumentWriter.TypeKeys "<Mod2 Right>"
 612     DocumentWriter.TypeKeys "<Mod2 Up>"
 613     DocumentWriter.TypeKeys "<Mod2 Left>"
 614     DocumentWriter.TypeKeys "<Mod2 Right>"
 615     DocumentWriter.TypeKeys "<Mod2 Down>"
 616
 617     ' check if @ (1,1) Current-Measure-Unit :-)
 618     Call wNavigatorAuswahl(4,1)
 619     ViewNavigator
 620     sleep (2)
 621     FormatGraphics
 622     Kontext
 623     Active.Setpage TabType
 624     Kontext "TabType"
 625     AnchorAtPage.Check
 626     sleep (1)
 627     if ( 0 = StrToDouble (HorizontalBy.GetText)) Then
 628         QAErrorLog "RasterAufloesungXAchse should be 1 is: " + HorizontalBy.GetText
 629     end if
 630     if ( 0 = StrToDouble (VerticalBy.GetText)) Then
 631         QAErrorLog "RasterAufloesungYAchse should be 1 is: " + VerticalBy.GetText
 632     end if
 633     TabType.Cancel
 634     Call hCloseDocument
 635     '--------------------------------------------------
 636
 637     printlog ("'/// - restore states ///")
 638     ToolsOptions
 639     Call hToolsOptions ( "HTML","Grid" )
 640
 641     if ( irgendwas(1) =  TRUE ) Then FangrasterBenutzen.Check    Else FangrasterBenutzen.UnCheck
 642     if ( irgendwas(2) =  TRUE ) Then RasterSichtbar.Check        Else RasterSichtbar.UnCheck
 643     if ( irgendwas(3) =  TRUE ) Then AchsenSynchronisieren.Check Else AchsenSynchronisieren.UnCheck
 644     RasterAufloesungXAchse.SetText   (sMetricField(1))
 645     RasterAufloesungYAchse.SetText   (sMetricField(2))
 646     RasterUnterteilungXAchse.SetText (sMetricField(3))
 647     RasterUnterteilungYAchse.SetText (sMetricField(4))
 648
 649     Kontext "ExtrasOptionenDlg"
 650     ExtrasOptionenDlg.OK
 651
 652     Do Until GetDocumentCount = 0
 653         Call hCloseDocument
 654     Loop
 655 endcase
 656