testautomation/dbaccess/optional/includes/ctrl_General.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: ctrl_General.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 07:43:41 $
  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 : marc.neumann@sun.com
  35 '*
  36 '* short description : Data Source Administrator
  37 '*
  38 '\***********************************************************************
  39 sub ctrl_General
  40
  41     call tLoad_Save_Print
  42     call tAutomaticControlFocus1
  43     call tAutomaticControlFocus2'
  44     call tPosAndSize_Protect_Position
  45     call tPosAndSize_Protect_Size
  46     call tPosAndSize_Keyboard
  47     call tPosAndSize_Dialog
  48     call tPosAndSize_KeepRatio
  49     'TODO Control the Setting on tabpage Rotation & Slant (should be inactive).
  50
  51     call tTabStop
  52     call tActivationOrder
  53     call tAddFields
  54
  55 end sub
  56
  57 '--------------------------------------------------------------------------------------
  58
  59 testcase tLoad_Save_Print
  60
  61     dim iXMLElementCount as integer
  62     dim i as integer
  63         '/// Load the document TT_All_Controls.odt
  64     hFileOpen ( gTesttoolPath + ConvertPath("dbaccess/optional/input/TT_All_Controls.odt"))
  65     'TODO: Are all controlls shown right (color, fonts etc.)?
  66     '/// save the doc under a diffrent name.
  67     hFileSaveAsKill ( gOfficePath + ConvertPath("user/work/TT_All_Controls.odt"))
  68     '/// Reload & compare it with the origin doc.
  69     hCloseDocument
  70     hFileOpen ( gOfficePath + ConvertPath("user/work/TT_All_Controls.odt"))
  71     hCloseDocument
  72     'TODO: Print the doc & compare it with the origin.
  73     '(Attention: Background can't be printed colored (Task: <A HREF="http://webserver1.stardiv.de/Bugtracker/Source/Body_ReportDetail.asp?ID=57223">57223</A>)).
  74
  75 endcase
  76 '--------------------------------------------------------------------------------------
  77 testcase tAutomaticControlFocus1
  78
  79     '/// Open a new document,
  80     printlog "Open a new document,"
  81         call hNewDocument
  82     Kontext "DocumentWriter"
  83         DocumentWriter.TypeKeys "tt_doc" , true
  84         sleep(1)
  85
  86     call hToolbarSelect("FormControls",true)
  87
  88         Kontext "FormControls"
  89             Edit.Click
  90         sleep(2)
  91         '/// insert a Text Boxes
  92     printlog "insert three Text Boxes"
  93     call hDrawingWithSelection ( 40, 40, 55, 55 )
  94
  95     sleep(2)
  96
  97         Kontext "FormControls"
  98             ControlProperties.Click
  99         sleep(2)
 100
 101     fSetControlProperty("Edit","DefaultValue","tt_control")
 102         sleep(1)
 103     '/// activate the Automatic control focus.
 104     printlog "activate the Automatic control focus."
 105
 106     call hToolbarSelect("FormDesignTools",true)
 107
 108     Kontext "FormDesignTools"
 109         AutoControlFocus.Click
 110
 111         sleep(2)
 112     '/// save the document
 113     printlog "save the document"
 114         hFileSaveAsKill ( gOfficePath + ConvertPath("user/work/TT_Control_Test1.odt"))
 115     sleep(1)
 116         hCloseDocument
 117     sleep(1)
 118     '/// reload the document
 119     printlog "reload the document"
 120         hFileOpen ( gOfficePath + ConvertPath("user/work/TT_Control_Test1.odt"))
 121     ' /// check if the control has the focus after reload.
 122     printlog " check if the second control has the focus after reload."
 123     Kontext "DocumentWriter"
 124     DocumentWriter.TypeKeys "<MOD1 HOME>" , true
 125     sleep(1)
 126         DocumentWriter.TypeKeys "<MOD1 SHIFT END>" , true
 127     sleep(1)
 128     DocumentWriter.TypeKeys "<MOD1 C>" , true
 129     sleep(1)
 130     if GetClipboard <> "tt_control" then
 131         warnlog "The control has not the focus. The document has the focus."
 132     endif
 133
 134     hCloseDocument
 135
 136 endcase
 137 '--------------------------------------------------------------------------------------
 138 testcase tAutomaticControlFocus2
 139
 140     '/// Open a new document,
 141     printlog "Open a new document,"
 142         call hNewDocument
 143     Kontext "DocumentWriter"
 144         DocumentWriter.TypeKeys "tt_doc" , true
 145         sleep(1)
 146
 147     call hToolbarSelect("FormControls",true)
 148
 149         Kontext "FormControls"
 150         Edit.Click
 151         sleep(1)
 152         '/// insert three Text Boxes
 153     printlog "insert three Text Boxes"
 154     call hDrawingWithSelection ( 50, 20, 60, 30 )
 155         sleep(2)
 156         Kontext "FormControls"
 157         ControlProperties.Click
 158         sleep(2)
 159     fSetControlProperty("Edit","DefaultValue","tt_control1")
 160
 161         call hDrawingWithSelection  ( 50, 40, 60, 50 )
 162         sleep(2)
 163     ' open and close the form property browser to get the focus
 164         Kontext "FormControls"
 165         ControlProperties.Click
 166     sleep(2)
 167     ControlProperties.Click
 168         sleep(2)
 169
 170     fSetControlProperty("Edit","TabOrder","1")
 171
 172     ' open and close the property browser
 173     Kontext "FormControls"
 174         ControlProperties.Click
 175     sleep(2)
 176     ControlProperties.Click
 177         sleep(2)
 178
 179     fSetControlProperty("Edit","DefaultValue","tt_control2")
 180
 181     sleep(1)
 182
 183     call hDrawingWithSelection  ( 50, 60, 60, 70 )
 184         sleep(2)
 185     ' open and close the form property browser to get the focus
 186     Kontext "FormControls"
 187         ControlProperties.Click
 188     sleep(2)
 189     ControlProperties.Click
 190         sleep(2)
 191     fSetControlProperty("Edit","DefaultValue","tt_control3")
 192
 193     '/// activate the Automatic control focus.
 194     printlog "activate the Automatic control focus."
 195
 196     call hToolbarSelect("FormDesignTools",true)
 197
 198     Kontext "FormDesignTools"
 199         AutoControlFocus.Click
 200
 201         sleep(2)
 202     '/// save the document
 203     printlog "save the document"
 204         hFileSaveAsKill ( gOfficePath + ConvertPath("user/work/TT_Control_Test2.odt"))
 205         hCloseDocument
 206     sleep(1)
 207     '/// reload the document
 208     printlog "reload the document"
 209         hFileOpen ( gOfficePath + ConvertPath("user/work/TT_Control_Test2.odt"))
 210     ' /// check if the second control has the focus after reload.
 211     printlog " check if the second control has the focus after reload."
 212     Kontext "DocumentWriter"
 213     DocumentWriter.TypeKeys "<MOD1 HOME>" , true
 214     sleep(1)
 215         DocumentWriter.TypeKeys "<MOD1 SHIFT END>" , true
 216     sleep(1)
 217     DocumentWriter.TypeKeys "<MOD1 C>" , true
 218     sleep(1)
 219     if GetClipboard <> "tt_control2" then
 220         warnlog "The wrong control has the focus."
 221     endif
 222
 223     hCloseDocument
 224
 225 endcase
 226 '--------------------------------------------------------------------------------------
 227 testcase tPosAndSize_Keyboard
 228
 229     dim sPosX as String
 230     dim sPosY as String
 231     dim sWidth as String
 232     dim sHeight as String
 233
 234     '/// Open a new document,
 235     printlog "Open a new document,"
 236         call hNewDocument
 237
 238         sleep(1)
 239     call hToolbarSelect("FormControls",true)
 240         Kontext "FormControls"
 241             Edit.Click
 242
 243         '/// insert a Text Box
 244     printlog "insert a Text Box"
 245     Kontext "DocumentWriter"
 246     DocumentWriter.MouseDown ( 45, 45 )
 247     DocumentWriter.MouseMove ( 55, 55 )
 248     DocumentWriter.MouseUp   ( 55, 55 )
 249         sleep(2)
 250         '/// open the position and size dialog.
 251     printlog "open the position and size dialog."
 252
 253     call fOpenPositionAndSizeDialog
 254
 255     '/// remember the settings.
 256     printlog "remember the settings."
 257     Kontext "TabPositionAndSizeWriter"
 258     sPosX = HorizontalBy.getText()
 259     sPosY = Verticalby.getText()
 260     sWidth = Width.getText()
 261     sHeight = Height.getText()
 262     TabPositionAndSizeWriter.OK
 263     sleep(2)
 264
 265     Kontext "DocumentWriter"
 266     gMouseClick(50,50)
 267     sleep(2)
 268
 269     '/// move the control via keyboard
 270     printlog "move the control via keyboard"
 271
 272     DocumentWriter.TypeKeys "<DOWN>" , true
 273     DocumentWriter.TypeKeys "<RIGHT>" , true
 274     DocumentWriter.TypeKeys "<MOD1 TAB>" , true
 275     DocumentWriter.TypeKeys "<DOWN>" , true
 276     DocumentWriter.TypeKeys "<RIGHT>" , true
 277
 278     sleep(2)
 279     '/// open the position and size dialog
 280     printlog "open the position and size dialog"
 281
 282     call fOpenPositionAndSizeDialog
 283
 284     Kontext "TabPositionAndSizeWriter"
 285     '/// check the settings.
 286     printlog "check the settings."
 287     if sPosX = HorizontalBy.getText() then
 288         warnlog "The X position has not change."
 289     endif
 290     if sPosY = VerticalBy.getText() then
 291         warnlog "The Y position has not change."
 292     endif
 293     if sWidth = Width.getText() then
 294         warnlog "The width position has not change."
 295     endif
 296     if sHeight = Height.getText() then
 297         warnlog "The height position has not change."
 298     endif
 299
 300     TabPositionAndSizeWriter.OK
 301     sleep(1)
 302
 303     hCloseDocument
 304
 305 endcase
 306 '--------------------------------------------------------------------------------------
 307 testcase tPosAndSize_Dialog
 308
 309     dim sPosX as String
 310     dim sPosY as String
 311     dim sWidth as String
 312     dim sHeight as String
 313     dim sText as String
 314
 315     '/// Open a new document,
 316     printlog "Open a new document,"
 317         call hNewDocument
 318     Kontext "DocumentWriter"
 319             DocumentWriter.TypeKeys "tt_doc" , true
 320         sleep(1)
 321
 322     call hToolbarSelect("FormControls",true)
 323
 324         Kontext "FormControls"
 325             Edit.Click
 326         sleep(1)
 327     '/// insert a Text Box
 328     printlog "insert a Text Box"
 329     call hDrawingWithSelection ( 40, 40, 60, 60 )
 330         sleep(2)
 331         '/// open the position and size dialog
 332     printlog "open the position and size dialog"
 333
 334     call fOpenPositionAndSizeDialog
 335
 336     '/// set values for X , Y , width and height
 337     printlog "set values for X , Y , width and height"
 338     Kontext "TabPositionAndSizeWriter"
 339         ' uncheck KeepRatio because maybe it have set from a test before.
 340         KeepRatio.UnCheck
 341         HorizontalBy.setText("3")
 342         VerticalBy.setText("3")
 343         Width.setText("3")
 344         Height.setText("3")
 345         sleep(1)
 346         TabPositionAndSizeWriter.OK
 347     sleep(2)
 348     '/// open the position and size dialog
 349     printlog "open the position and size dialog"
 350
 351     call fOpenPositionAndSizeDialog
 352
 353     Kontext "TabPositionAndSizeWriter"
 354     '/// check the settings.
 355     printlog "check the settings."
 356     sText = HorizontalBy.getText()
 357     if Instr(sText,"3") = 0 then
 358         warnlog "The X position has not changed."
 359     endif
 360     sText = VerticalBy.getText()
 361     if Instr(sText,"3") = 0 then
 362         warnlog "The Y position has not changed."
 363     endif
 364     sText = Width.getText()
 365     if Instr(sText,"3") = 0 then
 366         warnlog "The width has not changed."
 367     endif
 368     sText = Height.getText()
 369     if Instr(sText,"3") = 0 then
 370         warnlog "The height has not changed."
 371     endif
 372
 373     TabPositionAndSizeWriter.OK
 374     sleep(1)
 375
 376     hCloseDocument
 377
 378 endcase
 379 '--------------------------------------------------------------------------------------
 380 testcase tPosAndSize_Protect_Position
 381
 382     dim sPosX as String
 383     dim sPosY as String
 384
 385     '/// Open a new document,
 386     printlog "Open a new document,"
 387         call hNewDocument
 388     Kontext "DocumentWriter"
 389         DocumentWriter.TypeKeys "tt_doc" , true
 390         sleep(1)
 391
 392     call hToolbarSelect("FormControls",true)
 393
 394         Kontext "FormControls"
 395             Edit.Click
 396         sleep(1)
 397         '/// insert a Text Box
 398     printlog "insert a Text Box"
 399     call hDrawingWithSelection ( 40, 40, 60, 60 )
 400         sleep(2)
 401         '/// open the position and size dialog
 402     printlog "open the position and size dialog"
 403
 404     call fOpenPositionAndSizeDialog
 405
 406     Kontext "TabPositionAndSizeWriter"
 407     sPosX = HorizontalBy.getText()
 408     sPosY = VerticalBy.getText()
 409     '/// check protect position
 410     printlog "check protect position"
 411     ProtectPosition.Check
 412     TabPositionAndSizeWriter.OK
 413     sleep(2)
 414
 415     Kontext "DocumentWriter"
 416     gMouseClick(50,50)
 417     sleep(2)
 418     'Kontext "DocumentWriter"
 419     '/// test if is possible to move the control via keyboard
 420     printlog "test if is possible to move the control via keyboard"
 421     DocumentWriter.TypeKeys "<DOWN>" , true
 422     DocumentWriter.TypeKeys "<RIGHT>" , true
 423
 424     sleep(2)
 425     '/// open the position and size dialog
 426     printlog "open the position and size dialog"
 427
 428     call fOpenPositionAndSizeDialog
 429
 430     Kontext "TabPositionAndSizeWriter"
 431     '/// check the settings, if the position is changed.
 432     printlog "check the settings, if the position is changed."
 433     if sPosX <> HorizontalBy.getText() then
 434         warnlog "The X position has change although the protect position is checked."
 435     endif
 436     if sPosY <> VerticalBy.getText() then
 437         warnlog "The Y position has change although the protect position is checked."
 438     endif
 439     TabPositionAndSizeWriter.OK
 440     sleep(1)
 441
 442     hCloseDocument
 443
 444 endcase
 445 '--------------------------------------------------------------------------------------
 446 testcase tPosAndSize_KeepRatio
 447
 448     dim sWidth as String
 449     dim sHeight as String
 450
 451     '/// Open a new document,
 452     printlog "Open a new document,"
 453         call hNewDocument
 454     Kontext "DocumentWriter"
 455         DocumentWriter.TypeKeys "tt_doc" , true
 456         sleep(1)
 457
 458     call hToolbarSelect("FormControls",true)
 459
 460         Kontext "FormControls"
 461             Edit.Click
 462         sleep(1)
 463         '/// insert a Text Box
 464     printlog "insert a Text Box"
 465     call hDrawingWithSelection ( 40, 40, 60, 60 )
 466         sleep(2)
 467         '/// open the position and size dialog
 468     printlog "open the position and size dialog"
 469
 470     call fOpenPositionAndSizeDialog
 471
 472     sleep(1)
 473     '/// set a width and height.
 474     printlog "set a width and height."
 475     Kontext "TabPositionAndSizeWriter"
 476         KeepRatio.UnCheck
 477         Width.setText("4")
 478         sleep(1)
 479         Height.setText("2")
 480         sleep(1)
 481         '/// check keep ratio
 482         printlog "check keep ratio"
 483         KeepRatio.Check
 484         sleep(1)
 485         Width.setText("6")
 486         sleep(1)
 487         '/// check if keep ratio is working
 488         printlog "check if keep ratio is working"
 489         if Instr(Height.getText(),"3") = -1  then
 490             warnlog "The height doesn't keep the ratio"
 491         endif
 492         TabPositionAndSizeWriter.OK
 493     sleep(2)
 494     '/// open the position and size dialog
 495     printlog "open the position and size dialog"
 496     call fOpenPositionAndSizeDialog
 497
 498     Kontext "TabPositionAndSizeWriter"
 499         '/// check the settings.
 500         printlog "check the settings."
 501         if Instr(Width.getText(),"6") = -1 then
 502             warnlog "The width isn't correct. " + Width.getText()+" instead of 6."
 503         endif
 504         if Instr(Height.getText(),"3") = -1 then
 505            warnlog "The height isn't correct. " + height.getText()+" instead of 3."
 506         endif
 507
 508         TabPositionAndSizeWriter.OK
 509     sleep(1)
 510
 511     hCloseDocument
 512
 513 endcase
 514 '--------------------------------------------------------------------------------------
 515 testcase tPosAndSize_Protect_Size
 516
 517     dim sWidth as String
 518     dim sHeight as String
 519
 520     '/// Open a new document,
 521     printlog "Open a new document,"
 522         call hNewDocument
 523     Kontext "DocumentWriter"
 524         DocumentWriter.TypeKeys "tt_doc" , true
 525         sleep(1)
 526
 527     call hToolbarSelect("FormControls",true)
 528
 529         Kontext "FormControls"
 530             Edit.Click
 531         sleep(1)
 532         '/// insert a Text Box
 533     printlog "insert a Text Box"
 534     call hDrawingWithSelection ( 40, 40, 60, 60 )
 535         sleep(2)
 536         '/// open the position and size dialog
 537     printlog "open the position and size dialog"
 538
 539     call fOpenPositionAndSizeDialog
 540
 541     Kontext "TabPositionAndSizeWriter"
 542         sWidth = Width.getText()
 543         sHeight = Height.getText()
 544         '/// check protect size
 545         printlog "check protect size"
 546         ProtectSize.Check
 547         TabPositionAndSizeWriter.OK
 548     sleep(2)
 549
 550     Kontext "DocumentWriter"
 551     gMouseClick(50,50)
 552     sleep(2)
 553     'Kontext "DocumentWriter"
 554     '/// test is is possible to change the size of the control via keyboard
 555     printlog "test is is possible to change the size of the control via keyboard"
 556     DocumentWriter.TypeKeys "<MOD1 TAB>" , true
 557     DocumentWriter.TypeKeys "<DOWN>" , true
 558     DocumentWriter.TypeKeys "<RIGHT>" , true
 559     sleep(2)
 560     '/// open the position and size dialog
 561     printlog "open the position and size dialog"
 562
 563     call fOpenPositionAndSizeDialog
 564
 565     Kontext "TabPositionAndSizeWriter"
 566     '/// check the settings
 567     printlog "check the settings"
 568     if sWidth <> Width.getText() then
 569         warnlog "The width has change although the protect size is checked."
 570     endif
 571     if sHeight <> Height.getText() then
 572         warnlog "The height has change although the protect size is checked."
 573     endif
 574     TabPositionAndSizeWriter.OK
 575     sleep(1)
 576
 577     hCloseDocument
 578
 579 endcase
 580 '-------------------------------------------------------------------------
 581 testcase tTabStop
 582
 583     '/// Open a new document,
 584     printlog "Open a new document,"
 585         call hNewDocument
 586     Kontext "DocumentWriter"
 587         DocumentWriter.TypeKeys "tt_doc" , true
 588         sleep(1)
 589
 590     call hToolbarSelect("FormControls",true)
 591
 592         Kontext "FormControls"
 593             Edit.Click
 594         sleep(1)
 595         '/// insert one Text Box
 596     printlog "insert one Text Box"
 597     call hDrawingWithSelection ( 50, 20, 60, 30 )
 598         sleep(2)
 599
 600     '/// open the control propery browser
 601     printlog "open the control propery browser"
 602     call fOpenControlPropertyBrowser
 603
 604     '/// the the default text to tt_control1
 605     printlog "the the default text to tt_control1"
 606     call fSetControlProperty("TextBox","DefaultValue","tt_control1")
 607
 608         ' close the property browser
 609     Kontext "FormControls"
 610             ControlProperties.Click
 611
 612         sleep(1)
 613
 614         '/// insert again one Text Box
 615     printlog "insert again one Text Box"
 616         call hDrawingWithSelection  ( 50, 40, 60, 50 )
 617
 618     sleep(2)
 619
 620     '/// open the property browser
 621     printlog "open the property browser"
 622     call fOpenControlPropertyBrowser
 623
 624     '/// set the Order property to 2
 625     printlog "set the Order property to 2"
 626     call fSetControlProperty("TextBox","Order","2")
 627
 628     'close and reopen the control property browser to get the default focus
 629     call fOpenControlPropertyBrowser
 630
 631     '/// set the DefaultValue property to tt_control2
 632     call fSetControlProperty("TextBox","DefaultValue","tt_control2")
 633
 634     'close the control propery browser
 635     Kontext "FormControls"
 636             ControlProperties.Click
 637
 638     '/// insert again one Text Box
 639     printlog "insert again one Text Box"
 640     call hDrawingWithSelection  ( 50, 60, 60, 70 )
 641
 642     sleep(2)
 643
 644     ' open and close the form property browser to get the focus
 645     call fOpenControlPropertyBrowser
 646
 647     '/// set the Order property to 1
 648     printlog "set the Order property to 1"
 649     call fSetControlProperty("TextBox","Order","1")
 650
 651     'close and reopen the control property browser to get the default focus
 652     call fOpenControlPropertyBrowser
 653
 654     '/// set the DeaultValue property to tt_control3
 655     printlog "set the DeaultValue property to tt_control3"
 656     call fSetControlProperty("TextBox","DefaultValue","tt_control3")
 657
 658     call hToolbarSelect("FormDesignTools",true)
 659     Kontext "FormDesignTools"
 660         '/// activate the AutomaticControlFocus
 661         printlog "activate the AutomaticControlFocus"
 662         AutoControlFocus.Click
 663         sleep(1)
 664         '/// turn of the design view
 665         printlog "turn of the design view"
 666     Kontext "FormControls"
 667         SwitchControlDesignMode.Click
 668         printlog "after designview click"
 669         sleep(4)
 670     '/// check if the right control has the focus
 671     printlog "check if the right control has the focus"
 672     Kontext "DocumentWriter"
 673         DocumentWriter.TypeKeys "<MOD1 HOME>" , true
 674         sleep(1)
 675         DocumentWriter.TypeKeys "<MOD1 SHIFT END>" , true
 676         sleep(1)
 677         DocumentWriter.TypeKeys "<MOD1 C>" , true
 678         sleep(1)
 679         if GetClipboard = "tt_doc" then
 680             warnlog "The control has not the focus. The document has the focus."
 681         elseif GetClipboard <> "tt_control3" then
 682             warnlog "The wrong control has the focus."
 683         endif
 684         '/// check that tyou travel to the right controls via TAB
 685         printlog "check that tyou travel to the right controls via TAB"
 686         DocumentWriter.TypeKeys "<TAB>" , true
 687         sleep(1)
 688         DocumentWriter.TypeKeys "<MOD1 HOME>" , true
 689         sleep(1)
 690         DocumentWriter.TypeKeys "<MOD1 SHIFT END>" , true
 691         sleep(1)
 692         DocumentWriter.TypeKeys "<MOD1 C>" , true
 693         sleep(1)
 694         if GetClipboard <> "tt_control2" then
 695             warnlog "The wrong control has the focus."
 696         endif
 697
 698     hCloseDocument
 699
 700 endcase
 701 '--------------------------------------------------------------------------------------
 702 testcase tActivationOrder
 703
 704     Dim sSelText as string
 705
 706     '/// Open a new document,
 707     printlog "Open a new document,"
 708         call hNewDocument
 709     Kontext "DocumentWriter"
 710             DocumentWriter.TypeKeys "tt_doc" , true
 711         sleep(1)
 712
 713     call hToolbarSelect("FormControls",true)
 714
 715     Kontext "FormControls"
 716             Edit.Click
 717         sleep(1)
 718
 719     '/// insert one Text Box
 720     printlog "insert one Text Box"
 721     call hDrawingWithSelection ( 50, 20, 60, 30 )
 722         sleep(2)
 723
 724     '/// open the control property browser
 725     printlog "open the control property browser"
 726     call fOpenControlPropertyBrowser
 727
 728     '/// set the Name Property to tt_control1
 729     printlog "set the Name Property to tt_control1"
 730     call fSetControlProperty("TextBox","NameText","tt_control1")
 731
 732     'close and reopen the control property browser to get the default focus
 733     call fOpenControlPropertyBrowser
 734
 735     '/// set the DefaultValue Property to tt_control1
 736     printlog "set the DefaultValue Property to tt_control1"
 737     call fSetControlProperty("TextBox","DefaultValue","tt_control1")
 738
 739     sleep(1)
 740
 741     ' close the property browser
 742     Kontext "FormControls"
 743             ControlProperties.Click
 744
 745     '/// insert one Text Box
 746     printlog "insert one Text Box"
 747         call hDrawingWithSelection  ( 50, 40, 60, 50 )
 748         sleep(2)
 749
 750     '/// open the control property browser
 751     printlog "open the control property browser"
 752     call fOpenControlPropertyBrowser
 753
 754     '/// set the Name Property to tt_control2
 755     printlog "set the Name Property to tt_control2"
 756     call fSetControlProperty("TextBox","NameText","tt_control2")
 757
 758     'close and reopen the control property browser to get the default focus
 759     call fOpenControlPropertyBrowser
 760
 761     '/// set the DefaultValue Property to tt_control2
 762     call fSetControlProperty("TextBox","DefaultValue","tt_control2")
 763
 764     ' close the property browser
 765     Kontext "FormControls"
 766             ControlProperties.Click
 767
 768     '/// insert one Text Box
 769     printlog "insert one Text Box"
 770     call hDrawingWithSelection  ( 50, 60, 60, 70 )
 771         sleep(2)
 772
 773     '/// open the control property browser
 774     printlog "open the control property browser"
 775     call fOpenControlPropertyBrowser
 776
 777     '/// set the Name Property to tt_control3
 778     call fSetControlProperty("TextBox","NameText","tt_control3")
 779
 780     'close and reopen the control property browser to get the default focus
 781     call fOpenControlPropertyBrowser
 782
 783     '/// set the Defaultvalue property to tt_control3
 784     call fSetControlProperty("TextBox","DefaultValue","tt_control3")
 785
 786     '/// open the tab order dialog
 787     printlog "open the tab order dialog"
 788     call fOpenTabOrder
 789
 790     ' IndexKLiener
 791     printlog "IndexKLiener"
 792     Kontext "ActivationOrder"
 793         sleep(1)
 794         ControlList.TypeKeys "<END>" , true ' to select the first entry
 795         sleep(1)
 796         ControlList.TypeKeys "<HOME>" , true
 797         sleep(1)
 798         sSelText = ControlList.getSelText()
 799         if sSelText <> "tt_control1" then
 800             warnlog "Wrong control on first position in activation order dialog.(" + sSelText + ")"
 801         endif
 802         sleep(1)
 803         ControlList.TypeKeys "<DOWN>" , true
 804         sleep(1)
 805         sSelText = ControlList.getSelText()
 806         if sSelText <> "tt_control2" then
 807             warnlog "Wrong control on second position in activation order dialog.(" + sSelText + ")"
 808         endif
 809         sleep(1)
 810         ControlList.TypeKeys "<DOWN>" , true
 811         sleep(1)
 812         sSelText = ControlList.getSelText()
 813         if sSelText <> "tt_control3" then
 814             warnlog "Wrong control on third position in activation order dialog.(" + sSelText + ")"
 815         endif
 816         sleep(1)
 817         MoveUp.Click
 818         sleep(1)
 819         ControlList.TypeKeys "<HOME>" , true
 820         sleep(1)
 821         ControlList.TypeKeys "<DOWN>" , true
 822         sSelText = ControlList.getSelText()
 823         if sSelText <> "tt_control3" then
 824             warnlog "The move up button in activation order dialog doesn't work.(" + sSelText + ")"
 825         endif
 826
 827
 828         ActivationOrder.OK
 829     sleep(1)
 830     printlog "open TabOrder dialog"
 831     call fOpenTabOrder
 832
 833     Kontext "ActivationOrder"
 834         sleep(1)
 835         ControlList.TypeKeys "<END>" , true ' to select the first entry
 836         sleep(1)
 837         ControlList.TypeKeys "<HOME>" , true
 838         sleep(1)
 839         sSelText = ControlList.getSelText()
 840         if sSelText <> "tt_control1" then
 841             warnlog "Wrong control on first position in activation order dialog.(" + sSelText + ")"
 842         endif
 843         sleep(1)
 844         MoveDown.Click
 845         sleep(1)
 846         ControlList.TypeKeys "<HOME>" , true
 847         sleep(1)
 848         ControlList.TypeKeys "<DOWN>" , true
 849         sSelText = ControlList.getSelText()
 850         if sSelText <> "tt_control1" then
 851             warnlog "The move down button in activation order dialog doesn't work.(" + sSelText + ")"
 852         endif
 853
 854         ActivationOrder.OK
 855
 856     sleep(1)
 857
 858     call hToolbarSelect("FormDesignTools",true)
 859
 860     Kontext "FormDesignTools"
 861
 862             '/// activate the AutomaticControlFocus
 863             printlog "activate the AutomaticControlFocus"
 864             AutoControlFocus.Click
 865             sleep(1)
 866             '/// turn of the design view
 867             printlog "turn of the design view"
 868         Kontext "FormControls"
 869             SwitchControlDesignMode.Click
 870             printlog "after designview click"
 871             sleep(4)
 872
 873     Kontext "DocumentWriter"
 874         DocumentWriter.TypeKeys "<MOD1 HOME>" , true
 875         sleep(1)
 876         DocumentWriter.TypeKeys "<MOD1 SHIFT END>" , true
 877         sleep(1)
 878         DocumentWriter.TypeKeys "<MOD1 C>" , true
 879         sleep(1)
 880         if GetClipboard = "tt_doc" then
 881             warnlog "The control has not the focus. The document has the focus."
 882         elseif GetClipboard <> "tt_control3" then
 883             warnlog "The wrong control has the focus. (" + GetClipboard +  ")"
 884         endif
 885         DocumentWriter.TypeKeys "<TAB>" , true
 886         sleep(1)
 887         DocumentWriter.TypeKeys "<MOD1 SHIFT END>" , true
 888         sleep(1)
 889         DocumentWriter.TypeKeys "<MOD1 C>" , true
 890         sleep(1)
 891         if GetClipboard = "tt_doc" then
 892             warnlog "The control has not the focus. The document has the focus."
 893         elseif GetClipboard <> "tt_control1" then
 894             warnlog "The wrong control has the focus. (" + GetClipboard +  ")"
 895         endif
 896
 897         DocumentWriter.TypeKeys "<TAB>" , true
 898         sleep(1)
 899         DocumentWriter.TypeKeys "<MOD1 SHIFT END>" , true
 900         sleep(1)
 901         DocumentWriter.TypeKeys "<MOD1 C>" , true
 902         sleep(1)
 903         if GetClipboard = "tt_doc" then
 904             warnlog "The control has not the focus. The document has the focus."
 905         elseif GetClipboard <> "tt_control2" then
 906             warnlog "The wrong control has the focus. (" + GetClipboard +  ")"
 907         endif
 908
 909
 910         printlog "turn of the design view"
 911         Kontext "FormControls"
 912             SwitchControlDesignMode.Click
 913             printlog "after designview click"
 914             sleep(4)
 915
 916     printlog "open TabOrder dialog"
 917     call fOpenTabOrder
 918
 919     Kontext "ActivationOrder"
 920         AutoOrder.Click
 921         sleep(1)
 922         ActivationOrder.OK
 923     sleep(1)
 924
 925     Kontext "FormControls"
 926         '/// turn off the design view
 927         printlog "turn of the design view"
 928         SwitchControlDesignMode.Click
 929     sleep(2)
 930
 931     Kontext "DocumentWriter"
 932         DocumentWriter.TypeKeys "<MOD1 HOME>" , true
 933         sleep(1)
 934         DocumentWriter.TypeKeys "<MOD1 SHIFT END>" , true
 935         sleep(1)
 936         DocumentWriter.TypeKeys "<MOD1 C>" , true
 937         sleep(1)
 938         if GetClipboard = "tt_doc" then
 939             warnlog "The control has not the focus. The document has the focus."
 940         elseif GetClipboard <> "tt_control1" then
 941             warnlog "The wrong control has the focus.(" + GetClipboard +  ")"
 942         endif
 943         DocumentWriter.TypeKeys "<TAB>" , true
 944         sleep(1)
 945         DocumentWriter.TypeKeys "<MOD1 C>" , true
 946         sleep(1)
 947         if GetClipboard = "tt_doc" then
 948             warnlog "The control has not the focus. The document has the focus."
 949         elseif GetClipboard <> "tt_control2" then
 950             warnlog "The wrong control has the focus.(" + GetClipboard +  ")"
 951         endif
 952
 953         DocumentWriter.TypeKeys "<TAB>" , true
 954         sleep(1)
 955         DocumentWriter.TypeKeys "<MOD1 C>" , true
 956         sleep(1)
 957         if GetClipboard = "tt_doc" then
 958             warnlog "The control has not the focus. The document has the focus."
 959         elseif GetClipboard <> "tt_control3" then
 960             warnlog "The wrong control has the focus.(" + GetClipboard +  ")"
 961         endif
 962
 963     sleep(1)
 964
 965     call hCloseDocument
 966
 967 endcase
 968 '-------------------------------------------------------------------------
 969 testcase tAddFields
 970
 971     Dim sControlName1 as String
 972     Dim sControlName2 as String
 973     '/// Open a new document,
 974     printlog "Open a new document,"
 975         call hNewDocument
 976     Kontext "DocumentWriter"
 977             DocumentWriter.TypeKeys "tt_doc" , true
 978         sleep(1)
 979
 980     call hToolbarSelect("FormControls",true)
 981
 982     Kontext "FormControls"
 983             Edit.Click
 984         sleep(1)
 985     '/// insert three Text Boxes
 986     printlog "insert three Text Boxes"
 987     call hDrawingWithSelection ( 50, 20, 60, 30 )
 988         sleep(2)
 989         Kontext "FormControls"
 990             FormProperties.Click
 991         sleep(1)
 992
 993     Kontext "FormPropertiesDialog"
 994             FormPropertiesTabControl.SetPage TabDataForm
 995
 996     Kontext "TabDataForm"
 997                 sleep(1)
 998         DataSource.Select "Bibliography"
 999         TabDataForm.typeKeys("<RETURN>")
