Files
lazarus-ccr/components/jvcllaz/examples/JvLookupAutoComplete/main.lfm

141 lines
3.1 KiB
Plaintext
Raw Normal View History

object Form1: TForm1
Left = 326
Height = 398
Top = 128
Width = 418
AutoSize = True
Caption = 'JvLookupAutoComplete demo'
ClientHeight = 398
ClientWidth = 418
OnCreate = FormCreate
LCLVersion = '2.1.0.0'
object Edit1: TEdit
AnchorSideLeft.Control = Label1
AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrBottom
Left = 16
Height = 23
Top = 50
Width = 176
BorderSpacing.Top = 4
TabOrder = 0
end
object ListBox1: TListBox
AnchorSideLeft.Control = Edit1
AnchorSideTop.Control = Edit1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Edit1
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom
Left = 16
Height = 281
Top = 81
Width = 176
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 8
BorderSpacing.Bottom = 16
Constraints.MinHeight = 250
Items.Strings = (
'ListBox'
'ComboBox'
'Edit'
'ListView'
'TreeView'
'ScrollBar'
'ScrollBox'
'StatusBar'
'ToolBar'
'Menu'
'PopupMenu'
'Button'
'BitBtn'
'SpeedButton'
)
ItemHeight = 15
Options = []
TabOrder = 1
end
object Label1: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Label4
AnchorSideTop.Side = asrBottom
Left = 16
Height = 15
Top = 31
Width = 66
BorderSpacing.Left = 16
BorderSpacing.Top = 4
Caption = 'listbox items'
ParentColor = False
WordWrap = True
end
object Label2: TLabel
AnchorSideLeft.Control = Edit1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Label1
Left = 208
Height = 15
Top = 31
Width = 77
BorderSpacing.Left = 16
Caption = 'stringlist items'
ParentColor = False
WordWrap = True
end
object Edit2: TEdit
AnchorSideLeft.Control = Label2
AnchorSideTop.Control = Edit1
Left = 208
Height = 23
Top = 50
Width = 168
BorderSpacing.Right = 16
TabOrder = 2
end
object Label3: TLabel
AnchorSideLeft.Control = Edit2
AnchorSideTop.Control = ListBox1
AnchorSideRight.Control = Edit2
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = ListBox1
AnchorSideBottom.Side = asrBottom
Left = 208
Height = 281
Top = 81
Width = 168
Anchors = [akTop, akLeft, akRight, akBottom]
AutoSize = False
Caption = 'Type listbox items into the edit controls and see autocompletion.'
Layout = tlCenter
ParentColor = False
WordWrap = True
end
object Label4: TLabel
AnchorSideLeft.Control = Edit1
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Edit2
AnchorSideRight.Side = asrBottom
Left = 16
Height = 15
Top = 12
Width = 360
Alignment = taCenter
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 12
Caption = 'Autocompletion based on...'
ParentColor = False
end
object JvLookupAutoComplete1: TJvLookupAutoComplete
Edit = Edit1
ListBox = ListBox1
left = 80
top = 304
end
object JvLookupAutoComplete2: TJvLookupAutoComplete
Edit = Edit2
Kind = akStrings
left = 272
top = 304
end
end