1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
|
object Form1: TForm1
Left = 444
Height = 443
Top = 175
Width = 515
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'Test DBEdit with mask'
ClientHeight = 443
ClientWidth = 515
OnCreate = FormCreate
Position = poScreenCenter
LCLVersion = '1.9.0.0'
object Label3: TLabel
Left = 8
Height = 15
Top = 16
Width = 171
Caption = 'ADate Field - Mask: !99/99/00;1;_'
ParentColor = False
end
object DBGrid1: TDBGrid
Left = 8
Height = 273
Top = 112
Width = 497
Color = clWindow
Columns = <
item
Title.Caption = 'ADATE'
Width = 180
FieldName = 'ADATE'
end
item
Title.Caption = 'ASTR'
Width = 100
FieldName = 'ASTR'
end
item
Title.Caption = 'AINT'
Width = 100
FieldName = 'AINT'
end>
DataSource = DataSource1
TabOrder = 0
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
end
object DBNavigator1: TDBNavigator
Left = 8
Height = 42
Top = 392
Width = 497
BevelOuter = bvNone
ChildSizing.EnlargeHorizontal = crsScaleChilds
ChildSizing.EnlargeVertical = crsScaleChilds
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 100
ClientHeight = 42
ClientWidth = 497
DataSource = DataSource1
Options = []
TabOrder = 1
end
object DateEdit: TDBEdit
Left = 8
Height = 23
Top = 32
Width = 246
CustomEditMask = True
DataField = 'ADate'
DataSource = DataSource1
CharCase = ecNormal
EditMask = '!99/99/00;1;_'
MaxLength = 8
TabOrder = 2
end
object ShowLongDateCheckBox: TCheckBox
Left = 270
Height = 19
Top = 32
Width = 98
Caption = 'Show Full Date'
OnChange = ShowLongDateCheckBoxChange
TabOrder = 3
end
object IntEdit: TDBEdit
Left = 8
Height = 23
Top = 80
Width = 246
CustomEditMask = True
DataField = 'AINT'
DataSource = DataSource1
CharCase = ecNormal
EditMask = '!99;1;_'
MaxLength = 2
TabOrder = 4
end
object Label1: TLabel
Left = 8
Height = 15
Top = 64
Width = 50
Caption = 'AInt Field'
ParentColor = False
end
object DBEdit1: TDBEdit
Left = 271
Height = 23
Top = 80
Width = 193
CustomEditMask = True
DataField = 'ASTR'
DataSource = DataSource1
CharCase = ecNormal
EditMask = '(99) 9999.9999;1;_'
MaxLength = 14
TabOrder = 5
end
object Label2: TLabel
Left = 270
Height = 15
Top = 64
Width = 95
Caption = 'AStr Field (Phone)'
ParentColor = False
end
object DataSource1: TDataSource
DataSet = Dbf1
left = 400
top = 288
end
object Dbf1: TDbf
IndexDefs = <>
TableName = 'test.db'
TableLevel = 4
FilterOptions = []
left = 312
top = 288
object Dbf1ASTR: TStringField
DisplayWidth = 50
FieldKind = fkData
FieldName = 'ASTR'
Index = 0
LookupCache = False
ProviderFlags = [pfInUpdate, pfInWhere]
ReadOnly = False
Required = False
Size = 50
end
object Dbf1ADATE: TDateField
DisplayWidth = 10
FieldKind = fkData
FieldName = 'ADATE'
Index = 1
LookupCache = False
ProviderFlags = [pfInUpdate, pfInWhere]
ReadOnly = False
Required = False
OnSetText = Dbf1ADATESetText
end
object Dbf1AINT: TLargeintField
DisplayWidth = 10
FieldKind = fkData
FieldName = 'AINT'
Index = 2
LookupCache = False
ProviderFlags = [pfInUpdate, pfInWhere]
ReadOnly = False
Required = False
OnGetText = Dbf1AINTGetText
end
end
end
|