1000         sleep(1)
1001         Content.Select "biblio"
1002         TabDataForm.typeKeys("<RETURN>")
1003         sleep(1)
1004
1005     Kontext "FormControls"
1006             FormProperties.Click
1007         sleep(1)
1008
1009     call hToolbarSelect("FormDesignTools",true)
1010
1011     Kontext "FormDesignTools"
1012         AddField.Click
1013         sleep(1)
1014
1015     Kontext "FeldAuswahl"
1016         Liste.Select 1
1017         sControlName1 = Liste.getSelText
1018         Liste.TypeKeys "<RETURN>"
1019         sleep(3)
1020
1021     Kontext "FormDesignTools"
1022         ShowFmExplorer.Click
1023         sleep(1)
1024
1025     Kontext "FormularNavigator"
1026         Liste.TypeKeys "<HOME>" , true
1027         Liste.TypeKeys "<DOWN>" , 4, true
1028         sControlName2 = Liste.getSelText
1029         if sControlName1 <> sControlName2 then
1030             qaerrorlog "#i98316# The control name is not the same as the fieldname."
1031         endif
1032
1033     sleep (2)
1034
1035     call hCloseDocument
1036
1037 endcase
1038
1039 function fOpenPositionAndSizeDialog
1040
1041     call hToolbarSelect("FormDesignTools",true)
1042
1043     Kontext "FormDesignTools"
1044         PositionAndSizeDialog.Click
1045
1046     fOpenPositionAndSizeDialog=true
1047
1048 end function
1049 '-------------------------------------------------------------------------
1050 function fOpenTabOrder
1051
1052     printlog "open FormControls Toolbar"
1053
1054     call hToolbarSelect("FormDesignTools",true)
1055
1056     Kontext "FormDesignTools"
1057         TabDialog.Click
1058
1059     fOpenTabOrder=true
1060
1061 end function
1062
1063 '-------------------------------------------------------------------------
1064
1065