testautomation/dbaccess/optional/includes/ctrl_Wizards.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_Wizards.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 : Control Wizards Test
  37 '*
  38 '\***********************************************************************
  39 global sDSName as String
  40 global sFileName as String
  41
  42 sub ctrl_Wizards
  43
  44     printlog "---------------- Control Wizards -------------------"
  45
  46     sDSName = "TT"
  47
  48     app.FileCopy gTesttoolPath + ConvertPath("dbaccess/optional/input/hsql_datasource/TT_hsqldb.odb"),gOfficePath + ConvertPath("user/work/TT_hsqldb.odb")
  49     call fRegisterDatabaseFile(gOfficePath + ConvertPath("user/work/TT_hsqldb.odb"),"TT")
  50
  51     call fSwitchAutopilotOff(false)  ' has to run first to switch on the autopilot
  52     call tGroupBoxWithDatasource
  53     call tGroupBoxWithoutDatasource
  54     call tListBox
  55     call tComboBox
  56     call tTableControl
  57     call fDeRegisterDatabaseFile(sDSName)
  58
  59 end sub
  60
  61 '--------------------------------------------------------------------
  62
  63 testcase tGroupBoxWithDatasource
  64
  65     '/// open a new text document
  66     printlog "open a new text document"
  67         call hNewDocument
  68         sleep(1)
  69         '/// create a new form via the form navigator
  70     printlog "create a new form via the form navigator"
  71
  72     call hToolbarSelect("FORMDESIGN",true)
  73     Kontext "FormDesignTools"
  74          ShowFmExplorer.Click
  75          sleep(2)
  76
  77         Kontext "FormularNavigator"
  78          Liste.TypeKeys "<SPACE>"
  79          sleep(3)
  80          Liste.OpenContextmenu
  81          sleep(2)
  82          hMenuSelectNr (1)
  83          sleep(2)
  84          hMenuSelectNr (1)
  85          sleep(3)
  86          Liste.TypeKeys "<RETURN>",true
  87          sleep(3)
  88          Liste.OpenContextmenu
  89          sleep(2)
  90          hMenuSelectNr (6)
  91          sleep(4)
  92
  93         Kontext "ControlPropertiesTabControl"
  94          ControlPropertiesTabControl.SetPage TabDataControl
  95         Kontext "TabDataForm"
  96          '/// set the datasource TT
  97      printlog "set the datasource TT"
  98      DataSource.setText(sDSName)
  99          DataSource.TypeKeys "<RETURN>" , true
 100      '/// insert password 'testtool' into login dialog
 101      printlog "insert password 'testtool' into login dialog"
 102      Kontext "LoginDialog"
 103         if LoginDialog.Exists then
 104                 Password.setText "testtool"
 105                 LoginDialog.OK
 106             sleep(1)
 107         else
 108             printlog "Login dialog doesn't exists. Why?"
 109         endif
 110      Kontext "LoginDialog"
 111         if LoginDialog.Exists then
 112                 Password.setText "testtool"
 113                 LoginDialog.OK
 114             sleep(1)
 115         else
 116             printlog "Login dialog doesn't exists. Why?"
 117         endif
 118     Kontext "TabDataForm"
 119     '/// set the table TT_Control
 120      printlog "set the table TT_Control"
 121          Content.setText("TT_Control")
 122      Content.TypeKeys "<RETURN>" , true
 123         Kontext "ControlPropertiesDialog"
 124          ControlPropertiesDialog.Close
 125         sleep(3)
 126         Kontext "FormularNavigator"
 127          FormularNavigator.Close
 128         sleep(4)
 129
 130     call hToolbarSelect("MoreControls",true)
 131         Kontext "MoreControls"
 132          '/// insert a groupbox (the wizard appears)
 133      printlog "insert a groupbox (the wizard appears)"
 134          Groupbox.Click
 135
 136         call hDrawingWithSelection ( 50, 20, 60, 30 )
 137         sleep(10)
 138
 139     Dim i as integer
 140     Kontext "AutopilotGroupElement"
 141      AutopilotGroupElement.MouseDown (10,10)
 142      AutopilotGroupElement.MouseUp (10,10)
 143      '/// insert three fields with the names: red, green, blue & next
 144      printlog "insert three fields with the names: red, green, blue & next"
 145     Kontext "TabGroupBoxData"
 146      Names.setText "red"
 147      AddTo.Click
 148      sleep(1)
 149      Names.setText "green"
 150      AddTo.Click
 151      sleep(1)
 152      Names.setText "blue"
 153      AddTo.Click
 154      sleep(1)
 155     Kontext "AutopilotGroupElement"
 156      if NextButton.IsEnabled then
 157        NextButton.Click
 158      else
 159        warnlog "In first window the 'Next'-button is disabled!"
 160        AutopilotGroupElement.Cancel
 161        goto endsub
 162      end if
 163     printlog "  - Autopilot group box: Page 2/5"
 164    Kontext "TabDefaultFieldSelection"
 165     '/// choose no default and click two times next
 166     printlog "choose no default and click two times next"
 167     NoSelected.check
 168    Kontext "AutopilotGroupElement"
 169     if NextButton.IsEnabled then
 170        NextButton.Click
 171      else
 172       warnlog "In second window the 'Next'-button is disabled!!"
 173       AutopilotGroupElement.Cancel
 174       goto endsub
 175     end if
 176     sleep(1)
 177     printlog "  - Autopilot group box: Page 3/5"
 178    Kontext "TabDatabaseValues"
 179     ' nothing
 180    Kontext "AutopilotGroupElement"
 181     if NextButton.IsEnabled then
 182        NextButton.Click
 183      else
 184        warnlog "In third window the 'Next'-button is disabled!"
 185       AutopilotGroupElement.Cancel
 186     end if
 187     sleep(3)
 188     printlog "  - Autopilot group box: Page 4/5"
 189    '/// choose the database field Colors
 190    printlog "choose the database field Colors"
 191    'Kontext "TabDatabaseValues"
 192    Kontext "TabDatabaseField" '      dbp:TabPage:RID_PAGE_OPTION_DBFIELD
 193     YesSaveIt.check
 194     Fieldbox.select 2
 195    Kontext "AutopilotGroupElement"
 196     if NextButton.IsEnabled then
 197        NextButton.Click
 198      else
 199        warnlog "In fourth window the 'Next'-button is disabled!"
 200        AutopilotGroupElement.Cancel
 201        goto endsub
 202     end if
 203     sleep(1)
 204     printlog "  - Autopilot group box: Page 5/5"
 205    Kontext "TabCreateOptionGroup"
 206     ' nothing
 207    Kontext "AutopilotGroupElement"
 208     if CreateButton.IsEnabled then
 209        CreateButton.Click
 210      else
 211        warnlog "In fifth window the 'Create'-button is disabled!"
 212        AutopilotGroupElement.Cancel
 213        goto endsub
 214     end if
 215
 216     sleep(1)
 217
 218     call hToolbarSelect("FORMDESIGN",true)
 219     Kontext "FormDesignTools"
 220          ShowFmExplorer.Click
 221          sleep(3)
 222
 223     Kontext "FormularNavigator"
 224      sleep(1)
 225      'Liste.TypeKeys "<DOWN>" , true
 226      sleep(1)
 227      Liste.TypeKeys "<HOME>" , true
 228      sleep(1)
 229      Liste.TypeKeys "<DOWN>" , true
 230      sleep(1)
 231      Liste.TypeKeys "<DOWN>" , true
 232      sleep(1)
 233      Liste.TypeKeys "<DOWN>" , true
 234      sleep(1)
 235      Liste.OpenContextmenu
 236          sleep(2)
 237          hMenuSelectNr (5)
 238          sleep(5)
 239
 240     Kontext "ControlPropertiesTabControl"
 241         ControlPropertiesTabControl.setPage TabGeneralControl
 242
 243     Kontext "TabGeneralControl"
 244      TabGeneralControl.TypeKeys "<TAB>" , true 'this tab is importent, I don't not why but it is.
 245      sleep(1)
 246      HelpURL.setText "HID:123456"
 247      HelpURL.TypeKeys "<RETURN>",true
 248      sleep(1)
 249     Kontext "ControlPropertiesDialog"
 250      ControlPropertiesDialog.close
 251
 252     'open and close the formnavigator to get the focus
 253     call hToolbarSelect("FORMDESIGN",true)
 254     Kontext "FormDesignTools"
 255          ShowFmExplorer.Click
 256          sleep(2)
 257
 258     Kontext "FormDesignTools"
 259          ShowFmExplorer.Click
 260          sleep(2)
 261
 262     Kontext "FormularNavigator"
 263      'Liste.TypeKeys "<DOWN>" , true ' this is needed , I don't know why
 264      sleep(1)
 265      Liste.TypeKeys "<HOME>" , true
 266      sleep(1)
 267      Liste.TypeKeys "<DOWN>" , true
 268      sleep(1)
 269      Liste.TypeKeys "<DOWN>" , true
 270      sleep(1)
 271      Liste.TypeKeys "<DOWN>" , true
 272      sleep(1)
 273      Liste.TypeKeys "<DOWN>" , true
 274      sleep(1)
 275      Liste.OpenContextmenu
 276          sleep(2)
 277          hMenuSelectNr (5)
 278          sleep(5)
 279
 280     Kontext "TabGeneralControl"
 281          TabGeneralControl.TypeKeys "<TAB>" , true 'this tab is importent, I don't not why but it is.
 282      sleep(1)
 283      HelpURL.setText "HID:1234567"
 284      HelpURL.TypeKeys "<RETURN>", true
 285      sleep(1)
 286     Kontext "ControlPropertiesDialog"
 287      ControlPropertiesDialog.close
 288
 289     'open and close the frmnavigator to get the focus
 290     call hToolbarSelect("FORMDESIGN",true)
 291     Kontext "FormDesignTools"
 292          ShowFmExplorer.Click
 293          sleep(2)
 294
 295     Kontext "FormDesignTools"
 296          ShowFmExplorer.Click
 297          sleep(2)
 298
 299     Kontext "FormularNavigator"
 300      'Liste.TypeKeys "<DOWN>" , true ' this is needed , I don't know why
 301      sleep(1)
 302      Liste.TypeKeys "<HOME>" , true
 303      sleep(1)
 304      Liste.TypeKeys "<DOWN>" , true
 305      sleep(1)
 306      Liste.TypeKeys "<DOWN>" , true
 307      sleep(1)
 308      Liste.TypeKeys "<DOWN>" , true
 309      sleep(1)
 310      Liste.TypeKeys "<DOWN>" , true
 311      sleep(1)
 312      Liste.TypeKeys "<DOWN>" , true
 313      sleep(1)
 314      Liste.OpenContextmenu
 315          sleep(2)
 316          hMenuSelectNr (5)
 317          sleep(5)
 318
 319     Kontext "TabGeneralControl"
 320      TabGeneralControl.TypeKeys "<TAB>" , true ' this tab is importent, I don't not why but it is.
 321      HelpURL.setText "HID:12345678"
 322      HelpURL.TypeKeys "<RETURN>", true
 323      sleep(1)
 324     Kontext "ControlPropertiesDialog"
 325      ControlPropertiesDialog.close
 326
 327     '/// save the document
 328     printlog "save the document"
 329     hFileSaveAsKill ( gOfficePath + ConvertPath("user/work/TT_AP_GroupBox.odt"))
 330         hCloseDocument
 331     sleep(1)
 332
 333     '/// reload the document
 334     printlog "reload the document"
 335         hFileOpen ( gOfficePath + ConvertPath("user/work/TT_AP_GroupBox.odt"))
 336
 337     '/// check if the options buttons work right
 338     printlog "check if the options buttons work right"
 339
 340     dim a as boolean
 341     dim b as boolean
 342     dim c as boolean
 343
 344     Kontext "MSC_Special_Dialog"
 345         a = MSC_Special_Dialog.ischecked
 346     Kontext "MSC_Special_Dialog2"
 347         b = MSC_Special_Dialog2.ischecked
 348     Kontext "MSC_Special_Dialog3"
 349         c = MSC_Special_Dialog3.ischecked
 350
 351     if not a AND not b AND c then
 352         printlog "ok"
 353     else
 354         warnlog "the third option isn't checked"
 355     endif
 356
 357     printlog "next record"
 358     FM_Next_Record
 359     sleep(1)
 360     Kontext "MSC_Special_Dialog"
 361         a = MSC_Special_Dialog.ischecked
 362     Kontext "MSC_Special_Dialog2"
 363         b = MSC_Special_Dialog2.ischecked
 364     Kontext "MSC_Special_Dialog3"
 365         c = MSC_Special_Dialog3.ischecked
 366
 367     if not a AND b AND not c then
 368         'nothing
 369     else
 370         warnlog "the second option isn't checked"
 371     endif
 372
 373     printlog "next record"
 374     FM_Next_Record
 375     sleep(1)
 376     Kontext "MSC_Special_Dialog"
 377         a = MSC_Special_Dialog.ischecked
 378     Kontext "MSC_Special_Dialog2"
 379         b = MSC_Special_Dialog2.ischecked
 380     Kontext "MSC_Special_Dialog3"
 381         c = MSC_Special_Dialog3.ischecked
 382
 383     if a AND not b AND not c then
 384         'nothing
 385     else
 386         warnlog "the first option isn't checked"
 387     endif
 388     sleep(1)
 389     call hCloseDocument
 390 endcase
 391
 392 '--------------------------------------------------------------------
 393
 394 testcase tGroupBoxWithoutDatasource
 395
 396     '/// open a textdocument
 397     printlog "open a textdocument"
 398
 399         call hNewDocument
 400         sleep(1)
 401
 402         call hToolbarSelect("MoreControls",true)
 403
 404         Kontext "MoreControls"
 405          '/// insert a groupbox (the wizard appears)
 406      printlog "insert a groupbox (the wizard appears)"
 407          Groupbox.Click
 408          call hDrawingWithSelection ( 50, 20, 60, 30 )
 409          sleep(2)
 410          Dim i as integer
 411         Kontext "AutopilotGroupElement"
 412          AutopilotGroupElement.MouseDown (10,10)
 413          AutopilotGroupElement.MouseUp (10,10)
 414          sleep (1)
 415          if AutopilotGroupElement.Exists(3) then
 416             printlog "  - Autopilot group element: Page 1/4"
 417         '/// insert 6 diffent options
 418         printlog "insert 6 diffent options"
 419                 Kontext "TabGroupBoxData"
 420         for i = 1 to 6
 421                 Names.Settext "Option field " + i
 422                         if AddTo.IsEnabled then
 423                         AddTo.Click
 424                         else
 425                         warnlog "Entry couldn't be overtaken in first window of the group box autopilot!"
 426                                 AutopilotGroupElement.Cancel
 427                 end if
 428                 next
 429                 Kontext "AutopilotGroupElement"
 430         if NextButton.IsEnabled then
 431                 NextButton.Click
 432             else
 433                 warnlog "In first window the 'Next'-button is disabled!"
 434                 AutopilotGroupElement.Cancel
 435             end if
 436             sleep(3)
 437             printlog "  - Autopilot group box: Page 2/4"
 438                 Kontext "TabDefaultFieldSelection"
 439                  sleep (1)
 440          '/// set Option Field 3 as default selection
 441          printlog "set Option Field 3 as default selection"
 442          YesFollowing.Check
 443              Selection.Select "Option field 3"
 444                 Kontext "AutopilotGroupElement"
 445             if NextButton.IsEnabled then
 446                 NextButton.Click
 447             else
 448                 warnlog "In second window the 'Next'-button is disabled!!"
 449                 AutopilotGroupElement.Cancel
 450             end if
 451             sleep(3)
 452             printlog "  - Autopilot group box: Page 3/4"
 453                 Kontext "TabDatabaseValues"
 454                 dim iCountOptionFields
 455                 iCountOptionFields = OptionFields.getitemCount
 456                 if iCountOptionFields <> 6 then
 457                         warnlog "there are not 6 options."
 458                 AutopilotGroupElement.Cancel
 459                         goto endsub
 460                 end if
 461                 '/// set some new reference for the options fields
 462         printlog "set some new reference for the options fields"
 463                 OptionFields.select 1
 464                 WhichValue.setText "a"
 465                 OptionFields.select 2
 466                 WhichValue.setText "b"
 467                 OptionFields.select 3
 468                 WhichValue.setText "c"
 469                 OptionFields.select 4
 470                 WhichValue.setText "d"
 471                 OptionFields.select 5
 472                 WhichValue.setText "e"
 473                 OptionFields.select 6
 474                 WhichValue.setText "f"
 475
 476                 Kontext "AutopilotGroupElement"
 477             if NextButton.IsEnabled then
 478                 NextButton.Click
 479         else
 480                 warnlog "In third window the 'Next'-button is disabled!"
 481                 AutopilotGroupElement.Cancel
 482             end if
 483             sleep(3)
 484
 485             printlog "  - Autopilot group box: Page 4/4"
 486                 '/// change the goup name to Group 123
 487         printlog "change the goup name to Group 123"
 488         Kontext "TabCreateOptionGroup"
 489                  GroupCaption.setText "Group 123"
 490                 Kontext "AutopilotGroupElement"
 491              if CreateButton.IsEnabled then
 492                  CreateButton.Click
 493              else
 494                  warnlog "In fourth window the 'Create'-button is disabled!"
 495                  AutopilotGroupElement.Cancel
 496              end if
 497         else
 498             warnlog "- Autopilot for Group Box didn't appear!"
 499         end if
 500         sleep(2)
 501
 502     '/// save the document
 503     hFileSaveAsKill ( gOfficePath + ConvertPath("user/work/TT_AP_GroupBox2.odt"))
 504         hCloseDocument
 505     sleep(1)
 506
 507     '/// reload the document
 508     printlog "reload the document"
 509         hFileOpen ( gOfficePath + ConvertPath("user/work/TT_AP_GroupBox2.odt"))
 510
 511         call hToolbarSelect("FormControls",true)
 512
 513         sleep(1)
 514         Kontext "FormControls"
 515          SwitchControlDesignMode.Click
 516      sleep(1)
 517
 518     call hToolbarSelect("FormDesignTools",true)
 519     Kontext "FormDesignTools"
 520         ShowFmExplorer.Click
 521         sleep(1)
 522         Kontext "FormularNavigator"
 523          Liste.TypeKeys "<HOME>"
 524          Liste.TypeKeys "<DOWN>"
 525          Liste.TypeKeys "<DOWN>"
 526          sleep (2)
 527          Liste.OpenContextmenu
 528          sleep(1)
 529          try
 530             hMenuSelectNr (5)
 531          catch
 532                 printlog "Control property browser already open."
 533          endcatch
 534         sleep (2)
 535         Kontext "ControlPropertiesTabControl"
 536         ControlPropertiesTabControl.SetPage TabGeneralControl
 537         sleep (2)
 538         Kontext "TabGeneralControl"
 539      if Label.getText() <> "Group 123" then
 540                  warnlog "The label of the groupbox is not right." + getClipboard
 541          end if
 542          sleep (2)
 543         Kontext "FormularNavigator"
 544          Liste.TypeKeys "<DOWN>"
 545          sleep (2)
 546
 547      if fgetControlproperty("RadioButton","DefaultState") <> "1" then
 548                  warnlog "The default state is set to not selected"
 549          end if
 550
 551          sleep 1
 552         Kontext "FormularNavigator"
 553          Liste.TypeKeys "<DOWN>"
 554          Liste.TypeKeys "<DOWN>"
 555          sleep (2)
 556
 557          if fgetControlproperty("RadioButton","DefaultState") <> "2" then
 558                  warnlog "The default state is set to not selected"
 559          end if
 560
 561      if fgetControlproperty("RadioButton","ReferenceValue") <> "c" then
 562                  warnlog "The reference value is not right, it have to be c but it is " + ReferenceValue.getText
 563          end if
 564         sleep(2)
 565         call hCloseDocument
 566 endcase
 567
 568 '--------------------------------------------------------------------
 569
 570 testcase tListBox
 571
 572     Dim j as integer
 573     Dim k as integer
 574     dim i as integer
 575     printlog "- Formular toolbox: List box element (" & gApplication & ")"
 576     '/// open a text, insert a listbox (the wizard appears)
 577     call hNewDocument
 578     sleep(1)
 579
 580     call hToolbarSelect("FormControls",true)
 581
 582     Kontext "FormControls"
 583     Listbox.Click
 584     call hDrawingWithSelection ( 50, 20, 60, 30 )
 585     sleep(3)
 586     Kontext "AutoPilotListComboBox"
 587     AutoPilotListComboBox.MouseDown(10,10)
 588     AutoPilotListComboBox.MouseUp(10,10)
 589
 590     if AutoPilotListComboBox.Exists(1) then
 591         printlog "  - Autopilot List/Combo Box: Page 1/4"
 592         Kontext "TabListBoxData"
 593         '/// choose database TT & click next
 594         DataSource.Select(sDSName)
 595                 Kontext "LoginDialog"
 596         if LoginDialog.Exists(3) then
 597                 printlog "login dialog"
 598             Password.SetText "testtool"
 599                 LoginDialog.OK
 600                 sleep 1
 601         end if
 602         '/// choose table TPCoA-1 & click next
 603         Kontext "TabListBoxData"
 604         Table.Select("TT_Control")
 605         sleep(1)
 606         Kontext "AutopilotListComboBox"
 607         if NextButton.IsEnabled then
 608             NextButton.Click
 609         else
 610             warnlog "In first window the 'Next'-button is disabled!"
 611             AutopilotListComboBox.Cancel
 612         end if
 613         sleep(1)
 614         printlog "  - Autopilot List/Combo Box: Page 2/4"
 615         Kontext "TabTableSelection"
 616         TableSelection.Select("TT_Control")
 617         sleep(1)
 618         Kontext "AutopilotListComboBox"
 619         if NextButton.IsEnabled then
 620             NextButton.Click
 621         else
 622             warnlog "In second window the 'Next'-button is disabled!!"
 623             AutopilotListComboBox.Cancel
 624             goto endsub
 625         end if
 626         sleep(1)
 627         printlog "  - Autopilot List/Combo Box: Page 3/4"
 628         Kontext "TabFieldSelection"
 629         '/// choose InfoColor as displayed field & click next
 630         ExistingFields.Select("InfoColor")
 631         sleep(3)
 632         Kontext "AutopilotListComboBox"
 633         if NextButton.IsEnabled then
 634             NextButton.Click
 635         else
 636             warnlog "In third window the 'Next'-button is disabled!"
 637             AutopilotListComboBox.Cancel
 638         end if
 639         sleep(1)
 640         printlog "  - Autopilot List/Combo Box: Page 4/4"
 641         Kontext "TabFieldLink"
 642         '/// take Colors as value field, ID as list field & click create
 643         ValueTable.Select("Colors")
 644         sleep(1)
 645         ListTable.Select("ID")
 646         sleep(1)
 647         Kontext "AutopilotListComboBox"
 648         if CreateButton.IsEnabled then
 649             CreateButton.Click
 650         else
 651             warnlog "In fourth window the 'Create'-button is disabled!"
 652             AutopilotListComboBox.Cancel
 653         end if
 654     else
 655         warnlog "The Autopilot doesn't start!"
 656     end if
 657         sleep(1)
 658
 659         Kontext "FormControls"
 660         ControlProperties.Click
 661         sleep(1)
 662     '/// check if the list box is in dropdown style
 663         if fGetControlProperty("ListBox","DropDown") <> "2" then
 664                 warnlog "The dropdown style is not active."
 665         endif
 666         sleep(1)
 667         fSetControlProperty("ListBox","HelpURL","HID:123456")
 668         sleep(1)
 669     '/// save the document
 670     printlog "save the document"
 671     hFileSaveAsKill ( gOfficePath + ConvertPath("user/work/TT_AP_ListBox.odt"))
 672         hCloseDocument
 673     sleep(1)
 674     '/// reload the document
 675     printlog "reload the document"
 676         hFileOpen ( gOfficePath + ConvertPath("user/work/TT_AP_ListBox.odt"))
 677
 678     '/// open the listbox, and ccheck the list entries
 679         Kontext "MSC_Special_Dialog"
 680         dim ii as integer
 681         ii = MSC_Special_Dialog.GetItemCount
 682         dim stext as string
 683         for i = 1 to ii
 684                 MSC_Special_Dialog.Select (i)
 685                 wait 500
 686                 sText = MSC_Special_Dialog.GetSelText
 687                 select case i
 688                         case 1
 689                                 if sText <> "" then
 690                                         warnlog "The 1. entry is not empty"
 691                                 endif
 692                         case 2
 693                                 if sText <> "red = 1" then
 694                                         warnlog "The 2. entry is not red = 1"
 695                                 endif
 696                         case 3
 697                                 if sText <> "green = 2" then
 698                                         warnlog "The 3. entry is not green = 2"
 699                                 endif
 700                         case 4
 701                                 if sText <> "blue = 3" then
 702                                         warnlog "The 4. entry is not blue = 3"
 703                                 endif
 704                 end select
 705         next
 706         sleep 1
 707         hCloseDocument
 708
 709 endcase
 710
 711 '--------------------------------------------------------------------
 712
 713 testcase tComboBox
 714
 715     Dim k as integer
 716         printlog "- Formular toolbox: List box element (" & gApplication & ")"
 717         '/// open new text document
 718     call hNewDocument
 719         sleep(1)
 720
 721     call hToolbarSelect("FormControls",true)
 722
 723         '/// insert a new combo box
 724     Kontext "FormControls"
 725          Combobox.Click
 726         call hDrawingWithSelection ( 50, 20, 60, 30 )
 727         sleep(10)
 728
 729     Kontext "AutoPilotListComboBox"
 730      AutoPilotListComboBox.MouseDown (10,10)
 731      AutoPilotListComboBox.MouseUp (10,10)
 732     if AutoPilotListComboBox.Exists(3) then
 733         printlog "  - Autopilot List/Combo Box: Page 1/4"
 734         Kontext "TabListBoxData"
 735          DataSource.Select(sDSName)
 736          Table.Select("TT_Control")
 737         Kontext "AutopilotListComboBox"
 738         if NextButton.IsEnabled then
 739             NextButton.Click
 740         else
 741             warnlog "In first window the 'Next'-button is disabled!"
 742             AutopilotListComboBox.Cancel
 743             goto endsub
 744         end if
 745         sleep(3)
 746         printlog "  - Autopilot List/Combo Box: Page 2/4"
 747         Kontext "TabTableSelection"
 748             TableSelection.Select("TT_Control")
 749             sleep(3)
 750         Kontext "AutopilotListComboBox"
 751         if NextButton.IsEnabled then
 752             NextButton.Click
 753         else
 754             warnlog "In second window the 'Next'-button is disabled!!"
 755             AutopilotListComboBox.Cancel
 756             goto endsub
 757         end if
 758         sleep(3)
 759         printlog "  - Autopilot List/Combo Box: Page 3/4"
 760         Kontext "TabFieldSelection"
 761             ExistingFields.Select(1)
 762             sleep(3)
 763         Kontext "AutopilotListComboBox"
 764         if NextButton.IsEnabled then
 765             NextButton.Click
 766         else
 767             warnlog "In third window the 'Next'-button is disabled!"
 768             AutopilotListComboBox.Cancel
 769             goto endsub
 770         end if
 771         sleep(3)
 772         printlog "  - Autopilot List/Combo Box: Page 4/4"
 773         Kontext "TabDatabaseField"
 774         sleep(3)
 775         Kontext "AutopilotListComboBox"
 776         if CreateButton.IsEnabled then
 777             CreateButton.Click
 778         else
 779             warnlog "In fourth window the 'Create'-button is disabled!"
 780             AutopilotListComboBox.Cancel
 781             goto endsub
 782         end if
 783     else
 784         warnlog "- Autopilot for Combo Box didn't appear!"
 785     end if
 786     sleep(2)
 787         call hCloseDocument
 788
 789 endcase
 790
 791 '--------------------------------------------------------------------
 792
 793 testcase tTableControl
 794
 795   printlog "- Formular toolbox: Tablecontrol element (" & gApplication & ")"
 796   '/// open a new textdocument & insert a table control
 797   call hNewDocument
 798   sleep(1)
 799
 800   call hToolbarSelect("MoreControls",true)
 801
 802   Kontext "MoreControls"
 803    Grid.Click
 804    call hDrawingWithSelection ( 40, 20, 60, 40 )
 805    sleep(10)
 806    '/// take as datasource table biblio, mark it & next
 807    '/// select some fields (in both directions) & create
 808    '/// switch off the design view & open the database beamer (TODO)
 809    '/// compare the header & the contents with the table control (TODO)
 810         Dim k as integer
 811         Kontext "AutopilotTableElement"
 812         AutopilotTableElement.MouseDown (10,10)
 813         AutopilotTableElement.MouseUp (10,10)
 814         if AutopilotTableElement.Exists(3) then
 815         printlog "  - Autopilot Table Element: Page 1/2"
 816                 Kontext "TabListBoxData"
 817                 DataSource.Select(sDSName)
 818                 sleep (1)
 819                 Kontext "LoginDialog"
 820         if LoginDialog.Exists(3) then
 821                 printlog "login dialog"
 822             Password.SetText "testtool"
 823                 LoginDialog.OK
 824                 sleep (1)
 825         end if
 826         sleep (1)
 827                 Kontext "TabListBoxData"
 828                 Table.Select("TT_Control")
 829                 sleep(3)
 830                 Kontext "AutopilotTableElement"
 831         if NextButton.IsEnabled then
 832                         NextButton.Click
 833                 else
 834                         warnlog "In first window the 'Next'-button is disabled!"
 835                 AutopilotTableElement.Cancel
 836                 end if
 837                 sleep(1)
 838                 printlog "  - Autopilot Table Element: Page 2/2"
 839                 Kontext "TabTableFieldSelection"
 840                 ExistingFields.Select("ID")
 841                 AddTo.Click
 842                 ExistingFields.Select("Colors")
 843                 AddTo.Click
 844                 ExistingFields.Select("InfoColor")
 845                 AddTo.Click
 846                 sleep(1)
 847                 Kontext "AutopilotTableElement"
 848                 if CreateButton.IsEnabled then
 849                         CreateButton.Click
 850                 else
 851                         warnlog "In fourth window the 'Create'-button is disabled!"
 852                         AutopilotTableElement.Cancel
 853                 end if
 854         else
 855                 warnlog "- Autopilot for Table Element didn't appear!"
 856         end if
 857         sleep(2)
 858
 859         hCloseDocument
 860
 861 endcase
 862
 863 '-------------------------------------------------------------------------
 864