Files
lazarus-ccr/components/virtualtreeview-new/trunk/demos/vtbasic/VTCheckList.lfm

84 lines
2.0 KiB
Plaintext

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)'
ClientHeight = 346
ClientWidth = 401
Font.Height = -11
Font.Name = 'Tahoma'
OnActivate = FormActivate
OnCreate = FormCreate
OnDestroy = FormDestroy
Position = poScreenCenter
LCLVersion = '1.7'
object Panel1: TPanel
Left = 0
Height = 346
Top = 0
Width = 401
Align = alClient
BevelOuter = bvNone
BorderWidth = 7
Caption = 'Panel1'
ClientHeight = 346
ClientWidth = 401
TabOrder = 0
object VT: TVirtualStringTree
Left = 7
Height = 301
Top = 7
Width = 387
Align = alClient
CheckImageKind = ckFlat
Header.AutoSizeIndex = 0
Header.Columns = <>
Header.Font.Height = -11
Header.Font.Name = 'MS Shell Dlg 2'
Header.MainColumn = -1
Header.Options = [hoColumnResize, hoDrag]
TabOrder = 0
TreeOptions.PaintOptions = [toThemeAware, toUseBlendedImages]
TreeOptions.SelectionOptions = [toExtendedFocus, toMultiSelect, toCenterScrollIntoView]
OnGetText = VTGetText
OnGetNodeDataSize = VTGetNodeDataSize
OnInitNode = VTInitNode
end
object panBase: TPanel
Left = 7
Height = 31
Top = 308
Width = 387
Align = alBottom
BevelOuter = bvNone
ClientHeight = 31
ClientWidth = 387
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