pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

jvcllaz: some more improvement of JvValidateEdit layout

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6943 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-05-25 14:31:57 +00:00
parent 894c443424
commit 70e0a8a6ff
1 changed files with 132 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files

171
components/jvcllaz/examples/JvValidateEdit/MainFrm.lfm
View File

@ -21,14 +21,17 @@ object frmValidateEditDemo: TfrmValidateEditDemo
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner AnchorSideTop.Control = Owner
Left = 16 Left = 16
Height = 283 Height = 289
Top = 16 Top = 16
Width = 502 Width = 504
AutoSize = True AutoSize = True
BorderSpacing.Around = 16 BorderSpacing.Around = 16
Caption = 'Properties' Caption = 'Properties'
ClientHeight = 263 ClientHeight = 269
ClientWidth = 498 ClientWidth = 500
Font.Color = clWindowText
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0 TabOrder = 0
object Label1: TLabel object Label1: TLabel
AnchorSideLeft.Control = cbDisplayFormat AnchorSideLeft.Control = cbDisplayFormat
@ -39,7 +42,9 @@ object frmValidateEditDemo: TfrmValidateEditDemo
Width = 82 Width = 82
BorderSpacing.Top = 8 BorderSpacing.Top = 8
Caption = 'Display Format:' Caption = 'Display Format:'
Font.Color = clWindowText
ParentColor = False ParentColor = False
ParentFont = False
end end
object Label3: TLabel object Label3: TLabel
AnchorSideLeft.Control = cbDisplayFormat AnchorSideLeft.Control = cbDisplayFormat
@ -47,23 +52,27 @@ object frmValidateEditDemo: TfrmValidateEditDemo
AnchorSideBottom.Control = edCheckChars AnchorSideBottom.Control = edCheckChars
Left = 12 Left = 12
Height = 15 Height = 15
Top = 111 Top = 117
Width = 69 Width = 69
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
BorderSpacing.Top = 11 BorderSpacing.Top = 11
BorderSpacing.Bottom = 4 BorderSpacing.Bottom = 4
Caption = 'Check Chars:' Caption = 'Check Chars:'
Font.Color = clWindowText
ParentColor = False ParentColor = False
ParentFont = False
end end
object Label4: TLabel object Label4: TLabel
AnchorSideTop.Control = seDecimalPlaces AnchorSideTop.Control = seDecimalPlaces
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 236 Left = 236
Height = 15 Height = 15
Top = 108 Top = 112
Width = 79 Width = 79
Caption = 'Decimal Places' Caption = 'Decimal Places'
Font.Color = clWindowText
ParentColor = False ParentColor = False
ParentFont = False
end end
object Label6: TLabel object Label6: TLabel
AnchorSideLeft.Control = cbDisplayFormat AnchorSideLeft.Control = cbDisplayFormat
@ -74,7 +83,9 @@ object frmValidateEditDemo: TfrmValidateEditDemo
Top = 58 Top = 58
Width = 70 Width = 70
Caption = 'Display Prefix' Caption = 'Display Prefix'
Font.Color = clWindowText
ParentColor = False ParentColor = False
ParentFont = False
end end
object Label7: TLabel object Label7: TLabel
AnchorSideLeft.Control = cbDisplayFormat AnchorSideLeft.Control = cbDisplayFormat
@ -85,12 +96,16 @@ object frmValidateEditDemo: TfrmValidateEditDemo
Top = 85 Top = 85
Width = 70 Width = 70
Caption = 'Display Suffix' Caption = 'Display Suffix'
Font.Color = clWindowText
ParentColor = False ParentColor = False
ParentFont = False
end end
object cbDisplayFormat: TComboBox object cbDisplayFormat: TComboBox
AnchorSideLeft.Control = GroupBox1 AnchorSideLeft.Control = GroupBox1
AnchorSideTop.Control = Label1 AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = edDisplayPrefix
AnchorSideRight.Side = asrBottom
Left = 12 Left = 12
Height = 23 Height = 23
Top = 27 Top = 27
@ -98,35 +113,41 @@ object frmValidateEditDemo: TfrmValidateEditDemo
BorderSpacing.Left = 12 BorderSpacing.Left = 12
BorderSpacing.Top = 4 BorderSpacing.Top = 4
DropDownCount = 24 DropDownCount = 24
Font.Color = clWindowText
ItemHeight = 15 ItemHeight = 15
OnChange = cbDisplayFormatChange OnChange = cbDisplayFormatChange
OnKeyPress = cbDisplayFormatKeyPress OnKeyPress = cbDisplayFormatKeyPress
ParentFont = False
Style = csDropDownList Style = csDropDownList
TabOrder = 0 TabOrder = 0
end end
object chkHasMaxValue: TCheckBox object chkHasMaxValue: TCheckBox
AnchorSideLeft.Control = chkZeroEmpty AnchorSideLeft.Control = chkZeroEmpty
AnchorSideTop.Control = chkZeroEmpty AnchorSideTop.Control = btnSetDisplayPrefix
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrCenter
Left = 221 Left = 221
Height = 19 Height = 19
Top = 52 Top = 56
Width = 97 Width = 97
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'Has Maximum' Caption = 'Has Maximum'
Font.Color = clWindowText
OnClick = chkHasMaxValueClick OnClick = chkHasMaxValueClick
ParentFont = False
TabOrder = 1 TabOrder = 1
end end
object chkHasMinValue: TCheckBox object chkHasMinValue: TCheckBox
AnchorSideLeft.Control = chkZeroEmpty AnchorSideLeft.Control = chkZeroEmpty
AnchorSideTop.Control = edMinValue AnchorSideTop.Control = btnSetDisplaySuffix
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 221 Left = 221
Height = 19 Height = 19
Top = 79 Top = 83
Width = 96 Width = 96
Caption = 'Has Minimum' Caption = 'Has Minimum'
Font.Color = clWindowText
OnClick = chkHasMinValueClick OnClick = chkHasMinValueClick
ParentFont = False
TabOrder = 2 TabOrder = 2
end end
object seDecimalPlaces: TSpinEdit object seDecimalPlaces: TSpinEdit
@ -135,26 +156,31 @@ object frmValidateEditDemo: TfrmValidateEditDemo
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 330 Left = 330
Height = 23 Height = 23
Top = 104 Top = 108
Width = 49 Width = 49
BorderSpacing.Top = 4 BorderSpacing.Top = 4
Font.Color = clWindowText
MaxValue = 0 MaxValue = 0
OnChange = seDecimalPlacesChange OnChange = seDecimalPlacesChange
ParentFont = False
TabOrder = 3 TabOrder = 3
Value = 2 Value = 2
end end
object chkZeroEmpty: TCheckBox object chkZeroEmpty: TCheckBox
AnchorSideLeft.Control = cbDisplayFormat AnchorSideLeft.Control = cbDisplayFormat
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = GroupBox1 AnchorSideTop.Control = cbDisplayFormat
AnchorSideTop.Side = asrCenter
Left = 221 Left = 221
Height = 19 Height = 19
Top = 27 Top = 29
Width = 96 Width = 96
BorderSpacing.Left = 16 BorderSpacing.Left = 16
BorderSpacing.Top = 27 BorderSpacing.Top = 27
Caption = 'Empty if Zero?' Caption = 'Empty if Zero?'
Font.Color = clWindowText
OnClick = chkZeroEmptyClick OnClick = chkZeroEmptyClick
ParentFont = False
TabOrder = 4 TabOrder = 4
end end
object edCheckChars: TEdit object edCheckChars: TEdit
@ -164,24 +190,32 @@ object frmValidateEditDemo: TfrmValidateEditDemo
AnchorSideRight.Control = btnCheckChars AnchorSideRight.Control = btnCheckChars
Left = 12 Left = 12
Height = 23 Height = 23
Top = 130 Top = 136
Width = 310 Width = 310
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 8 BorderSpacing.Right = 8
BorderSpacing.Bottom = 8 BorderSpacing.Bottom = 8
Font.Color = clWindowText
ParentFont = False
TabOrder = 5 TabOrder = 5
end end
object btnCheckChars: TButton object btnCheckChars: TButton
AnchorSideLeft.Control = edMaxValue AnchorSideLeft.Control = edMaxValue
AnchorSideTop.Control = seDecimalPlaces AnchorSideTop.Control = seDecimalPlaces
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = seDecimalPlaces
AnchorSideRight.Side = asrBottom
Left = 330 Left = 330
Height = 21 Height = 25
Top = 131 Top = 135
Width = 49 Width = 49
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 4 BorderSpacing.Top = 4
Caption = 'Set' Caption = 'Set'
Font.Color = clWindowText
OnClick = btnCheckCharsClick OnClick = btnCheckCharsClick
ParentFont = False
TabOrder = 6 TabOrder = 6
end end
object edDisplayPrefix: TEdit object edDisplayPrefix: TEdit
@ -195,6 +229,8 @@ object frmValidateEditDemo: TfrmValidateEditDemo
Width = 57 Width = 57
BorderSpacing.Left = 16 BorderSpacing.Left = 16
BorderSpacing.Top = 4 BorderSpacing.Top = 4
Font.Color = clWindowText
ParentFont = False
TabOrder = 7 TabOrder = 7
end end
object edDisplaySuffix: TEdit object edDisplaySuffix: TEdit
@ -206,6 +242,8 @@ object frmValidateEditDemo: TfrmValidateEditDemo
Top = 81 Top = 81
Width = 57 Width = 57
BorderSpacing.Top = 4 BorderSpacing.Top = 4
Font.Color = clWindowText
ParentFont = False
TabOrder = 8 TabOrder = 8
end end
object btnSetDisplayPrefix: TButton object btnSetDisplayPrefix: TButton
@ -214,13 +252,16 @@ object frmValidateEditDemo: TfrmValidateEditDemo
AnchorSideTop.Control = edDisplayPrefix AnchorSideTop.Control = edDisplayPrefix
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 163 Left = 163
Height = 21 Height = 25
Top = 55 Top = 53
Width = 47 Width = 42
AutoSize = True
BorderSpacing.Left = 8 BorderSpacing.Left = 8
BorderSpacing.Top = 4 BorderSpacing.Top = 4
Caption = 'Set' Caption = 'Set'
Font.Color = clWindowText
OnClick = btnSetDisplayPrefixClick OnClick = btnSetDisplayPrefixClick
ParentFont = False
TabOrder = 9 TabOrder = 9
end end
object btnSetDisplaySuffix: TButton object btnSetDisplaySuffix: TButton
@ -228,12 +269,15 @@ object frmValidateEditDemo: TfrmValidateEditDemo
AnchorSideTop.Control = edDisplaySuffix AnchorSideTop.Control = edDisplaySuffix
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 163 Left = 163
Height = 21 Height = 25
Top = 82 Top = 80
Width = 47 Width = 42
AutoSize = True
BorderSpacing.Top = 3 BorderSpacing.Top = 3
Caption = 'Set' Caption = 'Set'
Font.Color = clWindowText
OnClick = btnSetDisplaySuffixClick OnClick = btnSetDisplaySuffixClick
ParentFont = False
TabOrder = 10 TabOrder = 10
end end
object edMaxValue: TEdit object edMaxValue: TEdit
@ -243,10 +287,12 @@ object frmValidateEditDemo: TfrmValidateEditDemo
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 330 Left = 330
Height = 23 Height = 23
Top = 50 Top = 54
Width = 49 Width = 49
BorderSpacing.Left = 12 BorderSpacing.Left = 12
Font.Color = clWindowText
OnExit = edMaxValueExit OnExit = edMaxValueExit
ParentFont = False
TabOrder = 11 TabOrder = 11
end end
object edMinValue: TEdit object edMinValue: TEdit
@ -255,10 +301,12 @@ object frmValidateEditDemo: TfrmValidateEditDemo
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 330 Left = 330
Height = 23 Height = 23
Top = 77 Top = 81
Width = 49 Width = 49
BorderSpacing.Top = 4 BorderSpacing.Top = 4
Font.Color = clWindowText
OnExit = edMinValueExit OnExit = edMinValueExit
ParentFont = False
TabOrder = 12 TabOrder = 12
end end
object GroupBox3: TGroupBox object GroupBox3: TGroupBox
@ -266,13 +314,16 @@ object frmValidateEditDemo: TfrmValidateEditDemo
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 12 Left = 12
Height = 86 Height = 86
Top = 165 Top = 171
Width = 474 Width = 476
AutoSize = True AutoSize = True
BorderSpacing.Around = 12 BorderSpacing.Around = 12
Caption = 'Critical Points' Caption = 'Critical Points'
ClientHeight = 66 ClientHeight = 66
ClientWidth = 470 ClientWidth = 472
Font.Color = clWindowText
Font.Style = [fsBold]
ParentFont = False
TabOrder = 13 TabOrder = 13
object Label9: TLabel object Label9: TLabel
AnchorSideLeft.Control = edCPMaxValue AnchorSideLeft.Control = edCPMaxValue
@ -285,7 +336,9 @@ object frmValidateEditDemo: TfrmValidateEditDemo
Width = 36 Width = 36
BorderSpacing.Left = 16 BorderSpacing.Left = 16
Caption = 'Colour' Caption = 'Colour'
Font.Color = clWindowText
ParentColor = False ParentColor = False
ParentFont = False
end end
object Label11: TLabel object Label11: TLabel
AnchorSideLeft.Control = Label9 AnchorSideLeft.Control = Label9
@ -296,7 +349,9 @@ object frmValidateEditDemo: TfrmValidateEditDemo
Top = 35 Top = 35
Width = 36 Width = 36
Caption = 'Colour' Caption = 'Colour'
Font.Color = clWindowText
ParentColor = False ParentColor = False
ParentFont = False
end end
object Label12: TLabel object Label12: TLabel
AnchorSideLeft.Control = cbCPCheckPoints AnchorSideLeft.Control = cbCPCheckPoints
@ -308,7 +363,9 @@ object frmValidateEditDemo: TfrmValidateEditDemo
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
BorderSpacing.Bottom = 4 BorderSpacing.Bottom = 4
Caption = 'Check Points:' Caption = 'Check Points:'
Font.Color = clWindowText
ParentColor = False ParentColor = False
ParentFont = False
end end
object edCPMaxValue: TEdit object edCPMaxValue: TEdit
AnchorSideLeft.Control = chkMaxValueIncluded AnchorSideLeft.Control = chkMaxValueIncluded
@ -320,7 +377,9 @@ object frmValidateEditDemo: TfrmValidateEditDemo
Width = 49 Width = 49
BorderSpacing.Left = 16 BorderSpacing.Left = 16
BorderSpacing.Top = 4 BorderSpacing.Top = 4
Font.Color = clWindowText
OnExit = edCPMaxValueExit OnExit = edCPMaxValueExit
ParentFont = False
TabOrder = 0 TabOrder = 0
Text = '10' Text = '10'
end end
@ -329,12 +388,14 @@ object frmValidateEditDemo: TfrmValidateEditDemo
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = edCPMaxValue AnchorSideTop.Control = edCPMaxValue
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 357 Left = 359
Height = 22 Height = 22
Top = 4 Top = 4
Width = 105 Width = 105
BorderSpacing.Left = 4 BorderSpacing.Left = 6
Font.Color = clWindowText
ItemHeight = 16 ItemHeight = 16
ParentFont = False
TabOrder = 1 TabOrder = 1
end end
object edCPMinValue: TEdit object edCPMinValue: TEdit
@ -346,20 +407,24 @@ object frmValidateEditDemo: TfrmValidateEditDemo
Top = 31 Top = 31
Width = 49 Width = 49
BorderSpacing.Top = 4 BorderSpacing.Top = 4
Font.Color = clWindowText
OnExit = edCPMinValueExit OnExit = edCPMinValueExit
ParentFont = False
TabOrder = 2 TabOrder = 2
Text = '-10' Text = '-10'
end end
object colCPBelow: TColorBox object colCPBelow: TColorBox
AnchorSideLeft.Control = colCPAbove AnchorSideLeft.Control = colCPAbove
AnchorSideTop.Control = edCPMinValue AnchorSideTop.Control = edCPMinValue
Left = 357 Left = 359
Height = 22 Height = 22
Top = 31 Top = 31
Width = 105 Width = 105
BorderSpacing.Right = 8 BorderSpacing.Right = 8
BorderSpacing.Bottom = 6 BorderSpacing.Bottom = 6
Font.Color = clWindowText
ItemHeight = 16 ItemHeight = 16
ParentFont = False
TabOrder = 3 TabOrder = 3
end end
object cbCPCheckPoints: TComboBox object cbCPCheckPoints: TComboBox
@ -373,8 +438,10 @@ object frmValidateEditDemo: TfrmValidateEditDemo
BorderSpacing.Left = 12 BorderSpacing.Left = 12
BorderSpacing.Bottom = 12 BorderSpacing.Bottom = 12
DropDownCount = 24 DropDownCount = 24
Font.Color = clWindowText
ItemHeight = 15 ItemHeight = 15
OnChange = cbCPCheckPointsChange OnChange = cbCPCheckPointsChange
ParentFont = False
Style = csDropDownList Style = csDropDownList
TabOrder = 4 TabOrder = 4
end end
@ -387,7 +454,9 @@ object frmValidateEditDemo: TfrmValidateEditDemo
Top = 6 Top = 6
Width = 123 Width = 123
Caption = 'Max Value Included' Caption = 'Max Value Included'
Font.Color = clWindowText
OnClick = chkMaxValueIncludedClick OnClick = chkMaxValueIncludedClick
ParentFont = False
TabOrder = 5 TabOrder = 5
end end
object chkMinValueIncluded: TCheckBox object chkMinValueIncluded: TCheckBox
@ -401,7 +470,9 @@ object frmValidateEditDemo: TfrmValidateEditDemo
Width = 122 Width = 122
BorderSpacing.Left = 12 BorderSpacing.Left = 12
Caption = 'Min Value Included' Caption = 'Min Value Included'
Font.Color = clWindowText
OnClick = chkMinValueIncludedClick OnClick = chkMinValueIncludedClick
ParentFont = False
TabOrder = 6 TabOrder = 6
end end
end end
@ -414,14 +485,17 @@ object frmValidateEditDemo: TfrmValidateEditDemo
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 16 Left = 16
Height = 130 Height = 130
Top = 413 Top = 419
Width = 502 Width = 504
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Bottom = 16 BorderSpacing.Bottom = 16
Caption = 'Set To' Caption = 'Set To'
ClientHeight = 110 ClientHeight = 110
ClientWidth = 498 ClientWidth = 500
Font.Color = clWindowText
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1 TabOrder = 1
object Label5: TLabel object Label5: TLabel
AnchorSideLeft.Control = GroupBox2 AnchorSideLeft.Control = GroupBox2
@ -433,7 +507,9 @@ object frmValidateEditDemo: TfrmValidateEditDemo
Width = 28 Width = 28
BorderSpacing.Left = 12 BorderSpacing.Left = 12
Caption = 'Value' Caption = 'Value'
Font.Color = clWindowText
ParentColor = False ParentColor = False
ParentFont = False
end end
object edSetTo: TEdit object edSetTo: TEdit
AnchorSideLeft.Control = Label5 AnchorSideLeft.Control = Label5
@ -445,6 +521,8 @@ object frmValidateEditDemo: TfrmValidateEditDemo
Width = 121 Width = 121
BorderSpacing.Left = 8 BorderSpacing.Left = 8
BorderSpacing.Top = 8 BorderSpacing.Top = 8
Font.Color = clWindowText
ParentFont = False
TabOrder = 0 TabOrder = 0
end end
object rgSetToType: TRadioGroup object rgSetToType: TRadioGroup
@ -473,6 +551,7 @@ object frmValidateEditDemo: TfrmValidateEditDemo
ClientHeight = 31 ClientHeight = 31
ClientWidth = 261 ClientWidth = 261
Columns = 4 Columns = 4
Font.Color = clWindowText
ItemIndex = 3 ItemIndex = 3
Items.Strings = ( Items.Strings = (
'Currency' 'Currency'
@ -480,6 +559,7 @@ object frmValidateEditDemo: TfrmValidateEditDemo
'Integer' 'Integer'
'Text' 'Text'
) )
ParentFont = False
TabOrder = 1 TabOrder = 1
end end
object btnSetTo: TButton object btnSetTo: TButton
@ -495,7 +575,9 @@ object frmValidateEditDemo: TfrmValidateEditDemo
BorderSpacing.Left = 4 BorderSpacing.Left = 4
Caption = 'Set' Caption = 'Set'
Default = True Default = True
Font.Color = clWindowText
OnClick = btnSetToClick OnClick = btnSetToClick
ParentFont = False
TabOrder = 2 TabOrder = 2
end end
object chkAsVariant: TCheckBox object chkAsVariant: TCheckBox
@ -509,6 +591,8 @@ object frmValidateEditDemo: TfrmValidateEditDemo
Width = 71 Width = 71
BorderSpacing.Left = 16 BorderSpacing.Left = 16
Caption = 'as Variant' Caption = 'as Variant'
Font.Color = clWindowText
ParentFont = False
TabOrder = 3 TabOrder = 3
end end
object btnSetToPI: TButton object btnSetToPI: TButton
@ -523,7 +607,9 @@ object frmValidateEditDemo: TfrmValidateEditDemo
AutoSize = True AutoSize = True
BorderSpacing.Left = 16 BorderSpacing.Left = 16
Caption = 'Set to pi' Caption = 'Set to pi'
Font.Color = clWindowText
OnClick = btnSetToPIClick OnClick = btnSetToPIClick
ParentFont = False
TabOrder = 4 TabOrder = 4
end end
end end
@ -535,14 +621,17 @@ object frmValidateEditDemo: TfrmValidateEditDemo
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 16 Left = 16
Height = 82 Height = 82
Top = 315 Top = 321
Width = 502 Width = 504
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Bottom = 16 BorderSpacing.Bottom = 16
Caption = 'Validate Edit' Caption = 'Validate Edit'
ClientHeight = 62 ClientHeight = 62
ClientWidth = 498 ClientWidth = 500
Font.Color = clWindowText
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2 TabOrder = 2
object chkValueChanged: TCheckBox object chkValueChanged: TCheckBox
AnchorSideTop.Control = JvValidateEdit AnchorSideTop.Control = JvValidateEdit
@ -551,7 +640,7 @@ object frmValidateEditDemo: TfrmValidateEditDemo
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = GroupBox4 AnchorSideBottom.Control = GroupBox4
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 322 Left = 324
Height = 19 Height = 19
Top = 31 Top = 31
Width = 164 Width = 164
@ -559,6 +648,8 @@ object frmValidateEditDemo: TfrmValidateEditDemo
BorderSpacing.Top = 4 BorderSpacing.Top = 4
BorderSpacing.Bottom = 12 BorderSpacing.Bottom = 12
Caption = 'Message on Value Change?' Caption = 'Message on Value Change?'
Font.Color = clWindowText
ParentFont = False
TabOrder = 0 TabOrder = 0
end end
object JvValidateEdit: TJvValidateEdit object JvValidateEdit: TJvValidateEdit
@ -569,7 +660,7 @@ object frmValidateEditDemo: TfrmValidateEditDemo
Left = 12 Left = 12
Height = 23 Height = 23
Top = 4 Top = 4
Width = 474 Width = 476
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 12 BorderSpacing.Left = 12
BorderSpacing.Top = 4 BorderSpacing.Top = 4
@ -581,8 +672,10 @@ object frmValidateEditDemo: TfrmValidateEditDemo
DisplayFormat = dfFloat DisplayFormat = dfFloat
DecimalPlaces = 2 DecimalPlaces = 2
EditText = '0' EditText = '0'
Font.Color = clWindowText
MaxValue = 0 MaxValue = 0
MinValue = 0 MinValue = 0
ParentFont = False
TabOrder = 1 TabOrder = 1
OnCustomValidate = JvValidateEditCustomValidate OnCustomValidate = JvValidateEditCustomValidate
OnValueChanged = JvValidateEditValueChanged OnValueChanged = JvValidateEditValueChanged