object VisibilityForm: TVisibilityForm
  Left = 386
  Height = 536
  Top = 210
  Width = 809
  ActiveControl = VST1
  Caption = 'VisibilityForm'
  ClientHeight = 536
  ClientWidth = 809
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  OnCreate = FormCreate
  OnHide = FormHide
  OnShow = FormShow
  LCLVersion = '0.9.29'
  object Label17: TLabel
    Left = 368
    Height = 77
    Top = 4
    Width = 240
    Anchors = [akTop, akRight]
    AutoSize = False
    Caption = 'This tree shows the effects of hiding and showing treenodes without actually deleting and recreating them or rebuild of the entire tree.'
    ParentColor = False
    WordWrap = True
  end
  object Label1: TLabel
    Left = 504
    Height = 81
    Top = 212
    Width = 296
    Anchors = [akTop, akRight]
    Caption = 'This sample shows how two treeviews can be synchronized. They can even be adjusted so that it looks as if they share the same background. The splitter between the trees is drawn so that is appears nearly invisible.'
    ParentColor = False
    WordWrap = True
  end
  object Label2: TLabel
    AnchorSideTop.Control = Label1
    AnchorSideTop.Side = asrBottom
    Left = 504
    Height = 81
    Top = 301
    Width = 296
    Anchors = [akTop, akRight]
    BorderSpacing.Top = 8
    Caption = 'The best effect is maybe when doing wheel panning. If you have a wheel mouse then try clicking the middle button (the wheel) in one of the trees and  when the special cursor appears move the mouse around.'
    ParentColor = False
    WordWrap = True
  end
  object Label3: TLabel
    Left = 616
    Height = 77
    Top = 4
    Width = 184
    Anchors = [akTop, akRight]
    AutoSize = False
    Caption = 'Hint: you can hide some nodes, select some remaining and reshow the others to see the effect better.'
    ParentColor = False
    WordWrap = True
  end
  object Label4: TLabel
    AnchorSideTop.Control = Label2
    AnchorSideTop.Side = asrBottom
    Left = 504
    Height = 33
    Top = 390
    Width = 296
    Anchors = [akTop, akRight]
    BorderSpacing.Top = 8
    Caption = ' Expand the trees first (Ctrl Shift +, for full expand) see the full effect.'
    ParentColor = False
    WordWrap = True
  end
  object RadioGroup1: TRadioGroup
    Left = 368
    Height = 109
    Top = 88
    Width = 369
    Anchors = [akTop, akRight]
    AutoFill = True
    Caption = ' Choose which nodes to hide: '
    ChildSizing.LeftRightSpacing = 6
    ChildSizing.TopBottomSpacing = 6
    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
    ChildSizing.EnlargeVertical = crsHomogenousChildResize
    ChildSizing.ShrinkHorizontal = crsScaleChilds
    ChildSizing.ShrinkVertical = crsScaleChilds
    ChildSizing.Layout = cclLeftToRightThenTopToBottom
    ChildSizing.ControlsPerLine = 1
    ClientHeight = 91
    ClientWidth = 365
    ItemIndex = 0
    Items.Strings = (
      'show all nodes'
      'hide every second node'
      'hide nodes with children only'
      'hide all nodes'
    )
    OnClick = RadioGroup1Click
    TabOrder = 2
  end
  object Panel2: TPanel
    Left = 4
    Height = 322
    Top = 212
    Width = 492
    Anchors = [akTop, akLeft, akRight, akBottom]
    ClientHeight = 322
    ClientWidth = 492
    FullRepaint = False
    TabOrder = 1
    object Splitter2: TSplitter
      Left = 205
      Height = 320
      Top = 1
      Width = 2
      AutoSnap = False
      OnCanResize = Splitter2CanResize
    end
    object VST2: TVirtualStringTree
      Left = 1
      Height = 320
      Top = 1
      Width = 204
      Align = alLeft
      Background.Data = {
[encoded data, 291635 characters]
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00
      }
      ButtonStyle = bsTriangle
      CheckImageKind = ckFlat
      Colors.BorderColor = clWindowText
      Colors.HotColor = clBlack
      Colors.UnfocusedSelectionColor = clHighlight
      Colors.UnfocusedSelectionBorderColor = clHighlight
      DefaultNodeHeight = 24
      DefaultText = 'Node'
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Verdana'
      Header.AutoSizeIndex = 0
      Header.Columns = <      
        item
          Position = 0
          Text = 'Main column'
          Width = 200
        end>
      Header.DefaultHeight = 17
      Header.Font.Color = clNavy
      Header.Font.Height = -13
      Header.Font.Name = 'Verdana'
      Header.Font.Style = [fsBold]
      Header.Height = 24
      Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoVisible]
      Header.Style = hsFlatButtons
      HintMode = hmTooltip
      IncrementalSearch = isAll
      Indent = 28
      ParentFont = False
      ParentShowHint = False
      ScrollBarOptions.AlwaysVisible = True
      ScrollBarOptions.ScrollBars = ssHorizontal
      SelectionCurveRadius = 3
      ShowHint = True
      TabOrder = 0
      TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScroll, toAutoTristateTracking]
      TreeOptions.MiscOptions = [toCheckSupport, toInitOnSave, toToggleOnDblClick, toWheelPanning]
      TreeOptions.PaintOptions = [toHideFocusRect, toShowBackground, toShowButtons, toShowDropmark, toShowRoot, toShowTreeLines, toThemeAware, toUseBlendedImages, toUseBlendedSelection]
      TreeOptions.SelectionOptions = [toExtendedFocus]
      OnChange = VST2Change
      OnCollapsed = VSTCollapsedExpanded
      OnExpanded = VSTCollapsedExpanded
      OnGetText = VST2GetText
      OnInitChildren = VST2InitChildren
      OnInitNode = VST1InitNode
      OnScroll = VST2Scroll
    end
    object VST3: TVirtualStringTree
      Left = 207
      Height = 320
      Top = 1
      Width = 284
      Align = alClient
      Background.Data = {
[encoded data, 291635 characters]
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00
      }
      ButtonStyle = bsTriangle
      Colors.BorderColor = clWindowText
      Colors.HotColor = clBlack
      Colors.UnfocusedSelectionColor = clHighlight
      Colors.UnfocusedSelectionBorderColor = clHighlight
      DefaultNodeHeight = 24
      DefaultText = 'Node'
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Verdana'
      Header.AutoSizeIndex = 0
      Header.Columns = <>
      Header.DefaultHeight = 17
      Header.Font.Color = clNavy
      Header.Font.Height = -13
      Header.Font.Name = 'Verdana'
      Header.Font.Style = [fsBold]
      Header.Height = 24
      Header.MainColumn = -1
      Header.Options = [hoColumnResize, hoDrag, hoVisible]
      Header.Style = hsFlatButtons
      HintMode = hmTooltip
      IncrementalSearch = isAll
      Indent = 28
      ParentFont = False
      ParentShowHint = False
      ScrollBarOptions.AlwaysVisible = True
      SelectionCurveRadius = 3
      ShowHint = True
      TabOrder = 1
      TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScroll, toAutoTristateTracking]
      TreeOptions.MiscOptions = [toCheckSupport, toInitOnSave, toToggleOnDblClick, toWheelPanning]
      TreeOptions.PaintOptions = [toHideFocusRect, toShowBackground, toShowButtons, toShowDropmark, toShowRoot, toShowTreeLines, toThemeAware, toUseBlendedImages, toUseBlendedSelection]
      TreeOptions.SelectionOptions = [toExtendedFocus, toFullRowSelect]
      OnChange = VST2Change
      OnCollapsed = VSTCollapsedExpanded
      OnExpanded = VSTCollapsedExpanded
      OnGetText = VST2GetText
      OnInitChildren = VST2InitChildren
      OnInitNode = VST1InitNode
      OnScroll = VST3Scroll
    end
  end
  object VST1: TVirtualStringTree
    Left = 4
    Height = 193
    Top = 4
    Width = 356
    Anchors = [akTop, akLeft, akRight]
    Colors.BorderColor = clWindowText
    Colors.HotColor = clBlack
    DefaultNodeHeight = 24
    DefaultText = 'Node'
    Header.AutoSizeIndex = 0
    Header.Columns = <>
    Header.DefaultHeight = 17
    Header.Font.Height = -11
    Header.Font.Name = 'MS Sans Serif'
    Header.MainColumn = -1
    Header.Options = [hoColumnResize, hoDrag]
    HintMode = hmTooltip
    IncrementalSearch = isAll
    Indent = 28
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScroll, toAutoScrollOnExpand, toAutoTristateTracking, toAutoHideButtons]
    TreeOptions.SelectionOptions = [toMultiSelect]
    OnGetText = VST1GetText
    OnInitChildren = VST1InitChildren
    OnInitNode = VST1InitNode
  end
end
