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