home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1997 May
/
Pcwk0597.iso
/
borland
/
cb
/
setup
/
cbuilder
/
data.z
/
MASKPROP.DFM
/
MASKPROP.txt
Wrap
Text File
|
1997-02-28
|
3KB
|
166 lines
object MaskForm: TMaskForm
Left = 245
Top = 153
ActiveControl = InputMask
BorderStyle = bsDialog
Caption = 'Input Mask Editor'
ClientHeight = 211
ClientWidth = 488
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
PixelsPerInch = 96
Position = poScreenCenter
OnCreate = FormCreate
TextHeight = 13
object Bevel1: TBevel
Left = 8
Top = 124
Width = 193
Height = 50
Shape = bsFrame
end
object Label1: TLabel
Left = 8
Top = 8
Width = 56
Height = 13
Caption = '&Input Mask:'
FocusControl = InputMask
IsControl = True
end
object Label2: TLabel
Left = 208
Top = 8
Width = 72
Height = 13
Caption = '&Sample Masks:'
FocusControl = ListBox1
IsControl = True
end
object Label3: TLabel
Left = 12
Top = 128
Width = 51
Height = 13
Caption = '&Test Input:'
FocusControl = TestEdit
IsControl = True
end
object Label4: TLabel
Left = 24
Top = 60
Width = 99
Height = 13
Caption = 'Character for &Blanks:'
FocusControl = Blanks
IsControl = True
end
object InputMask: TEdit
Left = 8
Top = 24
Width = 192
Height = 21
TabOrder = 0
Text = 'InputMask'
OnChange = InputMaskChange
IsControl = True
end
object ListBox1: TListBox
Left = 208
Top = 24
Width = 268
Height = 149
ItemHeight = 16
Items.Strings = (
'Phone | 4155551212 | !\(999\)000-0000;1;_'
'Extension | 15450 | !99999;1;_'
'Social Security | 555555555 | 000\-00\-0000;1;_'
'Short Zip Code | 90504 | 00000;1;_'
'Long Zip Code | 905040000 | 00000\-9999;1;_'
'Date | 062794 | !99/99/00;1;_'
'Long Time | 090515PM | !90:00:00>LL;1;_'
'Short Time | 1345 | !90:00;1;_')
Style = lbOwnerDrawFixed
TabOrder = 4
OnClick = ListBoxSelect
OnDrawItem = ListDrawItem
IsControl = True
end
object TestEdit: TMaskEdit
Left = 12
Top = 148
Width = 185
Height = 21
MaxLength = 0
TabOrder = 3
IsControl = True
end
object Blanks: TEdit
Left = 152
Top = 56
Width = 33
Height = 21
MaxLength = 1
TabOrder = 1
Text = '_'
OnChange = BlanksChange
IsControl = True
end
object SaveMaskCheck: TCheckBox
Left = 8
Top = 84
Width = 177
Height = 20
Caption = 'Save &Literal Characters'
TabOrder = 2
OnClick = BlanksChange
IsControl = True
end
object Masks: TButton
Left = 16
Top = 181
Width = 75
Height = 25
Caption = '&Masks...'
TabOrder = 5
OnClick = MasksClick
end
object OKButton: TButton
Left = 241
Top = 181
Width = 75
Height = 25
Caption = 'OK'
Default = True
ModalResult = 1
TabOrder = 6
end
object CancelButton: TButton
Left = 321
Top = 181
Width = 75
Height = 25
Cancel = True
Caption = 'Cancel'
ModalResult = 2
TabOrder = 7
end
object HelpButton: TButton
Left = 401
Top = 181
Width = 75
Height = 25
Caption = '&Help'
TabOrder = 8
OnClick = HelpButtonClick
end
object OpenDialog1: TOpenDialog
DefaultExt = 'dem'
Filter = 'Edit Masks (*.dem)|*.dem|All Files (*.*)|*.*'
Title = 'Open Mask File'
Left = 112
Top = 184
end
end