testautomation/graphics/required/includes/global/id_opt_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: id_opt_1.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 10:43:01 $
  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 : wolfram.garten@sun.com
  35 '*
  36 '* short description :
  37 '*
  38 '**************************************************************************************
  39 ' #1 tToolsOptionsDrawGeneral 'wrn:1
  40 ' #1 tToolsOptionsDrawView
  41 ' #1 tToolsOptionsDrawGrid
  42 ' #1 tToolsOptionsDrawPrint
  43 '\*************************************************************************************
  44
  45 testcase tToolsOptionsDrawGeneral (sApplication as string)
  46    dim irgendwas(9) as boolean
  47    dim iMasseinheit as integer
  48    dim sTabAbstand as string
  49    dim iZeichnungsmasstab as integer
  50    dim sTemp as string
  51    dim iTemp as integer
  52    dim sTemp2 as string
  53    dim iTemp2 as integer
  54    dim sMeasUnit as string
  55
  56    hNewDocument
  57
  58   printlog "save states"
  59    ToolsOptions
  60    hToolsOptions (sApplication,"General")
  61
  62       irgendwas(1) = Schnellbearbeitung.IsChecked
  63       irgendwas(2) = TextbereichSelektierbar.IsChecked
  64
  65       irgendwas(3) = CacheFuerHintergrund.IsChecked
  66       irgendwas(4) = KopieBeimVerschieben.IsChecked
  67       irgendwas(5) = ObjekteImmerVerschiebbar.IsChecked
  68
  69       if (gApplication = "DRAW") then
  70           irgendwas(6) = SetzenAufKreis.IsChecked   ' DRAW
  71           iZeichnungsmasstab = Zeichnungsmasstab.GetSelIndex ' DRAW
  72       else ' IMPRESS
  73          irgendwas(7) = MitAutopilotStarten.IsChecked
  74          irgendwas(8) = MitAktuellerSeite.IsChecked
  75          irgendwas(9) = AlleAbsatzabstaendeAddieren.IsChecked
  76       endif
  77
  78       iMasseinheit = Masseinheit.GetSelIndex
  79       sTabAbstand = Tabulatorabstand.GetText
  80
  81      printlog "all states inverting"
  82
  83       if irgendwas(1) Then Schnellbearbeitung.UnCheck Else       Schnellbearbeitung.Check
  84       if irgendwas(2) Then TextbereichSelektierbar.UnCheck Else  TextbereichSelektierbar.Check
  85
  86       if irgendwas(3) Then CacheFuerHintergrund.UnCheck     Else     CacheFuerHintergrund.Check
  87       if irgendwas(4) Then KopieBeimVerschieben.UnCheck     Else     KopieBeimVerschieben.Check
  88       if irgendwas(5) Then ObjekteImmerVerschiebbar.UnCheck Else ObjekteImmerVerschiebbar.Check
  89
  90       Tabulatorabstand.ToMax
  91       sTemp = Tabulatorabstand.GetText
  92       Tabulatorabstand.More
  93
  94       if (LiberalMeasurement (sTemp,Tabulatorabstand.GetText) <> TRUE) Then Warnlog "Something wrong, please check!"
  95       Tabulatorabstand.SetText (sTabAbstand)
  96
  97       if (gApplication = "DRAW") then
  98          If ( Zeichnungsmasstab.GetItemCount <> iZeichnungsmasstab ) Then Zeichnungsmasstab.Select (Zeichnungsmasstab.GetItemCount) _
  99             Else Zeichnungsmasstab.Select (1)
 100          iTemp2 = Zeichnungsmasstab.GetSelIndex
 101          if irgendwas(6) Then SetzenAufKreis.UnCheck Else           SetzenAufKreis.Check
 102       else ' IMPRESS
 103          if irgendwas(7) Then MitAutopilotStarten.UnCheck         Else  MitAutopilotStarten.Check
 104          if irgendwas(8) Then MitAktuellerSeite.UnCheck           Else  MitAktuellerSeite.Check
 105          if irgendwas(9) Then AlleAbsatzabstaendeAddieren.UnCheck Else  AlleAbsatzabstaendeAddieren.Check
 106       endif
 107
 108       printlog "<Meas.Unit> interacts with <Tap stops> and vice versa"
 109
 110       If ( Masseinheit.GetItemCount <> iMasseinheit ) Then Masseinheit.Select (Masseinheit.GetItemCount) _
 111          Else Masseinheit.Select (1)
 112       iTemp = Masseinheit.GetSelIndex
 113
 114       sTemp = Tabulatorabstand.GetText
 115       Tabulatorabstand.ToMax
 116       If ( Tabulatorabstand.GetText = sTemp ) Then Tabulatorabstand.ToMin
 117       sTemp = Tabulatorabstand.GetText
 118
 119     Kontext "ExtrasOptionenDlg"
 120     ExtrasOptionenDlg.OK
 121
 122     printlog "Office quit - start"
 123
 124     ExitRestartTheOffice
 125     printlog "opening new doc to get the Options"
 126     Call hNewDocument
 127     printlog "checking states"
 128     ToolsOptions
 129     hToolsOptions (sApplication,"General")
 130
 131       If ( irgendwas(1) = Schnellbearbeitung.IsChecked         ) Then WarnLog "Allow Quick Editing state changed"
 132       If ( irgendwas(2) = TextbereichSelektierbar.IsChecked    ) Then WarnLog "Only Text Area Selectable state changed"
 133
 134       If ( irgendwas(3) = CacheFuerHintergrund.IsChecked       ) Then WarnLog "Use Background Cache state changed"
 135       If ( irgendwas(4) = KopieBeimVerschieben.IsChecked       ) Then WarnLog "Copy When Moving state changed"
 136       If ( irgendwas(5) = ObjekteImmerVerschiebbar.IsChecked   ) Then WarnLog "Objects Always Movable state changed"
 137
 138       if (gApplication = "DRAW") then
 139          If ( Zeichnungsmasstab.GetSelIndex <> iTemp2 ) Then WarnLog "Drawing Scale state changed BUG #97391 is:"+Zeichnungsmasstab.GetSelIndex+"; should: "+iTemp2
 140          If ( irgendwas(6) = SetzenAufKreis.IsChecked             ) Then WarnLog "'Do not disort objects in curve' state changed"
 141       else ' IMPRESS
 142          if ( irgendwas(7) = MitAutopilotStarten.IsChecked          ) Then WarnLog "'Start with AutoPilot' state changed."
 143 '
 144          if ( irgendwas(8) = MitAktuellerSeite.IsChecked            ) Then WarnLog "'Always with current page' changed"
 145          if ( irgendwas(9) = AlleAbsatzabstaendeAddieren.IsChecked  ) Then WarnLog "'Add spacing between paragraphs in the current document' changed"
 146       endif
 147
 148       If ( Masseinheit.GetSelIndex <> iTemp ) Then WarnLog "Unit of Measurement state changed"
 149       If (LiberalMeasurement (sTemp,Tabulatorabstand.GetText) <> TRUE ) Then WarnLog "Tab stops state changed - watch BugID: 82744 for Status"
 150
 151   printlog "all UnCheck -> o"
 152
 153       Schnellbearbeitung.UnCheck
 154       TextbereichSelektierbar.UnCheck
 155
 156       CacheFuerHintergrund.UnCheck
 157       KopieBeimVerschieben.UnCheck
 158       ObjekteImmerVerschiebbar.UnCheck
 159
 160       if (gApplication = "DRAW") then
 161          Zeichnungsmasstab.Select (1)
 162          SetzenAufKreis.UnCheck
 163       else ' IMPRESS
 164          MitAutopilotStarten.UnCheck
 165          MitAktuellerSeite.UnCheck
 166          AlleAbsatzabstaendeAddieren.UnCheck
 167       endif
 168
 169       Masseinheit.Select (1)
 170       Tabulatorabstand.ToMin
 171       sTemp = Tabulatorabstand.GetText
 172      printlog " More test "
 173       Tabulatorabstand.More
 174       if ( sTemp = Tabulatorabstand.GetText ) Then WarnLog "Tab Stops More-Button not working; stemp1: "+sTemp + " =? (2) " +Tabulatorabstand.GetText
 175       sTemp = Tabulatorabstand.GetText
 176
 177    Kontext "ExtrasOptionenDlg"
 178    ExtrasOptionenDlg.OK
 179
 180   printlog "check if all UnChecked"
 181    ToolsOptions
 182    hToolsOptions (sApplication,"General")
 183
 184       If Schnellbearbeitung.IsChecked        Then WarnLog "Allow Quick Editing x"
 185       If TextbereichSelektierbar.IsChecked   Then WarnLog "Only Text Area Selectable x"
 186
 187       If CacheFuerHintergrund.IsChecked      Then WarnLog "Use Background Cache x"
 188       If KopieBeimVerschieben.IsChecked      Then WarnLog "Copy When Moving x"
 189       If ObjekteImmerVerschiebbar.IsChecked  Then WarnLog "Objects Always Movable x"
 190
 191       if (gApplication = "DRAW") then
 192          If ( Zeichnungsmasstab.GetSelIndex <> 1 ) Then WarnLog "'Drawing Scale' is not item 1"
 193          If SetzenAufKreis.IsChecked            Then WarnLog "'Do not disort objects in curve' x"
 194       else ' IMPRESS
 195          if MitAutopilotStarten.IsChecked         Then WarnLog "Start with AutoPilot x"
 196          if MitAktuellerSeite.IsChecked           Then WarnLog "'Always with current page' x"
 197          if AlleAbsatzabstaendeAddieren.IsChecked Then WarnLog "'Add spacing between paragraphs in the current document' x"
 198       endif
 199
 200       If ( Masseinheit.GetSelIndex <> 1 ) Then WarnLog "Unit of Measurement is not item 1"
 201       If (LiberalMeasurement (sTemp,Tabulatorabstand.GetText) <> TRUE ) Then WarnLog "Tab stops is not min. is: " +Tabulatorabstand.GetText + " should: " +sTemp
 202
 203    Kontext "ExtrasOptionenDlg"
 204    ExtrasOptionenDlg.OK
 205 '---------------------------------------------------------------------------------
 206     printlog "Tabstops have to be saved in dokument!"
 207
 208     printlog "check if tab stops get saved in document"
 209     hNewDocument
 210
 211     printlog "set Default Tab Stop to 2,5cm"
 212    ToolsOptions
 213    hToolsOptions (sApplication,"General")
 214       Masseinheit.Select (2) ' cm
 215       sMeasUnit = GetMeasUnit(Tabulatorabstand.GetText)
 216 '         printlog "before " + Tabulatorabstand.GetText
 217       Tabulatorabstand.SetText ("2" + GetDecimalSeperator(Tabulatorabstand.GetText) + "50"+ sMeasUnit)
 218 '         printlog "after " + Tabulatorabstand.GetText
 219 '         printlog "seperator: " + GetDecimalSeperator(Tabulatorabstand.GetText)
 220 '         printlog "generated string: " + "2" + GetDecimalSeperator(Tabulatorabstand.GetText) + "50cm"
 221     Kontext "ExtrasOptionenDlg"
 222     ExtrasOptionenDlg.OK
 223
 224     printlog "creating document with tabstops and save it"
 225    if (gApplication = "DRAW") then
 226       kontext "Toolbar"
 227       Textfield.Click
 228       kontext "DocumentDraw"
 229       hMouseClick DocumentDraw,50,50
 230    else
 231       kontext "Toolbar"
 232       Textfield.Click
 233       kontext "DocumentImpress"
 234       hMouseClick DocumentImpress,20,50
 235    endif
 236    hTypeKeys "a<Tab>b<Tab>c<Tab>d<Tab>e<Tab>f<Tab>g<Tab>h<Tab>i<Tab>j"
 237
 238
 239     if ( gApplication = "IMPRESS" ) then
 240         ExtensionString = "odp"
 241     else
 242         ExtensionString = "odg"
 243     end if
 244
 245     hFileSaveAsKill (gOfficePath + "user\work\tab25cm." & ExtensionString )
 246
 247    hCloseDocument
 248    sleep (2)
 249
 250     printlog "change tab stops"
 251    hNewDocument
 252     printlog "Changed the Default Tab Stop to 2,9cm"
 253    ToolsOptions
 254    hToolsOptions (sApplication,"General")
 255       Masseinheit.Select (2) ' cm
 256 '         printlog "before " + Tabulatorabstand.GetText
 257       Tabulatorabstand.SetText ("2" + GetDecimalSeperator(Tabulatorabstand.GetText) + "90"+sMeasUnit )
 258 '         printlog "after " + Tabulatorabstand.GetText
 259    Kontext "ExtrasOptionenDlg"
 260    ExtrasOptionenDlg.OK
 261    sleep (2)
 262
 263
 264
 265     printlog "load the saved file into this environment"
 266     printlog "use output\\writer\\w95\\tab25cm.odt"
 267     hFileOpen (gOfficePath + "user\work\tab25cm." + ExtensionString)
 268
 269     sleep (10)
 270     printlog "check TabStops, have to be the ones this file was saved with"
 271     ToolsOptions
 272     hToolsOptions (sApplication,"General")
 273     Masseinheit.Select (2) ' cm
 274 '         printlog "before " + Tabulatorabstand.GetText
 275     if Tabulatorabstand.GetText <> ("2" + GetDecimalSeperator(Tabulatorabstand.GetText) + "50"+sMeasUnit ) Then
 276         warnlog "The tab stops didn't get saved in the document !!! - i33211"
 277         printlog "should be 2,50"+sMeasUnit +", is " + Tabulatorabstand.GetText
 278     end if
 279     Kontext "ExtrasOptionenDlg"
 280     ExtrasOptionenDlg.OK
 281     hCloseDocument
 282     hCloseDocument
 283
 284 '---------------------------------------------------------------------------------
 285      Printlog ("'/// - all Check -> x ///")
 286
 287      printlog "Click in the open impress document to get the focus back to the document"
 288      printlog "Otherwise it sometimes happend that the Tools/Option dialog doesn't display the correct applications"
 289      hNewDocument
 290      if ( sApplication = "IMPRESS") then
 291         Kontext "DocumentImpress"
 292             DocumentImpress.MouseDown(50,50)
 293             DocumentImpress.MouseUp(50,50)
 294      else
 295         Kontext "DocumentDraw"
 296             DocumentDraw.MouseDown(50,50)
 297             DocumentDraw.MouseUp(50,50)
 298      endif
 299
 300
 301    ToolsOptions
 302    hToolsOptions (sApplication,"General")
 303    kontext "TabSonstigesDraw"
 304       Schnellbearbeitung.Check
 305       TextbereichSelektierbar.Check
 306
 307       CacheFuerHintergrund.Check
 308       KopieBeimVerschieben.Check
 309       ObjekteImmerVerschiebbar.Check
 310
 311       if (gApplication = "DRAW") then
 312          Zeichnungsmasstab.Select (2)
 313          itemp2 = Zeichnungsmasstab.GetSelIndex
 314          SetzenAufKreis.Check
 315       else ' IMPRESS
 316 '         MitAutopilotStarten.Check
 317          MitAktuellerSeite.Check
 318          AlleAbsatzabstaendeAddieren.Check
 319       endif
 320
 321       Masseinheit.Select (2)
 322       itemp = Masseinheit.GetSelIndex
 323       sTemp = "3" + GetDecimalSeperator(Tabulatorabstand.GetText) + "21"+sMeasUnit
 324       Tabulatorabstand.SetText (sTemp)
 325
 326    Kontext "ExtrasOptionenDlg"
 327    ExtrasOptionenDlg.OK
 328
 329   printlog ("'/// - check if all Checked ///")
 330    ToolsOptions
 331    hToolsOptions (sApplication,"General")
 332
 333       If True <> Schnellbearbeitung.IsChecked        Then WarnLog "Allow Quick Editing o"
 334       If True <> TextbereichSelektierbar.IsChecked   Then WarnLog "Only Text Area Selectable o"
 335
 336       If True <> CacheFuerHintergrund.IsChecked      Then WarnLog "Use Background Cache o i26631"
 337       If True <> KopieBeimVerschieben.IsChecked      Then WarnLog "Copy When Moving o"
 338       If True <> ObjekteImmerVerschiebbar.IsChecked  Then WarnLog "Objects Always Movable o"
 339
 340       if (gApplication = "DRAW") then
 341          If ( Zeichnungsmasstab.GetSelIndex <> iTemp2 ) Then WarnLog "Drawing Scale is not item " + iTemp2 + " it's: " + Zeichnungsmasstab.GetSelIndex
 342          If True <> SetzenAufKreis.IsChecked            Then WarnLog "'Do not disort objects in curve' o"
 343       else ' IMPRESS
 344 '         If True <> MitAutopilotStarten.IsChecked         Then WarnLog "Start with AutoPilot o"
 345          If True <> MitAktuellerSeite.IsChecked           Then WarnLog "'Always with current page' o"
 346          If True <> AlleAbsatzabstaendeAddieren.IsChecked Then WarnLog "'Add spacing between paragraphs in the current document' o"
 347       endif
 348
 349       If ( Masseinheit.GetSelIndex <> iTemp ) Then WarnLog "Masseinheit is not item " + iTemp + " it's: " + Masseinheit.GetSelIndex
 350       If (LiberalMeasurement (sTemp,Tabulatorabstand.GetText) <> TRUE ) Then WarnLog "Tab stops is not " + sTemp + " it's: " + Tabulatorabstand.GetText
 351
 352   printlog "restore states"
 353
 354       If ( irgendwas(1) = TRUE ) Then  Schnellbearbeitung.Check Else       Schnellbearbeitung.UnCheck
 355       If ( irgendwas(2) = TRUE ) Then  TextbereichSelektierbar.Check Else  TextbereichSelektierbar.UnCheck
 356
 357       If ( irgendwas(3) = TRUE ) Then  CacheFuerHintergrund.Check Else     CacheFuerHintergrund.UnCheck
 358       If ( irgendwas(4) = TRUE ) Then  KopieBeimVerschieben.Check Else     KopieBeimVerschieben.UnCheck
 359       If ( irgendwas(5) = TRUE ) Then  ObjekteImmerVerschiebbar.Check Else ObjekteImmerVerschiebbar.UnCheck
 360
 361       if (gApplication = "DRAW") then
 362          Zeichnungsmasstab.Select (iZeichnungsmasstab)
 363          If ( irgendwas(6) = TRUE ) Then  SetzenAufKreis.Check Else           SetzenAufKreis.UnCheck
 364       else ' IMPRESS
 365          if ( irgendwas(7) = TRUE ) Then MitAutopilotStarten.Check         Else  MitAutopilotStarten.UnCheck
 366          if ( irgendwas(8) = TRUE ) Then MitAktuellerSeite.Check           Else  MitAktuellerSeite.UnCheck
 367          if ( irgendwas(9) = TRUE ) Then AlleAbsatzabstaendeAddieren.Check Else  AlleAbsatzabstaendeAddieren.UnCheck
 368       endif
 369
 370       Masseinheit.Select (iMasseinheit) 'sw:ListBox:TP_LAYOUT_O
 371       Tabulatorabstand.SetText (sTabAbstand) '     sw:MetricField:TP_LAYOUT_OPT:MF_TAB
 372
 373    Kontext "ExtrasOptionenDlg"
 374    ExtrasOptionenDlg.OK
 375
 376    hCloseDocument
 377 endcase 'tToolsOptionsDrawGeneral
 378
 379 '------------------------------------------------------------------------------
 380 testcase tToolsOptionsDrawView (sApplication as string)
 381     dim irgendwas(8) as boolean
 382
 383     hNewDocument
 384
 385     printlog "save states"
 386     ToolsOptions
 387     hToolsOptions (sApplication,"View")
 388
 389     irgendwas(1) = LinealeSichtbar.IsChecked
 390     irgendwas(2) = HilfslinienBeimBewegen.IsChecked
 391     irgendwas(3) = KontrolpunkteImBezierEditor.IsChecked
 392     irgendwas(4) = KonturFuerIndividuelleObjekte.IsChecked
 393
 394     printlog "all states inverting"
 395
 396     if irgendwas(1) Then LinealeSichtbar.UnCheck               Else LinealeSichtbar.Check
 397     if irgendwas(2) Then HilfslinienBeimBewegen.UnCheck        Else HilfslinienBeimBewegen.Check
 398     if irgendwas(3) Then KontrolpunkteImBezierEditor.UnCheck   Else KontrolpunkteImBezierEditor.Check
 399     if irgendwas(4) Then KonturFuerIndividuelleObjekte.UnCheck Else KonturFuerIndividuelleObjekte.Check
 400
 401     Kontext "ExtrasOptionenDlg"
 402     ExtrasOptionenDlg.OK
 403
 404     printlog "Office quit - start"
 405
 406     ExitRestartTheOffice
 407     printlog "opening new doc to get the Options"
 408     Call hNewDocument
 409     printlog "checking states"
 410     ToolsOptions
 411     hToolsOptions (sApplication,"View")
 412
 413     If ( irgendwas(1) = LinealeSichtbar.IsChecked               ) Then WarnLog "LinealeSichtbar state changed"
 414     If ( irgendwas(2) = HilfslinienBeimBewegen.IsChecked        ) Then WarnLog "HilfslinienBeimBewegen state changed"
 415     If ( irgendwas(3) = KontrolpunkteImBezierEditor.IsChecked   ) Then WarnLog "KontrolpunkteImBezierEditor state changed"
 416     If ( irgendwas(4) = KonturFuerIndividuelleObjekte.IsChecked ) Then WarnLog "KonturFuerIndividuelleObjekte state changed"
 417
 418     printlog "all UnCheck -> o"
 419
 420       LinealeSichtbar.UnCheck
 421       HilfslinienBeimBewegen.UnCheck
 422       KontrolpunkteImBezierEditor.UnCheck
 423       KonturFuerIndividuelleObjekte.UnCheck
 424
 425    Kontext "ExtrasOptionenDlg"
 426    ExtrasOptionenDlg.OK
 427
 428   printlog "check if all UnChecked"
 429    ToolsOptions
 430    hToolsOptions (sApplication,"View")
 431
 432       If LinealeSichtbar.IsChecked                Then WarnLog "Rulers Visible x"
 433       If HilfslinienBeimBewegen.IsChecked         Then WarnLog "Guides When Moving x"
 434       If KontrolpunkteImBezierEditor.IsChecked    Then WarnLog "'All Control Points In B�zier Editor' x"
 435       If KonturFuerIndividuelleObjekte.IsChecked  Then WarnLog "'Contour of Each Individual Object' x"
 436
 437      Printlog "all Check -> x"
 438
 439       LinealeSichtbar.Check
 440       HilfslinienBeimBewegen.Check
 441       KontrolpunkteImBezierEditor.Check
 442       KonturFuerIndividuelleObjekte.Check
 443
 444    Kontext "ExtrasOptionenDlg"
 445    ExtrasOptionenDlg.OK
 446
 447   printlog "check if all Checked"
 448    ToolsOptions
 449    hToolsOptions (sApplication,"View")
 450
 451       If True <> LinealeSichtbar.IsChecked               Then WarnLog "Rulers Visible o"
 452       If True <> HilfslinienBeimBewegen.IsChecked        Then WarnLog "Guides When Moving o"
 453       If True <> KontrolpunkteImBezierEditor.IsChecked   Then WarnLog "'All Control Points In B�zier Editor' o"
 454       If True <> KonturFuerIndividuelleObjekte.IsChecked Then WarnLog "'Contour of Each Individual Object' o"
 455
 456   printlog "restore states"
 457
 458       If ( irgendwas(1) = TRUE ) Then  LinealeSichtbar.Check               Else LinealeSichtbar.UnCheck
 459       If ( irgendwas(2) = TRUE ) Then  HilfslinienBeimBewegen.Check        Else HilfslinienBeimBewegen.UnCheck
 460       If ( irgendwas(3) = TRUE ) Then  KontrolpunkteImBezierEditor.Check   Else KontrolpunkteImBezierEditor.UnCheck
 461       If ( irgendwas(4) = TRUE ) Then  KonturFuerIndividuelleObjekte.Check Else KonturFuerIndividuelleObjekte.UnCheck
 462
 463    Kontext "ExtrasOptionenDlg"
 464    ExtrasOptionenDlg.OK
 465
 466    hCloseDocument
 467 endcase 'tToolsOptionsDrawView
 468
 469 '--------------------------------------------------------------------------------
 470
 471 testcase tToolsOptionsDrawGrid (sApplication as string)
 472    dim irgendwas(10) as boolean
 473    dim sMetricField(7) as string      ' MetricField
 474    dim sTempMetricField(7) as string
 475    dim iTry as integer ' some increment variable
 476
 477     if ( gApplication = "IMPRESS" ) then
 478         ExtensionString = "odp"
 479     else
 480         ExtensionString = "odg"
 481     end if
 482
 483    hNewDocument
 484
 485   printlog "save states"
 486    ToolsOptions
 487    hToolsOptions (sApplication,"Grid")
 488
 489       irgendwas(1) = FangrasterBenutzen.IsChecked
 490       irgendwas(2) = RasterSichtbar.IsChecked
 491
 492       irgendwas(3) = AchsenSynchronisieren.IsChecked
 493
 494       irgendwas(4) = AnFanglinien.IsChecked
 495       irgendwas(5) = AnSeitenraendern.IsChecked
 496       irgendwas(6) = AmObjektrahmen.IsChecked
 497       irgendwas(7) = AnObjektpunkten.IsChecked
 498
 499       irgendwas(8) = BeimErzeugenUndBewegen.IsChecked
 500       irgendwas(9) = LaengereKantenlaenge.IsChecked
 501       irgendwas(10)= BeimDrehen.IsChecked
 502       if BeimDrehen.IsChecked then sMetricField(7) = Winkel.getText
 503
 504       sMetricField(1) = RasterAufloesungXAchse.GetText
 505       sMetricField(2) = RasterAufloesungYAchse.GetText
 506       sMetricField(3) = RasterUnterteilungXAchse.GetText
 507       sMetricField(4) = RasterUnterteilungYAchse.GetText
 508       sMetricField(5) = FangenFangbereich.GetText
 509       sMetricField(6) = Punktreduktion.GetText
 510
 511      printlog "all states inverting"
 512
 513       if irgendwas(1) Then FangrasterBenutzen.UnCheck      Else FangrasterBenutzen.Check
 514       if irgendwas(2) Then RasterSichtbar.UnCheck          Else RasterSichtbar.Check
 515
 516 '      if irgendwas(3) Then AchsenSynchronisieren.UnCheck   Else AchsenSynchronisieren.Check
 517  '   this CheckBox interacts with the MetricBoxes:
 518        AchsenSynchronisieren.UnCheck
 519
 520       if irgendwas(4) Then AnFanglinien.UnCheck            Else AnFanglinien.Check
 521       if irgendwas(5) Then AnSeitenraendern.UnCheck        Else AnSeitenraendern.Check
 522       if irgendwas(6) Then AmObjektrahmen.UnCheck          Else AmObjektrahmen.Check
 523       if irgendwas(7) Then AnObjektpunkten.UnCheck         Else AnObjektpunkten.Check
 524
 525       if irgendwas(8) Then BeimErzeugenUndBewegen.UnCheck  Else BeimErzeugenUndBewegen.Check
 526       if irgendwas(9) Then LaengereKantenlaenge.UnCheck    Else LaengereKantenlaenge.Check
 527       if irgendwas(10)Then BeimDrehen.UnCheck              Else BeimDrehen.Check
 528
 529       sTempMetricField(1) = RasterAufloesungXAchse.GetText
 530       sTempMetricField(2) = RasterAufloesungYAchse.GetText
 531       sTempMetricField(3) = RasterUnterteilungXAchse.GetText
 532       sTempMetricField(4) = RasterUnterteilungYAchse.GetText
 533       sTempMetricField(5) = FangenFangbereich.GetText
 534       sTempMetricField(6) = Punktreduktion.GetText
 535       RasterAufloesungXAchse.ToMax
 536       RasterAufloesungYAchse.ToMin
 537       RasterUnterteilungXAchse.ToMin
 538       RasterUnterteilungYAchse.ToMax
 539       FangenFangbereich.ToMin
 540       Punktreduktion.ToMax
 541       If ( RasterAufloesungXAchse.GetText =   sTempMetricField(1) ) Then RasterAufloesungXAchse.ToMin
 542       If ( RasterAufloesungYAchse.GetText =   sTempMetricField(2) ) Then RasterAufloesungYAchse.ToMax
 543       If ( RasterUnterteilungXAchse.GetText = sTempMetricField(3) ) Then RasterUnterteilungXAchse.ToMax
 544       If ( RasterUnterteilungYAchse.GetText = sTempMetricField(4) ) Then RasterUnterteilungYAchse.ToMin
 545       If ( FangenFangbereich.GetText = sTempMetricField(5) ) Then FangenFangbereich.ToMax
 546       If ( Punktreduktion.GetText = sTempMetricField(6) ) Then Punktreduktion.ToMin
 547      RasterAufloesungXAchse.More  ' because it must greater than the.min value for the subdivisions if they are .tomax!
 548      RasterAufloesungXAchse.More
 549      RasterAufloesungYAchse.More
 550      RasterAufloesungYAchse.More
 551       sTempMetricField(1) = RasterAufloesungXAchse.GetText
 552       sTempMetricField(2) = RasterAufloesungYAchse.GetText
 553       sTempMetricField(3) = RasterUnterteilungXAchse.GetText
 554       sTempMetricField(4) = RasterUnterteilungYAchse.GetText
 555       sTempMetricField(5) = FangenFangbereich.GetText
 556       sTempMetricField(6) = Punktreduktion.GetText
 557
 558     Kontext "ExtrasOptionenDlg"
 559     ExtrasOptionenDlg.OK
 560
 561     printlog "Office quit - start"
 562
 563     ExitRestartTheOffice
 564     printlog "opening new doc to get the Options"
 565     Call hNewDocument
 566     hTypeKeys "OpenNewDoc!"
 567     printlog "checking states"
 568     ToolsOptions
 569     hToolsOptions (sApplication,"Grid")
 570
 571       If ( irgendwas(1) = FangrasterBenutzen.IsChecked      ) Then WarnLog "Snap to Grid state changed"
 572       If ( irgendwas(2) = RasterSichtbar.IsChecked          ) Then WarnLog "Visible Grid state changed"
 573
 574 '      If ( irgendwas(3) = AchsenSynchronisieren.IsChecked   ) Then WarnLog "Synchronize Axes state changed"
 575       if ( AchsenSynchronisieren.IsChecked = TRUE ) Then WarnLog "Synchronize Axes state changed"
 576
 577       If ( irgendwas(4) = AnFanglinien.IsChecked            ) Then WarnLog "To snap lines state changed"
 578       If ( irgendwas(5) = AnSeitenraendern.IsChecked        ) Then WarnLog "To the page margins state changed"
 579       If ( irgendwas(6) = AmObjektrahmen.IsChecked          ) Then WarnLog "To object frame state changed"
 580       If ( irgendwas(7) = AnObjektpunkten.IsChecked         ) Then WarnLog "To object points state changed"
 581
 582       If ( irgendwas(8) = BeimErzeugenUndBewegen.IsChecked  ) Then WarnLog "When creating or moving objects state changed"
 583       If ( irgendwas(9) = LaengereKantenlaenge.IsChecked    ) Then WarnLog "Extend Edges state changed"
 584       If ( irgendwas(10)= BeimDrehen.IsChecked              ) Then WarnLog "When Rotating state changed"
 585
 586       If ( RasterAufloesungXAchse.GetText <>   sTempMetricField(1) ) Then WarnLog "GridResolutionXAxel state changed"
 587       If ( RasterAufloesungYAchse.GetText <>   sTempMetricField(2) ) Then WarnLog "GridResolutionYAxel state changed"
 588       If ( RasterUnterteilungXAchse.GetText <> sTempMetricField(3) ) Then WarnLog "GridSubdivisionXAxel state changed is: "+RasterUnterteilungXAchse.GetText+"; should: "+sTempMetricField(3)
 589       If ( RasterUnterteilungYAchse.GetText <> sTempMetricField(4) ) Then WarnLog "GridSubdivisionYAxel state changed is: "+RasterUnterteilungYAchse.GetText+"; should: "+sTempMetricField(4)
 590       If ( FangenFangbereich.GetText <> sTempMetricField(5) ) Then WarnLog "SnapSnap range state changed"
 591       If ( Punktreduktion.GetText <> sTempMetricField(6) ) Then WarnLog "Pointreduction state changed"
 592
 593   printlog "all UnCheck -> o"
 594
 595       FangrasterBenutzen.UnCheck
 596       RasterSichtbar.UnCheck
 597
 598       AchsenSynchronisieren.UnCheck
 599
 600       AnFanglinien.UnCheck
 601       AnSeitenraendern.UnCheck
 602       AmObjektrahmen.UnCheck
 603       AnObjektpunkten.UnCheck
 604
 605       BeimErzeugenUndBewegen.UnCheck
 606       LaengereKantenlaenge.UnCheck
 607       BeimDrehen.UnCheck
 608
 609       RasterAufloesungXAchse.ToMin
 610       RasterAufloesungYAchse.ToMin
 611       RasterUnterteilungXAchse.ToMin
 612       RasterUnterteilungYAchse.ToMin
 613       FangenFangbereich.ToMin
 614       Punktreduktion.ToMin
 615       sTempMetricField(1) = RasterAufloesungXAchse.GetText
 616       sTempMetricField(2) = RasterAufloesungYAchse.GetText
 617       sTempMetricField(3) = RasterUnterteilungXAchse.GetText
 618       sTempMetricField(4) = RasterUnterteilungYAchse.GetText
 619       sTempMetricField(5) = FangenFangbereich.GetText
 620       sTempMetricField(6) = Punktreduktion.GetText
 621      printlog "More test"
 622       RasterAufloesungXAchse.More
 623       RasterAufloesungYAchse.More
 624       RasterUnterteilungXAchse.More
 625       RasterUnterteilungYAchse.More
 626       FangenFangbereich.More
 627       Punktreduktion.More
 628       if ( sTempMetricField(1) = RasterAufloesungXAchse.GetText   ) Then WarnLog "GridResolutionXAxel More-Button not working"
 629       if ( sTempMetricField(2) = RasterAufloesungYAchse.GetText   ) Then WarnLog "GridResolutionYAxel More-Button not working"
 630       if ( sTempMetricField(3) = RasterUnterteilungXAchse.GetText ) Then WarnLog "GridSubdivisionXAxel  More-Button not working"
 631       if ( sTempMetricField(4) = RasterUnterteilungYAchse.GetText ) Then WarnLog "GridSubdivisionYAxel  More-Button not working"
 632       if ( sTempMetricField(5) = FangenFangbereich.GetText ) Then WarnLog "Snap Snap Range More-Button not working"
 633       if ( sTempMetricField(6) = Punktreduktion.GetText ) Then WarnLog "Pointreduction    More-Button not working is: "+Punktreduktion.GetText
 634       sTempMetricField(1) = RasterAufloesungXAchse.GetText
 635       sTempMetricField(2) = RasterAufloesungYAchse.GetText
 636       sTempMetricField(3) = RasterUnterteilungXAchse.GetText
 637       sTempMetricField(4) = RasterUnterteilungYAchse.GetText
 638       sTempMetricField(5) = FangenFangbereich.GetText
 639       sTempMetricField(6) = Punktreduktion.GetText
 640
 641    Kontext "ExtrasOptionenDlg"
 642    ExtrasOptionenDlg.OK
 643
 644   printlog "check if all UnChecked"
 645    ToolsOptions
 646    hToolsOptions (sApplication,"Grid")
 647
 648       If FangrasterBenutzen.IsChecked     Then WarnLog "Snap to Grid x"
 649       If RasterSichtbar.IsChecked         Then WarnLog "Visible Grid x"
 650
 651       If AchsenSynchronisieren.IsChecked  Then WarnLog "Synchronize Axes x"
 652
 653       If AnFanglinien.IsChecked           Then WarnLog "To Snap Lines x"
 654       If AnSeitenraendern.IsChecked       Then WarnLog "To The Page Margins x"
 655       If AmObjektrahmen.IsChecked         Then WarnLog "To Object Frame x"
 656       If AnObjektpunkten.IsChecked        Then WarnLog "To Object Points x"
 657
 658       If BeimErzeugenUndBewegen.IsChecked Then WarnLog "When Creating or Moving Objects x"
 659       If LaengereKantenlaenge.IsChecked   Then WarnLog "Extend Edges x"
 660       If BeimDrehen.IsChecked             Then WarnLog "When Rotating x"
 661
 662       If ( RasterAufloesungXAchse.GetText <>   sTempMetricField(1) ) Then WarnLog "GridResolutionXAxel  is not min."
 663       If ( RasterAufloesungYAchse.GetText <>   sTempMetricField(2) ) Then WarnLog "GridResolutionYAxel  is not min."
 664       If ( RasterUnterteilungXAchse.GetText <> sTempMetricField(3) ) Then WarnLog "GridSubdivisionXAxel  is not min."
 665       If ( RasterUnterteilungYAchse.GetText <> sTempMetricField(4) ) Then WarnLog "GridSubdivisionYAxel  is not min."
 666       If ( FangenFangbereich.GetText <> sTempMetricField(5) ) Then WarnLog "Snap Snap Range  is not min."
 667       If ( Punktreduktion.GetText <> sTempMetricField(6) ) Then WarnLog "Point Reduction  is not min."
 668
 669      Printlog "all Check -> x"
 670
 671       FangrasterBenutzen.Check
 672       RasterSichtbar.Check
 673
 674       AchsenSynchronisieren.Check
 675
 676     printlog "Synchronize axes check"
 677    RasterAufloesungXAchse.ToMax
 678    sleep 1
 679       sTempMetricField(1) = RasterAufloesungXAchse.GetText
 680    if RasterAufloesungYAchse.GetText <> sTempMetricField(1) then Warnlog "Y-axis res. differs from X-axis"
 681    RasterUnterteilungXAchse.ToMax
 682    sleep 1
 683       sTempMetricField(3) = RasterUnterteilungXAchse.GetText
 684    if RasterUnterteilungYAchse.GetText <> sTempMetricField(3) then Warnlog "Y-axis sub. differs from X-axis"
 685 '--------------------------------------------
 686       sTempMetricField(2) = RasterAufloesungYAchse.GetText
 687       sTempMetricField(4) = RasterUnterteilungYAchse.GetText
 688
 689       FangenFangbereich.Less
 690       Punktreduktion.Less
 691       sTempMetricField(5) = FangenFangbereich.GetText
 692       sTempMetricField(6) = Punktreduktion.GetText
 693
 694       AnFanglinien.Check
 695       AnSeitenraendern.Check
 696       AmObjektrahmen.Check
 697       AnObjektpunkten.Check
 698
 699       BeimErzeugenUndBewegen.Check
 700       LaengereKantenlaenge.Check
 701       BeimDrehen.Check
 702          Winkel.ToMax
 703          sTempMetricField(7) = Winkel.GetText
 704
 705    Kontext "ExtrasOptionenDlg"
 706    ExtrasOptionenDlg.OK
 707
 708   printlog "check if all Checked"
 709    ToolsOptions
 710    hToolsOptions (sApplication,"Grid")
 711
 712       If True <> FangrasterBenutzen.IsChecked     Then WarnLog "Snap to Grid o"
 713       If True <> RasterSichtbar.IsChecked         Then WarnLog "Visible Grid o"
 714
 715       If True <> AchsenSynchronisieren.IsChecked  Then WarnLog "Synchronize Axes o"
 716
 717       If True <> AnFanglinien.IsChecked           Then WarnLog "to snap lines o"
 718       If True <> AnSeitenraendern.IsChecked       Then WarnLog "to the page margins o"
 719       If True <> AmObjektrahmen.IsChecked         Then WarnLog "to object frame o"
 720       If True <> AnObjektpunkten.IsChecked        Then WarnLog "To object points o"
 721
 722       If True <> BeimErzeugenUndBewegen.IsChecked Then WarnLog "When creating or moving objects o"
 723       If True <> LaengereKantenlaenge.IsChecked   Then WarnLog "Extend Edges o"
 724       If True <> BeimDrehen.IsChecked             Then WarnLog "When Rotating o"
 725          If ( Winkel.GetText <> sTempMetricField(7) ) Then WarnLog "Angle    is not max."
 726
 727       If ( RasterAufloesungXAchse.GetText <>   sTempMetricField(1) ) Then WarnLog "GridResolutionXAxel  is not max.Bug 54934 in 01:"
 728       If ( RasterAufloesungYAchse.GetText <>   sTempMetricField(2) ) Then WarnLog "GridResolutionYAxel  is not max."
 729       If ( RasterUnterteilungXAchse.GetText <> sTempMetricField(3) ) Then WarnLog "GridSubdivisionXAxel  is not max."
 730       If ( RasterUnterteilungYAchse.GetText <> sTempMetricField(4) ) Then WarnLog "GridSubdivisionYAxel  is not max."
 731       If ( FangenFangbereich.GetText <> sTempMetricField(5) ) Then WarnLog "Snap Snap Range  is not max."
 732       If ( Punktreduktion.GetText <> sTempMetricField(6) ) Then WarnLog "Pointreduction  is not max."
 733
 734    Kontext "ExtrasOptionenDlg"
 735    ExtrasOptionenDlg.OK
 736
 737 '-------------------------------------------------------------------------------
 738     printlog "Function Test: Grid Resolution"
 739     printlog "gTesttoolPath + graphics\required\input\gridtst.od?"
 740
 741     if ( gApplication = "IMPRESS" ) then
 742         ExtensionString = "odp"
 743     else
 744         ExtensionString = "odg"
 745     end if
 746
 747
 748    Call hFileOpen ( gTesttoolPath + "graphics\required\input\gridtst."+ExtensionString, False )
 749    sleep 5
 750    printlog "If write-protected - open as Temp-file"
 751    Kontext "Standardbar"
 752    if Bearbeiten.GetState(2) <> 1 then
 753       Bearbeiten.Click '0 = not pressed. 1 = pressed.
 754       Kontext
 755       if Active.Exists() then
 756          Active.Yes
 757       else
 758          warnlog "No messagebox after making document editable? - Test canceled here"
 759          goto endsub
 760       endif
 761    endif
 762    sleep (8)
 763    if uCase(gApplication) = "IMPRESS" then
 764       Kontext "DocumentImpress"
 765    else
 766       Kontext "DocumentDraw"
 767    endif
 768    printlog "select grafik element"
 769    for iTry = 1 to 20
 770         try
 771             EditSelectAll
 772             printlog "EditSelectAll ready after " & iTry/10 & " seconds"
 773             exit for
 774         catch
 775             wait( 100 )
 776         endcatch
 777     next iTry
 778
 779
 780     ContextPositionAndSize
 781     Kontext
 782     active.setpage TabPositionAndSize
 783        Kontext "TabPositionAndSize"
 784        sleep 1
 785        if ( StrToDouble (PositionX.GetText) <> 0 ) Then WarnLog "HorizontalBy wrong presupposition != 0"
 786        if ( StrToDouble (Positiony.GetText) <> 0 ) Then WarnLog   "VerticalBy   wrong presupposition != 0"
 787    TabPositionAndSize.Cancel
 788    sleep (3)
 789
 790    printlog "move grafik with <Alt> + <up/down>"
 791     printlog "resulting step = defined for accessability <> one pixel with cursor traveling"
 792    hTypeKeys "<Mod2 Down>"
 793     sleep (3)
 794    hTypeKeys "<Mod2 Right>"
 795
 796    printlog "check if @ (1,1) Current-Measure-Unit :-)"
 797    for iTry = 1 to 20
 798         try
 799             EditSelectAll
 800             printlog "EditSelectAll ready after " & iTry/10 & " seconds"
 801             exit for
 802         catch
 803             wait( 100 )
 804         endcatch
 805     next iTry
 806    try
 807       ContextPositionAndSize
 808    catch
 809       printlog "Why is format position and size not enabled ? Wrong focus?"
 810    endcatch
 811     Kontext
 812     active.setpage TabPositionAndSize
 813        Kontext "TabPositionAndSize"
 814          Printlog "X difference is: '"+StrToDouble (PositionX.GetText)+"'; "+PositionX.GetText
 815          Printlog "Y difference is: '"+StrToDouble (PositionY.GetText)+"'; "+PositionY.GetText
 816    TabPositionAndSize.Cancel
 817 '   sleep (3)
 818
 819    hCloseDocument
 820
 821 '--------------------------------------------------
 822     printlog "restore states"
 823     hNewDocument
 824     ToolsOptions
 825     hToolsOptions (sApplication,"Grid")
 826
 827         If ( irgendwas(2) = TRUE ) Then  FangrasterBenutzen.Check      Else FangrasterBenutzen.UnCheck
 828         If ( irgendwas(3) = TRUE ) Then  RasterSichtbar.Check          Else RasterSichtbar.UnCheck
 829
 830         If ( irgendwas(4) = TRUE ) Then  AchsenSynchronisieren.Check   Else AchsenSynchronisieren.UnCheck
 831
 832         If ( irgendwas(5) = TRUE ) Then  AnFanglinien.Check            Else AnFanglinien.UnCheck
 833         If ( irgendwas(6) = TRUE ) Then  AnSeitenraendern.Check        Else AnSeitenraendern.UnCheck
 834         If ( irgendwas(7) = TRUE ) Then  AmObjektrahmen.Check          Else AmObjektrahmen.UnCheck
 835         If ( irgendwas(8) = TRUE ) Then  AnObjektpunkten.Check         Else AnObjektpunkten.UnCheck
 836
 837         If ( irgendwas(6) = TRUE ) Then  BeimErzeugenUndBewegen.Check  Else BeimErzeugenUndBewegen.UnCheck
 838         If ( irgendwas(7) = TRUE ) Then  LaengereKantenlaenge.Check    Else LaengereKantenlaenge.UnCheck
 839         If ( irgendwas(8) = TRUE ) Then  BeimDrehen.Check              Else BeimDrehen.UnCheck
 840         if BeimDrehen.IsChecked then Winkel.SetText (sMetricField(7))
 841
 842         RasterAufloesungXAchse.SetText   (sMetricField(1))
 843         RasterAufloesungYAchse.SetText   (sMetricField(2))
 844         RasterUnterteilungXAchse.SetText (sMetricField(3))
 845         RasterUnterteilungYAchse.SetText (sMetricField(4))
 846         FangenFangbereich.SetText (sMetricField(5))
 847         Punktreduktion.SetText (sMetricField(6))
 848
 849     Kontext "ExtrasOptionenDlg"
 850     ExtrasOptionenDlg.OK
 851
 852     hCloseDocument
 853 endcase 'tToolsOptionsDrawGrid
 854
 855 '-------------------------------------------------------------------------------
 856
 857 testcase tToolsOptionsDrawPrint (sApplication as string)
 858
 859    dim irgendwas(11) as boolean
 860    dim bRadioBut(7) as boolean         ' RadioButtons
 861    dim bTempRadioBut(7) as boolean
 862    dim iShouldHaveBeenAMultiListBox as integer
 863
 864    hNewDocument
 865
 866   printlog "save states"
 867    ToolsOptions
 868    hToolsOptions (sApplication,"Print")
 869
 870       Standard.Check
 871       irgendwas(1) = Seitenname.IsChecked
 872       irgendwas(2) = Datum.IsChecked
 873       irgendwas(3) = Zeit.IsChecked
 874       irgendwas(4) = AusgeblendeteSeitenDrucken.IsChecked
 875
 876       Prospekt.Check
 877       irgendwas(5) = Vorderseite.IsChecked
 878       irgendwas(6) = Rueckseite.IsChecked
 879
 880       irgendwas(7) = AusDruckereinstellung.IsChecked
 881
 882       bRadioBut(1) = StandardAusgabe.IsChecked
 883       bRadioBut(2) = Graustufen.IsChecked
 884       bRadioBut(3) = SchwarzWeiss.IsChecked
 885       bRadioBut(4) = Standard.IsChecked
 886       bRadioBut(5) = AnSeitengroesseAnpassen.IsChecked
 887       bRadioBut(6) = SeitenKacheln.IsChecked
 888
 889      printlog "all states inverting"
 890
 891       Standard.Check
 892       if irgendwas(1) Then Seitenname.UnCheck            Else Seitenname.Check
 893       if irgendwas(2) Then Datum.UnCheck                 Else Datum.Check
 894       if irgendwas(3) Then Zeit.UnCheck                  Else Zeit.Check
 895       if irgendwas(4) Then AusgeblendeteSeitenDrucken.UnCheck   Else AusgeblendeteSeitenDrucken.Check
 896
 897       Prospekt.Check
 898       if irgendwas(5) Then Vorderseite.UnCheck           Else Vorderseite.Check
 899       if irgendwas(6) Then Rueckseite.UnCheck            Else Rueckseite.Check
 900
 901       if irgendwas(7) Then AusDruckereinstellung.UnCheck Else AusDruckereinstellung.Check
 902
 903       if (StandardAusgabe.IsChecked = True) Then Graustufen.Check Else StandardAusgabe.Check
 904       bTempRadioBut(1) = StandardAusgabe.IsChecked
 905       bTempRadioBut(2) = Graustufen.IsChecked
 906       bTempRadioBut(3) = SchwarzWeiss.IsChecked
 907       if (Standard.IsChecked = True) Then AnSeitengroesseAnpassen.Check Else Standard.Check
 908       bRadioBut(4) = Standard.IsChecked
 909       bRadioBut(5) = AnSeitengroesseAnpassen.IsChecked
 910       bRadioBut(6) = SeitenKacheln.IsChecked
 911
 912     Kontext "ExtrasOptionenDlg"
 913     ExtrasOptionenDlg.OK
 914
 915     printlog "SO quit - start"
 916
 917     ExitRestartTheOffice
 918     printlog "opening new doc to get the Options"
 919     Call hNewDocument
 920     printlog "checking states"
 921     ToolsOptions
 922     hToolsOptions (sApplication,"Print")
 923
 924       Standard.Check
 925       If ( irgendwas(1) = Seitenname.IsChecked            ) Then WarnLog "Pagename  state changed"
 926       If ( irgendwas(2) = Datum.IsChecked                 ) Then WarnLog "Date  state changed"
 927       If ( irgendwas(3) = Zeit.IsChecked                  ) Then WarnLog "Time  state changed"
 928       If ( irgendwas(4) = AusgeblendeteSeitenDrucken.IsChecked   ) Then WarnLog "Hidden Pages  state changed"
 929
 930       Prospekt.Check
 931       If ( irgendwas(5) = Vorderseite.IsChecked           ) Then WarnLog "Brochure Front  state changed"
 932       If ( irgendwas(6) = Rueckseite.IsChecked            ) Then WarnLog "Brochure Back  state changed"
 933
 934       If ( irgendwas(7) = AusDruckereinstellung.IsChecked ) Then WarnLog "Paper Tray From Printer Settings  state changed"
 935
 936       If ( bTempRadioBut(1) <> StandardAusgabe.IsChecked ) Then WarnLog "Quality Default  state changed"
 937       If ( bTempRadioBut(2) <> Graustufen.IsChecked      ) Then WarnLog "Quality Grayscale  state changed"
 938       If ( bTempRadioBut(3) <> SchwarzWeiss.IsChecked    ) Then WarnLog "Quality Black & White  state changed"
 939       If ( bTempRadioBut(4) <> Standard.IsChecked                ) Then WarnLog "Page Options Default  state changed"
 940       If ( bTempRadioBut(5) <> AnSeitengroesseAnpassen.IsChecked ) Then WarnLog "Page Options Fit to Page  state changed"
 941       If ( bTempRadioBut(6) <> SeitenKacheln.IsChecked           ) Then WarnLog "Page Options Tile Pages state changed"
 942
 943     printlog "all UnCheck -> o"
 944
 945       Standard.Check
 946       Seitenname.UnCheck
 947       Datum.UnCheck
 948       Zeit.UnCheck
 949       AusgeblendeteSeitenDrucken.UnCheck
 950
 951       Prospekt.Check
 952       Vorderseite.UnCheck
 953       Rueckseite.UnCheck
 954
 955       AusDruckereinstellung.UnCheck
 956
 957       if (Graustufen.IsChecked = True) Then SchwarzWeiss.Check Else Graustufen.Check
 958       bTempRadioBut(1) = StandardAusgabe.IsChecked
 959       bTempRadioBut(2) = Graustufen.IsChecked
 960       bTempRadioBut(3) = SchwarzWeiss.IsChecked
 961       if (AnSeitengroesseAnpassen.IsChecked = True) Then SeitenKacheln.Check Else AnSeitengroesseAnpassen.Check
 962       bRadioBut(4) = Standard.IsChecked
 963       bRadioBut(5) = AnSeitengroesseAnpassen.IsChecked
 964       bRadioBut(6) = SeitenKacheln.IsChecked
 965
 966    Kontext "ExtrasOptionenDlg"
 967    ExtrasOptionenDlg.OK
 968
 969   printlog "check if all UnChecked"
 970    ToolsOptions
 971    hToolsOptions (sApplication,"Print")
 972
 973       Standard.Check
 974       If Seitenname.IsChecked            Then WarnLog "Print: Page Name  x"
 975       If Datum.IsChecked                 Then WarnLog "Print: Date  x"
 976       If Zeit.IsChecked                  Then WarnLog "Print: Time  x"
 977       If AusgeblendeteSeitenDrucken.IsChecked   Then WarnLog "Print: Hidden Pages  x"
 978
 979       Prospekt.Check
 980       If Vorderseite.IsChecked           Then WarnLog "Page options: Brochure: Front  x"
 981       If Rueckseite.IsChecked            Then WarnLog "Page options: Brochure: Back  x"
 982
 983       If AusDruckereinstellung.IsChecked Then WarnLog "Page options: Paper tray from printer settings  x"
 984
 985       If ( bTempRadioBut(1) <> StandardAusgabe.IsChecked) Then WarnLog "Quality: Default  state changed"
 986       If ( bTempRadioBut(2) <> Graustufen.IsChecked     ) Then WarnLog "Quality: Grayscale  state changed"
 987       If ( bTempRadioBut(3) <> SchwarzWeiss.IsChecked   ) Then WarnLog "Quality: Black & White  state changed"
 988       If ( bTempRadioBut(4) <> Standard.IsChecked                ) Then WarnLog "Page options: Default  state changed"
 989       If ( bTempRadioBut(5) <> AnSeitengroesseAnpassen.IsChecked ) Then WarnLog "Page options: Fit to page  state changed"
 990       If ( bTempRadioBut(6) <> SeitenKacheln.IsChecked           ) Then WarnLog "Page options: Tile Pages  state changed"
 991
 992      Printlog "all Check -> x"
 993
 994       Standard.Check
 995       Seitenname.Check
 996       Datum.Check
 997       Zeit.Check
 998       AusgeblendeteSeitenDrucken.Check
 999
