object fmMVCDemo: TfmMVCDemo Left = 165 Height = 518 Top = 154 Width = 742 HorzScrollBar.Page = 741 VertScrollBar.Page = 517 ActiveControl = edCaption Caption = 'Virtual Tree - MVC Demo written by Marian Aldenhövel' ClientHeight = 518 ClientWidth = 742 Font.Height = -11 Font.Name = 'MS Sans Serif' OnCreate = FormCreate object pnlControls: TPanel Height = 118 Top = 400 Width = 742 Align = alBottom BevelInner = bvLowered BevelOuter = bvNone Caption = ' ' ClientHeight = 118 ClientWidth = 742 TabOrder = 0 object Label1: TLabel Left = 72 Height = 17 Top = 7 Width = 61 Alignment = taRightJustify Caption = 'Caption:' Color = clNone ParentColor = False end object Label3: TLabel Left = 47 Height = 17 Top = 31 Width = 86 Alignment = taRightJustify Caption = 'Subcaption:' Color = clNone ParentColor = False end object Label4: TLabel Left = 8 Height = 17 Top = 55 Width = 125 Alignment = taRightJustify Caption = 'Incidence (0..63):' Color = clNone ParentColor = False end object Label2: TLabel Left = 256 Height = 97 Top = 5 Width = 296 Caption = 'Edit the current node.'#10'Note that you are setting data in a structure without referring to a visual component except for the information about what node currently has the focus.' Color = clNone ParentColor = False WordWrap = True end object edCaption: TEdit Left = 136 Height = 21 Top = 5 Width = 112 OnChange = edCaptionChange TabOrder = 0 Text = 'edCaption' end object edSubcaption: TEdit Left = 136 Height = 21 Top = 29 Width = 112 OnChange = edSubcaptionChange TabOrder = 1 Text = 'edCaption' end object edIncidence: TEdit Left = 136 Height = 21 Top = 53 Width = 51 OnChange = edIncidenceChange OnKeyDown = nil OnKeyPress = edIncidenceKeyPress TabOrder = 2 Text = '0' end object UpDown1: TUpDown Left = 187 Height = 21 Top = 53 Width = 15 Associate = edIncidence Max = 63 TabOrder = 3 end object btnAdd: TButton Left = 560 Height = 25 Top = 8 Width = 112 BorderSpacing.InnerBorder = 4 Caption = '+ Add a child' OnClick = btnAddClick TabOrder = 4 end object btnDelete: TButton Left = 560 Height = 25 Top = 40 Width = 112 BorderSpacing.InnerBorder = 4 Caption = '- Delete node' OnClick = btnDeleteClick TabOrder = 5 end object cbLive: TCheckBox Left = 680 Height = 24 Top = 8 Width = 58 Caption = 'Live!' Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] OnClick = cbLiveClick TabOrder = 6 end end object ImageList1: TImageList left = 120 top = 143 Bitmap = { 6C690500000010000000100000009C0100002F2A2058504D202A2F0A73746174 69632063686172202A677261706869635B5D203D207B0A223136203136203320 31222C0A222E2063204E6F6E65222C0A222C20632023303030303030222C0A22 2D20632023464646464646222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E22 2C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E2E2E2E2E2E2E2E 2C2C2E2E2E2E2E222C0A222E2E2E2E2E2E2E2E2C2D2D2C2E2E2E2E222C0A222E 2E2E2E2E2E2E2E2C2D2D2D2C2E2E2E222C0A222E2E2E2E2E2E2E2E2C2D2D2D2C 2E2E2E222C0A222E2E2E2E2E2E2E2E2C2D2D2D2C2E2E2E222C0A222E2E2E2E2E 2E2E2E2C2D2D2C2E2E2E2E222C0A222E2E2E2E2E2E2E2E2C2D2D2C2E2E2E2E22 2C0A222E2E2E2E2E2E2E2E2C2D2D2C2E2E2E2E222C0A222E2E2E2E2E2E2E2E2C 2C2C2C2E2E2E2E222C0A222E2E2E2E2E2E2E2E2C2D2D2C2E2E2E2E222C0A222E 2E2E2E2E2E2E2E2C2D2D2C2E2E2E2E222C0A222E2E2E2E2E2E2E2E2C2C2C2C2E 2E2E2E222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E2E2E2E 2E2E2E2E2E2E2E2E2E2E2E227D0A9C0100002F2A2058504D202A2F0A73746174 69632063686172202A677261706869635B5D203D207B0A223136203136203320 31222C0A222E2063204E6F6E65222C0A222C20632023303030303030222C0A22 2D20632023303043304330222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E22 2C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E2E2E2E2E2E2E2E 2C2C2E2E2E2E2E222C0A222E2E2E2E2E2E2E2E2C2D2D2C2E2E2E2E222C0A222E 2E2E2E2E2E2E2E2C2D2D2D2C2E2E2E222C0A222E2E2E2E2E2E2E2E2C2D2D2D2C 2E2E2E222C0A222E2E2E2E2E2E2E2E2C2D2D2D2C2E2E2E222C0A222E2E2E2E2E 2E2E2E2C2D2D2C2E2E2E2E222C0A222E2E2E2E2E2E2E2E2C2D2D2C2E2E2E2E22 2C0A222E2E2E2E2E2E2E2E2C2D2D2C2E2E2E2E222C0A222E2E2E2E2E2E2E2E2C 2C2C2C2E2E2E2E222C0A222E2E2E2E2E2E2E2E2C2D2D2C2E2E2E2E222C0A222E 2E2E2E2E2E2E2E2C2D2D2C2E2E2E2E222C0A222E2E2E2E2E2E2E2E2C2C2C2C2E 2E2E2E222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E2E2E2E 2E2E2E2E2E2E2E2E2E2E2E227D0A9C0100002F2A2058504D202A2F0A73746174 69632063686172202A677261706869635B5D203D207B0A223136203136203320 31222C0A222E2063204E6F6E65222C0A222C20632023303030303030222C0A22 2D20632023303043303030222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E22 2C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E2E2E2E2E2E2E2E 2C2C2E2E2E2E2E222C0A222E2E2E2E2E2E2E2E2C2D2D2C2E2E2E2E222C0A222E 2E2E2E2E2E2E2E2C2D2D2D2C2E2E2E222C0A222E2E2E2E2E2E2E2E2C2D2D2D2C 2E2E2E222C0A222E2E2E2E2E2E2E2E2C2D2D2D2C2E2E2E222C0A222E2E2E2E2E 2E2E2E2C2D2D2C2E2E2E2E222C0A222E2E2E2E2E2E2E2E2C2D2D2C2E2E2E2E22 2C0A222E2E2E2E2E2E2E2E2C2D2D2C2E2E2E2E222C0A222E2E2E2E2E2E2E2E2C 2C2C2C2E2E2E2E222C0A222E2E2E2E2E2E2E2E2C2D2D2C2E2E2E2E222C0A222E 2E2E2E2E2E2E2E2C2D2D2C2E2E2E2E222C0A222E2E2E2E2E2E2E2E2C2C2C2C2E 2E2E2E222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E2E2E2E 2E2E2E2E2E2E2E2E2E2E2E227D0A9C0100002F2A2058504D202A2F0A73746174 69632063686172202A677261706869635B5D203D207B0A223136203136203320 31222C0A222E2063204E6F6E65222C0A222C20632023303030303030222C0A22 2D20632023464630303030222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E22 2C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E2E2E2E2E2E2E2E 2C2C2E2E2E2E2E222C0A222E2E2E2E2E2E2E2E2C2D2D2C2E2E2E2E222C0A222E 2E2E2E2E2E2E2E2C2D2D2D2C2E2E2E222C0A222E2E2E2E2E2E2E2E2C2D2D2D2C 2E2E2E222C0A222E2E2E2E2E2E2E2E2C2D2D2D2C2E2E2E222C0A222E2E2E2E2E 2E2E2E2C2D2D2C2E2E2E2E222C0A222E2E2E2E2E2E2E2E2C2D2D2C2E2E2E2E22 2C0A222E2E2E2E2E2E2E2E2C2D2D2C2E2E2E2E222C0A222E2E2E2E2E2E2E2E2C 2C2C2C2E2E2E2E222C0A222E2E2E2E2E2E2E2E2C2D2D2C2E2E2E2E222C0A222E 2E2E2E2E2E2E2E2C2D2D2C2E2E2E2E222C0A222E2E2E2E2E2E2E2E2C2C2C2C2E 2E2E2E222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E2E2E2E 2E2E2E2E2E2E2E2E2E2E2E227D0A9C0100002F2A2058504D202A2F0A73746174 69632063686172202A677261706869635B5D203D207B0A223136203136203320 31222C0A222E2063204E6F6E65222C0A222C20632023303030303030222C0A22 2D20632023464646463030222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E22 2C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E2E2E2E2E2E2E2E 2C2C2E2E2E2E2E222C0A222E2E2E2E2E2E2E2E2C2D2D2C2E2E2E2E222C0A222E 2E2E2E2E2E2E2E2C2D2D2D2C2E2E2E222C0A222E2E2E2E2E2E2E2E2C2D2D2D2C 2E2E2E222C0A222E2E2E2E2E2E2E2E2C2D2D2D2C2E2E2E222C0A222E2E2E2E2E 2E2E2E2C2D2D2C2E2E2E2E222C0A222E2E2E2E2E2E2E2E2C2D2D2C2E2E2E2E22 2C0A222E2E2E2E2E2E2E2E2C2D2D2C2E2E2E2E222C0A222E2E2E2E2E2E2E2E2C 2C2C2C2E2E2E2E222C0A222E2E2E2E2E2E2E2E2C2D2D2C2E2E2E2E222C0A222E 2E2E2E2E2E2E2E2C2D2D2C2E2E2E2E222C0A222E2E2E2E2E2E2E2E2C2C2C2C2E 2E2E2E222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E2E2E2E 2E2E2E2E2E2E2E2E2E2E2E227D0A } end object timLive: TTimer Enabled = False Interval = 100 OnTimer = timLiveTimer left = 120 top = 172 end end