lazarus/examples/virtualtreeview/vst_advanced/DrawTreeDemo.lfm

object DrawTreeForm: TDrawTreeForm
  Left = 333
  Height = 453
  Top = 339
  Width = 710
  ActiveControl = VDT1
  Caption = 'DrawTreeForm'
  ClientHeight = 453
  ClientWidth = 710
  OnCreate = FormCreate
  LCLVersion = '2.1.0.0'
  object Label7: TLabel
    Left = 8
    Height = 30
    Top = 8
    Width = 694
    Align = alTop
    BorderSpacing.Around = 8
    Caption = 'A sample for a draw tree, which shows images of all known types as thumbnails. By default this tree uses the image loader library GraphicEx  to support many common image formats like png, gif etc. (see www.delphi-gems.com for more infos and download).'
    ParentColor = False
    WordWrap = True
  end
  object Label1: TLabel
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = TrackBar1
    Left = 8
    Height = 15
    Top = 415
    Width = 220
    BorderSpacing.Left = 8
    Caption = 'Adjust vertical image alignment of nodes:'
    ParentColor = False
  end
  object Label3: TLabel
    AnchorSideLeft.Control = TrackBar1
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = TrackBar1
    AnchorSideBottom.Side = asrCenter
    Left = 440
    Height = 15
    Top = 415
    Width = 22
    BorderSpacing.Left = 8
    Caption = '50%'
    ParentColor = False
  end
  object VDT1: TLazVirtualDrawTree
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = Label7
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    AnchorSideBottom.Control = TrackBar1
    Left = 8
    Height = 361
    Top = 46
    Width = 694
    Anchors = [akTop, akLeft, akRight, akBottom]
    AutoExpandDelay = 200
    AutoScrollDelay = 200
    BorderSpacing.Left = 8
    BorderSpacing.Right = 8
    BorderSpacing.Bottom = 8
    ClipboardFormats.Strings = (
      'Virtual Tree Data'
    )
    Colors.BorderColor = clWindowText
    Colors.HotColor = clBlack
    Colors.TreeLineColor = clBtnFace
    DefaultNodeHeight = 32
    Header.AutoSizeIndex = -1
    Header.Background = clBtnHighlight
    Header.Columns = <    
      item
        BiDiMode = bdLeftToRight
        Options = [coAllowClick, coEnabled, coParentColor, coResizable, coShowDropMark, coVisible]
        Position = 0
        Text = 'Image file name'
        Width = 217
      end    
      item
        Position = 1
        Text = 'Thumbnail'
        Width = 200
      end    
      item
        Position = 2
        Text = 'Properties'
        Width = 160
      end>
    Header.DefaultHeight = 17
    Header.Height = 22
    Header.Options = [hoColumnResize, hoDblClickResize, hoDrag, hoRestrictDrag, hoShowSortGlyphs, hoVisible]
    Header.ParentFont = True
    Header.Style = hsPlates
    HintMode = hmHint
    Images = SystemImages
    IncrementalSearch = isAll
    Indent = 20
    LineMode = lmBands
    ParentShowHint = False
    RootNodeCount = 10
    ScrollBarOptions.VerticalIncrement = 32
    ShowHint = True
    TabOrder = 0
    TreeOptions.AnimationOptions = [toAnimatedToggle]
    TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScroll, toAutoScrollOnExpand, toAutoTristateTracking, toAutoDeleteMovedNodes]
    TreeOptions.PaintOptions = [toShowBackground, toShowButtons, toShowDropmark, toShowHorzGridLines, toShowRoot, toShowTreeLines, toShowVertGridLines, toThemeAware]
    TreeOptions.SelectionOptions = [toFullRowSelect]
    OnCompareNodes = VDT1CompareNodes
    OnDrawHint = VDT1DrawHint
    OnDrawNode = VDT1DrawNode
    OnFreeNode = VDT1FreeNode
    OnGetHintSize = VDT1GetHintSize
    OnGetImageIndex = VDT1GetImageIndex
    OnGetNodeWidth = VDT1GetNodeWidth
    OnHeaderClick = VDT1HeaderClick
    OnInitChildren = VDT1InitChildren
    OnInitNode = VDT1InitNode
    OnStateChange = VDT1StateChange
  end
  object TrackBar1: TTrackBar
    AnchorSideLeft.Control = Label1
    AnchorSideLeft.Side = asrBottom
    AnchorSideBottom.Control = Owner
    AnchorSideBottom.Side = asrBottom
    Left = 235
    Height = 38
    Top = 415
    Width = 197
    Max = 100
    OnChange = TrackBar1Change
    Position = 50
    TickStyle = tsNone
    Anchors = [akLeft, akBottom]
    BorderSpacing.Left = 7
    TabOrder = 1
  end
  object SystemImages: TImageList
    Left = 450
    Top = 248
    Bitmap = {
      4C7A010000001000000010000000350100000000000078DA6360181CC078E699
      FF46334EFF379876F2BFDE94E3FF49D58B0E34FB0FFD2745EF4C340C022A5D7B
      FF2BB6EFFA2FD7B2FDBF4CD3D6FF520D9BFF8BD76E403117E4E689DFFFFFEFFB
      8289B101D1EA7528FA41FE6D7DFDFF7FC3B3FFFF75261DC58AD57B0FFC57EEDC
      F35FBE75C77FE9C62D60778030483F28ACAA1E40F4120340F6800057C162B07E
      90BEBC2BFFFF83C26126967040C7F1477F8069F6DC05FF999999C1E19C060C42
      503880C44161810F87ED790F56C79A3D0FAC1FE437907E903B40E2A0B0C0877D
      373F03AB63CE9C03D60F8A23907EB59EFD60715058E0C3CE2BEF80D531A6CF02
      EB07C52F483F286C41E2A0B0C087AD165C06AB63489B09D60F0A43E4B4018A5F
      A18AD5FFF94B57FCE7295A0A0E67505881FD0B7433C85E905E2626268CF40932
      8F584CAD7C07001950EBDD
    }
  end
end