object HeaderOwnerDrawForm: THeaderOwnerDrawForm
  Left = 240
  Height = 440
  Top = 275
  Width = 776
  HorzScrollBar.Page = 775
  VertScrollBar.Page = 439
  ActiveControl = HeaderCustomDrawTree
  Caption = 'HeaderOwnerDrawForm'
  ClientHeight = 440
  ClientWidth = 776
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  LCLVersion = '0.9.25'
  object Label8: TLabel
    Left = 12
    Height = 83
    Top = 318
    Width = 745
    Anchors = [akLeft, akRight, akBottom]
    AutoSize = False
    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
    ShowAccelChar = False
    WordWrap = True
  end
  object HeaderCustomDrawTree: TVirtualStringTree
    Left = 8
    Height = 301
    Top = 10
    Width = 749
    Anchors = [akTop, akLeft, akRight, akBottom]
    BorderStyle = bsSingle
    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
    EditDelay = 100
    Header.Background = clBtnShadow
    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
    HintAnimation = hatNone
    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
    Columns = <    
      item
        ImageIndex = 1
        Options = [coDraggable, coEnabled, coResizable, coShowDropMark, coVisible]
        Spacing = -1
        Width = 200
        WideText = 'Default drawing'
        WideHint = 'This column is drawn entirely by the tree.'
      end    
      item
        Alignment = taCenter
        ImageIndex = 2
        Layout = blGlyphTop
        Options = [coAllowClick, coDraggable, coEnabled, coResizable, coShowDropMark, coVisible]
        Position = 1
        Spacing = -10
        Style = vsOwnerDraw
        Width = 230
        WideText = 'Custom background'
        WideHint = 'Only the background is customized.'
      end    
      item
        Alignment = taCenter
        Color = clInfoBk
        ImageIndex = 0
        Options = [coAllowClick, coDraggable, coEnabled, coResizable, coShowDropMark, coVisible]
        Position = 2
        Spacing = -1
        Style = vsOwnerDraw
        Width = 350
        WideHint = 'Background and text in this column are customized.'
      end>
  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
