object GeneralForm: TGeneralForm
  Left = 291
  Height = 536
  Top = 185
  Width = 722
  ActiveControl = BitBtn1
  Caption = 'GeneralForm'
  ClientHeight = 536
  ClientWidth = 722
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  KeyPreview = True
  OnCreate = FormCreate
  ShowHint = True
  LCLVersion = '0.9.29'
  object Label18: TLabel
    AnchorSideTop.Control = RadioGroup2
    AnchorSideTop.Side = asrBottom
    Left = 502
    Height = 14
    Top = 361
    Width = 105
    Anchors = [akTop, akRight]
    BorderSpacing.Top = 20
    Caption = 'Switch check images:'
    ParentColor = False
  end
  object Label19: TLabel
    AnchorSideTop.Control = CheckMarkCombo
    AnchorSideTop.Side = asrBottom
    Left = 504
    Height = 14
    Top = 418
    Width = 98
    Anchors = [akTop, akRight]
    BorderSpacing.Top = 20
    Caption = 'Switch main column:'
    ParentColor = False
  end
  object Label8: TLabel
    Left = 488
    Height = 40
    Top = 40
    Width = 232
    Anchors = [akTop, akRight]
    Caption = 'This sample is an introduction to the general look and feel of Virtual Treeview. Note: you can change almost every visual aspect of the control.'
    ParentColor = False
    WordWrap = True
  end
  object VST2: TVirtualStringTree
    Left = 5
    Height = 523
    Top = 8
    Width = 474
    Anchors = [akTop, akLeft, akRight, akBottom]
    AutoExpandDelay = 300
    ButtonFillMode = fmWindowColor
    CheckImageKind = ckDarkTick
    ClipboardFormats.Strings = (
      'HTML Format'
      'Unicode text'
      'Virtual Tree Data'
    )
    Colors.BorderColor = clScrollBar
    Colors.DropTargetColor = clActiveBorder
    Colors.DropTargetBorderColor = clActiveCaption
    Colors.HotColor = clBlack
    Colors.UnfocusedSelectionBorderColor = clBtnShadow
    DefaultNodeHeight = 24
    DefaultText = 'Node'
    DragCursor = crHelp
    DrawSelectionMode = smBlendedRectangle
    EditDelay = 200
    Font.Height = -11
    Font.Name = 'Lucida Sans Unicode'
    Header.AutoSizeIndex = -1
    Header.Background = clBtnShadow
    Header.Columns = <    
      item
        Hint = 'Column which initially contains the tree.'
        ImageIndex = 10
        Position = 1
        Spacing = 20
        Text = 'Initial main column'
        Width = 300
      end    
      item
        Color = 14737632
        Hint = 'Image only column.'
        MaxWidth = 22
        Options = [coEnabled, coParentBidiMode, coVisible]
        Position = 0
        Spacing = 0
        Width = 22
      end    
      item
        Hint = 'Column with mathematic, greek, japanese and german (nonsense) text.'
        ImageIndex = 4
        Options = [coAllowClick, coEnabled, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus]
        Position = 2
        Spacing = 20
        Text = 'Language column'
        Width = 300
      end>
    Header.DefaultHeight = 17
    Header.Height = 20
    Header.Options = [hoColumnResize, hoDblClickResize, hoDrag, hoHotTrack, hoShowHint, hoVisible]
    Header.ParentFont = True
    Header.Style = hsFlatButtons
    HintMode = hmTooltip
    HotCursor = crHandPoint
    Images = TreeImages
    ParentFont = False
    RootNodeCount = 5
    ScrollBarOptions.VerticalIncrement = 19
    TabOrder = 0
    TreeOptions.AnimationOptions = [toAnimatedToggle]
    TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScroll, toAutoSpanColumns, toAutoTristateTracking, toAutoHideButtons, toDisableAutoscrollOnFocus, toAutoChangeScale]
    TreeOptions.MiscOptions = [toCheckSupport, toEditable, toInitOnSave, toToggleOnDblClick, toWheelPanning]
    TreeOptions.PaintOptions = [toHideSelection, toHotTrack, toShowButtons, toShowDropmark, toShowRoot, toShowTreeLines, toShowVertGridLines, toThemeAware, toUseBlendedImages, toFullVertGridLines, toUseBlendedSelection]
    TreeOptions.SelectionOptions = [toExtendedFocus, toMiddleClickSelect, toMultiSelect, toRightClickSelect]
    TreeOptions.StringOptions = [toSaveCaptions, toShowStaticText, toAutoAcceptEditChange]
    OnDragOver = VST2DragOver
    OnFocusChanging = VST2FocusChanging
    OnGetText = VST2GetText
    OnPaintText = VST2PaintText
    OnGetImageIndexEx = VST2GetImageIndexEx
    OnGetNodeDataSize = VST2GetNodeDataSize
    OnGetPopupMenu = VST2GetPopupMenu
    OnInitChildren = VST2InitChildren
    OnInitNode = VST2InitNode
    OnKeyDown = VST2KeyDown
    OnNewText = VST2NewText
    OnStateChange = VST2StateChange
  end
  object CheckMarkCombo: TComboBox
    AnchorSideTop.Control = Label18
    AnchorSideTop.Side = asrBottom
    Left = 488
    Height = 21
    Top = 377
    Width = 216
    Anchors = [akTop, akRight]
    BorderSpacing.Top = 2
    ItemHeight = 13
    Items.Strings = (
      'Light check marks'
      'Dark check marks'
      'Light tick marks'
      'Dark tick marks'
      'Flat tick marks'
      'Windows XP style images'
      'Custom check images'
      'System flat check images'
      'System default check images'
    )
    OnChange = CheckMarkComboChange
    PopupMenu = PopupMenu1
    Style = csDropDownList
    TabOrder = 1
  end
  object MainColumnUpDown: TUpDown
    AnchorSideTop.Control = Label19
    AnchorSideTop.Side = asrBottom
    Left = 488
    Height = 16
    Top = 434
    Width = 37
    Anchors = [akTop, akRight]
    BorderSpacing.Top = 2
    Min = 0
    Max = 2
    Increment = 2
    Orientation = udHorizontal
    Position = 2
    TabOrder = 2
    Wrap = True
    OnChanging = MainColumnUpDownChanging
  end
  object BitBtn1: TBitBtn
    Left = 488
    Height = 30
    Hint = 'Pick a font to be used by this tree.'
    Top = 8
    Width = 99
    Anchors = [akTop, akRight]
    Caption = 'Tree font'
    Glyph.Data = {
      96010000424D9601000000000000760000002800000018000000180000000100
      0400000000002001000000000000000000001000000000000000000000000000
      BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333333333380088333333333333333338007700833333
      3333333333307700770333000333300003307033003333090833309903077033
      3333330990000999030770333333333099999990330770833033333090000903
      3330708807033330990309033330770077033333090090333333007707033333
      099090333333330030333333309990338000033333333333309903300CCCC003
      3333333333090330CC00CCC03333333333090330C0330CC03333333333303330
      CC000CC03333333333333330CCCCCCC03333333333333330C0330C0333333333
      33333300C000CC0333333333333330CCCCCCCC03333333333333300000000033
      3333333333333333333333333333333333333333333333333333
    }
    NumGlyphs = 0
    OnClick = BitBtn1Click
    TabOrder = 3
  end
  object RadioGroup1: TRadioGroup
    AnchorSideTop.Control = ThemeRadioGroup
    AnchorSideTop.Side = asrBottom
    Left = 488
    Height = 77
    Top = 177
    Width = 216
    Anchors = [akTop, akRight]
    AutoFill = True
    BorderSpacing.Top = 10
    Caption = 'Tree button look: '
    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 = 59
    ClientWidth = 212
    ItemIndex = 0
    Items.Strings = (
      'Usual +/- buttons and lines'
      'Little triangles without lines'
    )
    OnClick = RadioGroup1Click
    TabOrder = 4
  end
  object RadioGroup2: TRadioGroup
    AnchorSideTop.Control = RadioGroup1
    AnchorSideTop.Side = asrBottom
    Left = 488
    Height = 77
    Top = 264
    Width = 216
    Anchors = [akTop, akRight]
    AutoFill = True
    BorderSpacing.Top = 10
    Caption = 'Draw selection mode: '
    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 = 59
    ClientWidth = 212
    ItemIndex = 1
    Items.Strings = (
      'Dotted rectangle'
      'Alpha blended rectangle'
    )
    OnClick = RadioGroup2Click
    TabOrder = 5
  end
  object ThemeRadioGroup: TRadioGroup
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = Label8
    AnchorSideTop.Side = asrBottom
    Left = 488
    Height = 77
    Top = 90
    Width = 216
    Anchors = [akTop, akRight]
    AutoFill = True
    BorderSpacing.Left = 10
    BorderSpacing.Top = 10
    Caption = ' Switch XP theme awareness: '
    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 = 59
    ClientWidth = 212
    Items.Strings = (
      'Theme aware'
      'Not theme aware'
    )
    OnClick = ThemeRadioGroupClick
    TabOrder = 6
  end
  object SaveButton: TBitBtn
    Left = 608
    Height = 30
    Top = 8
    Width = 99
    Anchors = [akTop, akRight]
    Caption = 'Save as text...'
    NumGlyphs = 0
    OnClick = SaveButtonClick
    TabOrder = 7
  end
  object TreeImages: TImageList
    left = 22
    top = 148
    Bitmap = {
[encoded data, 40896 characters]
      0000000000000000000000000000
    }
  end
  object FontDialog1: TFontDialog
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    MinFontSize = 0
    MaxFontSize = 0
    left = 84
    top = 148
  end
  object PopupMenu1: TPopupMenu
    left = 116
    top = 148
    object Onemenuitem1: TMenuItem
      Caption = 'Menu items'
    end
    object forrightclickselection1: TMenuItem
      Caption = 'for right click selection'
    end
    object withpopupmenu1: TMenuItem
      Caption = 'with popup menu.'
    end
  end
  object SaveDialog: TSaveDialog
    Filter = 'HTML file in UTF-8 (*.htm; *.html)|*.htm;*.html|Unicode UTF-16 text file (*.uni)|*.uni|Rich text UTF-16 file (*.rtf)|*.rtf|Comma separated values ANSI text file (*.csv)|*.csv|Unicode UTF-8 text file (*.txt)|*.txt|Plain ANSI text file (*.txt)|*.txt'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofExtensionDifferent, ofEnableSizing]
    left = 148
    top = 148
  end
  object ImageList1: TImageList
    Height = 24
    Width = 24
    left = 32
    top = 200
    Bitmap = {
[encoded data, 414072 characters]
      0000000000000000000000000000
    }
  end
end
