1
0
mirror of https://github.com/mbirth/cm2010.git synced 2024-11-10 00:16:45 +00:00
cm2010/CM2010.dfm

505 lines
10 KiB
Plaintext
Raw Normal View History

2004-12-08 08:45:38 +00:00
object Form1: TForm1
Left = 197
Top = 176
Width = 721
2004-12-08 08:45:38 +00:00
Height = 477
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 = []
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 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 L_CTS: TLabel
Left = 8
Top = 20
Width = 44
2004-12-08 08:45:38 +00:00
Height = 13
Caption = 'CTS high'
Enabled = False
2004-12-08 08:45:38 +00:00
end
object L_DSR: TLabel
Left = 8
Top = 36
Width = 46
2004-12-08 08:45:38 +00:00
Height = 13
Caption = 'DSR high'
Enabled = False
2004-12-08 08:45:38 +00:00
end
object L_RLSD: TLabel
Left = 8
Top = 52
Width = 52
2004-12-08 08:45:38 +00:00
Height = 13
Caption = 'RLSD high'
Enabled = False
2004-12-08 08:45:38 +00:00
end
object Label1: TLabel
Left = 72
Top = 24
Width = 101
2004-12-08 08:45:38 +00:00
Height = 13
Caption = 'Last event character:'
2004-12-08 08:45:38 +00:00
end
object L_Time: TLabel
Left = 80
Top = 40
Width = 73
Height = 13
Alignment = taCenter
AutoSize = False
Caption = 'hh:mm:ss'
2004-12-08 08:45:38 +00:00
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 = 431
Width = 713
2004-12-08 08:45:38 +00:00
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 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
Left = 160
Top = 120
end
end