object HeaderOwnerDrawForm: THeaderOwnerDrawForm
  Left = 240
  Height = 440
  Top = 275
  Width = 776
  ActiveControl = HeaderCustomDrawTree
  Caption = 'HeaderOwnerDrawForm'
  ClientHeight = 440
  ClientWidth = 776
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  LCLVersion = '0.9.29'
  object Label8: TLabel
    Left = 12
    Height = 102
    Top = 320
    Width = 745
    Anchors = [akLeft, akRight, akBottom]
    Caption = 'This page demonstrates the advance custom draw mode for a tree''s header. The left column is drawn as usual while with the other columns more and more details are customized by the applicaiton. Note: Virtual Treeview allows to customize the header fully or only parts of it and draws all standard elements as normal if they are not handled by the application. This allows very flexible designs but avoids full custom draw if only a small details must be drawn differently.'
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    ParentColor = False
    ParentFont = False
    ShowAccelChar = False
    WordWrap = True
  end
  object HeaderCustomDrawTree: TVirtualStringTree
    Left = 8
    Height = 301
    Top = 10
    Width = 749
    Anchors = [akTop, akLeft, akRight, akBottom]
    CheckImageKind = ckDarkTick
    ClipboardFormats.Strings = (
      'CSV'
      'HTML Format'
      'Plain text'
      'Rich Text Format'
      'Rich Text Format Without Objects'
      'Unicode text'
      'Virtual Tree Data'
    )
    Colors.BorderColor = clBackground
    Colors.FocusedSelectionColor = clSilver
    Colors.FocusedSelectionBorderColor = 10526880
    Colors.HotColor = clBlack
    Colors.UnfocusedSelectionBorderColor = clBtnShadow
    DefaultNodeHeight = 24
    DefaultText = 'Node'
    EditDelay = 100
    Header.AutoSizeIndex = 0
    Header.Background = clBtnShadow
    Header.Columns = <    
      item
        Hint = 'This column is drawn entirely by the tree.'
        ImageIndex = 1
        Options = [coDraggable, coEnabled, coResizable, coShowDropMark, coVisible]
        Position = 0
        Spacing = -1
        Text = 'Default drawing'
        Width = 200
      end    
      item
        Alignment = taCenter
        Hint = 'Only the background is customized.'
        ImageIndex = 2
        Layout = blGlyphTop
        Options = [coAllowClick, coDraggable, coEnabled, coResizable, coShowDropMark, coVisible]
        Position = 1
        Spacing = -10
        Style = vsOwnerDraw
        Text = 'Custom background'
        Width = 230
      end    
      item
        Alignment = taCenter
        Color = 14811135
        Hint = 'Background and text in this column are customized.'
        ImageIndex = 0
        Options = [coAllowClick, coDraggable, coEnabled, coResizable, coShowDropMark, coVisible]
        Position = 2
        Spacing = -1
        Style = vsOwnerDraw
        Width = 350
      end>
    Header.DefaultHeight = 17
    Header.Font.Height = -12
    Header.Font.Name = 'Arial'
    Header.Font.Style = [fsBold]
    Header.Height = 110
    Header.Images = HeaderImages
    Header.Options = [hoColumnResize, hoDblClickResize, hoDrag, hoHotTrack, hoOwnerDraw, hoShowHint, hoShowImages, hoShowSortGlyphs, hoVisible]
    Header.SortColumn = 0
    Header.Style = hsFlatButtons
    HintMode = hmTooltip
    HotCursor = crHandPoint
    LineMode = lmBands
    LineStyle = lsSolid
    ParentShowHint = False
    RootNodeCount = 20
    SelectionCurveRadius = 5
    ShowHint = True
    TabOrder = 0
    TreeOptions.AnimationOptions = [toAnimatedToggle]
    TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScroll, toAutoScrollOnExpand, toAutoTristateTracking, toAutoDeleteMovedNodes]
    TreeOptions.MiscOptions = [toCheckSupport, toEditable, toFullRepaintOnResize, toGridExtensions, toInitOnSave, toWheelPanning]
    TreeOptions.PaintOptions = [toHideFocusRect, toShowHorzGridLines, toShowVertGridLines, toThemeAware, toUseBlendedImages]
    TreeOptions.SelectionOptions = [toDisableDrawSelection, toFullRowSelect]
    OnAdvancedHeaderDraw = HeaderCustomDrawTreeAdvancedHeaderDraw
    OnGetText = HeaderCustomDrawTreeGetText
    OnHeaderDrawQueryElements = HeaderCustomDrawTreeHeaderDrawQueryElements
    OnHeaderMouseDown = HeaderCustomDrawTreeHeaderMouseDown
    OnHeaderMouseUp = HeaderCustomDrawTreeHeaderMouseUp
    OnStateChange = HeaderCustomDrawTreeStateChange
  end
  object HeaderImages: TImageList
    Height = 90
    Width = 90
    left = 24
    top = 52
    Bitmap = {
[encoded data, 215694 characters]
    }
  end
  object AnimationTimer: TTimer
    Interval = 50
    OnTimer = AnimationTimerTimer
    left = 24
    top = 20
  end
end
