testautomation/writer/optional/includes/option/wr_o_a.inc

   1 '**************************************************************************
   2 '* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   3 '*
   4 '* Copyright 2008 by Sun Microsystems, Inc.
   5 '*
   6 '* OpenOffice.org - a multi-platform office productivity suite
   7 '*
   8 '* $RCSfile: wr_o_a.inc,v $
   9 '*
  10 '* $Revision: 1.2 $
  11 '*
  12 '* last change: $Author: vg $ $Date: 2008-08-18 12:33:41 $
  13 '*
  14 '* This file is part of OpenOffice.org.
  15 '*
  16 '* OpenOffice.org is free software: you can redistribute it and/or modify
  17 '* it under the terms of the GNU Lesser General Public License version 3
  18 '* only, as published by the Free Software Foundation.
  19 '*
  20 '* OpenOffice.org is distributed in the hope that it will be useful,
  21 '* but WITHOUT ANY WARRANTY; without even the implied warranty of
  22 '* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  23 '* GNU Lesser General Public License version 3 for more details
  24 '* (a copy is included in the LICENSE file that accompanied this code).
  25 '*
  26 '* You should have received a copy of the GNU Lesser General Public License
  27 '* version 3 along with OpenOffice.org.  If not, see
  28 '* <http://www.openoffice.org/license.html>
  29 '* for a copy of the LGPLv3 License.
  30 '*
  31 '/************************************************************************
  32 '*
  33 '* owner : helge.delfs@sun.com
  34 '*
  35 '* short description : Writer options test
  36 '*
  37 '************************************************************************
  38 '*
  39 ' #1 tToolsOptionsWriterPrint
  40 ' #1 tToolsOptionsWriterTableMove
  41 ' #1 tToolsOptionsWriterTableInsert
  42 ' #1 tToolsOptionsWriterTableEffects
  43 ' #1 tToolsOptionsWriterTableEffects2
  44 ' #1 tToolsOptionsWriterDirectCursor2
  45 '*
  46 '\***********************************************************************
  47
  48 testcase tToolsOptionsWriterPrint
  49     ' called after my save/restart testing
  50     ' The real print with paper to touch - and to get from the printer :-(
  51
  52     Dim i as integer
  53     printlog "- Tools/Options/Writer: PrintWriter (real print)"
  54     Call hFileOpen ( gTesttoolPath + "writer\optional\input\options\options3.sxw" )
  55     Call sMakeReadOnlyDocumentEditable
  56
  57     Printlog "  - check all (real print)"
  58     ToolsOptions
  59     Call hToolsOptions("WRITER","PRINT")
  60
  61     Grafiken.Check
  62     Tabellen.Check
  63     Zeichnungen.Check
  64     Kontrollfelder.Check
  65     Hintergrund.Check
  66     SchwarzDrucken.Check
  67     LinkeSeiten.Check
  68     RechteSeiten.Check
  69     Umgekehrt.Check
  70
  71     Prospekt.UnCheck
  72
  73     Seitenende.Check
  74     AusDruckereinstellung.Check
  75
  76     Kontext "ExtrasOptionenDlg"
  77     ExtrasOptionenDlg.OK
  78
  79     if (NO_REAL_PRINT = False) Then
  80         Printlog "   - print 1"
  81         kontext "funktionsleiste"
  82         Drucken
  83         for i=1 to 10
  84             Kontext "Druckbestaetigung"
  85             if Druckbestaetigung.Exists then
  86                 sleep 1
  87             else
  88                 i=100
  89             end if
  90         next i
  91         Sleep 3
  92     end if
  93
  94     ToolsOptions
  95     Call hToolsOptions("WRITER","PRINT")
  96
  97     Printlog "  - uncheck everything"
  98
  99     Grafiken.UnCheck
 100     Tabellen.UnCheck
 101     Zeichnungen.UnCheck
 102     Kontrollfelder.UnCheck
 103     Hintergrund.UnCheck
 104     SchwarzDrucken.UnCheck
 105     LinkeSeiten.Check               ' that's so, otherwise there will be no printing
 106     RechteSeiten.Check              ' that's so, otherwise there will be no printing
 107     Umgekehrt.UnCheck
 108     Prospekt.UnCheck
 109     Keine.Check
 110     AusDruckereinstellung.UnCheck
 111
 112     Kontext "ExtrasOptionenDlg"
 113     ExtrasOptionenDlg.OK
 114     Sleep 10
 115
 116     if (NO_REAL_PRINT = False) Then
 117         Printlog "   - print 2"
 118         kontext "funktionsleiste"
 119         Drucken
 120         for i=1 to 10
 121             Kontext "Druckbestaetigung"
 122             if Druckbestaetigung.Exists then
 123                 sleep 1
 124             else
 125                 i=100
 126             end if
 127         next i
 128         Sleep 3
 129     end if
 130
 131     Do Until GetDocumentCount = 0
 132         Call hCloseDocument
 133     Loop
 134     Call wOptionsUndo ( "Drucken" )
 135 endcase
 136
 137 '------------------------------------------------------------------------------
 138
 139 testcase tToolsOptionsWriterTableMove
 140     Dim sLager$
 141     Dim Spalte1 as Double
 142     Dim Spalte2 as Double
 143     Dim Zeile1 as Double
 144     Dim Zeile2 as Double
 145     Dim Abstaende(3) as Double
 146     Dim AbLi as Double
 147     Dim AbRe as Double
 148     Dim VerschubZeile as Double
 149     Dim VerschubSpalte as Double
 150     Dim sSeparator as string
 151     Dim sRow1 as string
 152
 153     ' Hints if there are some errors:
 154     ' win2000: Start::Systemsteuerung::Laendereinstellungen::Gebietsschema
 155     ' winXP  : Sart::ControlPanel::Regional and Language Options:: Region Options:: Standards&formats
 156
 157     '/// New writerdocument
 158     Call hNewDocument
 159     ToolsOptions     ' Measurement unit should be set to cm
 160     Call hToolsOptions("WRITER","GENERAL")
 161     '/// Set measurement unit to cm in options
 162     Masseinheit.Select 2
 163     sSeparator = GetDecimalSeperator ( Tabulatorenabstand.GetText )
 164     Kontext "ExtrasOptionenDlg"
 165     ExtrasOptionenDlg.OK
 166     printlog "'///- Tools / Options / Table: Move"
 167     '/// Tools / Options / Table
 168     ToolsOptions
 169     Call hToolsOptions("WRITER","TABLE")
 170
 171     Printlog "'///  - check minimum settings"
 172     '/// check minimum settings
 173     if gPlatform="solaris" then
 174         sLager$ = sSeparator + "25" + mUnit
 175     else
 176         sLager$ = "0" + sSeparator + "25" + mUnit
 177     end if
 178     VerschiebenZeile.ToMin
 179     if sLager$ <> VerschiebenZeile.GetText then Warnlog "Move cells: Row isn't min ( " + sLager$ + " ) but " +VerschiebenZeile.GetText
 180     VerschiebenSpalte.ToMin
 181     if sLager$ <> VerschiebenSpalte.GetText then Warnlog "Move cells: Column isn't min ( " + sLager$ + " ) but " +VerschiebenZeile.GetText
 182
 183     Printlog "- make settings"
 184     '/// make the following settings
 185     '/// set move cells: row to 1.00
 186     '/// set move cells: column to 1.25
 187     VerschiebenZeile.SetText "1" + sSeparator + "00"
 188     VerschiebenSpalte.SetText "1" + sSeparator + "25"
 189     VerschubZeile = 1.00
 190     VerschubSpalte = 1.25
 191
 192     '/// check radiobutton 'Variable'
 193     Variabel.Check
 194     Sleep 1
 195     Kontext "ExtrasOptionenDlg"
 196     ExtrasOptionenDlg.OK
 197
 198     Printlog "- Insert table"
 199     '/// Insert a table
 200     InsertTableWriter
 201     Kontext "TabelleEinfuegenWriter"
 202     '///  set rows an columns to 2
 203     Spalten.SetText "2"
 204     Zeilen.SetText "2"
 205     TabelleEinfuegenWriter.OK
 206
 207     Printlog "remember column width of inserted table"
 208     Call wTypeKeys "<Left><Mod2 Down>"
 209     Call wTypeKeys "<Left><Mod2 Up>"
 210
 211     ' **   Grundwerte der Tabelle holen ( alles schon in Double und rechenbar ) since 05.02.2001 ;-)
 212     Spalte1 = SpaltenBreiteHolen
 213
 214     FormatRowHeight
 215     Kontext "Zellenhoehe"
 216     sRow1 = Hoehe.GetText
 217     Zellenhoehe.OK
 218
 219     Zeile1  = ZeilenHoeheHolen
 220     Call wTypeKeys "<Right>"
 221     Spalte2 = SpaltenBreiteHolen
 222     Call wTypeKeys "<Down>"
 223     Zeile2  = Zeile1
 224     Call wTypeKeys "<Up><Left>"
 225     SeitenAbstaendeHolen ( Abstaende() )
 226     AbLi = Abstaende(1)
 227     AbRe = Abstaende(2)
 228
 229     Printlog "Startwerte"
 230     Printlog "Width   :   Column 1: " & Spalte1 & " Column 2: " & Spalte2
 231     Printlog "Height  :   Row 1: " & Zeile1 & " Row 2: " & Zeile2 & Chr(13)
 232
 233     Printlog "- with <Alt Left> downsize 1. column from right side"
 234     Call wTypeKeys "<Mod2 Left>"
 235     Call SpaltenBreiteTesten ( Spalte1-VerschubZeile )
 236     Call SeitenAbstaendeTesten ( 0.00, VerschubZeile )
 237
 238     Printlog "- with <Shift Alt Right> downsize 1. column from left side"
 239     Call wTypeKeys "<Shift Mod2 Right>"
 240     Call SpaltenBreiteTesten ( Spalte1 - VerschubZeile *2 )
 241     Call SeitenAbstaendeTesten ( VerschubZeile, VerschubZeile )
 242
 243     Printlog "- with <Alt Right> upsize 1. column to the right 2 times"
 244     Call wTypeKeys "<Mod2 Right>"
 245     Call wTypeKeys "<Mod2 Right>"
 246     Call SpaltenBreiteTesten ( Spalte1 )
 247     Call SeitenAbstaendeTesten ( VerschubZeile, 0 )
 248
 249     Printlog "- check size of 2. column"
 250     Call wTypeKeys "<Right>"
 251     Call SpaltenBreiteTesten ( Spalte2 - VerschubZeile )
 252     Call SeitenAbstaendeTesten ( VerschubZeile, 0 )
 253
 254     Printlog "- with <Alt Left> upsize 2. column from left"
 255     Call wTypeKeys "<Mod2 Left>"
 256     wait 100
 257     Call SpaltenBreiteTesten ( Spalte2 - VerschubZeile*2 )
 258     Call SeitenAbstaendeTesten ( VerschubZeile, VerschubZeile )
 259
 260     Printlog "- with <Shift Alt Right> downsize 2. column from left"
 261     Call wTypeKeys "<Shift Mod2 Right>"
 262     Call SpaltenBreiteTesten ( Spalte2 - VerschubZeile*3 )
 263     Call SeitenAbstaendeTesten ( VerschubZeile*2, VerschubZeile )
 264
 265     Printlog "- with <Shift Alt Left> upsize 2. column to the left 2 times"
 266     Call wTypeKeys "<Shift Mod2 Left>"
 267     Call wTypeKeys "<Shift Mod2 Left>"
 268     Call SpaltenBreiteTesten ( Spalte2-VerschubZeile )
 269     Call SeitenAbstaendeTesten ( 0, VerschubZeile )
 270
 271     Printlog "- with <Shift Alt Left> upsize 2. column to the right"
 272     Call wTypeKeys "<Shift Mod2 Left>"
 273     Call SpaltenBreiteTesten ( Spalte2 )
 274     Call SeitenAbstaendeTesten ( 0, 0 )
 275
 276     Printlog "- with <Alt Down> upsize 1. column down"
 277     Call wTypeKeys "<Left><Mod2 Down>"
 278     Call ZeilenHoeheTesten ( Zeile1+VerschubSpalte )
 279     Call SeitenAbstaendeTesten ( 0, 0 )
 280
 281     Printlog "- with <Alt Up> downsize 1. column up"
 282     Call wTypeKeys "<Mod2 Up>"
 283     Call ZeilenHoeheTesten ( ( Zeile1 ) )
 284     Call SeitenAbstaendeTesten ( 0, 0 )
 285
 286     FormatRowHeight
 287     Kontext "Zellenhoehe"
 288     if (StrToDouble ( Hoehe.Gettext ) <> Zeile1 ) then
 289         Hoehe.More
 290         printlog "  from now on, there is an offset to the original of 10mm"
 291         Zeile2 = Zeile2 + ( StrToDouble ( Hoehe.Gettext ) - Zeile2 )
 292     end if
 293     Zellenhoehe.OK
 294
 295     Printlog "- with <Alt Down> upsize 2. column down"
 296     Call wTypeKeys "<Right><Mod2 Down>"
 297     Call ZeilenHoeheTesten ( Zeile2+VerschubSpalte*2/2 )
 298     Call SeitenAbstaendeTesten ( 0, 0 )
 299
 300     Printlog "- with <Alt Up> downsize 2. column up"
 301     Call wTypeKeys "<Mod2 Up>"
 302     Call ZeilenHoeheTesten ( Zeile2 )
 303     Call SeitenAbstaendeTesten ( 0, 0 )
 304
 305     Do Until GetDocumentCount = 0
 306         Call hCloseDocument
 307     Loop
 308     Call wOptionsUndo "Tabelle"
 309 endcase
 310
 311 '------------------------------------------------------------------------------
 312
 313 testcase tToolsOptionsWriterTableInsert
 314     Dim sLager$
 315     Dim Spalte1 as Double
 316     Dim Spalte2 as Double
 317     Dim Zeile as Double
 318     Dim VerschubZeile as Double
 319     Dim VerschubSpalte as Double
 320     Dim sSeparator as string
 321
 322     Call hNewDocument
 323
 324     printlog "- Tools / Options / Table"
 325     ToolsOptions
 326     Call hToolsOptions("WRITER","TABLE")
 327
 328     Printlog "- make settings"
 329     sSeparator = GetDecimalSeperator(EinfuegenZeile.GetText)
 330     EinfuegenZeile.SetText "0" + sSeparator + "73"
 331     VerschubZeile = 0.73
 332     EinfuegenSpalte.SetText "3" + sSeparator + "15"
 333     VerschubSpalte = 3.15
 334     Variabel.Check
 335     Sleep 1
 336     Kontext "ExtrasOptionenDlg"
 337     ExtrasOptionenDlg.OK
 338
 339     Printlog "- Insert a table"
 340     Call hNewDocument
 341     InsertTableWriter
 342     Kontext "TabelleEinfuegenWriter"
 343     Spalten.SetText "2"
 344     Zeilen.SetText "2"
 345     TabelleEinfuegenWriter.OK
 346
 347     ' **   Grundwerte der Tabelle holen ( alles schon in Double und rechenbar )
 348     Spalte1 = SpaltenBreiteHolen
 349     Zeile  = ZeilenHoeheHolen
 350     Call wTypeKeys "<Right>"
 351     Spalte2 = SpaltenBreiteHolen
 352     ' **
 353
 354     Printlog "- with <Alt Insert><Up> insert a row from top"
 355     Call wTypeKeys "<Mod2 Insert><Up>"
 356     Call ZeilenHoeheTesten ( VerschubZeile )
 357     Call SeitenAbstaendeTesten ( 0.00, 0.00 )
 358     Call ZeilenTesten ( 3 )
 359     Call SpaltenTesten ( 2 )
 360
 361     Printlog "- with <Alt Insert><Down> insert a row from downside"
 362     Call wTypeKeys "<Down><Mod2 Insert><Down>"
 363     Call ZeilenHoeheTesten ( VerschubZeile )
 364     Call ZeilenTesten ( 4 )
 365     Call SpaltenTesten ( 2 )
 366
 367     Printlog "- with <Alt Delete><Up> delete 1. row from top"
 368     Call wTypeKeys "<Mod2 Delete><Up>"
 369     Call ZeilenHoeheTesten ( 0.01 )
 370     Call ZeilenTesten ( 3 )
 371     Call SpaltenTesten ( 2 )
 372
 373     Printlog "- with <Alt Delete><Down> delete 1. row from the button"
 374     Call wTypeKeys "<Mod2 Delete><Down>"
 375     Call ZeilenHoeheTesten ( VerschubZeile )
 376     Call ZeilenTesten ( 2 )
 377     Call SpaltenTesten ( 2 )
 378
 379     Printlog "- with <Alt Insert><Left> insert a column from left side"
 380     Call wTypeKeys "<Mod2 Insert><Left>"
 381     Call SpaltenBreiteTesten ( VerschubSpalte )
 382     Call SeitenAbstaendeTesten ( 0.00, 0.00 )
 383     Call ZeilenTesten ( 2 )
 384     Call SpaltenTesten ( 3 )
 385
 386     Printlog "- with <Alt Insert><Right> insert a rown from right side"
 387     Call wTypeKeys "<Right><Right><Mod2 Insert><Right>"
 388     Call SpaltenBreiteTesten ( VerschubSpalte )
 389     Call ZeilenTesten ( 2 )
 390     Call SpaltenTesten ( 4 )
 391
 392     Printlog "- with <Alt Delete><Left> delete 1. Column from left side"
 393     Call wTypeKeys "<Mod2 Delete><Left>"
 394     DocumentWriter.TypeKeys "<Up>"
 395     Call SpaltenBreiteTesten ( Spalte1-VerschubSpalte )
 396     Call ZeilenTesten ( 2 )
 397     Call SpaltenTesten ( 3 )
 398     Call wTypeKeys "<Right>"
 399     Call SeitenAbstaendeTesten ( VerschubSpalte, 0.00 )
 400
 401     Printlog "- with <Alt Delete><Right> delete last column from right side"
 402     Call wTypeKeys "<Right><Right><Mod2 Delete><Right>"
 403     Call SpaltenBreiteTesten ( Spalte2-VerschubSpalte )
 404     Call ZeilenTesten ( 2 )
 405     Call SpaltenTesten ( 2 )
 406     Call SeitenAbstaendeTesten ( VerschubSpalte, Spalte2 -VerschubSpalte )
 407
 408     Do Until GetDocumentCount = 0
 409         Call hCloseDocument
 410     Loop
 411     Call wOptionsUndo "Tabelle"
 412 endcase
 413
 414 ' ************************************************************************
 415
 416 testcase tToolsOptionsWriterTableEffects
 417     Dim Spalte1 as Double
 418     Dim Spalte2 as Double
 419     Dim Spalte3 as Double
 420     Dim VerschubZeile as Double
 421
 422     Call hNewDocument
 423
 424     printlog "- Tools / Options / Table"
 425     ToolsOptions
 426     Call hToolsOptions("WRITER","TABLE")
 427     VerschubZeile = ZahlAusSpinnfield ( VerschiebenZeile.GetText )
 428     VerhaltenFix.Check
 429     Kontext "ExtrasOptionenDlg"
 430     ExtrasOptionenDlg.OK
 431
 432     printlog "- Fixed: changes affect the adjacent area only"
 433     Call hNewDocument
 434     InsertTableWriter
 435     Kontext "TabelleEinfuegenWriter"
 436     Spalten.SetText "3"
 437     Zeilen.SetText "2"
 438     TabelleEinfuegenWriter.OK
 439
 440     Spalte1 = SpaltenBreiteHolen
 441     Call wTypeKeys "<Right>"
 442     Spalte2 = SpaltenBreiteHolen
 443     Call wTypeKeys "<Right>"
 444     Spalte3 = SpaltenBreiteHolen
 445     Kontext "DocumentWriter"
 446     DocumentWriter.TypeKeys "<Left>", 3
 447
 448     Printlog "- with <Alt Left> downsize 1. Column from right side"
 449     Call wTypeKeys "<Mod2 Left>"
 450     Call SpaltenBreiteTesten ( Spalte1-VerschubZeile )
 451     Call wTypeKeys "<Right>"
 452     Call SpaltenBreiteTesten ( Spalte2+VerschubZeile )
 453     Call wTypeKeys "<Right>"
 454     Call SpaltenBreiteTesten ( Spalte3 )
 455     Call SeitenAbstaendeTesten ( 0.00, 0.00 )
 456
 457     Kontext "DocumentWriter"
 458     DocumentWriter.TypeKeys "<Left>", 3
 459     Printlog "- with <Alt Shift Right> no changes should be happen"
 460     Call wTypeKeys "<Mod2 Shift Left>"
 461     Call SpaltenBreiteTesten ( Spalte1-VerschubZeile )
 462     Call wTypeKeys "<Right>"
 463     Call SpaltenBreiteTesten ( Spalte2+VerschubZeile )
 464     Call wTypeKeys "<Right>"
 465     Call SpaltenBreiteTesten ( Spalte3 )
 466     Call SeitenAbstaendeTesten ( 0.00, 0.00 )
 467
 468     Kontext "DocumentWriter"
 469     DocumentWriter.TypeKeys "<Left>", 3
 470     Printlog "- with <Alt Right> re-establish initial state ///"
 471     Call wTypeKeys "<Mod2 Right>"
 472     Call SpaltenBreiteTesten ( Spalte1 )
 473     Call wTypeKeys "<Right>"
 474     SpaltenBreiteTesten ( Spalte2 )
 475     Call wTypeKeys "<Right>"
 476     SpaltenBreiteTesten ( Spalte3 )
 477     SeitenAbstaendeTesten ( 0.00, 0.00 )
 478
 479     Printlog "- with <Alt Down> row will be upsized ///"
 480     Call wTypeKeys "<Mod2 Down>"
 481     Call ZeilenHoeheTesten ( 1.17 )
 482     Call SeitenAbstaendeTesten ( 0.00, 0.00 )
 483
 484     if iSprache <> 01 then
 485         Printlog "- with <Alt Up> row gets initial state"
 486         Call wTypeKeys "<Mod2 Up>"
 487         Call ZeilenHoeheTesten ( 0.7 )
 488         Call SeitenAbstaendeTesten ( 0.00, 0.00 )
 489
 490         Printlog "- with <Alt Shift Up> row will be upsized"
 491         Call wTypeKeys "<Mod2 Shift Up>"
 492         Call ZeilenHoeheTesten ( 1.17 )
 493         Call SeitenAbstaendeTesten ( 0.00, 0.00 )
 494
 495         Printlog "- with <Alt Shift Down> column gets initial state"
 496         Call wTypeKeys "<Mod2 Shift Down>"
 497         Call ZeilenHoeheTesten ( 0.7 )
 498         Call SeitenAbstaendeTesten ( 0.00, 0.00 )
 499     end if
 500     Call hCloseDocument
 501     Call hNewDocument
 502
 503     printlog "- Fixed, proportional: Changes affect the entire table"
 504     ToolsOptions
 505     Call hToolsOptions("WRITER","TABLE"
 506     FixProportional.Check
 507     Kontext "ExtrasOptionenDlg"
 508     ExtrasOptionenDlg.OK
 509
 510     InsertTableWriter
 511     Kontext "TabelleEinfuegenWriter"
 512     Spalten.SetText "3"
 513     Zeilen.SetText "2"
 514     TabelleEinfuegenWriter.OK
 515
 516     Printlog "- with <Alt Left> downsize 1. column from right"
 517     Call wTypeKeys "<Mod2 Left>"
 518     Call SpaltenBreiteTesten ( Spalte1-VerschubZeile )
 519     Call wTypeKeys "<Right>"
 520     Call SpaltenBreiteTesten ( Spalte2+VerschubZeile/2 )
 521     Call wTypeKeys "<Right>"
 522     Call SpaltenBreiteTesten ( Spalte3+VerschubZeile/2 )
 523     Call SeitenAbstaendeTesten ( 0.00, 0.00 )
 524
 525     Kontext "DocumentWriter"
 526     DocumentWriter.TypeKeys "<Left>", 3
 527     Printlog "- with <Alt Shift Right> nothing should happen"
 528     Call wTypeKeys "<Mod2 Shift Left>"
 529     Call SpaltenBreiteTesten ( Spalte1-VerschubZeile )
 530     Call wTypeKeys "<Right>"
 531     Call SpaltenBreiteTesten ( Spalte2+VerschubZeile/2 )
 532     Call wTypeKeys "<Right>"
 533     Call SpaltenBreiteTesten ( Spalte3+VerschubZeile/2 )
 534     Call SeitenAbstaendeTesten ( 0.00, 0.00 )
 535
 536     Kontext "DocumentWriter"
 537     DocumentWriter.TypeKeys "<Left>", 3
 538     Printlog "- with <Alt Right> reach initial state"
 539     Call wTypeKeys "<Mod2 Right>"
 540     Call SpaltenBreiteTesten ( Spalte1 )
 541     Call wTypeKeys "<Right>"
 542     Call SpaltenBreiteTesten ( Spalte2 )
 543     Call wTypeKeys "<Right>"
 544     Call SpaltenBreiteTesten ( Spalte3 )
 545     Call SeitenAbstaendeTesten ( 0.00, 0.00 )
 546
 547     if iSprache <> 01 then
 548         Printlog "- with <Alt Down> row will be upsized"
 549         Call wTypeKeys "<Mod2 Down>"
 550         Call ZeilenHoeheTesten ( 1.2 )
 551         Call SeitenAbstaendeTesten ( 0.00, 0.00 )
 552
 553         Printlog "- with <Alt Up> column gets intitial state"
 554         Call wTypeKeys "<Mod2 Up>"
 555         Call ZeilenHoeheTesten ( 0.7 )
 556         Call SeitenAbstaendeTesten ( 0.00, 0.00 )
 557
 558         Printlog "- with <Alt Shift Up> column will be upsized"
 559         Call wTypeKeys "<Mod2 Shift Up>"
 560         Call ZeilenHoeheTesten ( 1.2 )
 561         Call SeitenAbstaendeTesten ( 0.00, 0.00 )
 562
 563         Printlog "- with <Alt Shift Down> column gets initial state"
 564         Call wTypeKeys "<Mod2 Shift Down>"
 565         Call ZeilenHoeheTesten ( 0.7 )
 566         Call SeitenAbstaendeTesten ( 0.00, 0.00 )
 567     end if
 568     Call wOptionsUndo "Tabelle"
 569
 570     Do Until GetDocumentCount = 0
 571         Call hCloseDocument
 572     Loop
 573 endcase
 574
 575 '------------------------------------------------------------------------------
 576
 577 testcase tToolsOptionsWriterTableEffects2
 578     Dim Spalte1 as Double
 579     Dim vSeparator as string
 580     Dim VerschubZeile as Double
 581
 582     vSeparator = GetDecimalSeperator
 583
 584     printlog "- Tools / Options / Table"
 585     printlog "- Effect options should work immediately"
 586
 587     Call hNewDocument
 588
 589     InsertTableWriter
 590     Kontext "TabelleEinfuegenWriter"
 591     Spalten.SetText "3"
 592     Zeilen.SetText "2"
 593     TabelleEinfuegenWriter.OK
 594
 595     Spalte1 = SpaltenBreiteHolen
 596
 597     ToolsOptions
 598     Call hToolsOptions("WRITER","TABLE")
 599     VerschubZeile = ZahlAusSpinnfield ( VerschiebenZeile.GetText )
 600     if NOT Variabel.IsChecked then
 601         Warnlog "Variable is not checked so test will be interrupted here"
 602         goto endsub
 603     else
 604         printlog "- change 'Behaviour of columns/rows to 'Fix'"
 605         VerhaltenFix.Check
 606     end if
 607     Kontext "ExtrasOptionenDlg"
 608     ExtrasOptionenDlg.OK
 609
 610     printlog "- resize cell with <Alt Left>"
 611     Call wTypeKeys "<Mod2 Left>"
 612     Call SpaltenBreiteTesten ( ( Spalte1-VerschubZeile ) )
 613
 614     FormatTable
 615     Kontext
 616     Active.SetPage TabTabelle
 617     Kontext "TabTabelle"
 618     if ZahlAusSpinnfield ( NachRechts.GetText ) <> "0" then
 619         Warnlog "Table size has been changed though 'Behaviour of rows/columns has been set to 'Fix'"
 620     end if
 621     TabTabelle.Cancel
 622
 623     Do Until GetDocumentCount = 0
 624         Call hCloseDocument
 625     Loop
 626     Call wOptionsUndo "Tabelle"
 627 endcase
 628
 629 '------------------------------------------------------------------------------
 630
 631 testcase tToolsOptionsWriterDirectCursor2
 632     printlog "- Tools / Options / Direct Cursor / Left paragraph margin"
 633
 634     Call hNewDocument
 635     ViewZoom
 636     Kontext "Massstab"
 637     Optimal.Check
 638     Massstab.OK
 639
 640     Printlog "- set left paragraph margin"
 641     ToolsOptions
 642     Call hToolsOptions("WRITER","FORMATTINGAIDS")
 643     DirektCursor.Check
 644     LinkerAbsatzrand.Check
 645     Kontext "ExtrasOptionenDlg"
 646     ExtrasOptionenDlg.OK
 647     Printlog "- set cursor to the right"
 648     Kontext "DocumentWriter"
 649     DocumentWriter.MouseDoubleClick 80, 60
 650     DocumentWriter.Mousemove 20, 50
 651     DocumentWriter.TypeKeys "Right"
 652     FormatParagraph
 653     Kontext
 654     Active.SetPage TabAusrichtungAbsatz
 655     Kontext "TabAusrichtungAbsatz"
 656     if NOT Links.IsChecked then Warnlog "Cursor set to right but it isn't left aligned"
 657     TabAusrichtungAbsatz.Cancel
 658     Kontext "DocumentWriter"
 659     DocumentWriter.TypeKeys "<Shift Home>"
 660     Sleep 1
 661     EditCopy
 662     if GetClipboardText = "" then Warnlog "Maybe tabs or spaces inserted"
 663
 664     ViewZoom
 665     Kontext "Massstab"
 666     Vergroesserung100.Check
 667     Massstab.OK
 668
 669     Do Until GetDocumentCount = 0
 670         Call hCloseDocument
 671     Loop
 672     Call wOptionsUndo "Cursor"
 673 endcase
 674
 675 '------------------------------------------------------------------------------
 676