cm2010/CM2010.dfm

object Form1: TForm1
  Left = 195
  Top = 109
  Width = 720
  Height = 480
  Caption = 
    'Charge Manager 2010 --- (c)2003 by Markus Birth <mbirth@webwrite' +
    'rs.de>'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    000001000200101010000000000028010000260000002020100000000000E802
    00004E0100002800000010000000200000000100040000000000C00000000000
    0000000000001000000000000000000000000000800000800000008080008000
    00008000800080800000C0C0C000808080000000FF0000FF000000FFFF00FF00
    0000FF00FF00FFFF0000FFFFFF000000000000000000FFFF88888888FFF0F00F
    8888888800F0F00F8887788800F0F00F8877778800F0F00F8888888800F0F00F
    8222222800F0F888820020288880F888822222288880FFFF88888888FFF0F00F
    8888888800F0F00F8888888800F0F00F8888888800F0F00F8888888800F0F00F
    8888888800F00FFFFFFFFFFFFFF08001FFFF0000FFFF0000FFFF0000FFFF0000
    FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000
    FFFF0000FFFF0000FFFF8001FFFF280000002000000040000000010004000000
    0000800200000000000000000000000000000000000000000000000080000080
    000000808000800000008000800080800000C0C0C000808080000000FF0000FF
    000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0000000000000000000000
    000000000000F8888888888888888888888888888880F8FFFFFFF88888888888
    888FFFFFFF80F8088F08F88888888888888088888F80F8088F08F88888888888
    888088888F80F808BBB8F88888777788888088888F80F808BBB8F88887777778
    888088888F80F808BBB8F88887777778888088F08F80F808BBB8F88877777777
    888088F08F80F808BBB8F88888888888888088888F80F808BBB8F8FFFFFFFFFF
    FF8088888F80F808BBB8F802222222222F8088888F80F8088B88F80220200200
    2F8088888F80F8088F08F802222222222F8088F08F80F8000000F80200202020
    2F8000000F80F88888888802222222222F8888888880F8888888880000000000
    0F8888888880F8FFFFFFF88888888888888FFFFFFF80F8088F08F88888888888
    888088888F80F80AAAAAF88888888888888088F08F80F80AAAAAF88888888888
    888088F08F80F80AAAAAF8888888888888808EEE8F80F80AAAAAF88888888888
    88808EEE8F80F80AAAAAF8888888888888808EEE8F80F80AAAAAF88888888888
    88808EEE8F80F80AAAAAF8888888888888808EEE8F80F80AAAAAF88888888888
    88808EEE8F80F808AAA8F88888888888888088E88F80F8088F08F88888888888
    888088F08F80F8000000F88888888888888000000F80F8888888888888888888
    8888888888800FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF080000001000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    00000000000000000000000000000000000080000001}
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label2: TLabel
    Left = 128
    Top = 0
    Width = 12
    Height = 13
    Caption = '05'
  end
  object Label3: TLabel
    Left = 201
    Top = 1
    Width = 12
    Height = 13
    Caption = '10'
  end
  object Label4: TLabel
    Left = 275
    Top = 0
    Width = 12
    Height = 13
    Caption = '15'
  end
  object Label5: TLabel
    Left = 351
    Top = 0
    Width = 12
    Height = 13
    Caption = '20'
  end
  object Label6: TLabel
    Left = 427
    Top = 0
    Width = 12
    Height = 13
    Caption = '25'
  end
  object Label7: TLabel
    Left = 501
    Top = 1
    Width = 12
    Height = 13
    Caption = '30'
  end
  object Image1: TImage
    Left = 8
    Top = 264
    Width = 602
    Height = 162
  end
  object C1: TImage
    Left = 344
    Top = 128
    Width = 17
    Height = 17
    OnClick = C1Click
  end
  object C2: TImage
    Left = 344
    Top = 200
    Width = 17
    Height = 17
    OnClick = C2Click
  end
  object C3: TImage
    Left = 544
    Top = 128
    Width = 17
    Height = 17
    OnClick = C3Click
  end
  object C4: TImage
    Left = 544
    Top = 200
    Width = 17
    Height = 17
    OnClick = C4Click
  end
  object Label9: TLabel
    Left = 8
    Top = 0
    Width = 48
    Height = 13
    Caption = 'Raw Data'
  end
  object Label10: TLabel
    Left = 672
    Top = 259
    Width = 22
    Height = 13
    Caption = '5min'
  end
  object Label11: TLabel
    Left = 673
    Top = 408
    Width = 23
    Height = 13
    Caption = '1sec'
  end
  object Label12: TLabel
    Left = 671
    Top = 379
    Width = 22
    Height = 13
    Caption = '1min'
  end
  object Label8: TLabel
    Left = 612
    Top = 259
    Width = 34
    Height = 13
    Caption = '- 1,60V'
  end
  object Label13: TLabel
    Left = 616
    Top = 388
    Width = 22
    Height = 13
    Caption = 'secs'
  end
  object T_1: TLabel
    Left = 344
    Top = 166
    Width = 49
    Height = 10
    Alignment = taCenter
    AutoSize = False
    Caption = '---------'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -8
    Font.Name = 'Small Fonts'
    Font.Style = []
    ParentFont = False
  end
  object T_2: TLabel
    Left = 344
    Top = 238
    Width = 49
    Height = 10
    Alignment = taCenter
    AutoSize = False
    Caption = '---------'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -8
    Font.Name = 'Small Fonts'
    Font.Style = []
    ParentFont = False
  end
  object T_3: TLabel
    Left = 544
    Top = 166
    Width = 49
    Height = 10
    Alignment = taCenter
    AutoSize = False
    Caption = '---------'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -8
    Font.Name = 'Small Fonts'
    Font.Style = []
    ParentFont = False
  end
  object T_4: TLabel
    Left = 544
    Top = 238
    Width = 49
    Height = 10
    Alignment = taCenter
    AutoSize = False
    Caption = '---------'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -8
    Font.Name = 'Small Fonts'
    Font.Style = []
    ParentFont = False
  end
  object GraphDelayBar: TTrackBar
    Left = 648
    Top = 256
    Width = 25
    Height = 169
    Ctl3D = True
    Max = 299
    Orientation = trVertical
    ParentCtl3D = False
    PageSize = 10
    Frequency = 30
    Position = 240
    TabOrder = 22
    ThumbLength = 15
    OnChange = GraphDelayBarChange
  end
  object L1: TCheckBox
    Left = 344
    Top = 112
    Width = 41
    Height = 17
    Caption = 'Log'
    TabOrder = 17
    OnClick = L1Click
  end
  object COMSettings: TButton
    Left = 592
    Top = 16
    Width = 113
    Height = 25
    Caption = 'COM Port Settings...'
    TabOrder = 0
    OnClick = COMSettingsClick
  end
  object MultiButt: TButton
    Left = 592
    Top = 48
    Width = 113
    Height = 25
    Caption = 'Start capturing'
    TabOrder = 1
    OnClick = MultiButtClick
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 184
    Width = 185
    Height = 73
    Caption = 'COM Status'
    TabOrder = 2
    object Label1: TLabel
      Left = 30
      Top = 16
      Width = 71
      Height = 13
      Caption = 'Last character:'
    end
    object L_Time: TLabel
      Left = 110
      Top = 16
      Width = 73
      Height = 13
      AutoSize = False
      Caption = 'hh:mm:ss'
    end
    object ComLed1: TComLed
      Left = 0
      Top = 32
      Width = 25
      Height = 25
      ComPort = ComPort
      LedSignal = lsConn
      Kind = lkYellowLight
    end
    object ComLed2: TComLed
      Left = 24
      Top = 32
      Width = 25
      Height = 25
      ComPort = ComPort
      LedSignal = lsCTS
      Kind = lkBlueLight
    end
    object ComLed3: TComLed
      Left = 48
      Top = 32
      Width = 25
      Height = 25
      ComPort = ComPort
      LedSignal = lsDSR
      Kind = lkRedLight
    end
    object ComLed4: TComLed
      Left = 88
      Top = 32
      Width = 25
      Height = 25
      ComPort = ComPort
      LedSignal = lsRing
      Kind = lkPurpleLight
    end
    object ComLed5: TComLed
      Left = 112
      Top = 32
      Width = 25
      Height = 25
      ComPort = ComPort
      LedSignal = lsRLSD
      Kind = lkRedLight
    end
    object ComLed6: TComLed
      Left = 144
      Top = 32
      Width = 25
      Height = 25
      ComPort = ComPort
      LedSignal = lsRx
      Kind = lkGreenLight
    end
    object ComLed7: TComLed
      Left = 160
      Top = 32
      Width = 25
      Height = 25
      ComPort = ComPort
      LedSignal = lsTx
      Kind = lkRedLight
    end
    object Label14: TLabel
      Left = 150
      Top = 54
      Width = 13
      Height = 13
      Caption = 'Rx'
    end
    object Label15: TLabel
      Left = 167
      Top = 54
      Width = 12
      Height = 13
      Caption = 'Tx'
    end
    object Label16: TLabel
      Left = 114
      Top = 56
      Width = 21
      Height = 10
      Caption = 'RLSD'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -8
      Font.Name = 'Small Fonts'
      Font.Style = []
      ParentFont = False
    end
    object Label17: TLabel
      Left = 92
      Top = 56
      Width = 17
      Height = 10
      Caption = 'Ring'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -8
      Font.Name = 'Small Fonts'
      Font.Style = []
      ParentFont = False
    end
    object Label18: TLabel
      Left = 52
      Top = 56
      Width = 17
      Height = 10
      Caption = 'DSR'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -8
      Font.Name = 'Small Fonts'
      Font.Style = []
      ParentFont = False
    end
    object Label19: TLabel
      Left = 28
      Top = 56
      Width = 16
      Height = 10
      Caption = 'CTS'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -8
      Font.Name = 'Small Fonts'
      Font.Style = []
      ParentFont = False
    end
    object Label20: TLabel
      Left = 3
      Top = 56
      Width = 19
      Height = 10
      Caption = 'Conn'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -8
      Font.Name = 'Small Fonts'
      Font.Style = []
      ParentFont = False
    end
  end
  object Edit1: TEdit
    Left = 64
    Top = 16
    Width = 521
    Height = 20
    Enabled = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -9
    Font.Name = 'Courier New'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    Text = 
      '01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 2' +
      '2 23 24 25 26 27 28 29 30 31 32 33 34'
  end
  object Edit2: TEdit
    Left = 64
    Top = 40
    Width = 521
    Height = 20
    Enabled = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -9
    Font.Name = 'Courier New'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    Text = 
      '01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 2' +
      '2 23 24 25 26 27 28 29 30 31 32 33 34'
  end
  object Edit3: TEdit
    Left = 64
    Top = 64
    Width = 521
    Height = 20
    Enabled = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -9
    Font.Name = 'Courier New'
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    Text = 
      '01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 2' +
      '2 23 24 25 26 27 28 29 30 31 32 33 34'
  end
  object Edit4: TEdit
    Left = 64
    Top = 88
    Width = 521
    Height = 20
    Enabled = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -9
    Font.Name = 'Courier New'
    Font.Style = []
    ParentFont = False
    TabOrder = 6
    Text = 
      '01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 2' +
      '2 23 24 25 26 27 28 29 30 31 32 33 34'
  end
  object R_1: TRadioButton
    Left = 8
    Top = 16
    Width = 49
    Height = 17
    Caption = 'Slot 1'
    Enabled = False
    TabOrder = 7
  end
  object R_2: TRadioButton
    Left = 8
    Top = 40
    Width = 49
    Height = 17
    Caption = 'Slot 2'
    Enabled = False
    TabOrder = 8
  end
  object R_3: TRadioButton
    Left = 8
    Top = 64
    Width = 49
    Height = 17
    Caption = 'Slot 3'
    Enabled = False
    TabOrder = 9
  end
  object R_4: TRadioButton
    Left = 8
    Top = 88
    Width = 49
    Height = 17
    Caption = 'Slot 4'
    Enabled = False
    TabOrder = 10
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 427
    Width = 712
    Height = 19
    Panels = <>
    SimplePanel = True
  end
  object D_1: TMemo
    Left = 200
    Top = 112
    Width = 137
    Height = 71
    Enabled = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Courier New'
    Font.Style = []
    Lines.Strings = (
      '1:')
    ParentFont = False
    ReadOnly = True
    TabOrder = 11
  end
  object D_2: TMemo
    Left = 200
    Top = 184
    Width = 137
    Height = 71
    Enabled = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Courier New'
    Font.Style = []
    Lines.Strings = (
      '2:')
    ParentFont = False
    ReadOnly = True
    TabOrder = 12
  end
  object D_3: TMemo
    Left = 400
    Top = 112
    Width = 137
    Height = 71
    Enabled = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Courier New'
    Font.Style = []
    Lines.Strings = (
      '3:')
    ParentFont = False
    ReadOnly = True
    TabOrder = 13
  end
  object D_4: TMemo
    Left = 400
    Top = 184
    Width = 137
    Height = 71
    Enabled = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Courier New'
    Font.Style = []
    Lines.Strings = (
      '4:')
    ParentFont = False
    ReadOnly = True
    TabOrder = 14
  end
  object D_Stat: TMemo
    Left = 8
    Top = 112
    Width = 137
    Height = 71
    Color = clLime
    Ctl3D = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Courier New'
    Font.Style = []
    Lines.Strings = (
      ' CHARGE MANAGER'
      '================'
      '1:---    3:---'
      '2:---    4:---')
    ParentCtl3D = False
    ParentFont = False
    ReadOnly = True
    TabOrder = 15
  end
  object LogButton: TButton
    Left = 592
    Top = 80
    Width = 113
    Height = 25
    Caption = 'Start logging'
    TabOrder = 16
    OnClick = LogButtonClick
  end
  object L2: TCheckBox
    Left = 344
    Top = 184
    Width = 41
    Height = 17
    Caption = 'Log'
    TabOrder = 18
    OnClick = L2Click
  end
  object L3: TCheckBox
    Left = 544
    Top = 112
    Width = 41
    Height = 17
    Caption = 'Log'
    TabOrder = 19
    OnClick = L3Click
  end
  object L4: TCheckBox
    Left = 544
    Top = 184
    Width = 41
    Height = 17
    Caption = 'Log'
    TabOrder = 20
    OnClick = L4Click
  end
  object GraphDelayCtrl: TEdit
    Left = 616
    Top = 400
    Width = 25
    Height = 21
    TabOrder = 23
    Text = '60'
    OnChange = GraphDelayCtrlChange
    OnKeyDown = GraphDelayCtrlKeyDown
  end
  object PB_1: TProgressBar
    Left = 344
    Top = 176
    Width = 49
    Height = 8
    Smooth = True
    TabOrder = 24
  end
  object PB_2: TProgressBar
    Left = 344
    Top = 248
    Width = 49
    Height = 8
    Smooth = True
    TabOrder = 25
  end
  object PB_3: TProgressBar
    Left = 544
    Top = 176
    Width = 49
    Height = 8
    Smooth = True
    TabOrder = 26
  end
  object PB_4: TProgressBar
    Left = 544
    Top = 248
    Width = 49
    Height = 8
    Smooth = True
    TabOrder = 27
  end
  object ColorDialog: TColorDialog
    Left = 664
    Top = 112
  end
  object DelayTimer: TTimer
    Enabled = False
    Interval = 5000
    OnTimer = DelayTimerTimer
    Left = 664
    Top = 160
  end
  object ComPort: TComPort
    BaudRate = br9600
    Port = 'COM1'
    Parity.Bits = prNone
    StopBits = sbOneStopBit
    DataBits = dbEight
    Events = [evRxChar, evTxEmpty, evRxFlag, evRing, evBreak, evCTS, evDSR, evError, evRLSD, evRx80Full]
    FlowControl.OutCTSFlow = False
    FlowControl.OutDSRFlow = False
    FlowControl.ControlDTR = dtrDisable
    FlowControl.ControlRTS = rtsDisable
    FlowControl.XonXoffOut = False
    FlowControl.XonXoffIn = False
    OnAfterOpen = ComPortAfterOpen
    OnAfterClose = ComPortAfterClose
    OnRxChar = ComPortRxChar
    OnRxFlag = ComPortRxFlag
    Left = 160
    Top = 120
  end
end