object frmVTDBExample: TfrmVTDBExample
  Left = 448
  Height = 482
  Top = 124
  Width = 553
  HorzScrollBar.Page = 552
  VertScrollBar.Page = 481
  ActiveControl = VT
  Caption = 'Database Test'
  ClientHeight = 482
  ClientWidth = 553
  Font.Height = -11
  Font.Name = 'Tahoma'
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  Position = poDefaultPosOnly
  LCLVersion = '0.9.25'
  object Label1: TLabel
    Left = 12
    Height = 17
    Top = 12
    Width = 171
    Caption = 'Last operation duration:'
    ParentColor = False
  end
  object Panel1: TPanel
    Height = 482
    Width = 553
    Align = alClient
    BevelOuter = bvNone
    BorderWidth = 7
    Caption = 'Panel1'
    ClientHeight = 482
    ClientWidth = 553
    TabOrder = 0
    object VT: TVirtualStringTree
      Left = 7
      Height = 405
      Top = 7
      Width = 539
      Align = alClient
      Colors.BorderColor = clWindowText
      Colors.FocusedSelectionColor = 16756912
      Colors.HotColor = clBlue
      DefaultNodeHeight = 22
      Font.Height = -11
      Font.Name = 'Tahoma'
      Header.Font.Height = -11
      Header.Font.Name = 'MS Sans Serif'
      Header.Images = imgMaster
      Header.Options = [hoColumnResize, hoDrag, hoVisible]
      Header.Style = hsFlatButtons
      HintAnimation = hatNone
      Images = imgMaster
      IncrementalSearch = isAll
      LineMode = lmBands
      TabOrder = 0
      TextMargin = 3
      TreeOptions.AnimationOptions = [toAnimatedToggle]
      TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScroll, toAutoSpanColumns]
      TreeOptions.MiscOptions = [toCheckSupport, toEditable, toGridExtensions, toInitOnSave, toReportMode, toToggleOnDblClick, toWheelPanning]
      TreeOptions.PaintOptions = [toHideFocusRect, toShowButtons, toShowHorzGridLines, toShowRoot, toShowTreeLines, toShowVertGridLines, toThemeAware, toUseBlendedImages, toGhostedIfUnfocused]
      TreeOptions.SelectionOptions = [toDisableDrawSelection, toExtendedFocus, toMultiSelect, toCenterScrollIntoView]
      TreeOptions.StringOptions = [toSaveCaptions, toShowStaticText, toAutoAcceptEditChange]
      WantTabs = True
      OnCompareNodes = VTCompareNodes
      OnFocusChanging = VTFocusChanging
      OnFreeNode = VTFreeNode
      OnGetText = VTGetText
      OnPaintText = VTPaintText
      OnGetImageIndex = VTGetImageIndex
      OnGetNodeDataSize = VTGetNodeDataSize
      OnHeaderClick = VTHeaderClick
      OnIncrementalSearch = VTIncrementalSearch
      OnInitChildren = VTInitChildren
      OnInitNode = VTInitNode
      OnNewText = VTNewText
      Columns = <      
        item
          ImageIndex = 3
          Layout = blGlyphRight
          Options = [coAllowClick, coDraggable, coEnabled, coParentBidiMode, coResizable, coShowDropMark, coVisible]
          Position = 1
          Width = 200
          WideText = 'Company'
        end      
        item
          Position = 2
          Width = 150
          WideText = 'Contact'
        end      
        item
          Alignment = taCenter
          Width = 42
          WideText = 'Status'
        end>
    end
    object Panel2: TPanel
      Left = 7
      Height = 63
      Top = 412
      Width = 539
      Align = alBottom
      BevelOuter = bvLowered
      ClientHeight = 63
      ClientWidth = 539
      TabOrder = 1
      object Label2: TLabel
        Left = 16
        Height = 17
        Top = 12
        Width = 98
        Caption = 'Add Node(s):'
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'Tahoma'
        ParentColor = False
      end
      object Label3: TLabel
        Left = 168
        Height = 17
        Top = 5
        Width = 50
        Caption = 'Toggle'
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'Tahoma'
        ParentColor = False
      end
      object Label4: TLabel
        Left = 239
        Height = 17
        Top = 5
        Width = 57
        Caption = 'Options'
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'Tahoma'
        ParentColor = False
      end
      object Bevel1: TBevel
        Left = 228
        Height = 50
        Top = 8
        Width = 2
      end
      object Label5: TLabel
        Left = 307
        Height = 17
        Top = 6
        Width = 292
        Alignment = taCenter
        Caption = '(Tip: Start typing for incremental search)'
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'Tahoma'
        ParentColor = False
      end
      object ed: TEdit
        Left = 16
        Height = 21
        Top = 29
        Width = 57
        TabOrder = 0
        Text = '1'
      end
      object AddOneButton: TButton
        Left = 89
        Height = 20
        Top = 19
        Width = 62
        BorderSpacing.InnerBorder = 4
        Caption = 'To Root'
        OnClick = AddButtonClick
        TabOrder = 1
      end
      object Button1: TButton
        Tag = 1
        Left = 89
        Height = 20
        Top = 38
        Width = 62
        BorderSpacing.InnerBorder = 4
        Caption = 'As Children'
        OnClick = AddButtonClick
        TabOrder = 2
      end
      object btnHasChildren: TButton
        Left = 158
        Height = 20
        Top = 19
        Width = 62
        BorderSpacing.InnerBorder = 4
        Caption = 'HasChildren'
        OnClick = btnHasChildrenClick
        TabOrder = 3
      end
      object chkShowIDs: TCheckBox
        Left = 244
        Height = 24
        Top = 35
        Width = 86
        Caption = 'Show ID'
        OnClick = chkShowIDsClick
        TabOrder = 4
      end
      object btnToggleVisibility: TButton
        Left = 158
        Height = 20
        Top = 38
        Width = 62
        BorderSpacing.InnerBorder = 4
        Caption = 'Visibility'
        OnClick = btnToggleVisibilityClick
        TabOrder = 5
      end
      object chkAllVisible: TCheckBox
        Left = 429
        Height = 24
        Top = 35
        Width = 92
        Caption = 'All Visible'
        OnClick = chkAllVisibleClick
        TabOrder = 6
      end
      object chkDynHt: TCheckBox
        Left = 324
        Height = 24
        Top = 35
        Width = 139
        Caption = 'Dynamic Height'
        OnClick = chkDynHtClick
        TabOrder = 7
      end
    end
  end
  object imgMaster: TImageList
    left = 396
    top = 310
    Bitmap = {
[encoded data, 102240 characters]
      0000000000000000000000000000
    }
  end
end
