You've already forked lazarus-ccr
141 lines
3.1 KiB
Plaintext
141 lines
3.1 KiB
Plaintext
![]() |
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
|