You've already forked lazarus-ccr
62 lines
1.5 KiB
Plaintext
62 lines
1.5 KiB
Plaintext
|
object MainForm: TMainForm
|
||
|
|
Left = 569
|
||
|
|
Height = 349
|
||
|
|
Top = 219
|
||
|
|
Width = 454
|
||
|
|
Caption = 'VTV Drag and Drop'
|
||
|
|
ClientHeight = 349
|
||
|
|
ClientWidth = 454
|
||
|
|
Position = poScreenCenter
|
||
|
|
LCLVersion = '1.1'
|
||
|
|
object VirtualStringTree1: TVirtualStringTree
|
||
|
|
Left = 8
|
||
|
|
Height = 315
|
||
|
|
Top = 26
|
||
|
|
Width = 200
|
||
|
|
DefaultText = 'Node'
|
||
|
|
DragMode = dmAutomatic
|
||
|
|
DragType = dtVCL
|
||
|
|
Header.AutoSizeIndex = 0
|
||
|
|
Header.Columns = <>
|
||
|
|
Header.DefaultHeight = 17
|
||
|
|
Header.MainColumn = -1
|
||
|
|
RootNodeCount = 30
|
||
|
|
TabOrder = 0
|
||
|
|
TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScroll, toAutoScrollOnExpand, toAutoTristateTracking, toAutoDeleteMovedNodes]
|
||
|
|
OnDragOver = VirtualStringTree1DragOver
|
||
|
|
OnDragDrop = VirtualStringTree1DragDrop
|
||
|
|
OnGetText = VirtualStringTree1GetText
|
||
|
|
OnGetNodeDataSize = VirtualStringTree1GetNodeDataSize
|
||
|
|
OnInitNode = VirtualStringTree1InitNode
|
||
|
|
end
|
||
|
|
object ListBox1: TListBox
|
||
|
|
Left = 248
|
||
|
|
Height = 315
|
||
|
|
Top = 26
|
||
|
|
Width = 200
|
||
|
|
DragMode = dmAutomatic
|
||
|
|
Items.Strings = (
|
||
|
|
'List Item 1'
|
||
|
|
'List Item 2'
|
||
|
|
'List Item 3'
|
||
|
|
'List Item 4'
|
||
|
|
'List Item 5'
|
||
|
|
'List Item 6'
|
||
|
|
)
|
||
|
|
ItemHeight = 15
|
||
|
|
OnDragDrop = ListBox1DragDrop
|
||
|
|
OnDragOver = ListBox1DragOver
|
||
|
|
ScrollWidth = 190
|
||
|
|
TabOrder = 1
|
||
|
|
end
|
||
|
|
object ShowHeaderCheckBox: TCheckBox
|
||
|
|
Left = 8
|
||
|
|
Height = 19
|
||
|
|
Top = 3
|
||
|
|
Width = 90
|
||
|
|
Caption = 'Show Header'
|
||
|
|
OnChange = ShowHeaderCheckBoxChange
|
||
|
|
TabOrder = 2
|
||
|
|
end
|
||
|
|
end
|