You've already forked lazarus-ccr
a123ccb4f7
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6247 8e941d3f-bd1b-0410-a28a-d453659cc2b4
113 lines
2.7 KiB
Plaintext
113 lines
2.7 KiB
Plaintext
object Form1: TForm1
|
|
Left = 680
|
|
Height = 340
|
|
Top = 320
|
|
Width = 408
|
|
Caption = 'DBSearchEdit demo'
|
|
ClientHeight = 340
|
|
ClientWidth = 408
|
|
OnCreate = FormCreate
|
|
LCLVersion = '1.9.0.0'
|
|
object Panel1: TPanel
|
|
Left = 0
|
|
Height = 39
|
|
Top = 0
|
|
Width = 408
|
|
Align = alTop
|
|
AutoSize = True
|
|
BevelOuter = bvNone
|
|
ClientHeight = 39
|
|
ClientWidth = 408
|
|
TabOrder = 0
|
|
object JvDBSearchEdit1: TJvDBSearchEdit
|
|
AnchorSideLeft.Control = Label1
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = Panel1
|
|
AnchorSideRight.Control = CheckBox1
|
|
Left = 76
|
|
Height = 23
|
|
Top = 8
|
|
Width = 184
|
|
DataSource = DataSource1
|
|
DataResult = 'OK'
|
|
DataField = 'Name'
|
|
ClearOnEnter = False
|
|
Anchors = [akTop, akLeft, akRight]
|
|
BorderSpacing.Left = 7
|
|
BorderSpacing.Top = 8
|
|
BorderSpacing.Right = 16
|
|
BorderSpacing.Bottom = 8
|
|
TabOrder = 0
|
|
Text = 'JvDBSearchEdit1'
|
|
end
|
|
object Label1: TLabel
|
|
AnchorSideLeft.Control = Panel1
|
|
AnchorSideTop.Control = JvDBSearchEdit1
|
|
AnchorSideTop.Side = asrCenter
|
|
Left = 16
|
|
Height = 15
|
|
Top = 12
|
|
Width = 53
|
|
BorderSpacing.Left = 16
|
|
Caption = 'Search for'
|
|
ParentColor = False
|
|
end
|
|
object CheckBox1: TCheckBox
|
|
AnchorSideTop.Control = JvDBSearchEdit1
|
|
AnchorSideTop.Side = asrCenter
|
|
AnchorSideRight.Control = Panel1
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 276
|
|
Height = 19
|
|
Top = 10
|
|
Width = 116
|
|
Anchors = [akTop, akRight]
|
|
BorderSpacing.Right = 16
|
|
Caption = 'Clear on get focus'
|
|
OnChange = CheckBox1Change
|
|
TabOrder = 1
|
|
end
|
|
end
|
|
object DBGrid1: TDBGrid
|
|
Left = 0
|
|
Height = 301
|
|
Top = 39
|
|
Width = 408
|
|
Align = alClient
|
|
Color = clWindow
|
|
Columns = <>
|
|
DataSource = DataSource1
|
|
Options = [dgTitles, dgIndicator, dgColumnResize, dgColumnMove, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgDisableInsert]
|
|
ReadOnly = True
|
|
TabOrder = 1
|
|
end
|
|
object BufDataset1: TBufDataset
|
|
FieldDefs = <>
|
|
left = 104
|
|
top = 96
|
|
object BufDataset1Name: TStringField
|
|
FieldKind = fkData
|
|
FieldName = 'Name'
|
|
Index = 0
|
|
LookupCache = False
|
|
ProviderFlags = [pfInUpdate, pfInWhere]
|
|
ReadOnly = False
|
|
Required = False
|
|
end
|
|
object BufDataset1Birthdate: TDateField
|
|
FieldKind = fkData
|
|
FieldName = 'Birthdate'
|
|
Index = 1
|
|
LookupCache = False
|
|
ProviderFlags = [pfInUpdate, pfInWhere]
|
|
ReadOnly = False
|
|
Required = False
|
|
end
|
|
end
|
|
object DataSource1: TDataSource
|
|
DataSet = BufDataset1
|
|
left = 104
|
|
top = 184
|
|
end
|
|
end
|