testautomation/global/tools/includes/optional/t_ctrl_2.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_2.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 hCheckControlSettings
  41 '*
  42 '\******************************************************************
  43
  44 function hCheckControlSettings ( sType as String, lsProps( ) ) as Boolean
  45
  46   Kontext "TabGeneralControl"
  47   if TabGeneralControl.Exists = FALSE then
  48      Kontext "TB_MacroControls"
  49   printlog "   activate properties for '" + sType + "'"
  50      Properties.Click
  51      Kontext "TabGeneralControl"
  52      Sleep (1)
  53   end if
  54
  55   printlog "- check global settings"
  56    if NameText.GetText   <> lsProps(1) then Warnlog "Name => changes not saved!  should : '" + lsProps(1) + "'   is : '" + NameText.GetText + "'"
  57    if Enabled.GetSelText <> lsProps(2) then Warnlog "Enabled => changes not saved!  should : '" + lsProps(2) + "'   is : '" + Enabled.GetSelText + "'"
  58    if sType <> "dialog" then
  59       if Printable.GetSelText <> lsProps(3) then Warnlog "Printable => changes not saved!  should : '" + lsProps(3) + "'   is : '" + Printable.GetSelText + "'"
  60    end if
  61 '   if PageStep.GetText <> lsProps(4) then Warnlog "Page Step => changes not saved!  should : '" + lsProps(4) + "'   is : '" + PageStep.GetText + "'"
  62    if Order.GetText <> lsProps(5) then Warnlog "Order => changes not saved!  should : '" + lsProps(5) + "'   is : '" + Order.GetText + "'"
  63    if Height.GetText <> lsProps(6) then Warnlog "Height => changes not saved!  should : '" + lsProps(6) + "'   is : '" + Height.GetText + "'"
  64    if Width.GetText <> lsProps(7) then Warnlog "Width => changes not saved!  should : '" + lsProps(7) + "'   is : '" + Width.GetText + "'"
  65 '   if PositionX.GetText <> lsProps(8) then Warnlog "Position x => changes not saved!  should : '" + lsProps(8) + "'   is : '" + PositionX.GetText + "'"
  66 '   if PositionY.GetText <> lsProps(9) then Warnlog "Position y => changes not saved!  should : '" + lsProps(9) + "'   is : '" + PositionY.GetText + "'"
  67    if Information.GetText <> lsProps(10) then Warnlog "Information => changes not saved!  should : '" + lsProps(10) + "'   is : '" + Information.GetText + "'"
  68    if Help.GetText <> lsProps(11) then Warnlog "Help => changes not saved!  should : '" + lsProps(11) + "'   is : '" + Help.GetText + "'"
  69    if HelpURL.GetText <> lsProps(12) then Warnlog "Help URL => changes not saved!  should : '" + lsProps(12) + "'   is : '" + HelpURL.GetText + "'"
  70
  71    printlog "- check special settings for " + sType
  72
  73 '##### CommandButton #####
  74    if instr ( lcase ( sType ), "commandbutton" ) then
  75 '      if Label.GetText <> lsProps(13) then Warnlog "Label => changes not saved!  should : '" + lsProps(13) + "'   is : '" + Label.GetText + "'"
  76       if TabStop.GetSelText <> lsProps(14) then Warnlog "Tab stop => changes not saved!  should : '" + lsProps(14) + "'   is : '" + TabStop.GetSelText + "'"
  77       if CharacterSet.GetText <> lsProps(15) then Warnlog "Character set => changes not saved!  should : '" + lsProps(15) + "'   is : '" + CharacterSet.GetText + "'"
  78       if Background.GetSelText <> lsProps(16) then Warnlog "Background => changes not saved!  should : '" + lsProps(16) + "'   is : '" + Background.GetSelText + "'"
  79 '      if ButtonType.GetSelText <> lsProps(17) then Warnlog "Button type => changes not saved!  should : '" + lsProps(17) + "'   is : '" + ButtonType.GetSelText + "'"
  80 '      if State.GetSelText <> lsProps(18) then Warnlog "State => changes not saved!  should : '" + lsProps(18) + "'   is : '" + State.GetSelText + "'"
  81       if DefaultButton.GetSelText <> lsProps(19) then Warnlog "Default button => changes not saved!  should : '" + lsProps(19) + "'   is : '" + DefaultButton.GetSelText + "'"
  82       if Graphics.GetText <> lsProps(20) then Warnlog "Graphics => changes not saved!  should : '" + lsProps(20) + "'   is : '" + Graphics.GetText + "'"
  83       if GraphicsAlignment.GetSelText <> lsProps(21) then Warnlog "Graphics alignment => changes not saved!  should : '" + lsProps(21) + "'   is : '" + GraphicsAlignment.GetSelText + "'"
  84    end if
  85
  86 '##### ImageControl #####
  87    if instr ( lcase ( sType ), "imagecontrol" ) then
  88       if Background.GetSelText <> lsProps(13) then Warnlog "Background => changes not saved!  should : '" + lsProps(13) + "'   is : '" + Background.GetSelText + "'"
  89       if Graphics.GetText <> lsProps(14) then Warnlog "Graphics => changes not saved!  should : '" + lsProps(14) + "'   is : '" + Graphics.GetText + "'"
  90 '      if Scale.GetSelText <> lsProps(15) then Warnlog "Scale => changes not saved!  should : '" + lsProps(15) + "'   is : '" + Scale.GetSelText + "'"
  91    end if
  92
  93 '##### CheckBox #####
  94    if instr ( lcase ( sType ), "checkbox" ) then
  95 '      if Label.GetText <> lsProps(13) then Warnlog "Label => changes not saved!  should : '" + lsProps(13) + "'   is : '" + Label.GetText + "'"
  96       if TabStop.GetSelText <> lsProps(14) then Warnlog "Tab stop => changes not saved!  should : '" + lsProps(14) + "'   is : '" + TabStop.GetSelText + "'"
  97 '      if State.GetSelText <> lsProps(15) then Warnlog "State => changes not saved!  should : '" + lsProps(15) + "'   is : '" + State.GetSelText + "'"
  98 '      if TriState.GetSelText <> lsProps(16) then Warnlog "TriState => changes not saved!  should : '" + lsProps(16) + "'   is : '" + TriState.GetSelText + "'"
  99    end if
 100
 101 '##### OptionButton #####
 102    if instr ( lcase ( sType ), "optionbutton" ) then
 103 '      if Label.GetText <> lsProps(13) then Warnlog "Label => changes not saved!  should : '" + lsProps(13) + "'   is : '" + Label.GetText + "'"
 104       if TabStop.GetSelText <> lsProps(14) then Warnlog "Tab stop => changes not saved!  should : '" + lsProps(14) + "'   is : '" + TabStop.GetSelText + "'"
 105       if CharacterSet.GetText <> lsProps(15) then Warnlog "Character set => changes not saved!  should : '" + lsProps(15) + "'   is : '" + CharacterSet.GetText + "'"
 106 '      if State.GetSelText <> lsProps(16) then Warnlog "State => changes not saved!  should : '" + lsProps(16) + "'   is : '" + State.GetSelText + "'"
 107    end if
 108
 109 '##### Label #####
 110    if instr ( lcase ( sType ), "label" ) then
 111 '      if Label.GetText <> lsProps(13) then Warnlog "Label => changes not saved!  should : '" + lsProps(13) + "'   is : '" + Label.GetText + "'"
 112       if TabStop.GetSelText <> lsProps(14) then Warnlog "Tab stop => changes not saved!  should : '" + lsProps(14) + "'   is : '" + TabStop.GetSelText + "'"
 113       if CharacterSet.GetText <> lsProps(15) then Warnlog "Character set => changes not saved!  should : '" + lsProps(15) + "'   is : '" + CharacterSet.GetText + "'"
 114       if Align.GetSelText <> lsProps(16) then Warnlog "Alignment => changes not saved!  should : '" + lsProps(16) + "'   is : '" + Align.GetSelText + "'"
 115       if Background.GetSelText <> lsProps(17) then Warnlog "Background => changes not saved!  should : '" + lsProps(17) + "'   is : '" + Background.GetSelText + "'"
 116       if Border.GetSelText <> lsProps(18) then Warnlog "Border => changes not saved!  should : '" + lsProps(18) + "'   is : '" + Border.GetSelText + "'"
 117       if MultiLine.GetSelText <> lsProps(19) then Warnlog "MultiLine => changes not saved!  should : '" + lsProps(19) + "'   is : '" + MultiLine.GetSelText + "'"
 118    end if
 119
 120 '##### TextField #####
 121    if instr ( lcase ( sType ), "textfield" ) then
 122 '      if TextText.GetText <> lsProps(13) then Warnlog "Text => changes not saved!  should : '" + lsProps(13) + "'   is : '" + TextText.GetText + "'"
 123       if MaxTextLen.GetText <> lsProps(14) then Warnlog "Max text lengh => changes not saved!  should : '" + lsProps(14) + "'   is : '" + MaxTextLen.GetText + "'"
 124       if Readonly.GetSelText <> lsProps(15) then Warnlog "Readonly => changes not saved!  should : '" + lsProps(15) + "'   is : '" + Readonly.GetSelText + "'"
 125       if TabStop.GetSelText <> lsProps(16) then Warnlog "Tab stop => changes not saved!  should : '" + lsProps(16) + "'   is : '" + TabStop.GetSelText + "'"
 126       if CharacterSet.GetText <> lsProps(17) then Warnlog "Character set => changes not saved!  should : '" + lsProps(17) + "'   is : '" + CharacterSet.GetText + "'"
 127       if Align.GetSelText <> lsProps(18) then Warnlog "Alignment => changes not saved!  should : '" + lsProps(18) + "'   is : '" + Align.GetSelText + "'"
 128       if Background.GetSelText <> lsProps(19) then Warnlog "Background => changes not saved!  should : '" + lsProps(19) + "'   is : '" + Background.GetSelText + "'"
 129       if Border.GetSelText <> lsProps(20) then Warnlog "Border => changes not saved!  should : '" + lsProps(20) + "'   is : '" + Border.GetSelText + "'"
 130       if MultiLine.GetSelText <> lsProps(21) then Warnlog "MultiLine => changes not saved!  should : '" + lsProps(21) + "'   is : '" + MultiLine.GetSelText + "'"
 131       if ManualLineBreak.GetSelText <> lsProps(22) then Warnlog "Manual line break => changes not saved!  should : '" + lsProps(22) + "'   is : '" + ManualLineBreak.GetSelText + "'"
 132       if HorizontalScroll.GetSelText <> lsProps(23) then Warnlog "Horizontal scrollbar => changes not saved!  should : '" + lsProps(23) + "'   is : '" + HorizontalScroll.GetSelText + "'"
 133       if VerticalScroll.GetSelText <> lsProps(24) then Warnlog "Vertical scrollbar => changes not saved!  should : '" + lsProps(24) + "'   is : '" + VerticalScroll.GetSelText + "'"
 134       if Password.GetText <> lsProps(25) then Warnlog "Password => changes not saved!  should : '" + lsProps(25) + "'   is : '" + Password.GetText + "'"
 135    end if
 136
 137 '##### Listbox #####
 138    if instr ( lcase ( sType ), "listbox" ) then
 139       if Readonly.GetSelText <> lsProps(13) then Warnlog "Readonly => changes not saved!  should : '" + lsProps(13) + "'   is : '" + Readonly.GetSelText + "'"
 140       if TabStop.GetSelText <> lsProps(14) then Warnlog "Tab stop => changes not saved!  should : '" + lsProps(14) + "'   is : '" + TabStop.GetSelText + "'"
 141 '      if ListEntries.GetText <> lsProps(15) then Warnlog "List entries => changes not saved!  should : '" + lsProps(15) + "'   is : '" + ListEntries.GetText + "'"
 142       if CharacterSet.GetText <> lsProps(16) then Warnlog "Character set => changes not saved!  should : '" + lsProps(16) + "'   is : '" + CharacterSet.GetText + "'"
 143       if Background.GetSelText <> lsProps(17) then Warnlog "Background => changes not saved!  should : '" + lsProps(17) + "'   is : '" + Background.GetSelText + "'"
 144       if Border.GetSelText <> lsProps(18) then Warnlog "Border => changes not saved!  should : '" + lsProps(18) + "'   is : '" + Border.GetSelText + "'"
 145       if DropDown.GetSelText <> lsProps(19) then Warnlog "Drop Down => changes not saved!  should : '" + lsProps(19) + "'   is : '" + DropDown.GetSelText + "'"
 146       if LineCount.GetText <> lsProps(20) then Warnlog "Line counte => changes not saved!  should : '" + lsProps(20) + "'   is : '" + LineCount.GetText + "'"
 147       if MultiSelection.GetSelText <> lsProps(21) then Warnlog "Multi selection. => changes not saved!  should : '" + lsProps(21) + "'   is : '" + MultiSelection.GetSelText + "'"
 148    end if
 149
 150 '##### Combobox #####
 151    if instr ( lcase ( sType ), "combobox" ) then
 152       if TextText.GetText <> lsProps(13) then Warnlog "Text => changes not saved!  should : '" + lsProps(13) + "'   is : '" + TextText.GetText + "'"
 153       if MaxTextLen.GetText <> lsProps(14) then Warnlog "Max text lenght => changes not saved!  should : '" + lsProps(14) + "'   is : '" + MaxTextLen.GetText + "'"
 154       if Readonly.GetSelText <> lsProps(15) then Warnlog "Readonly => changes not saved!  should : '" + lsProps(15) + "'   is : '" + Readonly.GetSelText + "'"
 155       if TabStop.GetSelText <> lsProps(16) then Warnlog "Tab stop => changes not saved!  should : '" + lsProps(16) + "'   is : '" + TabStop.GetSelText + "'"
 156 '      if ListEntries.GetText <> lsProps(17) then Warnlog "List entries => changes not saved!  should : '" + lsProps(17) + "'   is : '" + ListEntries.GetText + "'"
 157       if CharacterSet.GetText <> lsProps(18) then Warnlog "Character set => changes not saved!  should : '" + lsProps(18) + "'   is : '" + CharacterSet.GetText + "'"
 158       if Background.GetSelText <> lsProps(19) then Warnlog "Background => changes not saved!  should : '" + lsProps(19) + "'   is : '" + Background.GetSelText + "'"
 159       if Border.GetSelText <> lsProps(20) then Warnlog "Border => changes not saved!  should : '" + lsProps(20) + "'   is : '" + Border.GetSelText + "'"
 160       if DropDown.GetSelText <> lsProps(21) then Warnlog "Drop Down => changes not saved!  should : '" + lsProps(21) + "'   is : '" + DropDown.GetSelText + "'"
 161       if AutoComplete.GetSelText <> lsProps(22) then Warnlog "Auto complete => changes not saved!  should : '" + lsProps(22) + "'   is : '" + AutoComplete.GetSelText + "'"
 162       if LineCount.GetText <> lsProps(23) then Warnlog "Line count => changes not saved!  should : '" + lsProps(23) + "'   is : '" + LineCount.GetText + "'"
 163    end if
 164
 165 '##### Scrollbar #####
 166    if instr ( lcase ( sType ), "scrollbar" ) then
 167 '      if ScrollValue.GetText <> lsProps(13) then Warnlog "Scroll value => changes not saved!  should : '" + lsProps(13) + "'   is : '" + ScrollValue.GetText + "'"
 168 '      if ScrollValueMax.GetText <> lsProps(14) then Warnlog "Scroll value max => changes not saved!  should : '" + lsProps(14) + "'   is : '" + ScrollValueMax.GetText + "'"
 169 '      if LineIncrement.GetText <> lsProps(15) then Warnlog "Line increment => changes not saved!  should : '" + lsProps(15) + "'   is : '" + LineIncrement.GetText + "'"
 170 '      if BlockIncrement.GetText <> lsProps(16) then Warnlog "Block increment => changes not saved!  should : '" + lsProps(16) + "'   is : '" + BlockIncrement.GetText + "'"
 171 '      if VisibleSize.GetText <> lsProps(17) then Warnlog "Visible size => changes not saved!  should : '" + lsProps(17) + "'   is : '" + VisibleSize.GetText + "'"
 172 '      if Orientation.GetSelText <> lsProps(18) then Warnlog "Orientation => changes not saved!  should : '" + lsProps(18) + "'   is : '" + Orientation.GetSelText + "'"
 173       if Border.GetSelText <> lsProps(19) then Warnlog "Border => changes not saved!  should : '" + lsProps(19) + "'   is : '" + Border.GetSelText + "'"
 174    end if
 175
 176 '##### FrameControl #####
 177    if instr ( lcase ( sType ), "framecontrol" ) then
 178 '      if Label.GetText <> lsProps(13) then Warnlog "Label => changes not saved!  should : '" + lsProps(13) + "'   is : '" + Label.GetText + "'"
 179       if CharacterSet.GetText <> lsProps(14) then Warnlog "Character set => changes not saved!  should : '" + lsProps(14) + "'   is : '" + CharacterSet.GetText + "'"
 180    end if
 181
 182
 183 '##### progressBar #####
 184    if instr ( lcase ( sType ), "progressbar" ) then
 185 '      if ScrollValue.GetText <> lsProps(13) then Warnlog "Scroll value => changes not saved!  should : '" + lsProps(13) + "'   is : '" + ScrollValue.GetText + "'"
 186 '      if ScrollValueMax.GetText <> lsProps(14) then Warnlog "Scroll value max. => changes not saved!  should : '" + lsProps(14) + "'   is : '" + ScrollValueMax.GetText + "'"'
 187 '      if LineIncrement.GetText <> lsProps(15) then Warnlog "Line increment => changes not saved!  should : '" + lsProps(15) + "'   is : '" + LineIncrement.GetText + "'"'
 188 '      if BlockIncrement.GetText <> lsProps(16) then Warnlog "Block increment => changes not saved!  should : '" + lsProps(16) + "'   is : '" + BlockIncrement.GetText + "'"'
 189 '      if VisibleSize.GetText <> lsProps(17) then Warnlog "Visible size => changes not saved!  should : '" + lsProps(17) + "'   is : '" + VisibleSize.GetText + "'"'
 190 '      if Orientation.GetSelText <> lsProps(18) then Warnlog "Orientation => changes not saved!  should : '" + lsProps(18) + "'   is : '" + Orientation.GetSelTextGetText + "'"'
 191       if Background.GetSelText <> lsProps(19) then Warnlog "Background => changes not saved!  should : '" + lsProps(19) + "'   is : '" + Background.GetSelText + "'"
 192    end if
 193
 194 '##### FixedLine #####
 195    if instr ( lcase ( sType ), "fixedline" ) then
 196 '      if Label.GetText <> lsProps(13) then Warnlog "Label => changes not saved!  should : '" + lsProps(13) + "'   is : '" + Label.GetText + "'"
 197 '      if Orientation.GetSelText <> lsProps(14) then Warnlog "Orientation => changes not saved!  should : '" + lsProps(14) + "'   is : '" + Orientation.GetSelTextGetText + "'"'
 198       if CharacterSet.GetText <> lsProps(15) then Warnlog "Character set => changes not saved!  should : '" + lsProps(15) + "'   is : '" + CharacterSet.GetText + "'"
 199    end if
 200
 201 '##### DateField #####
 202    if instr ( lcase ( sType ), "datefield" ) then
 203       if StrictFormat.GetSelText <> lsProps(13) then Warnlog "Strict format => changes not saved!  should : '" + lsProps(13) + "'   is : '" + StrictFormat.GetSelText + "'"'
 204       if Readonly.GetSelText <> lsProps(14) then Warnlog "Read only => changes not saved!  should : '" + lsProps(14) + "'   is : '" + Readonly.GetSelText + "'"
 205       if TabStop.GetSelText <> lsProps(15) then Warnlog "Tab stop => changes not saved!  should : '" + lsProps(15) + "'   is : '" + TabStop.GetSelText + "'"
 206       if DateField.GetText <> lsProps(16) then Warnlog "Date => changes not saved!  should : '" + lsProps(16) + "'   is : '" + DateField.GetSelText + "'"
 207       if DateMin.GetText <> lsProps(17) then Warnlog "Date min. => changes not saved!  should : '" + lsProps(17) + "'   is : '" + DateMin.GetSelText + "'"
 208       if DateMax.GetText <> lsProps(18) then Warnlog "Date max => changes not saved!  should : '" + lsProps(18) + "'   is : '" + DateMax.GetSelText + "'"
 209       if DateFormat.GetSelText <> lsProps(19) then Warnlog "Date format => changes not saved!  should : '" + lsProps(19) + "'   is : '" + DateFormat.GetSelText + "'"
 210       if CharacterSet.GetText <> lsProps(20) then Warnlog "Character set => changes not saved!  should : '" + lsProps(20) + "'   is : '" + CharacterSet.GetText + "'"
 211       if Background.GetSelText <> lsProps(21) then Warnlog "Background => changes not saved!  should : '" + lsProps(21) + "'   is : '" + Background.GetSelText + "'"
 212       if Border.GetSelText <> lsProps(22) then Warnlog "Border => changes not saved!  should : '" + lsProps(22) + "'   is : '" + Border.GetSelText + "'"
 213       if DropDown.GetSelText <> lsProps(23) then Warnlog "Drop Down => changes not saved!  should : '" + lsProps(23) + "'   is : '" + DropDown.GetSelText + "'"
 214       if Spin.GetSelText <> lsProps(24) then Warnlog "Spin button => changes not saved!  should : '" + lsProps(24) + "'   is : '" + Spin.GetSelText + "'"
 215    end if
 216
 217 '##### TimeField #####
 218    if instr ( lcase ( sType ), "timefield" ) then
 219       if StrictFormat.GetSelText <> lsProps(13) then Warnlog "Strict format => changes not saved!  should : '" + lsProps(13) + "'   is : '" + StrictFormat.GetSelText + "'"'
 220       if Readonly.GetSelText <> lsProps(14) then Warnlog "Read only => changes not saved!  should : '" + lsProps(14) + "'   is : '" + Readonly.GetSelText + "'"
 221       if TabStop.GetSelText <> lsProps(15) then Warnlog "Tab stop => changes not saved!  should : '" + lsProps(15) + "'   is : '" + TabStop.GetSelText + "'"
 222       if TimeField.GetText <> lsProps(16) then Warnlog "Time => changes not saved!  should : '" + lsProps(16) + "'   is : '" + TimeField.GetText + "'"
 223       if TimeMin.GetText <> lsProps(17) then Warnlog "Time min. => changes not saved!  should : '" + lsProps(17) + "'   is : '" + TimeMin.GetText + "'"
 224       if TimeMax.GetText <> lsProps(18) then Warnlog "Time max => changes not saved!  should : '" + lsProps(18) + "'   is : '" + TimeMax.Getext + "'"
 225       if TimeFormat.GetSelText <> lsProps(19) then Warnlog "Time format => changes not saved!  should : '" + lsProps(19) + "'   is : '" + TimeFormat.GetSelText + "'"
 226       if CharacterSet.GetText <> lsProps(20) then Warnlog "Character set => changes not saved!  should : '" + lsProps(20) + "'   is : '" + CharacterSet.GetText + "'"
 227       if Background.GetSelText <> lsProps(21) then Warnlog "Background => changes not saved!  should : '" + lsProps(21) + "'   is : '" + Background.GetSelText + "'"
 228       if Border.GetSelText <> lsProps(22) then Warnlog "Border => changes not saved!  should : '" + lsProps(22) + "'   is : '" + Border.GetSelText + "'"
 229       if Spin.GetSelText <> lsProps(23) then Warnlog "Spin button => changes not saved!  should : '" + lsProps(23) + "'   is : '" + Spin.GetSelText + "'"
 230    end if
 231
 232 '##### NumericField #####
 233    if instr ( lcase ( sType ), "numericfield" ) then
 234       if StrictFormat.GetSelText <> lsProps(13) then Warnlog "Strict format => changes not saved!  should : '" + lsProps(13) + "'   is : '" + StrictFormat.GetSelText + "'"'
 235       if Readonly.GetSelText <> lsProps(14) then Warnlog "Read only => changes not saved!  should : '" + lsProps(14) + "'   is : '" + Readonly.GetSelText + "'"
 236       if TabStop.GetSelText <> lsProps(15) then Warnlog "Tab stop => changes not saved!  should : '" + lsProps(15) + "'   is : '" + TabStop.GetSelText + "'"
 237
 238       if Value.GetText <> lsProps(16) then
 239          if Value.GetText <> lsProps(16) + "000" then
 240             Warnlog "Value => changes not saved!  should : '" + lsProps(16) + "'   is : '" + Value.GetText + "'"
 241          else
 242             Warnlog "Value => changes not saved!  should : '" + lsProps(16) + "'   is : '" + Value.GetText + "'"
 243          end if
 244       end if
 245       if ValueMin.GetText <> lsProps(17) then
 246          if ValueMin.GetText <> "-1,000,002.00000" then
 247             Warnlog "Value min. => changes not saved!  should : '-1,000,002.00000'   is : '" + ValueMin.GetText + "'"
 248          else
 249             Warnlog "Value min. => changes not saved!  should : '" + lsProps(17) + "'   is : '" + ValueMin.GetText + "'"
 250          end if
 251       end if
 252       if ValueMax.GetText <> lsProps(18) then
 253          if ValueMax.GetText <> "999,997.00000" then
 254             Warnlog "Value max => changes not saved!  should : '999,997.00000'   is : '" + ValueMax.GetText + "'"
 255          else
 256             Warnlog "Value max => changes not saved!  should : '" + lsProps(18) + "'   is : '" + ValueMax.GetText + "'"
 257          end if
 258       end if
 259       if ValueStep.GetText <> lsProps(19) then Warnlog "Incr./decrement value => changes not saved!  should : '" + lsProps(19) + "'   is : '" + ValueStep.GetText + "'"
 260       if Accuray.GetText <> lsProps(20) then Warnlog "Dec. accuracy => changes not saved!  should : '" + lsProps(20) + "'   is : '" + Accuray.GetText + "' Bugid #106852#"
 261       if ThousandSeperator.GetSelText <> lsProps(21) then Warnlog "Thousands seperator => changes not saved!  should : '" + lsProps(21) + "'   is : '" + ThousandSeperator.GetSelText + "' Bugid #106852#"
 262       if CharacterSet.GetText <> lsProps(22) then Warnlog "Character set => changes not saved!  should : '" + lsProps(22) + "'   is : '" + CharacterSet.GetText + "'"
 263       if Background.GetSelText <> lsProps(23) then Warnlog "Background => changes not saved!  should : '" + lsProps(23) + "'   is : '" + Background.GetSelText + "'"
 264       if Border.GetSelText <> lsProps(24) then Warnlog "Border => changes not saved!  should : '" + lsProps(24) + "'   is : '" + Border.GetSelText + "'"
 265       if Spin.GetSelText <> lsProps(25) then Warnlog "Spin button => changes not saved!  should : '" + lsProps(25) + "'   is : '" + Spin.GetSelText + "'"
 266    end if
 267
 268 '##### CurrencyField #####
 269    if instr ( lcase ( sType ), "currencyfield" ) then
 270       if StrictFormat.GetSelText <> lsProps(13) then Warnlog "Strict format => changes not saved!  should : '" + lsProps(13) + "'   is : '" + StrictFormat.GetSelText + "'"'
 271       if Readonly.GetSelText <> lsProps(14) then Warnlog "Read only => changes not saved!  should : '" + lsProps(14) + "'   is : '" + Readonly.GetSelText + "'"
 272       if TabStop.GetSelText <> lsProps(15) then Warnlog "Tab stop => changes not saved!  should : '" + lsProps(15) + "'   is : '" + TabStop.GetSelText + "'"
 273       if Value.GetText <> lsProps(16) then
 274          if Value.GetText <> lsProps(16) + "000" then
 275             Warnlog "Value => changes not saved!  should : '" + lsProps(16) + "'   is : '" + Value.GetText + "'"
 276          else
 277             Warnlog "Value => changes not saved!  should : '" + lsProps(16) + "'   is : '" + Value.GetText + "'"
 278          end if
 279       end if
 280       if ValueMin.GetText <> lsProps(17) then
 281          if ValueMin.GetText <> "-1,000,002.00000" then
 282             Warnlog "Value min. => changes not saved!  should : '-1,000,002.00000'   is : '" + ValueMin.GetText + "'"
 283          else
 284             Warnlog "Value min. => changes not saved!  should : '" + lsProps(17) + "'   is : '" + ValueMin.GetText + "'"
 285          end if
 286       end if
 287       if ValueMax.GetText <> lsProps(18) then
 288          if ValueMax.GetText <> "999,997.00000" then
 289             Warnlog "Value max => changes not saved!  should : '999,997.00000'   is : '" + ValueMax.GetText + "'"
 290          else
 291             Warnlog "Value max => changes not saved!  should : '" + lsProps(18) + "'   is : '" + ValueMax.GetText + "'"
 292          end if
 293       end if
 294       if ValueStep.GetText <> lsProps(19) then Warnlog "Incr./decrement value => changes not saved!  should : '" + lsProps(19) + "'   is : '" + ValueStep.GetText + "'"
 295       if Accuray.GetText <> lsProps(20) then Warnlog "Dec. accuracy => changes not saved!  should : '" + lsProps(20) + "'   is : '" + Accuray.GetText + "' Bugid #106852#"
 296       if ThousandSeperator.GetSelText <> lsProps(21) then Warnlog "Thousands seperator => changes not saved!  should : '" + lsProps(21) + "'   is : '" + ThousandSeperator.GetSelText + "' Bugid #106852#"
 297       if CurrencySymbol.GetText <> lsProps(22) then Warnlog "Currency symbol => changes not saved!  should : '" + lsProps(22) + "'   is : '" + CurrencySymbol.GetSelText + "'"
 298       if CurrSymPosition.GetSelText <> lsProps(23) then Warnlog "Prefix symbol => changes not saved!  should : '" + lsProps(23) + "'   is : '" + CurrSymPosition.GetSelText + "'"
 299       if CharacterSet.GetText <> lsProps(24) then Warnlog "Character set => changes not saved!  should : '" + lsProps(24) + "'   is : '" + CharacterSet.GetText + "'"
 300       if Background.GetSelText <> lsProps(25) then Warnlog "Background => changes not saved!  should : '" + lsProps(25) + "'   is : '" + Background.GetSelText + "'"
 301       if Border.GetSelText <> lsProps(26) then Warnlog "Border => changes not saved!  should : '" + lsProps(26) + "'   is : '" + Border.GetSelText + "'"
 302       if Spin.GetSelText <> lsProps(27) then Warnlog "Spin button => changes not saved!  should : '" + lsProps(27) + "'   is : '" + Spin.GetSelText + "'"
 303    end if
 304
 305 '##### FormattedField #####
 306    if instr ( lcase ( sType ), "formattedfield" ) then
 307       if MaxTextLen.GetText <> lsProps(13) then Warnlog "Max text lenght => changes not saved!  should : '" + lsProps(13) + "'   is : '" + MaxTextLen.GetText + "'"
 308       if StrictFormat.GetSelText <> lsProps(14) then Warnlog "Strict format => changes not saved!  should : '" + lsProps(14) + "'   is : '" + StrictFormat.GetSelText + "'"'
 309       if Readonly.GetSelText <> lsProps(15) then Warnlog "Read only => changes not saved!  should : '" + lsProps(15) + "'   is : '" + Readonly.GetSelText + "'"
 310       if TabStop.GetSelText <> lsProps(16) then Warnlog "Tab stop => changes not saved!  should : '" + lsProps(16) + "'   is : '" + TabStop.GetSelText + "'"
 311 '      if Effective.GetText <> lsProps(17) then Warnlog "Value => changes not saved!  should : '" + lsProps(17) + "'   is : '" + Effective.GetText + "'"
 312       if EffectiveMin.GetText <> lsProps(18) then
 313          printlog " Bugid #106852#:"
 314          if EffectiveMin.GetText <> "1.00" then
 315             Warnlog "Value min => changes not saved!  should : '" + lsProps(18) + "'   is : '" + EffectiveMin.GetText + "'"
 316          else
 317             Warnlog "Value min => changes not saved!  should : '1.00'   is : '" + EffectiveMin.GetText + "'"
 318          end if
 319       end if
 320       if EffectiveMax.GetText <> lsProps(19) then
 321          printlog " Bugid #106852#:"
 322          if EffectiveMax.GetText <> "1.00" then
 323             Warnlog "Value max => changes not saved!  should : '1.00'   is : '" + EffectiveMax.GetText + "'"
 324          else
 325             Warnlog "Value max => changes not saved!  should : '" + lsProps(19) + "'   is : '" + EffectiveMax.GetText + "'"
 326          end if
 327       end if
 328       if FormatKey.GetText <> lsProps(20) then Warnlog "Format key => changes not saved!  should : '" + lsProps(20) + "'   is : '" + FormatKey.GetText + "'"
 329       if CharacterSet.GetText <> lsProps(21) then Warnlog "Character set => changes not saved!  should : '" + lsProps(21) + "'   is : '" + CharacterSet.GetText + "'"
 330       if Align.GetSelText <> lsProps(22) then Warnlog "Alignment => changes not saved!  should : '" + lsProps(22) + "'   is : '" + Align.GetSelText + "' BugId #106872#"
 331       if Background.GetSelText <> lsProps(23) then Warnlog "Background => changes not saved!  should : '" + lsProps(23) + "'   is : '" + Background.GetSelText + "'"
 332       if Border.GetSelText <> lsProps(24) then Warnlog "Border => changes not saved!  should : '" + lsProps(24) + "'   is : '" + Border.GetSelText + "'"
 333       if Spin.GetSelText <> lsProps(25) then Warnlog "Spin button => changes not saved!  should : '" + lsProps(25) + "'   is : '" + Spin.GetSelText + "'"
 334    end if
 335
 336 '##### PatternField #####
 337    if instr ( lcase ( sType ), "patternfield" ) then
 338       if TextText.GetText <> lsProps(13) then Warnlog "Text => changes not saved!  should : '" + lsProps(13) + "'   is : '" + TextText.GetText + "'"
 339       if MaxTextLen.GetText <> lsProps(14) then Warnlog "Max text lenght => changes not saved!  should : '" + lsProps(14) + "'   is : '" + MaxTextLen.GetText + "'"
 340       if EditMask.GetText <> lsProps(15) then Warnlog "Edit mask => changes not saved!  should : '" + lsProps(15) + "'   is : '" + EditMask.GetText + "'"
 341       if LiteralMask.GetText <> lsProps(16) then Warnlog "Literal mask => changes not saved!  should : '" + lsProps(16) + "'   is : '" + LiteralMask.GetText + "'"
 342       if StrictFormat.GetSelText <> lsProps(17) then Warnlog "Strict format => changes not saved!  should : '" + lsProps(17) + "'   is : '" + StrictFormat.GetSelText + "'"'
 343       if Readonly.GetSelText <> lsProps(18) then Warnlog "Read only => changes not saved!  should : '" + lsProps(18) + "'   is : '" + Readonly.GetSelText + "'"
 344       if TabStop.GetSelText <> lsProps(19) then Warnlog "Tab stop => changes not saved!  should : '" + lsProps(19) + "'   is : '" + TabStop.GetSelText + "'"
 345       if CharacterSet.GetText <> lsProps(20) then Warnlog "Character set => changes not saved!  should : '" + lsProps(20) + "'   is : '" + CharacterSet.GetText + "'"
 346       if Background.GetSelText <> lsProps(21) then Warnlog "Background => changes not saved!  should : '" + lsProps(21) + "'   is : '" + Background.GetSelText + "'"
 347       if Border.GetSelText <> lsProps(22) then Warnlog "Border => changes not saved!  should : '" + lsProps(22) + "'   is : '" + Border.GetSelText + "'"
 348    end if
 349
 350 '##### FileControl #####
 351    if instr ( lcase ( sType ), "filecontrol" ) then
 352       if TextText.GetText <> lsProps(13) then Warnlog "Text => changes not saved!  should : '" + lsProps(13) + "'   is : '" + TextText.GetText + "'"
 353       if Readonly.GetSelText <> lsProps(14) then Warnlog "Read only => changes not saved!  should : '" + lsProps(14) + "'   is : '" + Readonly.GetSelText + "'"
 354       if TabStop.GetSelText <> lsProps(15) then Warnlog "Tab stop => changes not saved!  should : '" + lsProps(15) + "'   is : '" + TabStop.GetSelText + "'"
 355       if CharacterSet.GetText <> lsProps(16) then Warnlog "Character set => changes not saved!  should : '" + lsProps(16) + "'   is : '" + CharacterSet.GetText + "'"
 356       if Background.GetSelText <> lsProps(17) then Warnlog "Background => changes not saved!  should : '" + lsProps(17) + "'   is : '" + Background.GetSelText + "'"
 357       if Border.GetSelText <> lsProps(18) then Warnlog "Border => changes not saved!  should : '" + lsProps(18) + "'   is : '" + Border.GetSelText + "'"
 358    end if
 359
 360
 361 end function