object fmMVCDemo: TfmMVCDemo Left = 258 Height = 480 Top = 174 Width = 709 HorzScrollBar.Page = 708 VertScrollBar.Page = 479 ActiveControl = edCaption Caption = 'Virtual Tree - MVC Demo written by Marian Aldenhövel' Font.Height = -11 Font.Name = 'MS Sans Serif' OnCreate = FormCreate object pnlControls: TPanel Height = 84 Top = 396 Width = 709 Align = alBottom BevelInner = bvLowered BevelOuter = bvNone Caption = ' ' TabOrder = 0 object Label1: TLabel Left = 51 Height = 14 Top = 8 Width = 42 Alignment = taRightJustify Caption = 'Caption:' Color = clNone ParentColor = False end object Label3: TLabel Left = 33 Height = 14 Top = 31 Width = 58 Alignment = taRightJustify Caption = 'Subcaption:' Color = clNone ParentColor = False end object Label4: TLabel Left = 7 Height = 14 Top = 56 Width = 88 Alignment = taRightJustify Caption = 'Incidence (0..63):' Color = clNone ParentColor = False end object Label2: TLabel Left = 212 Height = 92 Top = 4 Width = 186 Caption = 'Edit the current node.'#13#10#13#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 = 92 Height = 21 Top = 5 Width = 112 OnChange = edCaptionChange TabOrder = 0 Text = 'edCaption' end object edSubcaption: TEdit Left = 92 Height = 21 Top = 29 Width = 112 OnChange = edSubcaptionChange TabOrder = 1 Text = 'edCaption' end object edIncidence: TEdit Left = 92 Height = 21 Top = 53 Width = 59 OnChange = edIncidenceChange OnKeyDown = nil OnKeyPress = edIncidenceKeyPress TabOrder = 2 Text = '0' end object UpDown1: TUpDown Left = 151 Height = 21 Top = 53 Width = 15 Associate = edIncidence Max = 63 TabOrder = 3 end object btnAdd: TButton Left = 429 Height = 25 Top = 4 Width = 75 BorderSpacing.InnerBorder = 4 Caption = '+ Add a child' OnClick = btnAddClick TabOrder = 4 end object btnDelete: TButton Left = 429 Height = 25 Top = 32 Width = 75 BorderSpacing.InnerBorder = 4 Caption = '- delete node' OnClick = btnDeleteClick TabOrder = 5 end object cbLive: TCheckBox Left = 618 Height = 13 Top = 9 Width = 48 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