object frmVTNoData: TfrmVTNoData
  Height = 346
  Top = 255
  Width = 401
  HorzScrollBar.Page = 400
  VertScrollBar.Page = 345
  ActiveControl = VT
  Caption = 'Basic VT as a Tree    (no node data used)'
  ClientHeight = 346
  ClientWidth = 401
  Font.Height = -11
  Font.Name = 'Tahoma'
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  Position = poDefaultPosOnly
  LCLVersion = '0.9.25'
  object Panel1: TPanel
    Height = 346
    Width = 401
    Align = alClient
    BevelOuter = bvNone
    BorderWidth = 7
    Caption = 'Panel1'
    ClientHeight = 346
    ClientWidth = 401
    TabOrder = 0
    object VT: TVirtualStringTree
      Left = 7
      Height = 301
      Top = 7
      Width = 387
      Align = alClient
      BorderStyle = bsSingle
      Header.Font.Height = -11
      Header.Font.Name = 'MS Shell Dlg 2'
      Header.MainColumn = -1
      Header.Options = [hoColumnResize, hoDrag]
      HintAnimation = hatNone
      Images = imgMaster
      TabOrder = 0
      TreeOptions.MiscOptions = [toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning]
      TreeOptions.SelectionOptions = [toCenterScrollIntoView]
      TreeOptions.StringOptions = [toSaveCaptions, toShowStaticText, toAutoAcceptEditChange]
      OnGetText = VTGetText
      OnPaintText = VTPaintText
      OnGetImageIndex = VTGetImageIndex
      OnGetNodeDataSize = VTGetNodeDataSize
      OnInitChildren = VTInitChildren
      OnInitNode = VTInitNode
      Columns = <>
    end
    object panBase: TPanel
      Left = 7
      Height = 31
      Top = 308
      Width = 387
      Align = alBottom
      BevelOuter = bvLowered
      ClientHeight = 31
      ClientWidth = 387
      TabOrder = 1
      object Label1: TLabel
        Left = 9
        Height = 17
        Top = 9
        Width = 115
        Alignment = taCenter
        Caption = 'VT.TreeOptions'
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'Tahoma'
        ParentColor = False
      end
      object chkCheckBoxes: TCheckBox
        Left = 180
        Height = 24
        Top = 7
        Width = 120
        Caption = 'Check Boxes'
        OnClick = chkCheckBoxesClick
        TabOrder = 0
      end
      object chkFullExpand: TCheckBox
        Left = 100
        Height = 24
        Top = 7
        Width = 109
        Caption = 'Full Expand'
        OnClick = chkFullExpandClick
        TabOrder = 1
      end
      object chkShowLevel: TCheckBox
        Left = 271
        Height = 24
        Top = 7
        Width = 108
        Caption = 'Show Level'
        OnClick = chkShowLevelClick
        TabOrder = 2
      end
    end
  end
  object imgMaster: TImageList
    left = 14
    top = 238
    Bitmap = {
[encoded data, 102240 characters]
      0000000000000000000000000000
    }
  end
end
