lazarus-ccr/components/jvcllaz/examples/JvValidateEdit/MainFrm.lfm

object frmValidateEditDemo: TfrmValidateEditDemo
  Left = 371
  Height = 567
  Top = 232
  Width = 547
  AutoSize = True
  BorderStyle = bsDialog
  Caption = 'JvValidateEdit Demo'
  ClientHeight = 567
  ClientWidth = 547
  Color = clBtnFace
  Constraints.MinHeight = 170
  Constraints.MinWidth = 325
  DefaultMonitor = dmDesktop
  Font.Color = clWindowText
  OnCreate = FormCreate
  Position = poScreenCenter
  LCLVersion = '2.1.0.0'
  Scaled = False
  object GroupBox1: TGroupBox
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = Owner
    Left = 16
    Height = 289
    Top = 16
    Width = 512
    AutoSize = True
    BorderSpacing.Around = 16
    Caption = 'Properties'
    ClientHeight = 269
    ClientWidth = 508
    Font.Color = clWindowText
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    object Label1: TLabel
      AnchorSideLeft.Control = cbDisplayFormat
      AnchorSideTop.Control = GroupBox1
      Left = 12
      Height = 15
      Top = 8
      Width = 82
      BorderSpacing.Top = 8
      Caption = 'Display Format:'
      Font.Color = clWindowText
      ParentColor = False
      ParentFont = False
    end
    object Label3: TLabel
      AnchorSideLeft.Control = cbDisplayFormat
      AnchorSideTop.Side = asrBottom
      AnchorSideBottom.Control = edCheckChars
      Left = 12
      Height = 15
      Top = 117
      Width = 69
      Anchors = [akLeft, akBottom]
      BorderSpacing.Top = 11
      BorderSpacing.Bottom = 4
      Caption = 'Check Chars:'
      Font.Color = clWindowText
      ParentColor = False
      ParentFont = False
    end
    object Label4: TLabel
      AnchorSideTop.Control = seDecimalPlaces
      AnchorSideTop.Side = asrCenter
      Left = 236
      Height = 15
      Top = 112
      Width = 79
      Caption = 'Decimal Places'
      Font.Color = clWindowText
      ParentColor = False
      ParentFont = False
    end
    object Label6: TLabel
      AnchorSideLeft.Control = cbDisplayFormat
      AnchorSideTop.Control = edDisplayPrefix
      AnchorSideTop.Side = asrCenter
      Left = 12
      Height = 15
      Top = 58
      Width = 70
      Caption = 'Display Prefix'
      Font.Color = clWindowText
      ParentColor = False
      ParentFont = False
    end
    object Label7: TLabel
      AnchorSideLeft.Control = cbDisplayFormat
      AnchorSideTop.Control = edDisplaySuffix
      AnchorSideTop.Side = asrCenter
      Left = 12
      Height = 15
      Top = 85
      Width = 70
      Caption = 'Display Suffix'
      Font.Color = clWindowText
      ParentColor = False
      ParentFont = False
    end
    object cbDisplayFormat: TComboBox
      AnchorSideLeft.Control = GroupBox1
      AnchorSideTop.Control = Label1
      AnchorSideTop.Side = asrBottom
      AnchorSideRight.Control = edDisplayPrefix
      AnchorSideRight.Side = asrBottom
      Left = 12
      Height = 23
      Top = 27
      Width = 252
      BorderSpacing.Left = 12
      BorderSpacing.Top = 4
      DropDownCount = 24
      Font.Color = clWindowText
      ItemHeight = 15
      OnChange = cbDisplayFormatChange
      OnKeyPress = cbDisplayFormatKeyPress
      ParentFont = False
      Style = csDropDownList
      TabOrder = 0
    end
    object chkHasMaxValue: TCheckBox
      AnchorSideLeft.Control = chkZeroEmpty
      AnchorSideTop.Control = btnSetDisplayPrefix
      AnchorSideTop.Side = asrCenter
      Left = 280
      Height = 19
      Top = 56
      Width = 97
      BorderSpacing.Top = 6
      Caption = 'Has Maximum'
      Font.Color = clWindowText
      OnClick = chkHasMaxValueClick
      ParentFont = False
      TabOrder = 1
    end
    object chkHasMinValue: TCheckBox
      AnchorSideLeft.Control = chkZeroEmpty
      AnchorSideTop.Control = btnSetDisplaySuffix
      AnchorSideTop.Side = asrCenter
      Left = 280
      Height = 19
      Top = 83
      Width = 96
      Caption = 'Has Minimum'
      Font.Color = clWindowText
      OnClick = chkHasMinValueClick
      ParentFont = False
      TabOrder = 2
    end
    object seDecimalPlaces: TSpinEdit
      AnchorSideLeft.Control = edMaxValue
      AnchorSideTop.Control = edMinValue
      AnchorSideTop.Side = asrBottom
      Left = 389
      Height = 23
      Top = 108
      Width = 49
      BorderSpacing.Top = 4
      Font.Color = clWindowText
      MaxValue = 0
      OnChange = seDecimalPlacesChange
      ParentFont = False
      TabOrder = 3
      Value = 2
    end
    object chkZeroEmpty: TCheckBox
      AnchorSideLeft.Control = cbDisplayFormat
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = cbDisplayFormat
      AnchorSideTop.Side = asrCenter
      Left = 280
      Height = 19
      Top = 29
      Width = 96
      BorderSpacing.Left = 16
      BorderSpacing.Top = 27
      Caption = 'Empty if Zero?'
      Font.Color = clWindowText
      OnClick = chkZeroEmptyClick
      ParentFont = False
      TabOrder = 4
    end
    object edCheckChars: TEdit
      AnchorSideLeft.Control = cbDisplayFormat
      AnchorSideTop.Control = btnCheckChars
      AnchorSideTop.Side = asrCenter
      AnchorSideRight.Control = btnCheckChars
      Left = 12
      Height = 23
      Top = 136
      Width = 369
      Anchors = [akTop, akLeft, akRight]
      BorderSpacing.Right = 8
      BorderSpacing.Bottom = 8
      Font.Color = clWindowText
      ParentFont = False
      TabOrder = 5
    end
    object btnCheckChars: TButton
      AnchorSideLeft.Control = edMaxValue
      AnchorSideTop.Control = seDecimalPlaces
      AnchorSideTop.Side = asrBottom
      AnchorSideRight.Control = seDecimalPlaces
      AnchorSideRight.Side = asrBottom
      Left = 389
      Height = 25
      Top = 135
      Width = 49
      Anchors = [akTop, akLeft, akRight]
      AutoSize = True
      BorderSpacing.Top = 4
      Caption = 'Set'
      Font.Color = clWindowText
      OnClick = btnCheckCharsClick
      ParentFont = False
      TabOrder = 6
    end
    object edDisplayPrefix: TEdit
      AnchorSideLeft.Control = Label6
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = cbDisplayFormat
      AnchorSideTop.Side = asrBottom
      Left = 98
      Height = 23
      Top = 54
      Width = 57
      BorderSpacing.Left = 16
      BorderSpacing.Top = 4
      Font.Color = clWindowText
      ParentFont = False
      TabOrder = 7
    end
    object edDisplaySuffix: TEdit
      AnchorSideLeft.Control = edDisplayPrefix
      AnchorSideTop.Control = edDisplayPrefix
      AnchorSideTop.Side = asrBottom
      Left = 98
      Height = 23
      Top = 81
      Width = 57
      BorderSpacing.Top = 4
      Font.Color = clWindowText
      ParentFont = False
      TabOrder = 8
    end
    object btnSetDisplayPrefix: TButton
      AnchorSideLeft.Control = edDisplayPrefix
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = edDisplayPrefix
      AnchorSideTop.Side = asrCenter
      Left = 163
      Height = 25
      Top = 53
      Width = 42
      AutoSize = True
      BorderSpacing.Left = 8
      BorderSpacing.Top = 4
      Caption = 'Set'
      Font.Color = clWindowText
      OnClick = btnSetDisplayPrefixClick
      ParentFont = False
      TabOrder = 9
    end
    object btnSetDisplaySuffix: TButton
      AnchorSideLeft.Control = btnSetDisplayPrefix
      AnchorSideTop.Control = edDisplaySuffix
      AnchorSideTop.Side = asrCenter
      Left = 163
      Height = 25
      Top = 80
      Width = 42
      AutoSize = True
      BorderSpacing.Top = 3
      Caption = 'Set'
      Font.Color = clWindowText
      OnClick = btnSetDisplaySuffixClick
      ParentFont = False
      TabOrder = 10
    end
    object edMaxValue: TEdit
      AnchorSideLeft.Control = chkHasMaxValue
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = chkHasMaxValue
      AnchorSideTop.Side = asrCenter
      Left = 389
      Height = 23
      Top = 54
      Width = 49
      BorderSpacing.Left = 12
      Font.Color = clWindowText
      OnExit = edMaxValueExit
      ParentFont = False
      TabOrder = 11
    end
    object edMinValue: TEdit
      AnchorSideLeft.Control = edMaxValue
      AnchorSideTop.Control = edMaxValue
      AnchorSideTop.Side = asrBottom
      Left = 389
      Height = 23
      Top = 81
      Width = 49
      BorderSpacing.Top = 4
      Font.Color = clWindowText
      OnExit = edMinValueExit
      ParentFont = False
      TabOrder = 12
    end
    object GroupBox3: TGroupBox
      AnchorSideTop.Control = edCheckChars
      AnchorSideTop.Side = asrBottom
      Left = 12
      Height = 86
      Top = 171
      Width = 484
      AutoSize = True
      BorderSpacing.Around = 12
      Caption = 'Critical Points'
      ClientHeight = 66
      ClientWidth = 480
      Font.Color = clWindowText
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 13
      object Label9: TLabel
        AnchorSideLeft.Control = edCPMaxValue
        AnchorSideLeft.Side = asrBottom
        AnchorSideTop.Control = colCPAbove
        AnchorSideTop.Side = asrCenter
        Left = 325
        Height = 15
        Top = 8
        Width = 36
        BorderSpacing.Left = 16
        Caption = 'Colour'
        Font.Color = clWindowText
        ParentColor = False
        ParentFont = False
      end
      object Label11: TLabel
        AnchorSideLeft.Control = Label9
        AnchorSideTop.Control = colCPBelow
        AnchorSideTop.Side = asrCenter
        Left = 325
        Height = 15
        Top = 35
        Width = 36
        Caption = 'Colour'
        Font.Color = clWindowText
        ParentColor = False
        ParentFont = False
      end
      object Label12: TLabel
        AnchorSideLeft.Control = cbCPCheckPoints
        AnchorSideBottom.Control = cbCPCheckPoints
        Left = 12
        Height = 15
        Top = 12
        Width = 72
        Anchors = [akLeft, akBottom]
        BorderSpacing.Bottom = 4
        Caption = 'Check Points:'
        Font.Color = clWindowText
        ParentColor = False
        ParentFont = False
      end
      object edCPMaxValue: TEdit
        AnchorSideLeft.Control = chkMaxValueIncluded
        AnchorSideLeft.Side = asrBottom
        AnchorSideTop.Control = GroupBox3
        Left = 260
        Height = 23
        Top = 4
        Width = 49
        BorderSpacing.Left = 16
        BorderSpacing.Top = 4
        Font.Color = clWindowText
        OnExit = edCPMaxValueExit
        ParentFont = False
        TabOrder = 0
        Text = '10'
      end
      object colCPAbove: TColorBox
        AnchorSideLeft.Control = Label9
        AnchorSideLeft.Side = asrBottom
        AnchorSideTop.Control = edCPMaxValue
        AnchorSideTop.Side = asrCenter
        Left = 367
        Height = 22
        Top = 4
        Width = 105
        BorderSpacing.Left = 6
        Font.Color = clWindowText
        ItemHeight = 16
        ParentFont = False
        TabOrder = 1
      end
      object edCPMinValue: TEdit
        AnchorSideLeft.Control = edCPMaxValue
        AnchorSideTop.Control = edCPMaxValue
        AnchorSideTop.Side = asrBottom
        Left = 260
        Height = 23
        Top = 31
        Width = 49
        BorderSpacing.Top = 4
        Font.Color = clWindowText
        OnExit = edCPMinValueExit
        ParentFont = False
        TabOrder = 2
        Text = '-10'
      end
      object colCPBelow: TColorBox
        AnchorSideLeft.Control = colCPAbove
        AnchorSideTop.Control = edCPMinValue
        Left = 367
        Height = 22
        Top = 31
        Width = 105
        BorderSpacing.Right = 8
        BorderSpacing.Bottom = 6
        Font.Color = clWindowText
        ItemHeight = 16
        ParentFont = False
        TabOrder = 3
      end
      object cbCPCheckPoints: TComboBox
        AnchorSideLeft.Control = GroupBox3
        AnchorSideTop.Control = edCPMinValue
        AnchorSideTop.Side = asrCenter
        Left = 12
        Height = 23
        Top = 31
        Width = 89
        BorderSpacing.Left = 12
        BorderSpacing.Bottom = 12
        DropDownCount = 24
        Font.Color = clWindowText
        ItemHeight = 15
        OnChange = cbCPCheckPointsChange
        ParentFont = False
        Style = csDropDownList
        TabOrder = 4
      end
      object chkMaxValueIncluded: TCheckBox
        AnchorSideLeft.Control = chkMinValueIncluded
        AnchorSideTop.Control = edCPMaxValue
        AnchorSideTop.Side = asrCenter
        Left = 121
        Height = 19
        Top = 6
        Width = 123
        Caption = 'Max Value Included'
        Font.Color = clWindowText
        OnClick = chkMaxValueIncludedClick
        ParentFont = False
        TabOrder = 5
      end
      object chkMinValueIncluded: TCheckBox
        AnchorSideLeft.Control = cbCPCheckPoints
        AnchorSideLeft.Side = asrBottom
        AnchorSideTop.Control = edCPMinValue
        AnchorSideTop.Side = asrCenter
        Left = 121
        Height = 19
        Top = 33
        Width = 122
        BorderSpacing.Left = 20
        Caption = 'Min Value Included'
        Font.Color = clWindowText
        OnClick = chkMinValueIncludedClick
        ParentFont = False
        TabOrder = 6
      end
    end
  end
  object GroupBox2: TGroupBox
    AnchorSideLeft.Control = GroupBox1
    AnchorSideTop.Control = GroupBox4
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = GroupBox1
    AnchorSideRight.Side = asrBottom
    Left = 16
    Height = 130
    Top = 419
    Width = 512
    Anchors = [akTop, akLeft, akRight]
    AutoSize = True
    BorderSpacing.Bottom = 16
    Caption = 'Set To'
    ClientHeight = 110
    ClientWidth = 508
    Font.Color = clWindowText
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
    object Label5: TLabel
      AnchorSideLeft.Control = GroupBox2
      AnchorSideTop.Control = edSetTo
      AnchorSideTop.Side = asrCenter
      Left = 12
      Height = 15
      Top = 12
      Width = 28
      BorderSpacing.Left = 12
      Caption = 'Value'
      Font.Color = clWindowText
      ParentColor = False
      ParentFont = False
    end
    object edSetTo: TEdit
      AnchorSideLeft.Control = Label5
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = GroupBox2
      Left = 48
      Height = 23
      Top = 8
      Width = 121
      BorderSpacing.Left = 8
      BorderSpacing.Top = 8
      Font.Color = clWindowText
      ParentFont = False
      TabOrder = 0
    end
    object rgSetToType: TRadioGroup
      AnchorSideLeft.Control = Label5
      AnchorSideTop.Control = edSetTo
      AnchorSideTop.Side = asrBottom
      AnchorSideRight.Side = asrBottom
      Left = 12
      Height = 51
      Top = 43
      Width = 265
      AutoFill = True
      AutoSize = True
      BorderSpacing.Top = 12
      BorderSpacing.Bottom = 16
      BorderSpacing.InnerBorder = 6
      Caption = 'as Type'
      ChildSizing.LeftRightSpacing = 6
      ChildSizing.HorizontalSpacing = 8
      ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
      ChildSizing.EnlargeVertical = crsHomogenousChildResize
      ChildSizing.ShrinkHorizontal = crsScaleChilds
      ChildSizing.ShrinkVertical = crsScaleChilds
      ChildSizing.Layout = cclLeftToRightThenTopToBottom
      ChildSizing.ControlsPerLine = 4
      ClientHeight = 31
      ClientWidth = 261
      Columns = 4
      Font.Color = clWindowText
      ItemIndex = 3
      Items.Strings = (
        'Currency'
        'Float'
        'Integer'
        'Text'
      )
      ParentFont = False
      TabOrder = 1
    end
    object btnSetTo: TButton
      AnchorSideLeft.Control = edSetTo
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = edSetTo
      AnchorSideTop.Side = asrCenter
      Left = 173
      Height = 25
      Top = 7
      Width = 42
      AutoSize = True
      BorderSpacing.Left = 4
      Caption = 'Set'
      Default = True
      Font.Color = clWindowText
      OnClick = btnSetToClick
      ParentFont = False
      TabOrder = 2
    end
    object chkAsVariant: TCheckBox
      AnchorSideLeft.Control = btnSetTo
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = edSetTo
      AnchorSideTop.Side = asrCenter
      Left = 231
      Height = 19
      Top = 10
      Width = 71
      BorderSpacing.Left = 16
      Caption = 'as Variant'
      Font.Color = clWindowText
      ParentFont = False
      TabOrder = 3
    end
    object btnSetToPI: TButton
      AnchorSideLeft.Control = chkAsVariant
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = edSetTo
      AnchorSideTop.Side = asrCenter
      Left = 318
      Height = 25
      Top = 7
      Width = 69
      AutoSize = True
      BorderSpacing.Left = 16
      Caption = 'Set to pi'
      Font.Color = clWindowText
      OnClick = btnSetToPIClick
      ParentFont = False
      TabOrder = 4
    end
  end
  object GroupBox4: TGroupBox
    AnchorSideLeft.Control = GroupBox1
    AnchorSideTop.Control = GroupBox1
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = GroupBox1
    AnchorSideRight.Side = asrBottom
    Left = 16
    Height = 82
    Top = 321
    Width = 512
    Anchors = [akTop, akLeft, akRight]
    AutoSize = True
    BorderSpacing.Bottom = 16
    Caption = 'Validate Edit'
    ClientHeight = 62
    ClientWidth = 508
    Font.Color = clWindowText
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
    object chkValueChanged: TCheckBox
      AnchorSideTop.Control = JvValidateEdit
      AnchorSideTop.Side = asrBottom
      AnchorSideRight.Control = JvValidateEdit
      AnchorSideRight.Side = asrBottom
      AnchorSideBottom.Control = GroupBox4
      AnchorSideBottom.Side = asrBottom
      Left = 332
      Height = 19
      Top = 31
      Width = 164
      Anchors = [akTop, akRight]
      BorderSpacing.Top = 4
      BorderSpacing.Bottom = 12
      Caption = 'Message on Value Change?'
      Font.Color = clWindowText
      ParentFont = False
      TabOrder = 0
    end
    object JvValidateEdit: TJvValidateEdit
      AnchorSideLeft.Control = GroupBox4
      AnchorSideTop.Control = GroupBox4
      AnchorSideRight.Control = GroupBox4
      AnchorSideRight.Side = asrBottom
      Left = 12
      Height = 23
      Top = 4
      Width = 484
      Anchors = [akTop, akLeft, akRight]
      BorderSpacing.Left = 12
      BorderSpacing.Top = 4
      BorderSpacing.Right = 12
      CriticalPoints.MaxValue = 10
      CriticalPoints.MinValue = -10
      CriticalPoints.MaxValueIncluded = False
      CriticalPoints.MinValueIncluded = False
      DisplayFormat = dfFloat
      DecimalPlaces = 2
      EditText = '0'
      Font.Color = clWindowText
      MaxValue = 0
      MinValue = 0
      ParentFont = False
      TabOrder = 1
      OnCustomValidate = JvValidateEditCustomValidate
      OnValueChanged = JvValidateEditValueChanged
    end
  end
end