object WindowsXPForm: TWindowsXPForm
  Left = 386
  Height = 487
  Top = 327
  Width = 829
  HorzScrollBar.Page = 828
  VertScrollBar.Page = 486
  ActiveControl = XPTree
  Caption = 'WindowsXPForm'
  ClientHeight = 487
  ClientWidth = 829
  Font.CharSet = ANSI_CHARSET
  Font.Height = -13
  Font.Name = 'Microsoft Sans Serif'
  OnCreate = FormCreate
  LCLVersion = '0.9.25'
  object Label1: TLabel
    Left = 576
    Height = 80
    Top = 56
    Width = 244
    Anchors = [akTop, akRight]
    AutoSize = False
    Caption = 'This demo shows a tree with properties which make it look as in the new Windows XP style. Under Windows XP native theme APIs are used to paint the tree. On other system legacy code is used which simulates the look.'
    ParentColor = False
    WordWrap = True
  end
  object Label2: TLabel
    Left = 576
    Height = 97
    Top = 144
    Width = 243
    Anchors = [akTop, akRight]
    AutoSize = False
    Caption = 'Note that the scrollbars are not drawn in the new style on non-XP systems.  It would be far off the goal of the tree to reimplement a full blown scrollbar handling, which would be required otherwise.'
    ParentColor = False
    WordWrap = True
  end
  object Label4: TLabel
    Cursor = crHandPoint
    Left = 577
    Height = 136
    Top = 256
    Width = 243
    Anchors = [akTop, akRight]
    AutoSize = False
    Caption = 'If you want to have an explorer treeview with real content then I recommend that you give Jim Kuenemann''s shell tools a try. His shell treeview (based on Virtual Treeview) is the most advanced you will find worldwide. Click here to open Yahoo Group.'
    Font.CharSet = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -13
    Font.Name = 'Microsoft Sans Serif'
    ParentColor = False
    WordWrap = True
    OnClick = Label4Click
  end
  object XPTree: TVirtualStringTree
    Cursor = 63
    Left = 8
    Height = 416
    Top = 40
    Width = 554
    AutoScrollDelay = 500
    BorderStyle = bsSingle
    ButtonFillMode = fmShaded
    CheckImageKind = ckXP
    ClipboardFormats.Strings = (
      'CSV'
      'HTML Format'
    )
    Colors.DropTargetColor = 7063465
    Colors.DropTargetBorderColor = 4958089
    Colors.FocusedSelectionColor = clActiveCaption
    Colors.FocusedSelectionBorderColor = clActiveCaption
    Colors.GridLineColor = clBtnShadow
    Colors.UnfocusedSelectionBorderColor = clBtnShadow
    DefaultNodeHeight = 34
    DragMode = dmAutomatic
    DrawSelectionMode = smBlendedRectangle
    Header.AutoSizeIndex = -1
    Header.Font.CharSet = ANSI_CHARSET
    Header.Font.Height = -12
    Header.Font.Name = 'Microsoft Sans Serif'
    Header.Height = 24
    Header.Options = [hoColumnResize, hoDrag, hoHotTrack, hoShowSortGlyphs, hoVisible]
    Header.Style = hsXPStyle
    HintAnimation = hatFade
    HintMode = hmHint
    Images = LargeImages
    ParentShowHint = False
    RootNodeCount = 18
    ShowHint = True
    StateImages = SmallImages
    TabOrder = 0
    TreeOptions.AnimationOptions = [toAnimatedToggle]
    TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScroll, toAutoScrollOnExpand, toAutoTristateTracking]
    TreeOptions.MiscOptions = [toCheckSupport, toInitOnSave, toReportMode, toToggleOnDblClick, toWheelPanning]
    TreeOptions.PaintOptions = [toHideFocusRect, toShowButtons, toShowDropmark, toShowRoot, toThemeAware]
    TreeOptions.SelectionOptions = [toMultiSelect]
    OnCompareNodes = XPTreeCompareNodes
    OnGetText = XPTreeGetText
    OnGetImageIndex = XPTreeGetImageIndex
    OnGetHint = XPTreeGetHint
    OnHeaderClick = XPTreeHeaderClick
    OnInitChildren = XPTreeInitChildren
    OnInitNode = XPTreeInitNode
    OnStateChange = XPTreeStateChange
    Columns = <    
      item
        Color = 16250871
        Options = [coAllowClick, coEnabled, coParentBidiMode, coResizable, coShowDropMark, coVisible]
        Width = 200
        WideText = 'Name'
      end    
      item
        Alignment = taRightJustify
        Position = 1
        Width = 100
        WideText = 'Size'
      end    
      item
        Position = 2
        Width = 100
        WideText = 'Type'
      end>
  end
  object CoolBar1: TPanel
    Height = 33
    Width = 829
    Align = alTop
    AutoSize = True
    ClientHeight = 33
    ClientWidth = 829
    TabOrder = 1
    object ToolBar1: TToolBar
      Left = 1
      Top = 1
      Width = 827
      AutoSize = True
      ButtonHeight = 30
      ButtonWidth = 213
      Caption = 'ToolBar1'
      Images = SmallImages
      List = True
      ShowCaptions = True
      TabOrder = 0
      Transparent = True
      object ToolButton1: TToolButton
        Left = 1
        Top = 2
        AutoSize = True
        ImageIndex = 9
        Style = tbsDropDown
      end
      object ToolButton2: TToolButton
        Left = 47
        Top = 2
        AutoSize = True
        ImageIndex = 10
        Style = tbsDropDown
      end
      object ToolButton3: TToolButton
        Left = 93
        Top = 2
        AutoSize = True
        ImageIndex = 18
      end
      object ToolButton4: TToolButton
        Left = 127
        Top = 2
        AutoSize = True
        ImageIndex = 14
      end
      object ToolButton5: TToolButton
        Left = 161
        Top = 2
        AutoSize = True
        ImageIndex = 21
      end
      object ToolButton6: TToolButton
        Left = 195
        Top = 2
        AutoSize = True
        ImageIndex = 8
        Style = tbsDropDown
      end
      object ToolButton8: TToolButton
        Left = 241
        Top = 2
        Width = 8
        Caption = 'ToolButton8'
        ImageIndex = 9
        Style = tbsSeparator
      end
      object ToolButton9: TToolButton
        Left = 249
        Top = 2
        AutoSize = True
        Caption = 'Click here to print the treeview.'
        ImageIndex = 24
        OnClick = ToolButton9Click
      end
    end
  end
  object LargeImages: TImageList
    Height = 32
    Width = 32
    left = 368
    top = 304
    Bitmap = {
[encoded data, 163584 characters]
      FF00FFFFFF00FFFFFF00FFFFFF00
    }
  end
  object SmallImages: TImageList
    Height = 24
    Width = 24
    left = 368
    top = 336
    Bitmap = {
[encoded data, 138024 characters]
      FF00FF00FF00FF00FF00FF00FF00
    }
  end
  object PrintDialog: TPrintDialog
    left = 568
    top = 4
  end
end
