465 lines
11 KiB
Plaintext
465 lines
11 KiB
Plaintext
object frmValidateEditDemo: TfrmValidateEditDemo
|
|
Left = 304
|
|
Top = 186
|
|
BorderStyle = bsDialog
|
|
Caption = 'JvValidateEdit Demo'
|
|
ClientHeight = 402
|
|
ClientWidth = 474
|
|
Color = clBtnFace
|
|
Constraints.MinHeight = 170
|
|
Constraints.MinWidth = 325
|
|
DefaultMonitor = dmDesktop
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Shell Dlg 2'
|
|
Font.Style = []
|
|
OldCreateOrder = False
|
|
Position = poDesktopCenter
|
|
Scaled = False
|
|
OnCreate = FormCreate
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object Label2: TLabel
|
|
Left = 8
|
|
Top = 248
|
|
Width = 63
|
|
Height = 13
|
|
Caption = 'Validate Edit:'
|
|
end
|
|
object GroupBox1: TGroupBox
|
|
Left = 8
|
|
Top = 8
|
|
Width = 458
|
|
Height = 233
|
|
Caption = 'Properties'
|
|
TabOrder = 0
|
|
object Label1: TLabel
|
|
Left = 8
|
|
Top = 16
|
|
Width = 75
|
|
Height = 13
|
|
Caption = 'Display Format:'
|
|
end
|
|
object Label3: TLabel
|
|
Left = 8
|
|
Top = 112
|
|
Width = 64
|
|
Height = 13
|
|
Caption = 'Check Chars:'
|
|
end
|
|
object Label4: TLabel
|
|
Left = 232
|
|
Top = 88
|
|
Width = 69
|
|
Height = 13
|
|
Caption = 'Decimal Places'
|
|
end
|
|
object Label6: TLabel
|
|
Left = 8
|
|
Top = 64
|
|
Width = 65
|
|
Height = 13
|
|
Caption = 'Display Prefix'
|
|
end
|
|
object Label7: TLabel
|
|
Left = 8
|
|
Top = 88
|
|
Width = 65
|
|
Height = 13
|
|
Caption = 'Display Suffix'
|
|
end
|
|
object cbDisplayFormat: TComboBox
|
|
Left = 8
|
|
Top = 32
|
|
Width = 193
|
|
Height = 21
|
|
Style = csDropDownList
|
|
ItemHeight = 13
|
|
TabOrder = 0
|
|
OnChange = cbDisplayFormatChange
|
|
OnKeyPress = cbDisplayFormatKeyPress
|
|
end
|
|
object chkHasMaxValue: TCheckBox
|
|
Left = 216
|
|
Top = 40
|
|
Width = 89
|
|
Height = 17
|
|
Caption = 'Has Maximum'
|
|
TabOrder = 1
|
|
OnClick = chkHasMaxValueClick
|
|
end
|
|
object chkHasMinValue: TCheckBox
|
|
Left = 216
|
|
Top = 64
|
|
Width = 89
|
|
Height = 17
|
|
Caption = 'Has Minimum'
|
|
TabOrder = 2
|
|
OnClick = chkHasMinValueClick
|
|
end
|
|
object seDecimalPlaces: TSpinEdit
|
|
Left = 312
|
|
Top = 88
|
|
Width = 49
|
|
Height = 22
|
|
MaxValue = 0
|
|
MinValue = 0
|
|
TabOrder = 3
|
|
Value = 0
|
|
OnChange = seDecimalPlacesChange
|
|
end
|
|
object chkZeroEmpty: TCheckBox
|
|
Left = 216
|
|
Top = 16
|
|
Width = 97
|
|
Height = 17
|
|
Caption = 'Empty if Zero?'
|
|
TabOrder = 4
|
|
OnClick = chkZeroEmptyClick
|
|
end
|
|
object edCheckChars: TEdit
|
|
Left = 8
|
|
Top = 128
|
|
Width = 297
|
|
Height = 21
|
|
TabOrder = 5
|
|
end
|
|
object btnCheckChars: TButton
|
|
Left = 312
|
|
Top = 128
|
|
Width = 49
|
|
Height = 21
|
|
Caption = 'Set'
|
|
TabOrder = 6
|
|
OnClick = btnCheckCharsClick
|
|
end
|
|
object edDisplayPrefix: TEdit
|
|
Left = 88
|
|
Top = 64
|
|
Width = 57
|
|
Height = 21
|
|
TabOrder = 7
|
|
end
|
|
object edDisplaySuffix: TEdit
|
|
Left = 88
|
|
Top = 88
|
|
Width = 57
|
|
Height = 21
|
|
TabOrder = 8
|
|
end
|
|
object btnSetDisplayPrefix: TButton
|
|
Left = 152
|
|
Top = 64
|
|
Width = 47
|
|
Height = 21
|
|
Caption = 'Set'
|
|
TabOrder = 9
|
|
OnClick = btnSetDisplayPrefixClick
|
|
end
|
|
object btnSetDisplaySuffix: TButton
|
|
Left = 152
|
|
Top = 88
|
|
Width = 47
|
|
Height = 21
|
|
Caption = 'Set'
|
|
TabOrder = 10
|
|
OnClick = btnSetDisplaySuffixClick
|
|
end
|
|
object edMaxValue: TEdit
|
|
Left = 312
|
|
Top = 40
|
|
Width = 49
|
|
Height = 21
|
|
TabOrder = 11
|
|
OnExit = edMaxValueExit
|
|
end
|
|
object edMinValue: TEdit
|
|
Left = 312
|
|
Top = 64
|
|
Width = 49
|
|
Height = 21
|
|
TabOrder = 12
|
|
OnExit = edMinValueExit
|
|
end
|
|
object GroupBox3: TGroupBox
|
|
Left = 8
|
|
Top = 152
|
|
Width = 443
|
|
Height = 73
|
|
Caption = 'Critical Points'
|
|
TabOrder = 13
|
|
object Label9: TLabel
|
|
Left = 290
|
|
Top = 16
|
|
Width = 31
|
|
Height = 13
|
|
Caption = 'Colour'
|
|
end
|
|
object Label11: TLabel
|
|
Left = 290
|
|
Top = 40
|
|
Width = 31
|
|
Height = 13
|
|
Caption = 'Colour'
|
|
end
|
|
object Label12: TLabel
|
|
Left = 8
|
|
Top = 24
|
|
Width = 65
|
|
Height = 13
|
|
Caption = 'Check Points:'
|
|
end
|
|
object edCPMaxValue: TEdit
|
|
Left = 229
|
|
Top = 16
|
|
Width = 49
|
|
Height = 21
|
|
TabOrder = 0
|
|
OnExit = edCPMaxValueExit
|
|
end
|
|
object colCPAbove: TJvColorComboBox
|
|
Left = 330
|
|
Top = 16
|
|
Width = 105
|
|
Height = 20
|
|
ColorNameMap.Strings = (
|
|
'clBlack=Black'
|
|
'clMaroon=Maroon'
|
|
'clGreen=Green'
|
|
'clOlive=Olive'
|
|
'clNavy=Navy'
|
|
'clPurple=Purple'
|
|
'clTeal=Teal'
|
|
'clGray=Gray'
|
|
'clSilver=Silver'
|
|
'clRed=Red'
|
|
'clLime=Lime'
|
|
'clYellow=Yellow'
|
|
'clBlue=Blue'
|
|
'clFuchsia=Fuchsia'
|
|
'clAqua=Aqua'
|
|
'clLtGray=Light Gray'
|
|
'clDkGray=Dark Gray'
|
|
'clWhite=White'
|
|
'clMoneyGreen=Money Green'
|
|
'clSkyBlue=Sky Blue'
|
|
'clCream=Cream'
|
|
'clMedGray=Medium Gray'
|
|
'clScrollBar=ScrollBar'
|
|
'clBackground=Background'
|
|
'clActiveCaption=Active Caption'
|
|
'clInactiveCaption=Inactive Caption'
|
|
'clMenu=Menu'
|
|
'clWindow=Window'
|
|
'clWindowFrame=Window Frame'
|
|
'clMenuText=Menu Text'
|
|
'clWindowText=Window Text'
|
|
'clCaptionText=Caption Text'
|
|
'clActiveBorder=Active Border'
|
|
'clInactiveBorder=Inactive Border'
|
|
'clAppWorkSpace=Application Workspace'
|
|
'clHighlight=Highlight'
|
|
'clHighlightText=Highlight Text'
|
|
'clBtnFace=Button Face'
|
|
'clBtnShadow=Button Shadow'
|
|
'clGrayText=Gray Text'
|
|
'clBtnText=Button Text'
|
|
'clInactiveCaptionText=Inactive Caption Text'
|
|
'clBtnHighlight=Button Highlight'
|
|
'cl3DDkShadow=3D Dark Shadow'
|
|
'cl3DLight=3D Light'
|
|
'clInfoText=Info Text'
|
|
'clInfoBk=Info Background'
|
|
'clHotLight=Hot Light'
|
|
'clGradientActiveCaption=Gradient Active Caption'
|
|
'clGradientInactiveCaption=Gradient Inactive Caption'
|
|
'clMenuHighlight=Menu Highlight'
|
|
'clMenuBar=MenuBar'
|
|
'clNone=None'
|
|
'clDefault=Default')
|
|
ColorDialogText = '(Other...)'
|
|
DroppedDownWidth = 105
|
|
NewColorText = 'Custom'
|
|
TabOrder = 1
|
|
end
|
|
object edCPMinValue: TEdit
|
|
Left = 229
|
|
Top = 40
|
|
Width = 49
|
|
Height = 21
|
|
TabOrder = 2
|
|
OnExit = edCPMinValueExit
|
|
end
|
|
object colCPBelow: TJvColorComboBox
|
|
Left = 330
|
|
Top = 40
|
|
Width = 105
|
|
Height = 20
|
|
ColorNameMap.Strings = (
|
|
'clBlack=Black'
|
|
'clMaroon=Maroon'
|
|
'clGreen=Green'
|
|
'clOlive=Olive'
|
|
'clNavy=Navy'
|
|
'clPurple=Purple'
|
|
'clTeal=Teal'
|
|
'clGray=Gray'
|
|
'clSilver=Silver'
|
|
'clRed=Red'
|
|
'clLime=Lime'
|
|
'clYellow=Yellow'
|
|
'clBlue=Blue'
|
|
'clFuchsia=Fuchsia'
|
|
'clAqua=Aqua'
|
|
'clLtGray=Light Gray'
|
|
'clDkGray=Dark Gray'
|
|
'clWhite=White'
|
|
'clMoneyGreen=Money Green'
|
|
'clSkyBlue=Sky Blue'
|
|
'clCream=Cream'
|
|
'clMedGray=Medium Gray'
|
|
'clScrollBar=ScrollBar'
|
|
'clBackground=Background'
|
|
'clActiveCaption=Active Caption'
|
|
'clInactiveCaption=Inactive Caption'
|
|
'clMenu=Menu'
|
|
'clWindow=Window'
|
|
'clWindowFrame=Window Frame'
|
|
'clMenuText=Menu Text'
|
|
'clWindowText=Window Text'
|
|
'clCaptionText=Caption Text'
|
|
'clActiveBorder=Active Border'
|
|
'clInactiveBorder=Inactive Border'
|
|
'clAppWorkSpace=Application Workspace'
|
|
'clHighlight=Highlight'
|
|
'clHighlightText=Highlight Text'
|
|
'clBtnFace=Button Face'
|
|
'clBtnShadow=Button Shadow'
|
|
'clGrayText=Gray Text'
|
|
'clBtnText=Button Text'
|
|
'clInactiveCaptionText=Inactive Caption Text'
|
|
'clBtnHighlight=Button Highlight'
|
|
'cl3DDkShadow=3D Dark Shadow'
|
|
'cl3DLight=3D Light'
|
|
'clInfoText=Info Text'
|
|
'clInfoBk=Info Background'
|
|
'clHotLight=Hot Light'
|
|
'clGradientActiveCaption=Gradient Active Caption'
|
|
'clGradientInactiveCaption=Gradient Inactive Caption'
|
|
'clMenuHighlight=Menu Highlight'
|
|
'clMenuBar=MenuBar'
|
|
'clNone=None'
|
|
'clDefault=Default')
|
|
ColorDialogText = '(Other...)'
|
|
DroppedDownWidth = 105
|
|
NewColorText = 'Custom'
|
|
TabOrder = 3
|
|
end
|
|
object cbCPCheckPoints: TComboBox
|
|
Left = 8
|
|
Top = 40
|
|
Width = 89
|
|
Height = 21
|
|
Style = csDropDownList
|
|
ItemHeight = 13
|
|
TabOrder = 4
|
|
OnChange = cbCPCheckPointsChange
|
|
end
|
|
object chkMaxValueIncluded: TCheckBox
|
|
Left = 101
|
|
Top = 18
|
|
Width = 120
|
|
Height = 17
|
|
Caption = 'Max Value Included'
|
|
TabOrder = 5
|
|
OnClick = chkMaxValueIncludedClick
|
|
end
|
|
object chkMinValueIncluded: TCheckBox
|
|
Left = 101
|
|
Top = 42
|
|
Width = 120
|
|
Height = 17
|
|
Caption = 'Min Value Included'
|
|
TabOrder = 6
|
|
OnClick = chkMinValueIncludedClick
|
|
end
|
|
end
|
|
end
|
|
object GroupBox2: TGroupBox
|
|
Left = 8
|
|
Top = 296
|
|
Width = 458
|
|
Height = 97
|
|
Caption = 'Set To'
|
|
TabOrder = 1
|
|
object Label5: TLabel
|
|
Left = 8
|
|
Top = 16
|
|
Width = 26
|
|
Height = 13
|
|
Caption = 'Value'
|
|
end
|
|
object edSetTo: TEdit
|
|
Left = 48
|
|
Top = 16
|
|
Width = 121
|
|
Height = 21
|
|
TabOrder = 0
|
|
end
|
|
object rgSetToType: TRadioGroup
|
|
Left = 8
|
|
Top = 40
|
|
Width = 353
|
|
Height = 49
|
|
Caption = 'as Type'
|
|
Columns = 4
|
|
ItemIndex = 3
|
|
Items.Strings = (
|
|
'Currency'
|
|
'Float'
|
|
'Integer'
|
|
'Text')
|
|
TabOrder = 1
|
|
end
|
|
object btnSetTo: TButton
|
|
Left = 176
|
|
Top = 16
|
|
Width = 75
|
|
Height = 21
|
|
Caption = 'Set'
|
|
Default = True
|
|
TabOrder = 2
|
|
OnClick = btnSetToClick
|
|
end
|
|
object chkAsVariant: TCheckBox
|
|
Left = 256
|
|
Top = 16
|
|
Width = 97
|
|
Height = 17
|
|
Caption = 'as Variant'
|
|
TabOrder = 3
|
|
end
|
|
end
|
|
object chkValueChanged: TCheckBox
|
|
Left = 216
|
|
Top = 248
|
|
Width = 153
|
|
Height = 17
|
|
Caption = 'Message on Value Change?'
|
|
TabOrder = 2
|
|
end
|
|
object JvValidateEdit: TJvValidateEdit
|
|
Left = 8
|
|
Top = 264
|
|
Width = 458
|
|
Height = 21
|
|
CriticalPoints.MaxValueIncluded = False
|
|
CriticalPoints.MinValueIncluded = False
|
|
EditText = '0'
|
|
TabOrder = 3
|
|
OnCustomValidate = JvValidateEditCustomValidate
|
|
OnValueChanged = JvValidateEditValueChanged
|
|
end
|
|
end
|