object Form1: TForm1 Left = 195 Top = 109 Width = 720 Height = 480 Caption = 'Charge Manager 2010 --- (c)2003 by Markus Birth ' 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