mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-04 08:18:29 +02:00
64 lines
1.5 KiB
Plaintext
64 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 = '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
|