lazarus-ccr/components/virtualtreeview-unstable/demos/vtbasic/VTCheckList.lfm

object frmVTCheckList: TfrmVTCheckList
  Left = 403
  Height = 346
  Top = 173
  Width = 401
  HorzScrollBar.Page = 400
  VertScrollBar.Page = 345
  ActiveControl = VT
  Caption = 'Generic CheckListbox selection Form (no node data used)'
  Font.Height = -11
  Font.Name = 'Tahoma'
  OnActivate = FormActivate
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  Position = poScreenCenter
  object Panel1: TPanel
    Height = 346
    Width = 401
    Align = alClient
    BevelOuter = bvNone
    BorderWidth = 7
    Caption = 'Panel1'
    TabOrder = 0
    object VT: TVirtualStringTree
      Left = 7
      Height = 301
      Top = 7
      Width = 387
      Align = alClient
      BorderStyle = bsSingle
      CheckImageKind = ckFlat
      Header.Font.Height = -11
      Header.Font.Name = 'MS Shell Dlg 2'
      Header.MainColumn = -1
      Header.Options = [hoColumnResize, hoDrag]
      HintAnimation = hatNone
      RootNodeCount = 7
      TabOrder = 0
      TreeOptions.PaintOptions = [toThemeAware, toUseBlendedImages]
      TreeOptions.SelectionOptions = [toExtendedFocus, toMultiSelect, toCenterScrollIntoView]
      OnGetText = VTGetText
      OnGetNodeDataSize = VTGetNodeDataSize
      OnInitNode = VTInitNode
      Columns = <>
    end
    object panBase: TPanel
      Left = 7
      Height = 31
      Top = 308
      Width = 387
      Align = alBottom
      BevelOuter = bvNone
      TabOrder = 1
      object btnOk: TButton
        Left = 225
        Height = 25
        Top = 6
        Width = 75
        BorderSpacing.InnerBorder = 4
        Caption = '&Ok'
        OnClick = btnOkClick
        TabOrder = 0
      end
      object btnCancel: TButton
        Left = 304
        Height = 25
        Top = 6
        Width = 75
        BorderSpacing.InnerBorder = 4
        Caption = '&Cancel'
        ModalResult = 2
        TabOrder = 1
      end
    end
  end
end