2007-01-28 20:57:21 +00:00
|
|
|
object Form1: TForm1
|
|
|
|
Left = 192
|
|
|
|
Top = 114
|
|
|
|
Width = 415
|
|
|
|
Height = 289
|
|
|
|
Caption = 'Form1'
|
|
|
|
Color = clBtnFace
|
|
|
|
Font.Charset = DEFAULT_CHARSET
|
|
|
|
Font.Color = clWindowText
|
|
|
|
Font.Height = -11
|
|
|
|
Font.Style = []
|
|
|
|
PixelsPerInch = 96
|
|
|
|
object Label1: TLabel
|
|
|
|
Left = 16
|
2008-07-20 20:24:35 +00:00
|
|
|
Top = 16
|
2007-01-28 20:57:21 +00:00
|
|
|
Width = 385
|
2008-07-20 20:24:35 +00:00
|
|
|
Height = 41
|
2007-01-28 20:57:21 +00:00
|
|
|
Alignment = taCenter
|
|
|
|
AutoSize = False
|
2008-07-20 20:24:35 +00:00
|
|
|
Caption =
|
|
|
|
'Enter a positive integer, then move to next control to validate ' +
|
|
|
|
'the number.'
|
2007-01-28 20:57:21 +00:00
|
|
|
WordWrap = True
|
|
|
|
end
|
|
|
|
object Label2: TLabel
|
|
|
|
Left = 16
|
2008-07-20 20:24:35 +00:00
|
|
|
Top = 120
|
2007-01-28 20:57:21 +00:00
|
|
|
Width = 385
|
2008-07-20 20:24:35 +00:00
|
|
|
Height = 41
|
2007-01-28 20:57:21 +00:00
|
|
|
Alignment = taCenter
|
|
|
|
AutoSize = False
|
|
|
|
Caption =
|
|
|
|
'Enter a positive real number, then move to next control to valid' +
|
2008-07-20 20:24:35 +00:00
|
|
|
'ate the number.'
|
2007-01-28 20:57:21 +00:00
|
|
|
WordWrap = True
|
|
|
|
end
|
|
|
|
object O32FlexEdit1: TO32FlexEdit
|
|
|
|
Left = 168
|
|
|
|
Top = 56
|
|
|
|
Width = 81
|
|
|
|
Height = 21
|
|
|
|
EfColors.Disabled.BackColor = clWindow
|
|
|
|
EfColors.Disabled.TextColor = clGrayText
|
|
|
|
EfColors.Error.BackColor = clRed
|
|
|
|
EfColors.Error.TextColor = clBlack
|
|
|
|
EfColors.Highlight.BackColor = clHighlight
|
|
|
|
EfColors.Highlight.TextColor = clHighlightText
|
|
|
|
TabOrder = 0
|
|
|
|
Validation.BeepOnError = True
|
|
|
|
Validation.SoftValidation = False
|
|
|
|
Validation.ValidationEvent = veOnExit
|
|
|
|
Validation.ValidatorType = 'None'
|
|
|
|
Validation.ValidationType = vtUser
|
|
|
|
Validation.InputRequired = False
|
2008-07-20 20:24:35 +00:00
|
|
|
OnExit = O32FlexEditExit
|
2007-01-28 20:57:21 +00:00
|
|
|
OnUserValidation = O32FlexEdit1UserValidation
|
|
|
|
OnValidationError = O32FlexEditValidationError
|
|
|
|
end
|
|
|
|
object O32FlexEdit2: TO32FlexEdit
|
|
|
|
Left = 168
|
2008-07-20 20:24:35 +00:00
|
|
|
Top = 160
|
2007-01-28 20:57:21 +00:00
|
|
|
Width = 81
|
|
|
|
Height = 21
|
|
|
|
EfColors.Disabled.BackColor = clWindow
|
|
|
|
EfColors.Disabled.TextColor = clGrayText
|
|
|
|
EfColors.Error.BackColor = clRed
|
|
|
|
EfColors.Error.TextColor = clBlack
|
|
|
|
EfColors.Highlight.BackColor = clHighlight
|
|
|
|
EfColors.Highlight.TextColor = clHighlightText
|
|
|
|
TabOrder = 1
|
|
|
|
Validation.BeepOnError = True
|
|
|
|
Validation.SoftValidation = False
|
|
|
|
Validation.ValidationEvent = veOnExit
|
|
|
|
Validation.ValidatorType = 'None'
|
|
|
|
Validation.ValidationType = vtUser
|
|
|
|
Validation.InputRequired = False
|
2008-07-20 20:24:35 +00:00
|
|
|
OnExit = O32FlexEditExit
|
2007-01-28 20:57:21 +00:00
|
|
|
OnUserValidation = O32FlexEdit2UserValidation
|
|
|
|
OnValidationError = O32FlexEditValidationError
|
|
|
|
end
|
|
|
|
end
|