object fmMain: TfmMain
  Left = 75
  Top = 162
  Width = 340
  Height = 292
  BorderIcons = []
  Caption = 'Demo'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 16
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 332
    Height = 165
    Align = alTop
    Caption = 'Display'
    TabOrder = 0
    object Label1: TLabel
      Left = 92
      Top = 68
      Width = 29
      Height = 16
      Caption = 'Slow'
    end
    object Label2: TLabel
      Left = 292
      Top = 68
      Width = 26
      Height = 16
      Caption = 'Fast'
    end
    object Label8: TLabel
      Left = 92
      Top = 92
      Width = 20
      Height = 16
      Caption = 'Ric'
    end
    object Label9: TLabel
      Left = 92
      Top = 116
      Width = 21
      Height = 16
      Caption = 'Min'
    end
    object Label10: TLabel
      Left = 292
      Top = 116
      Width = 25
      Height = 16
      Caption = 'Max'
    end
    object rbCounter: TRadioButton
      Tag = 2
      Left = 8
      Top = 68
      Width = 69
      Height = 17
      Caption = 'Counter'
      TabOrder = 2
      OnClick = rbClick
    end
    object rbClock12: TRadioButton
      Left = 8
      Top = 16
      Width = 105
      Height = 25
      Caption = '12-hour clock'
      Checked = True
      TabOrder = 0
      TabStop = True
      OnClick = rbClick
    end
    object sbCounter: TScrollBar
      Left = 128
      Top = 68
      Width = 157
      Height = 17
      LargeChange = 10
      Min = 1
      PageSize = 0
      Position = 90
      TabOrder = 6
      OnChange = sbCounterChange
    end
    object rbClock24: TRadioButton
      Tag = 1
      Left = 8
      Top = 40
      Width = 109
      Height = 25
      Caption = '24-hour clock'
      TabOrder = 1
      OnClick = rbClick
    end
    object rbReuters: TRadioButton
      Tag = 3
      Left = 8
      Top = 92
      Width = 69
      Height = 17
      Caption = 'Reuters'
      TabOrder = 3
      OnClick = rbClick
    end
    object ebRic: TuEdit
      Left = 127
      Top = 90
      Width = 53
      Height = 21
      AutoSize = False
      TabOrder = 7
      Text = '.FTSE'
      OnChangeValue = ebRicChangeValue
      DataType = typeString
    end
    object ebDisplay: TEdit
      Left = 212
      Top = 16
      Width = 109
      Height = 32
      AutoSize = False
      Color = 14941437
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -24
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      ReadOnly = True
      TabOrder = 9
      Text = '10:38:46'
    end
    object rbBar: TRadioButton
      Tag = 4
      Left = 8
      Top = 116
      Width = 69
      Height = 17
      Caption = 'Bar'
      TabOrder = 4
      OnClick = rbClick
    end
    object sbBar: TScrollBar
      Left = 128
      Top = 116
      Width = 157
      Height = 17
      LargeChange = 5
      Max = 24
      PageSize = 0
      Position = 14
      TabOrder = 8
      OnChange = TimerTimer
    end
    object rbScroll: TRadioButton
      Tag = 4
      Left = 8
      Top = 140
      Width = 97
      Height = 17
      Caption = 'Scroll'
      TabOrder = 5
      OnClick = rbScrollClick
    end
  end
  object GroupBox2: TGroupBox
    Left = 0
    Top = 165
    Width = 332
    Height = 100
    Align = alClient
    Caption = 'Mode'
    TabOrder = 1
    object Label3: TLabel
      Left = 8
      Top = 24
      Width = 27
      Height = 16
      Caption = 'Test'
    end
    object Label4: TLabel
      Left = 8
      Top = 48
      Width = 58
      Height = 16
      Caption = 'Shutdown'
    end
    object Label5: TLabel
      Left = 92
      Top = 72
      Width = 21
      Height = 16
      Caption = 'Min'
    end
    object Label6: TLabel
      Left = 292
      Top = 72
      Width = 25
      Height = 16
      Caption = 'Max'
    end
    object Label7: TLabel
      Left = 8
      Top = 72
      Width = 63
      Height = 16
      Caption = 'Brightness'
    end
    object ckTest1: TCheckBox
      Left = 152
      Top = 24
      Width = 30
      Height = 17
      Caption = '1'
      TabOrder = 1
      OnClick = modeSet
    end
    object ckTest2: TCheckBox
      Left = 192
      Top = 24
      Width = 30
      Height = 17
      Caption = '2'
      TabOrder = 2
      OnClick = modeSet
    end
    object ckTest3: TCheckBox
      Left = 228
      Top = 24
      Width = 30
      Height = 17
      Caption = '3'
      TabOrder = 3
      OnClick = modeSet
    end
    object ckShutdown1: TCheckBox
      Left = 152
      Top = 48
      Width = 30
      Height = 17
      Caption = '1'
      TabOrder = 5
      OnClick = modeSet
    end
    object ckShutdown2: TCheckBox
      Left = 192
      Top = 48
      Width = 30
      Height = 17
      Caption = '2'
      TabOrder = 6
      OnClick = modeSet
    end
    object ckShutdown3: TCheckBox
      Left = 228
      Top = 48
      Width = 30
      Height = 17
      Caption = '3'
      TabOrder = 7
      OnClick = modeSet
    end
    object ckTestAll: TCheckBox
      Left = 92
      Top = 24
      Width = 49
      Height = 17
      Caption = 'All'
      TabOrder = 0
      OnClick = ckTestAllClick
    end
    object ckShutdownAll: TCheckBox
      Left = 92
      Top = 48
      Width = 49
      Height = 17
      Caption = 'All'
      TabOrder = 4
      OnClick = ckShutdownAllClick
    end
    object sbBrightness: TScrollBar
      Left = 128
      Top = 72
      Width = 157
      Height = 17
      LargeChange = 3
      Max = 15
      PageSize = 0
      Position = 15
      TabOrder = 8
      OnChange = sbBrightnessChange
    end
    object btTest: TButton
      Left = 272
      Top = 32
      Width = 49
      Height = 25
      Caption = 'Speed'
      TabOrder = 9
      OnClick = btTestClick
    end
  end
  object Timer: TTimer
    Interval = 500
    OnTimer = TimerTimer
    Left = 116
    Top = 12
  end
  object recordBag: T_IRecordBagEvents
    Left = 172
    Top = 12
  end
  object TimerScroll: TTimer
    Enabled = False
    Interval = 500
    OnTimer = TimerScrollTimer
    Left = 144
    Top = 12
  end
end