You've already forked lazarus-ccr
734a8fd99c
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4671 8e941d3f-bd1b-0410-a28a-d453659cc2b4
63 lines
1.5 KiB
Plaintext
63 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.7'
|
|
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
|
|
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 = 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
|