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 = {
[encoded data, 4615 characters]
      2E2E2E2E2E2E2E2E2E2E2E227D0A
    }
  end
  object timLive: TTimer
    Enabled = False
    Interval = 100
    OnTimer = timLiveTimer
    left = 120
    top = 172
  end
end
