mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-07 23:38:34 +02:00
178 lines
3.8 KiB
Plaintext
178 lines
3.8 KiB
Plaintext
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
|