2016-12-29 13:18:01 +00:00
object mainform: Tmainform
2017-08-14 09:01:51 +00:00
Left = 2064
2017-01-10 12:01:31 +00:00
Height = 504
2017-08-14 09:01:51 +00:00
Top = 101
2017-01-02 09:34:00 +00:00
Width = 784
2016-12-30 07:28:09 +00:00
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
2016-12-29 13:18:01 +00:00
Caption = 'mainform'
2017-01-10 12:01:31 +00:00
ClientHeight = 484
2017-01-02 09:34:00 +00:00
ClientWidth = 784
2016-12-29 13:18:01 +00:00
DefaultMonitor = dmDesktop
2017-01-07 08:57:48 +00:00
Font.Height = -12
2016-12-29 13:18:01 +00:00
Menu = MainMenu1
OnActivate = FormActivate
2017-01-02 16:33:59 +00:00
OnClose = FormClose
2017-08-14 08:54:26 +00:00
OnCloseQuery = FormCloseQuery
2016-12-29 13:18:01 +00:00
OnCreate = FormCreate
OnDestroy = FormDestroy
2017-08-14 08:54:26 +00:00
OnShow = FormShow
2016-12-30 07:28:09 +00:00
OnWindowStateChange = FormWindowStateChange
2016-12-29 13:18:01 +00:00
Position = poWorkAreaCenter
2017-01-10 12:01:31 +00:00
ShowHint = True
2016-12-30 07:28:09 +00:00
ShowInTaskBar = stNever
2017-08-14 08:54:26 +00:00
LCLVersion = '1.9.0.0'
2016-12-29 13:18:01 +00:00
object grp_sensorDisplay: TGroupBox
Left = 0
Height = 120
Top = 0
2017-01-02 09:34:00 +00:00
Width = 784
2016-12-29 13:18:01 +00:00
Align = alTop
Caption = 'Current Values'
ChildSizing.ControlsPerLine = 6
ClientHeight = 100
2017-01-02 09:34:00 +00:00
ClientWidth = 780
2016-12-29 13:18:01 +00:00
TabOrder = 0
object as_pm: TAnalogSensor
Left = 0
Height = 100
Top = 0
Width = 130
Align = alLeft
ClientHeight = 100
ClientWidth = 130
TabOrder = 0
ShowText = True
ShowLevel = True
Value = 0
ValueMin = 0
2017-01-02 09:34:00 +00:00
ValueMax = 1000
2016-12-29 13:18:01 +00:00
ValueRed = 0
ValueYellow = 0
AnalogKind = akAnalog
end
object as_tmp: TAnalogSensor
Left = 130
Height = 100
Top = 0
Width = 130
Align = alLeft
ClientHeight = 100
ClientWidth = 130
TabOrder = 1
ShowText = True
ShowLevel = True
2017-01-05 09:56:04 +00:00
Value = 0
2017-01-02 10:55:49 +00:00
ValueMin = 0
2016-12-29 13:18:01 +00:00
ValueMax = 40
2017-01-02 10:55:49 +00:00
ValueRed = 0
2017-01-05 09:56:04 +00:00
ValueYellow = 0
2016-12-29 13:18:01 +00:00
AnalogKind = akAnalog
end
object as_hum: TAnalogSensor
Left = 260
Height = 100
Top = 0
Width = 130
Align = alLeft
ClientHeight = 100
ClientWidth = 130
TabOrder = 2
ShowText = True
ShowLevel = True
2017-01-02 09:34:00 +00:00
Value = 10
ValueMin = 10
2016-12-29 13:18:01 +00:00
ValueMax = 100
2017-01-02 09:34:00 +00:00
ValueRed = 10
ValueYellow = 10
2016-12-29 13:18:01 +00:00
AnalogKind = akAnalog
end
object as_co2: TAnalogSensor
Left = 390
Height = 100
Top = 0
Width = 130
Align = alLeft
ClientHeight = 100
ClientWidth = 130
TabOrder = 3
ShowText = True
ShowLevel = True
2017-01-02 09:34:00 +00:00
Value = 450
ValueMin = 450
2016-12-29 13:18:01 +00:00
ValueMax = 3000
2017-01-02 09:34:00 +00:00
ValueRed = 450
ValueYellow = 450
2016-12-29 13:18:01 +00:00
AnalogKind = akAnalog
end
object as_voc: TAnalogSensor
Left = 520
Height = 100
Top = 0
Width = 130
Align = alLeft
ClientHeight = 100
ClientWidth = 130
TabOrder = 4
ShowText = True
ShowLevel = True
2017-01-02 09:34:00 +00:00
Value = 125
ValueMin = 125
2016-12-29 13:18:01 +00:00
ValueMax = 1000
2017-01-02 09:34:00 +00:00
ValueRed = 125
ValueYellow = 125
2016-12-29 13:18:01 +00:00
AnalogKind = akAnalog
end
object as_allpollu: TAnalogSensor
Left = 650
Height = 100
Top = 0
Width = 130
Align = alLeft
ClientHeight = 100
ClientWidth = 130
TabOrder = 5
ShowText = True
ShowLevel = True
Value = 0
ValueMin = 0
2017-01-02 10:55:49 +00:00
ValueMax = 700
2016-12-29 13:18:01 +00:00
ValueRed = 0
ValueYellow = 0
AnalogKind = akAnalog
end
end
2017-01-09 11:34:34 +00:00
object grp_health: TGroupBox
2016-12-29 13:18:01 +00:00
Left = 0
2017-01-09 11:34:34 +00:00
Height = 72
2016-12-29 13:18:01 +00:00
Top = 120
2017-01-02 09:34:00 +00:00
Width = 784
2016-12-29 13:18:01 +00:00
Align = alTop
2017-01-09 11:34:34 +00:00
Caption = 'Health'
ClientHeight = 52
ClientWidth = 780
TabOrder = 3
object pnl_healthpm: TPanel
Left = 0
Height = 52
Top = 0
Width = 130
Align = alLeft
ClientHeight = 52
ClientWidth = 130
TabOrder = 0
object sls_pm: TStopLightSensor
Left = 4
Height = 43
Top = 4
Width = 23
Picture.Data = {
1754506F727461626C654E6574776F726B47726170686963F400000089504E47
0D0A1A0A0000000D49484452000000150000002B08020000001805541C000000
BB49444154789CED95D10A80200C45FD743FAD3F33D3D2E972F34E7A281A04A2
9CB3619772DB5AB9F8786B85104EDEE115C187F932A785CF9B9EAC01BE81078A
215FE0782C28243EC3C7319902E0FBE10DFDB96296BF5500F7C715F0FBAB0A73
7ED47A47FE7D5D037C0BDF2BB4FCF97C345488F94BF0F179235380F96F3AE3FD
B902CCBF082B7CA7F8F38FF3D7ED91F53C4FE19142C99F4B111614224FF25F14
58FEF90F00EBCF1558FE6558E13BC5F7F3BF99EAE4C342D54BB2D50EA0FED6E2
5B12FB970000000049454E44AE426082
}
State = slUNKNOWN
end
object lbl_redlightpm: TLabel
Left = 32
Height = 15
Top = 4
Width = 96
AutoSize = False
Caption = 'No Stats'
ParentColor = False
end
object lbl_yellowlightpm: TLabel
Left = 32
Height = 15
Top = 18
Width = 96
AutoSize = False
Caption = 'No Stats'
ParentColor = False
end
object lbl_greenlightpm: TLabel
Left = 32
Height = 15
Top = 32
Width = 96
AutoSize = False
Caption = 'No Stats'
ParentColor = False
end
end
object pnl_healthallpollu: TPanel
Left = 650
Height = 52
Top = 0
Width = 130
Align = alLeft
ClientHeight = 52
ClientWidth = 130
TabOrder = 1
object sls_allpollu: TStopLightSensor
Left = 4
Height = 43
Top = 4
Width = 23
Picture.Data = {
1754506F727461626C654E6574776F726B47726170686963F400000089504E47
0D0A1A0A0000000D49484452000000150000002B08020000001805541C000000
BB49444154789CED95D10A80200C45FD743FAD3F33D3D2E972F34E7A281A04A2
9CB3619772DB5AB9F8786B85104EDEE115C187F932A785CF9B9EAC01BE81078A
215FE0782C28243EC3C7319902E0FBE10DFDB96296BF5500F7C715F0FBAB0A73
7ED47A47FE7D5D037C0BDF2BB4FCF97C345488F94BF0F179235380F96F3AE3FD
B902CCBF082B7CA7F8F38FF3D7ED91F53C4FE19142C99F4B111614224FF25F14
58FEF90F00EBCF1558FE6558E13BC5F7F3BF99EAE4C342D54BB2D50EA0FED6E2
5B12FB970000000049454E44AE426082
}
State = slUNKNOWN
end
object lbl_redlightallpollu: TLabel
Left = 32
Height = 15
Top = 4
Width = 96
AutoSize = False
Caption = 'No Stats'
ParentColor = False
end
object lbl_yellowlightallpollu: TLabel
Left = 32
Height = 15
Top = 18
Width = 96
AutoSize = False
Caption = 'No Stats'
ParentColor = False
end
object lbl_greenlightallpollu: TLabel
Left = 32
Height = 15
Top = 32
Width = 96
AutoSize = False
Caption = 'No Stats'
ParentColor = False
end
end
object pnl_healthvoc: TPanel
Left = 520
Height = 52
Top = 0
Width = 130
Align = alLeft
ClientHeight = 52
ClientWidth = 130
TabOrder = 2
object sls_voc: TStopLightSensor
Left = 4
Height = 43
Top = 4
Width = 23
Picture.Data = {
1754506F727461626C654E6574776F726B47726170686963F400000089504E47
0D0A1A0A0000000D49484452000000150000002B08020000001805541C000000
BB49444154789CED95D10A80200C45FD743FAD3F33D3D2E972F34E7A281A04A2
9CB3619772DB5AB9F8786B85104EDEE115C187F932A785CF9B9EAC01BE81078A
215FE0782C28243EC3C7319902E0FBE10DFDB96296BF5500F7C715F0FBAB0A73
7ED47A47FE7D5D037C0BDF2BB4FCF97C345488F94BF0F179235380F96F3AE3FD
B902CCBF082B7CA7F8F38FF3D7ED91F53C4FE19142C99F4B111614224FF25F14
58FEF90F00EBCF1558FE6558E13BC5F7F3BF99EAE4C342D54BB2D50EA0FED6E2
5B12FB970000000049454E44AE426082
}
State = slUNKNOWN
end
object lbl_redlightvoc: TLabel
Left = 32
Height = 15
Top = 4
Width = 96
AutoSize = False
Caption = 'No Stats'
ParentColor = False
end
object lbl_yellowlightvoc: TLabel
Left = 32
Height = 15
Top = 18
Width = 96
AutoSize = False
Caption = 'No Stats'
ParentColor = False
end
object lbl_greenlightvoc: TLabel
Left = 32
Height = 15
Top = 32
Width = 96
AutoSize = False
Caption = 'No Stats'
ParentColor = False
end
end
object pnl_healthco2: TPanel
Left = 390
Height = 52
Top = 0
Width = 130
Align = alLeft
ClientHeight = 52
ClientWidth = 130
TabOrder = 3
object sls_co2: TStopLightSensor
Left = 4
Height = 43
Top = 4
Width = 23
Picture.Data = {
1754506F727461626C654E6574776F726B47726170686963F400000089504E47
0D0A1A0A0000000D49484452000000150000002B08020000001805541C000000
BB49444154789CED95D10A80200C45FD743FAD3F33D3D2E972F34E7A281A04A2
9CB3619772DB5AB9F8786B85104EDEE115C187F932A785CF9B9EAC01BE81078A
215FE0782C28243EC3C7319902E0FBE10DFDB96296BF5500F7C715F0FBAB0A73
7ED47A47FE7D5D037C0BDF2BB4FCF97C345488F94BF0F179235380F96F3AE3FD
B902CCBF082B7CA7F8F38FF3D7ED91F53C4FE19142C99F4B111614224FF25F14
58FEF90F00EBCF1558FE6558E13BC5F7F3BF99EAE4C342D54BB2D50EA0FED6E2
5B12FB970000000049454E44AE426082
}
State = slUNKNOWN
end
object lbl_redlightco2: TLabel
Left = 32
Height = 15
Top = 4
Width = 96
AutoSize = False
Caption = 'No Stats'
ParentColor = False
end
object lbl_yellowlightco2: TLabel
Left = 32
Height = 15
Top = 18
Width = 96
AutoSize = False
Caption = 'No Stats'
ParentColor = False
end
object lbl_greenlightco2: TLabel
Left = 32
Height = 15
Top = 32
Width = 96
AutoSize = False
Caption = 'No Stats'
ParentColor = False
end
end
object pnl_healthhum: TPanel
Left = 260
Height = 52
Top = 0
Width = 130
Align = alLeft
ClientHeight = 52
ClientWidth = 130
TabOrder = 4
object sls_hum: TStopLightSensor
Left = 4
Height = 43
Top = 4
Width = 23
Picture.Data = {
1754506F727461626C654E6574776F726B47726170686963F400000089504E47
0D0A1A0A0000000D49484452000000150000002B08020000001805541C000000
BB49444154789CED95D10A80200C45FD743FAD3F33D3D2E972F34E7A281A04A2
9CB3619772DB5AB9F8786B85104EDEE115C187F932A785CF9B9EAC01BE81078A
215FE0782C28243EC3C7319902E0FBE10DFDB96296BF5500F7C715F0FBAB0A73
7ED47A47FE7D5D037C0BDF2BB4FCF97C345488F94BF0F179235380F96F3AE3FD
B902CCBF082B7CA7F8F38FF3D7ED91F53C4FE19142C99F4B111614224FF25F14
58FEF90F00EBCF1558FE6558E13BC5F7F3BF99EAE4C342D54BB2D50EA0FED6E2
5B12FB970000000049454E44AE426082
}
State = slUNKNOWN
end
object lbl_redlighthum: TLabel
Left = 32
Height = 15
Top = 4
Width = 96
AutoSize = False
Caption = 'No Stats'
ParentColor = False
end
object lbl_yellowlighthum: TLabel
Left = 32
Height = 15
Top = 18
Width = 96
AutoSize = False
Caption = 'No Stats'
ParentColor = False
end
object lbl_greenlighthum: TLabel
Left = 32
Height = 15
Top = 32
Width = 96
AutoSize = False
Caption = 'No Stats'
ParentColor = False
end
end
object pnl_healthtmp: TPanel
Left = 130
Height = 52
Top = 0
Width = 130
Align = alLeft
ClientHeight = 52
ClientWidth = 130
TabOrder = 5
object sls_tmp: TStopLightSensor
Left = 4
Height = 43
Top = 4
Width = 23
Picture.Data = {
1754506F727461626C654E6574776F726B47726170686963F400000089504E47
0D0A1A0A0000000D49484452000000150000002B08020000001805541C000000
BB49444154789CED95D10A80200C45FD743FAD3F33D3D2E972F34E7A281A04A2
9CB3619772DB5AB9F8786B85104EDEE115C187F932A785CF9B9EAC01BE81078A
215FE0782C28243EC3C7319902E0FBE10DFDB96296BF5500F7C715F0FBAB0A73
7ED47A47FE7D5D037C0BDF2BB4FCF97C345488F94BF0F179235380F96F3AE3FD
B902CCBF082B7CA7F8F38FF3D7ED91F53C4FE19142C99F4B111614224FF25F14
58FEF90F00EBCF1558FE6558E13BC5F7F3BF99EAE4C342D54BB2D50EA0FED6E2
5B12FB970000000049454E44AE426082
}
State = slUNKNOWN
end
object lbl_redlighttmp: TLabel
Left = 32
Height = 15
Top = 4
Width = 96
AutoSize = False
Caption = 'No Stats'
ParentColor = False
end
object lbl_yellowlighttmp: TLabel
Left = 32
Height = 15
Top = 18
Width = 96
AutoSize = False
Caption = 'No Stats'
ParentColor = False
end
object lbl_greenlighttmp: TLabel
Left = 32
Height = 15
Top = 32
Width = 96
AutoSize = False
Caption = 'No Stats'
ParentColor = False
end
end
end
object grp_highlow: TGroupBox
Left = 0
Height = 112
Top = 192
Width = 784
Align = alTop
2016-12-30 16:24:25 +00:00
Caption = 'All-time Highs and Lows'
2016-12-29 13:18:01 +00:00
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsScaleChilds
ChildSizing.ControlsPerLine = 6
2017-01-09 11:34:34 +00:00
ClientHeight = 92
2017-01-02 09:34:00 +00:00
ClientWidth = 780
2016-12-29 13:18:01 +00:00
TabOrder = 1
object grp_pm: TGroupBox
Left = 0
2017-01-09 11:34:34 +00:00
Height = 92
2016-12-29 13:18:01 +00:00
Top = 0
Width = 130
Align = alLeft
Caption = 'Particulates'
2017-01-09 11:34:34 +00:00
ClientHeight = 72
2016-12-29 13:18:01 +00:00
ClientWidth = 126
TabOrder = 0
object lbl_pmhigh: TLabel
Left = 8
Height = 15
2017-01-10 12:01:31 +00:00
Top = 2
2017-01-02 09:34:00 +00:00
Width = 43
Caption = 'No stats'
2016-12-29 13:18:01 +00:00
ParentColor = False
end
object lbl_pmlow: TLabel
Left = 8
Height = 15
2017-01-10 12:01:31 +00:00
Top = 34
2017-01-02 09:34:00 +00:00
Width = 44
Caption = 'No Stats'
2016-12-29 13:18:01 +00:00
ParentColor = False
end
end
object grp_tmp: TGroupBox
Left = 130
2017-01-09 11:34:34 +00:00
Height = 92
2016-12-29 13:18:01 +00:00
Top = 0
Width = 130
Align = alLeft
Caption = 'Temperature'
2017-01-09 11:34:34 +00:00
ClientHeight = 72
2016-12-29 13:18:01 +00:00
ClientWidth = 126
TabOrder = 1
object lbl_tmphigh: TLabel
Left = 8
Height = 15
2017-01-10 12:01:31 +00:00
Top = 2
2017-01-02 09:34:00 +00:00
Width = 44
Caption = 'No Stats'
2016-12-29 13:18:01 +00:00
ParentColor = False
end
object lbl_tmplow: TLabel
Left = 8
Height = 15
2017-01-10 12:01:31 +00:00
Top = 34
2017-01-02 09:34:00 +00:00
Width = 44
Caption = 'No Stats'
2016-12-29 13:18:01 +00:00
ParentColor = False
end
end
object grp_hum: TGroupBox
Left = 260
2017-01-09 11:34:34 +00:00
Height = 92
2016-12-29 13:18:01 +00:00
Top = 0
Width = 130
Align = alLeft
Caption = 'Humidity'
2017-01-09 11:34:34 +00:00
ClientHeight = 72
2016-12-29 13:18:01 +00:00
ClientWidth = 126
TabOrder = 2
object lbl_humhigh: TLabel
Left = 8
Height = 15
2017-01-10 12:01:31 +00:00
Top = 2
2017-01-02 09:34:00 +00:00
Width = 44
Caption = 'No Stats'
2016-12-29 13:18:01 +00:00
ParentColor = False
end
object lbl_humlow: TLabel
Left = 8
Height = 15
2017-01-10 12:01:31 +00:00
Top = 34
2017-01-02 09:34:00 +00:00
Width = 44
Caption = 'No Stats'
2016-12-29 13:18:01 +00:00
ParentColor = False
end
end
object grp_co2: TGroupBox
Left = 390
2017-01-09 11:34:34 +00:00
Height = 92
2016-12-29 13:18:01 +00:00
Top = 0
Width = 130
Align = alLeft
Caption = 'CO2'
2017-01-09 11:34:34 +00:00
ClientHeight = 72
2016-12-29 13:18:01 +00:00
ClientWidth = 126
TabOrder = 3
object lbl_co2high: TLabel
Left = 8
Height = 15
2017-01-10 12:01:31 +00:00
Top = 2
2017-01-02 09:34:00 +00:00
Width = 44
Caption = 'No Stats'
2016-12-29 13:18:01 +00:00
ParentColor = False
end
object lbl_co2low: TLabel
Left = 8
Height = 15
2017-01-10 12:01:31 +00:00
Top = 34
2017-01-02 09:34:00 +00:00
Width = 44
Caption = 'No Stats'
2016-12-29 13:18:01 +00:00
ParentColor = False
end
end
object grp_voc: TGroupBox
Left = 520
2017-01-09 11:34:34 +00:00
Height = 92
2016-12-29 13:18:01 +00:00
Top = 0
Width = 130
Align = alLeft
Caption = 'Volatile VOC'
2017-01-09 11:34:34 +00:00
ClientHeight = 72
2016-12-29 13:18:01 +00:00
ClientWidth = 126
TabOrder = 4
object lbl_vochigh: TLabel
Left = 8
Height = 15
2017-01-10 12:01:31 +00:00
Top = 2
2017-01-02 09:34:00 +00:00
Width = 44
Caption = 'No Stats'
2016-12-29 13:18:01 +00:00
ParentColor = False
end
object lbl_voclow: TLabel
Left = 8
Height = 15
2017-01-10 12:01:31 +00:00
Top = 34
2017-01-02 09:34:00 +00:00
Width = 44
Caption = 'No Stats'
2016-12-29 13:18:01 +00:00
ParentColor = False
end
end
object grp_allpollu: TGroupBox
Left = 650
2017-01-09 11:34:34 +00:00
Height = 92
2016-12-29 13:18:01 +00:00
Top = 0
Width = 130
Align = alLeft
Caption = 'All Pollution'
2017-01-09 11:34:34 +00:00
ClientHeight = 72
2016-12-29 13:18:01 +00:00
ClientWidth = 126
TabOrder = 5
object lbl_allpolluhigh: TLabel
Left = 8
Height = 15
2017-01-10 12:01:31 +00:00
Top = 2
2017-01-02 09:34:00 +00:00
Width = 44
Caption = 'No Stats'
2016-12-29 13:18:01 +00:00
ParentColor = False
end
object lbl_allpollulow: TLabel
Left = 8
Height = 15
2017-01-10 12:01:31 +00:00
Top = 34
2017-01-02 09:34:00 +00:00
Width = 44
Caption = 'No Stats'
2016-12-29 13:18:01 +00:00
ParentColor = False
end
end
end
2017-01-02 09:34:00 +00:00
object grp_chart: TGroupBox
Left = 0
Height = 179
2017-01-09 11:34:34 +00:00
Top = 304
2017-01-02 09:34:00 +00:00
Width = 784
Align = alTop
Caption = 'History'
ClientHeight = 159
ClientWidth = 780
TabOrder = 2
object Chart1: TChart
Left = 0
2017-01-10 12:01:31 +00:00
Height = 136
2017-01-02 09:34:00 +00:00
Top = 0
Width = 780
AxisList = <
item
Marks.Format = '%2:s'
Marks.Style = smsLabel
Minors = <>
Title.LabelFont.Orientation = 900
end
item
Grid.Visible = False
Intervals.Count = 24
Intervals.Options = [aipGraphCoords, aipUseNiceSteps]
Alignment = calBottom
Arrow.Length = 24
Marks.Distance = 0
Marks.Format = '%2:s'
Marks.OverlapPolicy = opHideNeighbour
Marks.Range.Max = 24
Marks.Source = DateTimeIntervalChartSource1
Marks.Style = smsLabel
Minors = <>
Range.Max = 24
Range.UseMax = True
end>
ExtentSizeLimit.UseXMax = True
ExtentSizeLimit.XMax = 24
Foot.Brush.Color = clBtnFace
Foot.Font.Color = clBlue
Foot.Text.Strings = (
'Today'
)
Title.Brush.Color = clBtnFace
Title.Font.Color = clBlue
Title.Text.Strings = (
'Foobot History'
)
Align = alClient
object lineseries_pm: TLineSeries
LinePen.Color = clMaroon
end
object lineseries_tmp: TLineSeries
LinePen.Color = clRed
end
object lineseries_hum: TLineSeries
LinePen.Color = clGreen
end
object lineseries_co2: TLineSeries
LinePen.Color = clLime
end
object lineseries_voc: TLineSeries
LinePen.Color = clNavy
end
object lineseries_allpollu: TLineSeries
LinePen.Color = clBlue
2017-01-02 10:55:49 +00:00
LinePen.Width = 2
2017-01-02 09:34:00 +00:00
end
end
2017-01-10 12:01:31 +00:00
object sts: TStatusBar
Left = 0
Height = 23
Top = 136
Width = 780
Panels = <>
SizeGrip = False
end
2017-01-02 09:34:00 +00:00
end
2016-12-29 13:18:01 +00:00
object tmr_foobot: TTimer
Enabled = False
Interval = 3600
OnTimer = tmr_foobotTimer
Left = 16
end
object MainMenu1: TMainMenu
2017-01-09 11:34:34 +00:00
Left = 200
2016-12-29 13:18:01 +00:00
object mnu_file: TMenuItem
Caption = '&File'
object mnu_fileExit: TMenuItem
Caption = 'E&xit'
OnClick = mnu_fileExitClick
end
end
object mnu_options: TMenuItem
Caption = '&Options'
2016-12-30 16:24:25 +00:00
object mnu_optionsMinimiseToTray: TMenuItem
Caption = 'Minimise to tray'
OnClick = mnu_optionsMinimiseToTrayClick
2016-12-29 13:18:01 +00:00
end
object mnu_optionsTakeReadingNow: TMenuItem
Caption = 'Take reading now'
OnClick = mnu_optionsTakeReadingNowClick
end
object mnu_optionsSampleEvery: TMenuItem
Caption = 'Sample every...'
2017-01-04 14:23:45 +00:00
object mnu_SampleEveryHalfHour: TMenuItem
AutoCheck = True
Caption = 'Half-Hour'
2017-01-05 09:56:04 +00:00
GroupIndex = 1
2017-01-05 10:38:36 +00:00
RadioItem = True
2017-01-04 14:23:45 +00:00
OnClick = mnu_SampleEveryHalfHourClick
end
2016-12-29 13:18:01 +00:00
object mnu_SampleEvery1Hour: TMenuItem
AutoCheck = True
Caption = 'Hour (default)'
Checked = True
2017-01-05 10:38:36 +00:00
Default = True
2016-12-29 13:18:01 +00:00
GroupIndex = 1
2017-01-05 10:38:36 +00:00
RadioItem = True
2016-12-29 13:18:01 +00:00
OnClick = mnu_SampleEvery1HourClick
end
object mnu_SampleEvery2Hours: TMenuItem
AutoCheck = True
Caption = '2 Hours'
2017-01-05 09:56:04 +00:00
GroupIndex = 1
2017-01-05 10:38:36 +00:00
RadioItem = True
2016-12-29 13:18:01 +00:00
OnClick = mnu_SampleEvery2HoursClick
end
object mnu_SampleEvery4Hours: TMenuItem
AutoCheck = True
Caption = '4 Hours'
2017-01-05 09:56:04 +00:00
GroupIndex = 1
2017-01-05 10:38:36 +00:00
RadioItem = True
2016-12-29 13:18:01 +00:00
OnClick = mnu_SampleEvery4HoursClick
end
object mnu_SampleEvery8Hours: TMenuItem
AutoCheck = True
Caption = '8 Hours'
2017-01-05 09:56:04 +00:00
GroupIndex = 1
2017-01-05 10:38:36 +00:00
RadioItem = True
2016-12-29 13:18:01 +00:00
OnClick = mnu_SampleEvery8HoursClick
end
object mnu_SampleEvery24Hours: TMenuItem
AutoCheck = True
Caption = '24 Hours'
GroupIndex = 1
2017-01-05 10:38:36 +00:00
RadioItem = True
2016-12-29 13:18:01 +00:00
OnClick = mnu_SampleEvery24HoursClick
end
end
2016-12-30 16:24:25 +00:00
object mnu_optionsSeperator1: TMenuItem
Caption = '-'
end
2017-01-05 09:17:25 +00:00
object mnu_optionsDisplay: TMenuItem
Caption = 'Display...'
object mnu_optionsDisplayGuagesOnly: TMenuItem
AutoCheck = True
2017-01-10 05:39:06 +00:00
Caption = 'Minimal view'
2017-01-05 09:17:25 +00:00
OnClick = mnu_optionsDisplayGuagesOnlyClick
end
object mnu_optionsDisplayYellowLines: TMenuItem
AutoCheck = True
Caption = 'Recommended values'
OnClick = mnu_optionsDisplayYellowLinesClick
end
object mnu_optionsDisplayRedLines: TMenuItem
AutoCheck = True
Caption = 'Session maximums'
OnClick = mnu_optionsDisplayRedLinesClick
end
2016-12-30 16:24:25 +00:00
end
2016-12-29 13:18:01 +00:00
object mnu_optionsSaveHighLows: TMenuItem
AutoCheck = True
2016-12-30 16:24:25 +00:00
Caption = 'Record All-time High/Lows'
2016-12-29 13:18:01 +00:00
Checked = True
OnClick = mnu_optionsSaveHighLowsClick
end
2017-01-02 12:13:25 +00:00
object mnu_optionsResetHighsLows: TMenuItem
Caption = 'Reset All-time Highs/Lows'
OnClick = mnu_optionsResetHighsLowsClick
2017-01-08 16:05:33 +00:00
end
object mnu_optionsFoobotTriggers: TMenuItem
2017-01-09 14:19:41 +00:00
Caption = 'Foobot Triggers and Recommended values...'
2017-01-08 16:05:33 +00:00
object mnu_options_triggersSetTriggers: TMenuItem
2017-01-09 14:19:41 +00:00
Caption = 'Set Trigger and Recommended Values...'
2017-01-08 16:05:33 +00:00
OnClick = mnu_options_triggersSetTriggersClick
end
object mnu_options_triggersActivateTriggers: TMenuItem
Caption = 'Set Triggers On'
Enabled = False
RadioItem = True
OnClick = mnu_options_triggersActivateTriggersClick
end
2017-01-02 12:13:25 +00:00
end
2016-12-30 16:24:25 +00:00
end
2017-01-07 08:57:48 +00:00
object mnu_foobot: TMenuItem
Caption = '&Foobot'
end
2016-12-30 16:24:25 +00:00
object mnu_help: TMenuItem
Caption = '&Help'
2017-01-10 13:44:23 +00:00
object mnu_helpHelpHTML: TMenuItem
Caption = 'Help...'
OnClick = mnu_helpHelpHTMLClick
end
2017-08-14 08:54:26 +00:00
object mnu_helpCheckForUpdates: TMenuItem
Caption = 'Check for Updates'
OnClick = mnu_helpCheckForUpdatesClick
end
2017-01-10 07:53:26 +00:00
object mnu_optionsHomePage: TMenuItem
Caption = 'Home Page'
OnClick = mnu_optionsHomePageClick
2016-12-30 16:24:25 +00:00
end
2017-01-08 18:49:20 +00:00
object mnu_helpFoobotAPIPage: TMenuItem
Caption = 'Foobot API page'
OnClick = mnu_helpFoobotAPIPageClick
end
2016-12-30 16:24:25 +00:00
object mnu_helpAbout: TMenuItem
Caption = 'A&bout..'
OnClick = mnu_helpAboutClick
2016-12-30 07:28:09 +00:00
end
end
end
object TrayIcon1: TTrayIcon
PopUpMenu = traypopup
Visible = True
OnClick = TrayIcon1Click
Left = 96
Top = 8
end
object traypopup: TPopupMenu
Left = 136
Top = 8
object mnupopup_fileRestore: TMenuItem
Caption = '&Restore'
OnClick = mnupopup_fileRestoreClick
end
object mnu_pupupClose: TMenuItem
Caption = '&Close'
OnClick = mnu_fileExitClick
2016-12-29 13:18:01 +00:00
end
end
2017-01-02 09:34:00 +00:00
object DateTimeIntervalChartSource1: TDateTimeIntervalChartSource
2017-01-05 09:56:04 +00:00
Steps = [dtsYear, dtsWeek, dtsDay, dtsHour]
2017-01-02 09:34:00 +00:00
Left = 174
Top = 325
end
2017-08-14 08:54:26 +00:00
object LazAutoUpdate1: TLazAutoUpdate
About.Description.Strings = (
'A component for updating your application'#13#10'Designed for projects hosted by SourceForge and GitHub'#13#10#13#10'Main methods:'#13#10'Procedure AutoUpdate'#13#10'Function NewVersionAvailable: Boolean'#13#10'Function DownloadNewVersion: Boolean'#13#10'Function UpdateToNewVersion: Boolean'#13#10'Procedure ShowWhatsNewIfAvailable'#13#10'For troubleshooting, set DebugMode=TRUE'
)
About.Title = 'About LazAutoUpdate'
About.Height = 450
About.Width = 400
About.Font.Color = clNavy
About.Font.Height = -13
About.BackGroundColor = clWindow
About.Version = '0.3.9.0'
About.Authorname = 'Gordon Bamber'
About.Organisation = 'Public Domain'
About.AuthorEmail = 'minesadorada@charcodelvalle.com'
About.ComponentName = 'Laz Auto-update v0.3.9.0'
About.LicenseType = abModifiedGPL
SFProjectName = 'lazautoupdate'
UpdatesFolder = 'updates'
VersionsININame = 'foobotmonitor.ini'
VersionCountLimit = 1000000
DownloadCountLimit = 10000000
ZipfileName = 'foobotmonitor.zip'
WorkingMode = lauUpdate
ShortCut.ShortcutName = 'MyShortcutName'
ShortCut.Category = scAudioVideo
Left = 232
Top = 8
end
2016-12-29 13:18:01 +00:00
end