testautomation/global/tools/includes/optional/t_ctrl_1.inc

   1 'encoding UTF-8  Do not remove or change this line!
   2 '**************************************************************************
   3 '* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4 '*
   5 '* Copyright 2008 by Sun Microsystems, Inc.
   6 '*
   7 '* OpenOffice.org - a multi-platform office productivity suite
   8 '*
   9 '* $RCSfile: t_ctrl_1.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-13 10:27:08 $
  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 :
  37 '*
  38 '*******************************************************************
  39 '*
  40 ' #1 hChangeControlSettings
  41 '*
  42 '\******************************************************************
  43
  44 function hChangeControlSettings ( sType as String, lsProps( ) ) as Boolean
  45
  46    if bAsianLan = TRUE then
  47       printlog " ******************************************* "
  48       printlog " ***   running on asian office version   *** "
  49       printlog " ******************************************* "
  50    else
  51       printlog " ******************************************* "
  52       printlog " *** running on non-asian office version *** "
  53       printlog " ******************************************* "
  54    endif
  55
  56    Kontext "TabGeneralControl"
  57    if TabGeneralControl.Exists = FALSE then
  58       Kontext "TB_MacroControls"
  59       printlog "   activate properties for '" + sType + "'"
  60       Properties.Click
  61       Kontext "TabGeneralControl"
  62       Sleep (1)
  63    end if
  64
  65    printlog "- change global settings"
  66    NameText.SetText "tt_" + sType + "_tt"
  67    ListAppend ( lsProps(), NameText.GetText )
  68
  69    if Enabled.GetSelIndex = 1 then
  70       Enabled.Select 2
  71    else
  72       Enabled.Select 1
  73    end if
  74
  75    ListAppend ( lsProps(), Enabled.GetSelText )
  76
  77    if sType <> "dialog" then
  78       if Printable.GetSelIndex = 1 then
  79          Printable.Select 2
  80       else
  81          Printable.Select 1
  82       end if
  83       ListAppend ( lsProps(), Printable.GetSelText )
  84    else
  85       ListAppend ( lsProps(), "not testable" )             ' dummy entry
  86    end if
  87
  88 '      PageStep.More 2
  89 '        ListAppend ( lsProps(), PageStep.GetText )
  90          ListAppend ( lsProps(), "not testable" )             ' dummy entry
  91    Order.More 2
  92    Height.Less 3
  93      ListAppend ( lsProps(), Order.GetText )                  ' have to be checked after another control is changed ( it depends on the number of controls )
  94      ListAppend ( lsProps(), Height.GetText )
  95    Width.More 4
  96      ListAppend ( lsProps(), Width.GetText )
  97 '   PositionX.More 3
  98 '     ListAppend ( lsProps(), PositionX.GetText )
  99          ListAppend ( lsProps(), "not testable" )             ' dummy entry
 100 '   PositionY.Less 2
 101 '     ListAppend ( lsProps(), PositionY.GetText )
 102          ListAppend ( lsProps(), "not testable" )             ' dummy entry
 103    Information.SetText "tt info"
 104      ListAppend ( lsProps(), Information.GetText )
 105    Help.SetText "tt help"
 106      ListAppend ( lsProps(), Help.GetText )
 107    HelpURL.SetText "www.mopo.de"
 108      ListAppend ( lsProps(), HelpURL.GetText )
 109
 110    printlog "- change special settings for '" + sType + "'"
 111 '##### CommandButton #####
 112    if instr ( lcase ( sType ), "commandbutton" ) then
 113 '      SetControlType CTBrowseBox
 114 '      Label.TypeKeys "tt_label_tt"
 115 '      ListAppend ( lsProps(), Label.GetText )
 116       ListAppend ( lsProps(), "not testable" )             ' dummy entry
 117       TabStop.Select 3
 118       ListAppend ( lsProps(), TabStop.GetSelText )
 119       CharacterSetButton.Click
 120
 121       Kontext "TabFont"
 122       if bAsianLan = TRUE then
 123          FontEast.Select ( 5 )
 124       else
 125          Font.Select ( 5 )
 126       endif
 127       TabFont.OK
 128
 129       Kontext "TabGeneralControl"
 130       ListAppend ( lsProps(), CharacterSet.GetText )
 131       Background.Select 17
 132       ListAppend ( lsProps(), Background.GetSelText )
 133 '      ButtonType.Select 3
 134 '      ListAppend ( lsProps(), ButtonType.GetSelText )
 135       ListAppend ( lsProps(), "not testable" )             ' dummy entry
 136 '      if State.GetSelIndex = 1 then
 137 '         State.Select 2
 138 '      else
 139 '         State.Select 1
 140 '      end if
 141 '      ListAppend ( lsProps(), State.GetSelText )
 142
 143       ListAppend ( lsProps(), "not testable" )             ' dummy entry
 144       if DefaultButton.GetSelIndex = 1 then
 145          DefaultButton.Select 2
 146       else
 147          DefaultButton.Select 2
 148       end if
 149
 150       ListAppend ( lsProps(), DefaultButton.GetSelText )
 151       GraphicsButton.Click
 152
 153       Kontext "GrafikEinfuegenDlg"
 154       Dateiname.SetText ( ConvertPath ( gTesttoolPath + "global\input\graf_inp\baer.tif" ) )
 155       DateiTyp.Select 1                               ' set the filter to 'all formats'
 156       Oeffnen.Click
 157
 158       Kontext "TabGeneralControl"
 159       ListAppend ( lsProps(), Graphics.GetText )
 160       GraphicsAlignment.Select 4
 161       ListAppend ( lsProps(), GraphicsAlignment.GetSelText )
 162    end if
 163
 164 '##### ImageControl #####
 165    if instr ( lcase ( sType ), "imagecontrol" ) then
 166       Background.Select 14
 167       ListAppend ( lsProps(), Background.GetSelText )
 168       GraphicsButton.Click
 169
 170       Kontext "GrafikEinfuegenDlg"
 171       Dateiname.SetText ( ConvertPath ( gTesttoolPath + "global\input\graf_inp\baer.tif" ) )
 172       DateiTyp.Select 1                               ' set the filter to 'all formats'
 173       Oeffnen.Click
 174
 175       Kontext "TabGeneralControl"
 176       ListAppend ( lsProps(), Graphics.GetText )
 177 '      if Scale.GetSelIndex = 1 then
 178 '         Scale.Select 2
 179 '      else
 180 '         Scale.Select 1
 181 '      end if
 182 '        ListAppend ( lsProps(), Scale.GetSelText )
 183       ListAppend ( lsProps(), "not testable" )             ' dummy entry
 184    end if
 185
 186 '##### CheckBox #####
 187    if instr ( lcase ( sType ), "checkbox" ) then
 188 '      SetControlType CTBrowseBox
 189 '      Label.TypeKeys "tt_label_tt"
 190 '        ListAppend ( lsProps(), Label.GetText )
 191       ListAppend ( lsProps(), "not testable" )             ' dummy entry
 192       TabStop.Select 3
 193       ListAppend ( lsProps(), TabStop.GetSelText )
 194
 195 '      if State.GetSelIndex = 1 then
 196 '         State.Select 2
 197 '      else
 198 '         State.Select 1
 199 '      end if
 200 '        ListAppend ( lsProps(), State.GetSelText )
 201       ListAppend ( lsProps(), "not testable" )             ' dummy entry
 202
 203 '      if TriState.GetSelIndex = 1 then
 204 '         TriState.Select 2
 205 '      else
 206 '         TriState.Select 1
 207 '      end if
 208 '        ListAppend ( lsProps(), TriState.GetSelText )
 209       ListAppend ( lsProps(), "not testable" )             ' dummy entry
 210    end if
 211
 212 '##### OptionButton #####
 213    if instr ( lcase ( sType ), "optionbutton" ) then
 214 '      SetControlType CTBrowseBox
 215 '      Label.TypeKeys "tt_label_tt"
 216 '        ListAppend ( lsProps(), Label.GetText )
 217          ListAppend ( lsProps(), "not testable" )             ' dummy entry
 218       TabStop.Select 3
 219       ListAppend ( lsProps(), TabStop.GetSelText )
 220       CharacterSetButton.Click
 221
 222       Kontext "TabFont"
 223       if bAsianLan = TRUE then
 224          FontEast.Select ( 5 )
 225       else
 226          Font.Select ( 5 )
 227       endif
 228       TabFont.OK
 229
 230       Kontext "TabGeneralControl"
 231       ListAppend ( lsProps(), CharacterSet.GetText )
 232
 233 '      if State.GetSelIndex = 1 then
 234 '         State.Select 2
 235 '      else
 236 '         State.Select 1
 237 '      end if
 238 '        ListAppend ( lsProps(), State.GetSelText )
 239       ListAppend ( lsProps(), "not testable" )             ' dummy entry
 240    end if
 241
 242 '##### Label #####
 243    if instr ( lcase ( sType ), "label" ) then
 244 '      SetControlType CTBrowseBox
 245 '      Label.TypeKeys "tt_label_tt"
 246 '        ListAppend ( lsProps(), Label.GetText )
 247       ListAppend ( lsProps(), "not testable" )             ' dummy entry
 248       TabStop.Select 3
 249       ListAppend ( lsProps(), TabStop.GetSelText )
 250
 251       CharacterSetButton.Click
 252
 253       Kontext "TabFont"
 254       if bAsianLan = TRUE then
 255          FontEast.Select ( 5 )
 256       else
 257          Font.Select ( 5 )
 258       endif
 259       TabFont.OK
 260
 261       Kontext "TabGeneralControl"
 262       ListAppend ( lsProps(), CharacterSet.GetText )
 263
 264       Align.Select 4
 265       ListAppend ( lsProps(), Align.GetSelText )
 266       Background.Select 20
 267       ListAppend ( lsProps(), Background.GetSelText )
 268       Border.Select 3
 269       ListAppend ( lsProps(), Border.GetSelText )
 270
 271       if MultiLine.GetSelIndex = 1 then
 272          MultiLine.Select 2
 273       else
 274          MultiLine.Select 1
 275       end if
 276
 277       ListAppend ( lsProps(), MultiLine.GetSelText )
 278    end if
 279
 280 '##### TextField #####
 281    if instr ( lcase ( sType ), "textfield" ) then
 282 '      SetControlType CTBrowseBox
 283 '      TextText.TypeKeys "tt_text_tt"
 284 '        ListAppend ( lsProps(), TextText.GetText )
 285       ListAppend ( lsProps(), "not testable" )             ' dummy entry
 286       MaxTextLen.More 5
 287       ListAppend ( lsProps(), MaxTextLen.GetText )
 288
 289       if Readonly.GetSelIndex = 1 then
 290          Readonly.Select 2
 291       else
 292          Readonly.Select 1
 293       end if
 294
 295       ListAppend ( lsProps(), Readonly.GetSelText )
 296       TabStop.Select 3
 297       ListAppend ( lsProps(), TabStop.GetSelText )
 298       CharacterSetButton.Click
 299
 300       Kontext "TabFont"
 301       if bAsianLan = TRUE then
 302          FontEast.Select ( 5 )
 303       else
 304          Font.Select ( 5 )
 305       endif
 306       TabFont.OK
 307
 308       Kontext "TabGeneralControl"
 309       ListAppend ( lsProps(), CharacterSet.GetText )
 310       Align.Select 1
 311       ListAppend ( lsProps(), Align.GetSelText )
 312       Background.Select 20
 313       ListAppend ( lsProps(), Background.GetSelText )
 314       Border.Select 3
 315       ListAppend ( lsProps(), Border.GetSelText )
 316
 317       if MultiLine.GetSelIndex = 1 then
 318          MultiLine.Select 2
 319       else
 320          MultiLine.Select 1
 321       end if
 322
 323       ListAppend ( lsProps(), MultiLine.GetSelText )
 324
 325       if ManualLineBreak.GetSelIndex = 1 then
 326          ManualLineBreak.Select 2
 327       else
 328          ManualLineBreak.Select 1
 329       end if
 330
 331       ListAppend ( lsProps(), ManualLineBreak.GetSelText )
 332
 333       if HorizontalScroll.GetSelIndex = 1 then
 334          HorizontalScroll.Select 2
 335       else
 336          HorizontalScroll.Select 1
 337       end if
 338
 339       ListAppend ( lsProps(), HorizontalScroll.GetSelText )
 340
 341       if VerticalScroll.GetSelIndex = 1 then
 342          VerticalScroll.Select 2
 343       else
 344          VerticalScroll.Select 1
 345       end if
 346
 347       ListAppend ( lsProps(), VerticalScroll.GetSelText )
 348       Password.SetText "t"
 349       ListAppend ( lsProps(), Password.GetText )
 350
 351    end if
 352
 353 '##### Listbox #####
 354    if instr ( lcase ( sType ), "listbox" ) then
 355
 356       if Readonly.GetSelIndex = 1 then
 357          Readonly.Select 2
 358       else
 359          Readonly.Select 1
 360       end if
 361
 362       ListAppend ( lsProps(), Readonly.GetSelText )
 363       TabStop.Select 3
 364       ListAppend ( lsProps(), TabStop.GetSelText )
 365 '      SetControlType CTBrowseBox
 366 '      ListEntries.TypeKeys "tt_text_tt"
 367 '        ListAppend ( lsProps(), ListEntries.GetText )
 368       ListAppend ( lsProps(), "not testable" )             ' dummy entry
 369       CharacterSetButton.Click
 370
 371       Kontext "TabFont"
 372       if bAsianLan = TRUE then
 373          FontEast.Select ( 5 )
 374       else
 375          Font.Select ( 5 )
 376       endif
 377       TabFont.OK
 378
 379       Kontext "TabGeneralControl"
 380       ListAppend ( lsProps(), CharacterSet.GetText )
 381       Background.Select 1
 382       ListAppend ( lsProps(), Background.GetSelText )
 383       Border.Select 1
 384       ListAppend ( lsProps(), Border.GetSelText )
 385
 386       if DropDown.GetSelIndex = 1 then
 387          DropDown.Select 2
 388       else
 389          DropDown.Select 1
 390       end if
 391
 392       ListAppend ( lsProps(), DropDown.GetSelText )
 393       LineCount.Less 1
 394       ListAppend ( lsProps(), LineCount.GetText )
 395
 396       if MultiSelection.GetSelIndex = 1 then
 397          MultiSelection.Select 2
 398       else
 399          MultiSelection.Select 1
 400       end if
 401
 402       ListAppend ( lsProps(), MultiSelection.GetSelText )
 403    end if
 404
 405 '##### Combobox #####
 406    if instr ( lcase ( sType ), "combobox" ) then
 407
 408       TextText.SetText "tt_text_tt"
 409       ListAppend ( lsProps(), TextText.GetText )
 410       MaxTextLen.More 2
 411       ListAppend ( lsProps(), MaxTextLen.GetText )
 412
 413       if Readonly.GetSelIndex = 1 then
 414          Readonly.Select 2
 415       else
 416          Readonly.Select 1
 417       end if
 418
 419       ListAppend ( lsProps(), Readonly.GetSelText )
 420       TabStop.Select 3
 421       ListAppend ( lsProps(), TabStop.GetSelText )
 422 '      SetControlType CTBrowseBox
 423 '      ListEntries.TypeKeys "tt_text_tt"
 424 '        ListAppend ( lsProps(), ListEntries.GetText )
 425       ListAppend ( lsProps(), "not testable" )             ' dummy entry
 426       CharacterSetButton.Click
 427
 428       Kontext "TabFont"
 429       if bAsianLan = TRUE then
 430          FontEast.Select ( 5 )
 431       else
 432          Font.Select ( 5 )
 433       endif
 434       TabFont.OK
 435
 436       Kontext "TabGeneralControl"
 437       ListAppend ( lsProps(), CharacterSet.GetText )
 438       Background.Select 1
 439       ListAppend ( lsProps(), Background.GetSelText )
 440       Border.Select 1
 441       ListAppend ( lsProps(), Border.GetSelText )
 442
 443       if DropDown.GetSelIndex = 1 then
 444          DropDown.Select 2
 445       else
 446          DropDown.Select 1
 447       end if
 448
 449       ListAppend ( lsProps(), DropDown.GetSelText )
 450
 451       if AutoComplete.GetSelIndex = 1 then
 452          AutoComplete.Select 2
 453       else
 454          AutoComplete.Select 1
 455       end if
 456
 457       ListAppend ( lsProps(), AutoComplete.GetSelText )
 458       LineCount.More 5
 459       ListAppend ( lsProps(), LineCount.GetText )
 460       Border.Select 2                    ' sometimes the line count is not saved correctly, when it was changed as last property
 461       Border.Select 1                    ' as work-around : change another property and then set it to the last entry
 462
 463    end if
 464
 465 '##### Scrollbar #####
 466    if instr ( lcase ( sType ), "scrollbar" ) then
 467
 468 '      ScrollValue.More 5
 469 '        ListAppend ( lsProps(), ScrollValue.GetText )
 470       ListAppend ( lsProps(), "not testable" )             ' dummy entry
 471 '      ScrollValueMax.Less 5
 472 '        ListAppend ( lsProps(), ScrollValueMax.GetText )
 473       ListAppend ( lsProps(), "not testable" )             ' dummy entry
 474 '      LineIncrement.More 1
 475 '        ListAppend ( lsProps(), LineIncrement.GetText )
 476       ListAppend ( lsProps(), "not testable" )             ' dummy entry
 477 '      BlockIncrement.Less 1
 478 '        ListAppend ( lsProps(), BlockIncrement.GetText )
 479       ListAppend ( lsProps(), "not testable" )             ' dummy entry
 480 '      VisibleSize.Less 2
 481 '        ListAppend ( lsProps(), VisibleSize.GetText )
 482       ListAppend ( lsProps(), "not testable" )             ' dummy entry
 483 '      if Orientation.GetSelIndex = 1 then
 484 '         Orientation.Select 2
 485 '      else
 486 '         Orientation.Select 1
 487 '      end if
 488 '        ListAppend ( lsProps(), Orientation.GetSelText )
 489       ListAppend ( lsProps(), "not testable" )             ' dummy entry
 490       Border.Select 2
 491       ListAppend ( lsProps(), Border.GetSelText )
 492    end if
 493
 494 '##### FrameControl #####
 495    if instr ( lcase ( sType ), "framecontrol" ) then
 496 '      SetControlType CTBrowseBox
 497 '      Label.TypeKeys "tt_label_tt"
 498 '        ListAppend ( lsProps(), Label.GetText )
 499       ListAppend ( lsProps(), "not testable" )             ' dummy entry
 500       CharacterSetButton.Click
 501
 502       Kontext "TabFont"
 503       if bAsianLan = TRUE then
 504          FontEast.Select ( 3 )
 505       else
 506          Font.Select ( 3 )
 507       endif
 508       TabFont.OK
 509
 510       Kontext "TabGeneralControl"
 511       ListAppend ( lsProps(), CharacterSet.GetText )
 512
 513    end if
 514
 515 '##### progressBar #####
 516    if instr ( lcase ( sType ), "progressbar" ) then
 517
 518 '      ScrollValue.More 5
 519 '        ListAppend ( lsProps(), ScrollValue.GetText )
 520          ListAppend ( lsProps(), "not testable" )             ' dummy entry
 521 '      ScrollValueMax.Less 5
 522 '        ListAppend ( lsProps(), ScrollValueMax.GetText )
 523          ListAppend ( lsProps(), "not testable" )             ' dummy entry
 524 '      LineIncrement.More 1
 525 '        ListAppend ( lsProps(), LineIncrement.GetText )
 526          ListAppend ( lsProps(), "not testable" )             ' dummy entry
 527 '      BlockIncrement.Less 1
 528 '        ListAppend ( lsProps(), BlockIncrement.GetText )
 529          ListAppend ( lsProps(), "not testable" )             ' dummy entry
 530 '      VisibleSize.Less 2
 531 '        ListAppend ( lsProps(), VisibleSize.GetText )
 532          ListAppend ( lsProps(), "not testable" )             ' dummy entry
 533 '      if Orientation.GetSelIndex = 1 then
 534 '         Orientation.Select 2
 535 '      else
 536 '         Orientation.Select 1
 537 '      end if
 538 '        ListAppend ( lsProps(), Orientation.GetSelText )
 539          ListAppend ( lsProps(), "not testable" )             ' dummy entry
 540       Background.Select 4
 541         ListAppend ( lsProps(), Background.GetSelText )
 542    end if
 543
 544 '##### FixedLine #####
 545    if instr ( lcase ( sType ), "fixedline" ) then
 546 '      SetControlType CTBrowseBox
 547 '      Label.TypeKeys "tt_label_tt"
 548 '        ListAppend ( lsProps(), Label.GetText )
 549          ListAppend ( lsProps(), "not testable" )             ' dummy entry
 550 '      if Orientation.GetSelIndex = 1 then
 551 '         Orientation.Select 2
 552 '      else
 553 '         Orientation.Select 1
 554 '      end if
 555 '        ListAppend ( lsProps(), Orientation.GetSelText )
 556          ListAppend ( lsProps(), "not testable" )             ' dummy entry
 557       CharacterSetButton.Click
 558
 559       Kontext "TabFont"
 560       if bAsianLan = TRUE then
 561          FontEast.Select ( 3 )
 562       else
 563          Font.Select ( 3 )
 564       endif
 565       TabFont.OK
 566
 567       Kontext "TabGeneralControl"
 568         ListAppend ( lsProps(), CharacterSet.GetText )
 569    end if
 570
 571
 572 '##### DateField #####
 573    if instr ( lcase ( sType ), "datefield" ) then
 574       if StrictFormat.GetSelIndex = 1 then
 575          StrictFormat.Select 2
 576       else
 577          StrictFormat.Select 1
 578       end if
 579         ListAppend ( lsProps(), StrictFormat.GetSelText )
 580       if Readonly.GetSelIndex = 1 then
 581          Readonly.Select 2
 582       else
 583          Readonly.Select 1
 584       end if
 585          ListAppend ( lsProps(), Readonly.GetSelText )
 586       TabStop.Select 2
 587         ListAppend ( lsProps(), TabStop.GetSelText )
 588       DateField.More 3
 589         ListAppend ( lsProps(), DateField.GetText )
 590       DateMin.More 3
 591         ListAppend ( lsProps(), DateMin.GetText )
 592       DateMax.Less 3
 593         ListAppend ( lsProps(), DateMax.GetText )
 594       DateFormat.Select 7
 595         ListAppend ( lsProps(), DateFormat.GetSelText )
 596       CharacterSetButton.Click
 597
 598       Kontext "TabFont"
 599       if bAsianLan = TRUE then
 600          FontEast.Select ( 3 )
 601       else
 602          Font.Select ( 3 )
 603       endif
 604       TabFont.OK
 605
 606       Kontext "TabGeneralControl"
 607         ListAppend ( lsProps(), CharacterSet.GetText )
 608       Background.Select 1
 609         ListAppend ( lsProps(), Background.GetSelText )
 610       Border.Select 1
 611         ListAppend ( lsProps(), Border.GetSelText )
 612       if DropDown.GetSelIndex = 1 then
 613          DropDown.Select 2
 614       else
 615          DropDown.Select 1
 616       end if
 617         ListAppend ( lsProps(), DropDown.GetSelText )
 618       if Spin.GetSelIndex = 1 then
 619          Spin.Select 2
 620       else
 621          Spin.Select 1
 622       end if
 623         ListAppend ( lsProps(), Spin.GetSelText )
 624    end if
 625
 626 '##### TimeField #####
 627    if instr ( lcase ( sType ), "timefield" ) then
 628
 629       if StrictFormat.GetSelIndex = 1 then
 630          StrictFormat.Select 2
 631       else
 632          StrictFormat.Select 1
 633       end if
 634
 635       ListAppend ( lsProps(), StrictFormat.GetSelText )
 636
 637       if Readonly.GetSelIndex = 1 then
 638          Readonly.Select 2
 639       else
 640          Readonly.Select 1
 641       end if
 642
 643       ListAppend ( lsProps(), Readonly.GetSelText )
 644       TabStop.Select 1
 645       ListAppend ( lsProps(), TabStop.GetSelText )
 646       TimeField.Less 3
 647       ListAppend ( lsProps(), TimeField.GetText )
 648       TimeMin.More 2
 649       ListAppend ( lsProps(), TimeMin.GetText )
 650       TimeMax.Less 3
 651       ListAppend ( lsProps(), TimeMax.GetText )
 652       TimeFormat.Select 3
 653       ListAppend ( lsProps(), TimeFormat.GetSelText )
 654       CharacterSetButton.Click
 655
 656       Kontext "TabFont"
 657       if bAsianLan = TRUE then
 658          FontEast.Select ( 3 )
 659       else
 660          Font.Select ( 3 )
 661       endif
 662       TabFont.OK
 663
 664       Kontext "TabGeneralControl"
 665       ListAppend ( lsProps(), CharacterSet.GetText )
 666       Background.Select 1
 667       ListAppend ( lsProps(), Background.GetSelText )
 668       Border.Select 1
 669       ListAppend ( lsProps(), Border.GetSelText )
 670
 671       if Spin.GetSelIndex = 1 then
 672          Spin.Select 2
 673       else
 674          Spin.Select 1
 675       end if
 676
 677       ListAppend ( lsProps(), Spin.GetSelText )
 678    end if
 679
 680 '##### NumericField #####
 681    if instr ( lcase ( sType ), "numericfield" ) then
 682
 683       if StrictFormat.GetSelIndex = 1 then
 684          StrictFormat.Select 2
 685       else
 686          StrictFormat.Select 1
 687       end if
 688
 689       ListAppend ( lsProps(), StrictFormat.GetSelText )
 690
 691       if Readonly.GetSelIndex = 1 then
 692          Readonly.Select 2
 693       else
 694          Readonly.Select 1
 695       end if
 696
 697       ListAppend ( lsProps(), Readonly.GetSelText )
 698       TabStop.Select 1
 699       ListAppend ( lsProps(), TabStop.GetSelText )
 700       Value.Less 3
 701       ListAppend ( lsProps(), Value.GetText )
 702       ValueMin.Less 2
 703       ListAppend ( lsProps(), ValueMin.GetText )
 704       ValueMax.Less 3
 705       ListAppend ( lsProps(), ValueMax.GetText )
 706       ValueStep.More 5
 707       ListAppend ( lsProps(), ValueStep.GetText )
 708       Accuray.More 3
 709       ListAppend ( lsProps(), Accuray.GetText )
 710
 711       if ThousandSeperator.GetSelIndex = 1 then
 712          ThousandSeperator.Select 2
 713       else
 714          ThousandSeperator.Select 1
 715       end if
 716
 717       ListAppend ( lsProps(), ThousandSeperator.GetSelText )
 718       CharacterSetButton.Click
 719
 720       Kontext "TabFont"
 721       if bAsianLan = TRUE then
 722          FontEast.Select ( 3 )
 723       else
 724          Font.Select ( 3 )
 725       endif
 726       TabFont.OK
 727
 728       Kontext "TabGeneralControl"
 729         ListAppend ( lsProps(), CharacterSet.GetText )
 730       Background.Select 1
 731         ListAppend ( lsProps(), Background.GetSelText )
 732       Border.Select 1
 733         ListAppend ( lsProps(), Border.GetSelText )
 734       if Spin.GetSelIndex = 1 then
 735          Spin.Select 2
 736       else
 737          Spin.Select 1
 738       end if
 739         ListAppend ( lsProps(), Spin.GetSelText )
 740    end if
 741
 742
 743 '##### CurrencyField #####
 744    if instr ( lcase ( sType ), "currencyfield" ) then
 745
 746       if StrictFormat.GetSelIndex = 1 then
 747          StrictFormat.Select 2
 748       else
 749          StrictFormat.Select 1
 750       end if
 751
 752       ListAppend ( lsProps(), StrictFormat.GetSelText )
 753
 754       if Readonly.GetSelIndex = 1 then
 755          Readonly.Select 2
 756       else
 757          Readonly.Select 1
 758       end if
 759
 760       ListAppend ( lsProps(), Readonly.GetSelText )
 761       TabStop.Select 1
 762       ListAppend ( lsProps(), TabStop.GetSelText )
 763       Value.Less 3
 764       ListAppend ( lsProps(), Value.GetText )
 765       ValueMin.Less 2
 766       ListAppend ( lsProps(), ValueMin.GetText )
 767       ValueMax.Less 3
 768       ListAppend ( lsProps(), ValueMax.GetText )
 769       ValueStep.More 5
 770       ListAppend ( lsProps(), ValueStep.GetText )
 771       Accuray.More 2
 772       ListAppend ( lsProps(), Accuray.GetText )
 773
 774       if ThousandSeperator.GetSelIndex = 1 then
 775          ThousandSeperator.Select 2
 776       else
 777          ThousandSeperator.Select 1
 778       end if
 779
 780       ListAppend ( lsProps(), ThousandSeperator.GetSelText )
 781       CurrencySymbol.SetText "#"
 782       ListAppend ( lsProps(), CurrencySymbol.GetText )
 783
 784       if CurrSymPosition.GetSelIndex = 1 then
 785          CurrSymPosition.Select 2
 786       else
 787          CurrSymPosition.Select 1
 788       end if
 789
 790       ListAppend ( lsProps(), CurrSymPosition.GetSelText )
 791       CharacterSetButton.Click
 792
 793       Kontext "TabFont"
 794       if bAsianLan = TRUE then
 795          FontEast.Select ( 3 )
 796       else
 797          Font.Select ( 3 )
 798       endif
 799       TabFont.OK
 800
 801       Kontext "TabGeneralControl"
 802       ListAppend ( lsProps(), CharacterSet.GetText )
 803       Background.Select 1
 804       ListAppend ( lsProps(), Background.GetSelText )
 805       Border.Select 1
 806       ListAppend ( lsProps(), Border.GetSelText )
 807
 808       if Spin.GetSelIndex = 1 then
 809          Spin.Select 2
 810       else
 811          Spin.Select 1
 812       end if
 813
 814       ListAppend ( lsProps(), Spin.GetSelText )
 815    end if
 816
 817 '##### FormattedField #####
 818    if instr ( lcase ( sType ), "formattedfield" ) then
 819       MaxTextLen.More 4
 820       ListAppend ( lsProps(), MaxTextLen.GetText )
 821
 822       if StrictFormat.GetSelIndex = 1 then
 823          StrictFormat.Select 2
 824       else
 825          StrictFormat.Select 1
 826       end if
 827
 828       ListAppend ( lsProps(), StrictFormat.GetSelText )
 829
 830       if Readonly.GetSelIndex = 1 then
 831          Readonly.Select 2
 832       else
 833          Readonly.Select 1
 834       end if
 835
 836       ListAppend ( lsProps(), Readonly.GetSelText )
 837       TabStop.Select 1
 838       ListAppend ( lsProps(), TabStop.GetSelText )
 839 '      Effective.SetText "2"
 840 '        ListAppend ( lsProps(), Effective.GetText )
 841       ListAppend ( lsProps(), "not testable" )             ' dummy entry
 842       EffectiveMin.SetText "1"
 843       ListAppend ( lsProps(), EffectiveMin.GetText )
 844       EffectiveMax.SetText "1"
 845       ListAppend ( lsProps(), EffectiveMax.GetText )
 846       FormatkeyButton.Click
 847
 848       Kontext "ZahlenFormat"
 849       Kategorie.Select 3
 850       Kategorieformat.Select ( Kategorieformat.GetItemCount )
 851       ZahlenFormat.OK
 852
 853       Kontext "TabGeneralControl"
 854       ListAppend ( lsProps(), FormatKey.GetText )
 855       CharacterSetButton.Click
 856
 857       Kontext "TabFont"
 858       if bAsianLan = TRUE then
 859          FontEast.Select ( 3 )
 860       else
 861          Font.Select ( 3 )
 862       endif
 863       TabFont.OK
 864
 865       Kontext "TabGeneralControl"
 866       ListAppend ( lsProps(), CharacterSet.GetText )
 867       Align.Select 1
 868       ListAppend ( lsProps(), Align.GetSelText )
 869       Background.Select 1
 870       ListAppend ( lsProps(), Background.GetSelText )
 871       Border.Select 1
 872       ListAppend ( lsProps(), Border.GetSelText )
 873
 874       if Spin.GetSelIndex = 1 then
 875          Spin.Select 2
 876       else
 877          Spin.Select 1
 878       end if
 879
 880       ListAppend ( lsProps(), Spin.GetSelText )
 881    end if
 882
 883 '##### PatternField #####
 884    if instr ( lcase ( sType ), "patternfield" ) then
 885       TextText.SetText "tt_text_tt"
 886       ListAppend ( lsProps(), TextText.GetText )
 887       MaxTextLen.More 4
 888       ListAppend ( lsProps(), MaxTextLen.GetText )
 889       EditMask.SetText "aeiopu"
 890       ListAppend ( lsProps(), EditMask.GetText )
 891       LiteralMask.SetText "upqpsd"
 892       ListAppend ( lsProps(), LiteralMask.GetText )
 893
 894       if StrictFormat.GetSelIndex = 1 then
 895          StrictFormat.Select 2
 896       else
 897          StrictFormat.Select 1
 898       end if
 899
 900       ListAppend ( lsProps(), StrictFormat.GetSelText )
 901
 902       if Readonly.GetSelIndex = 1 then
 903          Readonly.Select 2
 904       else
 905          Readonly.Select 1
 906       end if
 907
 908       ListAppend ( lsProps(), Readonly.GetSelText )
 909       TabStop.Select 1
 910       ListAppend ( lsProps(), TabStop.GetSelText )
 911       CharacterSetButton.Click
 912
 913       Kontext "TabFont"
 914       if bAsianLan = TRUE then
 915          FontEast.Select ( 3 )
 916       else
 917          Font.Select ( 3 )
 918       endif
 919       TabFont.OK
 920
 921       Kontext "TabGeneralControl"
 922       ListAppend ( lsProps(), CharacterSet.GetText )
 923       Background.Select 1
 924       ListAppend ( lsProps(), Background.GetSelText )
 925       Border.Select 1
 926       ListAppend ( lsProps(), Border.GetSelText )
 927    end if
 928
 929 '##### FileControl #####
 930    if instr ( lcase ( sType ), "filecontrol" ) then
 931       TextText.SetText "tt_text_tt"
 932       ListAppend ( lsProps(), TextText.GetText )
 933
 934       if Readonly.GetSelIndex = 1 then
 935          Readonly.Select 2
 936       else
 937          Readonly.Select 1
 938       end if
 939
 940       ListAppend ( lsProps(), Readonly.GetSelText )
 941       TabStop.Select 1
 942       ListAppend ( lsProps(), TabStop.GetSelText )
 943       CharacterSetButton.Click
 944
 945       Kontext "TabFont"
 946       if bAsianLan = TRUE then
 947          FontEast.Select ( 3 )
 948       else
 949          Font.Select ( 3 )
 950       endif
 951       TabFont.OK
 952
 953       Kontext "TabGeneralControl"
 954       ListAppend ( lsProps(), CharacterSet.GetText )
 955       Background.Select 1
 956       ListAppend ( lsProps(), Background.GetSelText )
 957       Border.Select 1
 958       ListAppend ( lsProps(), Border.GetSelText )
 959    end if
 960
 961 end function