1000       Prospekt.Check
1001       Vorderseite.Check
1002       Rueckseite.Check
1003
1004       AusDruckereinstellung.Check
1005
1006       if (SchwarzWeiss.IsChecked = True) Then StandardAusgabe.Check Else SchwarzWeiss.Check
1007       bTempRadioBut(1) = StandardAusgabe.IsChecked
1008       bTempRadioBut(2) = Graustufen.IsChecked
1009       bTempRadioBut(3) = SchwarzWeiss.IsChecked
1010       if (SeitenKacheln.IsChecked = True) Then Standard.Check Else SeitenKacheln.Check
1011       bRadioBut(4) = Standard.IsChecked
1012       bRadioBut(5) = AnSeitengroesseAnpassen.IsChecked
1013       bRadioBut(6) = SeitenKacheln.IsChecked
1014
1015    Kontext "ExtrasOptionenDlg"
1016    ExtrasOptionenDlg.OK
1017
1018   printlog "check if all Checked"
1019    ToolsOptions
1020    hToolsOptions (sApplication,"Print")
1021
1022       Standard.Check
1023       If True <> Seitenname.IsChecked            Then WarnLog "Print: Page name  o"
1024       If True <> Datum.IsChecked                 Then WarnLog "Print: Date  o"
1025       If True <> Zeit.IsChecked                  Then WarnLog "Print: Time  o"
1026       If True <> AusgeblendeteSeitenDrucken.IsChecked   Then WarnLog "Print: Hidden pages  o"
1027
1028       Prospekt.Check
1029       If True <> Vorderseite.IsChecked           Then WarnLog "Page options: Brochure: Front  o"
1030       If True <> Rueckseite.IsChecked            Then WarnLog "Page options: Brochure: Back  o"
1031
1032       If True <> AusDruckereinstellung.IsChecked Then WarnLog "Page options: Paper tray from printer settings  o"
1033
1034       If ( bTempRadioBut(1) <> StandardAusgabe.IsChecked) Then WarnLog "Quality: Default  state changed"
1035       If ( bTempRadioBut(2) <> Graustufen.IsChecked     ) Then WarnLog "Quality: Grayscale  state changed"
1036       If ( bTempRadioBut(3) <> SchwarzWeiss.IsChecked   ) Then WarnLog "Quality: Black & White  state changed"
1037       If ( bTempRadioBut(4) <> Standard.IsChecked                ) Then WarnLog "Page options: Default  state changed"
1038       If ( bTempRadioBut(5) <> AnSeitengroesseAnpassen.IsChecked ) Then WarnLog "Page options: Fit to page  state changed"
1039       If ( bTempRadioBut(6) <> SeitenKacheln.IsChecked           ) Then WarnLog "Page options: Tile pages  state changed"
1040
1041   printlog "restore states"
1042
1043       Standard.Check
1044       If ( irgendwas(1) = TRUE ) Then Seitenname.Check            Else Seitenname.UnCheck
1045       If ( irgendwas(2) = TRUE ) Then Datum.Check                 Else Datum.UnCheck
1046       If ( irgendwas(3) = TRUE ) Then Zeit.Check                  Else Zeit.UnCheck
1047       If ( irgendwas(4) = TRUE ) Then AusgeblendeteSeitenDrucken.Check   Else AusgeblendeteSeitenDrucken.UnCheck
1048
1049       Prospekt.Check
1050       If ( irgendwas(5) = TRUE ) Then Vorderseite.Check           Else Vorderseite.UnCheck
1051       If ( irgendwas(6) = TRUE ) Then Rueckseite.Check            Else Rueckseite.UnCheck
1052
1053       If ( irgendwas(7) = TRUE ) Then AusDruckereinstellung.Check Else AusDruckereinstellung.UnCheck
1054
1055       If ( bRadioBut(1) = TRUE ) Then StandardAusgabe.Check
1056       If ( bRadioBut(2) = TRUE ) Then Graustufen.Check
1057       If ( bRadioBut(3) = TRUE ) Then SchwarzWeiss.Check
1058       Standard.Check
1059
1060    Kontext "ExtrasOptionenDlg"
1061    ExtrasOptionenDlg.OK
1062
1063    hCloseDocument
1064 endcase 'tToolsOptionsDrawPrint
1065