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