1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
|
object MainForm: TMainForm
Left = 569
Height = 349
Top = 219
Width = 454
Caption = 'VTV Drag and Drop'
ClientHeight = 349
ClientWidth = 454
Position = poScreenCenter
LCLVersion = '2.3.0.0'
object VirtualStringTree1: TLazVirtualStringTree
Left = 8
Height = 315
Top = 26
Width = 200
DefaultText = 'Node'
DragMode = dmAutomatic
DragType = dtVCL
Header.AutoSizeIndex = 0
Header.Columns = <>
Header.DefaultHeight = 17
Header.Height = 17
Header.MainColumn = -1
RootNodeCount = 30
TabOrder = 0
TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScroll, toAutoScrollOnExpand, toAutoTristateTracking, toAutoDeleteMovedNodes]
OnDragOver = VirtualStringTree1DragOver
OnDragDrop = VirtualStringTree1DragDrop
OnFreeNode = VirtualStringTree1FreeNode
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 = 27
OnDragDrop = ListBox1DragDrop
OnDragOver = ListBox1DragOver
ScrollWidth = 190
TabOrder = 1
end
object ShowHeaderCheckBox: TCheckBox
Left = 8
Height = 23
Top = 3
Width = 127
Caption = 'Show Header'
OnChange = ShowHeaderCheckBoxChange
TabOrder = 2
end
end
|
