object AlignForm: TAlignForm
  Left = 370
  Height = 497
  Top = 299
  Width = 785
  HorzScrollBar.Page = 784
  VertScrollBar.Page = 496
  ActiveControl = AlignTree
  Caption = 'AlignForm'
  ClientHeight = 497
  ClientWidth = 785
  Constraints.MinWidth = 590
  Font.Height = -13
  Font.Name = 'Arial'
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  LCLVersion = '0.9.25'
  object Label8: TLabel
    Left = 8
    Height = 111
    Top = 6
    Width = 197
    AutoSize = False
    Caption = 'This treeview demonstrates how alignment, layout and bidi mode work together. Note how the text layout is done depending on the bidi mode (left and right alignment are effectively inversed).'
    ParentColor = False
    ShowAccelChar = False
    WordWrap = True
  end
  object Label1: TLabel
    Left = 8
    Height = 123
    Top = 110
    Width = 201
    AutoSize = False
    Caption = 'Note that hints are aligned properly and draw selection takes the alignment into account too. Sort arrows are shown but the tree is not sorted. All I want to demonstrate is how well the layout in the header works.'
    ParentColor = False
    ShowAccelChar = False
    WordWrap = True
  end
  object Label2: TLabel
    Left = 220
    Height = 14
    Top = 349
    Width = 93
    Anchors = [akLeft, akBottom]
    Caption = 'English text column'
    ParentColor = False
  end
  object Label3: TLabel
    Left = 348
    Height = 14
    Top = 349
    Width = 88
    Anchors = [akBottom]
    Caption = 'Greek text column'
    ParentColor = False
  end
  object Label4: TLabel
    Left = 644
    Height = 14
    Top = 349
    Width = 130
    Anchors = [akRight, akBottom]
    Caption = 'Hebrew/arabic text column'
    ParentColor = False
  end
  object Label5: TLabel
    Left = 8
    Height = 14
    Top = 281
    Width = 104
    Anchors = [akLeft, akBottom]
    Caption = 'Header button layout'
    ParentColor = False
  end
  object AlignTree: TVirtualStringTree
    Left = 220
    Height = 335
    Top = 2
    Width = 554
    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 = 34
    EditDelay = 100
    Header.Background = clBtnShadow
    Header.Font.Height = -12
    Header.Font.Name = 'Arial'
    Header.Font.Style = [fsBold]
    Header.Height = 40
    Header.Images = HeaderImages
    Header.Options = [hoColumnResize, hoDblClickResize, hoDrag, hoShowHint, hoShowImages, hoShowSortGlyphs, hoVisible, hoAutoSpring]
    Header.PopupMenu = IconPopup
    Header.Style = hsFlatButtons
    HintMode = hmTooltip
    HotCursor = crHandPoint
    Images = TreeImages
    ParentShowHint = False
    RootNodeCount = 6
    SelectionCurveRadius = 5
    ShowHint = True
    TabOrder = 0
    TreeOptions.AnimationOptions = [toAnimatedToggle]
    TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScroll, toAutoTristateTracking, toAutoDeleteMovedNodes]
    TreeOptions.MiscOptions = [toAcceptOLEDrop, toEditable, toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning]
    TreeOptions.PaintOptions = [toHideFocusRect, toShowButtons, toShowDropmark, toShowRoot, toShowTreeLines, toThemeAware]
    TreeOptions.SelectionOptions = [toExtendedFocus, toMultiSelect]
    OnFocusChanged = AlignTreeFocusChanged
    OnGetText = AlignTreeGetText
    OnPaintText = AlignTreePaintText
    OnGetImageIndex = AlignTreeGetImageIndex
    OnGetNodeDataSize = AlignTreeGetNodeDataSize
    OnHeaderClick = AlignTreeHeaderClick
    OnInitChildren = AlignTreeInitChildren
    OnInitNode = AlignTreeInitNode
    OnStateChange = AlignTreeStateChange
    Columns = <    
      item
        Alignment = taCenter
        ImageIndex = 20
        Options = [coAllowClick, coDraggable, coEnabled, coResizable, coShowDropMark, coVisible, coAutoSpring]
        Spacing = 10
        Width = 185
        WideText = 'English text column'
        WideHint = 'Text is initially centered and has a left-to-right directionality.'
      end    
      item
        ImageIndex = 35
        Options = [coAllowClick, coDraggable, coEnabled, coResizable, coShowDropMark, coVisible, coAutoSpring]
        Position = 1
        Spacing = 10
        Width = 155
        WideText = 'Greek text column'
        WideHint = 'Text is initially left aligned and has a left-to-right directionality.'
      end    
      item
        BiDiMode = bdRightToLeft
        ImageIndex = 32
        Options = [coAllowClick, coDraggable, coEnabled, coResizable, coShowDropMark, coVisible, coAutoSpring]
        Position = 2
        Spacing = 10
        Width = 209
        WideText = 'Hebrew/arabic text column'
        WideHint = 'Text is initially left aligned and has a right-to-left directionality.'
      end>
  end
  object AlignCombo0: TComboBox
    Left = 220
    Height = 21
    Top = 371
    Width = 130
    Anchors = [akLeft, akBottom]
    AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
    ItemHeight = 13
    Items.Strings = (
      'Left'
      'Right'
      'Center'
    )
    MaxLength = 0
    OnChange = AlignComboChange
    Style = csDropDownList
    TabOrder = 1
  end
  object AlignCombo1: TComboBox
    Tag = 1
    Left = 327
    Height = 21
    Top = 371
    Width = 130
    Anchors = [akBottom]
    AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
    ItemHeight = 13
    Items.Strings = (
      'Left'
      'Right'
      'Center'
    )
    MaxLength = 0
    OnChange = AlignComboChange
    Style = csDropDownList
    TabOrder = 2
  end
  object AlignCombo2: TComboBox
    Tag = 2
    Left = 640
    Height = 21
    Top = 371
    Width = 130
    Anchors = [akRight, akBottom]
    AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
    ItemHeight = 13
    Items.Strings = (
      'Left'
      'Right'
      'Center'
    )
    MaxLength = 0
    OnChange = AlignComboChange
    Style = csDropDownList
    TabOrder = 3
  end
  object BidiGroup0: TRadioGroup
    Left = 220
    Height = 61
    Top = 400
    Width = 130
    Anchors = [akLeft, akBottom]
    AutoFill = True
    Caption = ' Bidi 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 = 43
    ClientWidth = 126
    Items.Strings = (
      'left-to-right'
      'right-to-left'
    )
    OnClick = BidiGroupClick
    TabOrder = 4
  end
  object BidiGroup1: TRadioGroup
    Tag = 1
    Left = 327
    Height = 61
    Top = 400
    Width = 130
    Anchors = [akBottom]
    AutoFill = True
    Caption = ' Bidi 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 = 43
    ClientWidth = 126
    Items.Strings = (
      'left-to-right'
      'right-to-left'
    )
    OnClick = BidiGroupClick
    TabOrder = 5
  end
  object BidiGroup2: TRadioGroup
    Tag = 2
    Left = 640
    Height = 61
    Top = 400
    Width = 130
    Anchors = [akRight, akBottom]
    AutoFill = True
    Caption = ' Bidi 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 = 43
    ClientWidth = 126
    Items.Strings = (
      'left-to-right'
      'right-to-left'
    )
    OnClick = BidiGroupClick
    TabOrder = 6
  end
  object GroupBox1: TGroupBox
    Left = 8
    Height = 129
    Top = 332
    Width = 157
    Anchors = [akLeft, akBottom]
    Caption = ' Header options: '
    ClientHeight = 111
    ClientWidth = 153
    TabOrder = 7
    object ShowGlyphsOptionBox: TCheckBox
      Left = 12
      Height = 19
      Top = 4
      Width = 86
      Caption = 'Show glyphs'
      OnClick = OptionBoxClick
      TabOrder = 0
    end
    object HotTrackOptionBox: TCheckBox
      Tag = 1
      Left = 12
      Height = 19
      Top = 25
      Width = 70
      Caption = 'Hot track'
      OnClick = OptionBoxClick
      TabOrder = 1
    end
    object ShowTextOptionBox: TCheckBox
      Tag = 2
      Left = 12
      Height = 19
      Top = 46
      Width = 73
      Caption = 'Show text'
      OnClick = OptionBoxClick
      TabOrder = 2
    end
    object VisibleOptionBox: TCheckBox
      Tag = 3
      Left = 12
      Height = 19
      Top = 67
      Width = 56
      Caption = 'Visible'
      OnClick = OptionBoxClick
      TabOrder = 3
    end
    object EnabledOptionBox: TCheckBox
      Tag = 4
      Left = 12
      Height = 19
      Top = 88
      Width = 65
      Caption = 'Enabled'
      OnClick = OptionBoxClick
      TabOrder = 4
    end
  end
  object LayoutCombo: TComboBox
    Left = 8
    Height = 21
    Top = 303
    Width = 130
    Anchors = [akLeft, akBottom]
    AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
    ItemHeight = 13
    Items.Strings = (
      'Glyph left'
      'Glyph right'
      'Glyph top'
      'Glyph bottom'
    )
    MaxLength = 0
    OnChange = LayoutComboChange
    Style = csDropDownList
    TabOrder = 8
  end
  object TreeImages: TImageList
    left = 554
    top = 212
    Bitmap = {
[encoded data, 4544 characters]
      0000000000000000000000000000
    }
  end
  object HeaderImages: TImageList
    Height = 32
    Width = 32
    left = 556
    top = 244
    Bitmap = {
[encoded data, 590720 characters]
      0000000000000000000000000000
    }
  end
  object IconPopup: TPopupMenu
    Images = HeaderImages
    AutoPopup = False
    OnPopup = IconPopupPopup
    left = 596
    top = 244
  end
end
