pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

V0.2.2.0: work-in-progress. Triggerform layout done

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5615 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
gbamber
2017-01-09 14:19:41 +00:00
parent e22989bb94
commit 9ef0b4c9ee
7 changed files with 1080 additions and 124 deletions
Download Patch File Download Diff File Expand all files Collapse all files

166
applications/foobot/monitor/foobotmonitor.lps
View File

@ -3,14 +3,14 @@
<ProjectSession> <ProjectSession>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Version Value="10"/> <Version Value="10"/>
<BuildModes Active="win64"/> <BuildModes Active="win32"/>
<Units Count="34"> <Units Count="34">
<Unit0> <Unit0>
<Filename Value="foobotmonitor.lpr"/> <Filename Value="foobotmonitor.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<EditorIndex Value="13"/> <EditorIndex Value="13"/>
<CursorPos Y="35"/> <CursorPos Y="35"/>
<UsageCount Value="120"/> <UsageCount Value="124"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
@ -19,10 +19,9 @@
<ComponentName Value="mainform"/> <ComponentName Value="mainform"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<IsVisibleTab Value="True"/> <TopLine Value="773"/>
<TopLine Value="981"/> <CursorPos X="22" Y="778"/>
<CursorPos X="43" Y="1035"/> <UsageCount Value="124"/>
<UsageCount Value="120"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
</Unit1> </Unit1>
@ -35,7 +34,7 @@
<EditorIndex Value="8"/> <EditorIndex Value="8"/>
<TopLine Value="33"/> <TopLine Value="33"/>
<CursorPos X="41" Y="45"/> <CursorPos X="41" Y="45"/>
<UsageCount Value="110"/> <UsageCount Value="114"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
</Unit2> </Unit2>
@ -43,8 +42,9 @@
<Filename Value="..\foobot_httpclient.pas"/> <Filename Value="..\foobot_httpclient.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<TopLine Value="13"/>
<CursorPos X="49" Y="20"/> <CursorPos X="49" Y="20"/>
<UsageCount Value="102"/> <UsageCount Value="106"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit3> </Unit3>
<Unit4> <Unit4>
@ -54,7 +54,7 @@
<WindowIndex Value="-1"/> <WindowIndex Value="-1"/>
<TopLine Value="-1"/> <TopLine Value="-1"/>
<CursorPos X="-1" Y="-1"/> <CursorPos X="-1" Y="-1"/>
<UsageCount Value="102"/> <UsageCount Value="106"/>
</Unit4> </Unit4>
<Unit5> <Unit5>
<Filename Value="..\foobot_utility.pas"/> <Filename Value="..\foobot_utility.pas"/>
@ -62,7 +62,7 @@
<EditorIndex Value="10"/> <EditorIndex Value="10"/>
<TopLine Value="129"/> <TopLine Value="129"/>
<CursorPos X="49" Y="212"/> <CursorPos X="49" Y="212"/>
<UsageCount Value="120"/> <UsageCount Value="124"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit5> </Unit5>
<Unit6> <Unit6>
@ -72,7 +72,7 @@
<WindowIndex Value="-1"/> <WindowIndex Value="-1"/>
<TopLine Value="-1"/> <TopLine Value="-1"/>
<CursorPos X="-1" Y="-1"/> <CursorPos X="-1" Y="-1"/>
<UsageCount Value="102"/> <UsageCount Value="106"/>
</Unit6> </Unit6>
<Unit7> <Unit7>
<Filename Value="foobot_sensors.pas"/> <Filename Value="foobot_sensors.pas"/>
@ -80,7 +80,7 @@
<EditorIndex Value="5"/> <EditorIndex Value="5"/>
<TopLine Value="299"/> <TopLine Value="299"/>
<CursorPos X="14" Y="321"/> <CursorPos X="14" Y="321"/>
<UsageCount Value="54"/> <UsageCount Value="58"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit7> </Unit7>
<Unit8> <Unit8>
@ -90,8 +90,8 @@
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<EditorIndex Value="3"/> <EditorIndex Value="3"/>
<CursorPos X="42" Y="25"/> <CursorPos X="9" Y="33"/>
<UsageCount Value="49"/> <UsageCount Value="53"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit8> </Unit8>
<Unit9> <Unit9>
@ -100,9 +100,11 @@
<ComponentName Value="triggersform"/> <ComponentName Value="triggersform"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="2"/> <EditorIndex Value="2"/>
<CursorPos X="41" Y="7"/> <TopLine Value="148"/>
<UsageCount Value="40"/> <CursorPos X="76" Y="203"/>
<UsageCount Value="44"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
</Unit9> </Unit9>
@ -111,7 +113,7 @@
<EditorIndex Value="9"/> <EditorIndex Value="9"/>
<TopLine Value="43"/> <TopLine Value="43"/>
<CursorPos X="47" Y="13"/> <CursorPos X="47" Y="13"/>
<UsageCount Value="75"/> <UsageCount Value="77"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit10> </Unit10>
<Unit11> <Unit11>
@ -119,7 +121,7 @@
<EditorIndex Value="12"/> <EditorIndex Value="12"/>
<TopLine Value="143"/> <TopLine Value="143"/>
<CursorPos X="35" Y="59"/> <CursorPos X="35" Y="59"/>
<UsageCount Value="75"/> <UsageCount Value="77"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit11> </Unit11>
<Unit12> <Unit12>
@ -190,7 +192,7 @@
<EditorIndex Value="6"/> <EditorIndex Value="6"/>
<TopLine Value="101"/> <TopLine Value="101"/>
<CursorPos Y="154"/> <CursorPos Y="154"/>
<UsageCount Value="26"/> <UsageCount Value="28"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit21> </Unit21>
<Unit22> <Unit22>
@ -219,14 +221,14 @@
<EditorIndex Value="11"/> <EditorIndex Value="11"/>
<TopLine Value="381"/> <TopLine Value="381"/>
<CursorPos X="13" Y="384"/> <CursorPos X="13" Y="384"/>
<UsageCount Value="44"/> <UsageCount Value="46"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit25> </Unit25>
<Unit26> <Unit26>
<Filename Value="..\latest_stable\udataform.pas"/> <Filename Value="..\latest_stable\udataform.pas"/>
<EditorIndex Value="7"/> <EditorIndex Value="7"/>
<TopLine Value="70"/> <TopLine Value="70"/>
<UsageCount Value="44"/> <UsageCount Value="46"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit26> </Unit26>
<Unit27> <Unit27>
@ -270,7 +272,7 @@
<EditorIndex Value="4"/> <EditorIndex Value="4"/>
<TopLine Value="1811"/> <TopLine Value="1811"/>
<CursorPos X="13" Y="1834"/> <CursorPos X="13" Y="1834"/>
<UsageCount Value="22"/> <UsageCount Value="24"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit32> </Unit32>
<Unit33> <Unit33>
@ -284,124 +286,124 @@
</Units> </Units>
<JumpHistory Count="30" HistoryIndex="29"> <JumpHistory Count="30" HistoryIndex="29">
<Position1> <Position1>
<Filename Value="umainform.pas"/> <Filename Value="utriggersform.pas"/>
<Caret Line="938" Column="17" TopLine="930"/> <Caret Line="117" Column="34" TopLine="73"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="umainform.pas"/> <Filename Value="utriggersform.pas"/>
<Caret Line="940" Column="17" TopLine="932"/> <Caret Line="116" Column="34" TopLine="72"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="umainform.pas"/> <Filename Value="utriggersform.pas"/>
<Caret Line="942" Column="17" TopLine="934"/> <Caret Line="115" Column="34" TopLine="71"/>
</Position3> </Position3>
<Position4> <Position4>
<Filename Value="umainform.pas"/> <Filename Value="utriggersform.pas"/>
<Caret Line="287" TopLine="250"/> <Caret Line="116" Column="34" TopLine="72"/>
</Position4> </Position4>
<Position5> <Position5>
<Filename Value="umainform.pas"/> <Filename Value="utriggersform.pas"/>
<Caret Line="580" Column="32" TopLine="574"/> <Caret Line="117" Column="34" TopLine="73"/>
</Position5> </Position5>
<Position6> <Position6>
<Filename Value="umainform.pas"/> <Filename Value="utriggersform.pas"/>
<Caret Line="581" Column="32" TopLine="575"/> <Caret Line="118" Column="34" TopLine="74"/>
</Position6> </Position6>
<Position7> <Position7>
<Filename Value="umainform.pas"/> <Filename Value="utriggersform.pas"/>
<Caret Line="580" Column="32" TopLine="574"/> <Caret Line="121" Column="34" TopLine="77"/>
</Position7> </Position7>
<Position8> <Position8>
<Filename Value="umainform.pas"/> <Filename Value="utriggersform.pas"/>
<Caret Line="973" Column="18" TopLine="934"/> <Caret Line="124" Column="34" TopLine="80"/>
</Position8> </Position8>
<Position9> <Position9>
<Filename Value="umainform.pas"/> <Filename Value="utriggersform.pas"/>
<Caret Line="987" Column="17" TopLine="945"/> <Caret Line="127" Column="34" TopLine="83"/>
</Position9> </Position9>
<Position10> <Position10>
<Filename Value="umainform.pas"/> <Filename Value="utriggersform.pas"/>
<Caret Line="580" Column="49" TopLine="575"/> <Caret Line="130" Column="34" TopLine="86"/>
</Position10> </Position10>
<Position11> <Position11>
<Filename Value="umainform.pas"/> <Filename Value="utriggersform.pas"/>
<Caret Line="581" Column="49" TopLine="576"/> <Caret Line="133" Column="34" TopLine="89"/>
</Position11> </Position11>
<Position12> <Position12>
<Filename Value="umainform.pas"/> <Filename Value="usplash.pas"/>
<Caret Line="582" Column="49" TopLine="577"/> <Caret Line="43" Column="28"/>
</Position12> </Position12>
<Position13> <Position13>
<Filename Value="umainform.pas"/> <Filename Value="utriggersform.pas"/>
<Caret Line="583" Column="49" TopLine="578"/> <Caret Line="133" Column="34" TopLine="89"/>
</Position13> </Position13>
<Position14> <Position14>
<Filename Value="umainform.pas"/> <Filename Value="utriggersform.pas"/>
<Caret Line="586" Column="49" TopLine="581"/> <Caret Line="134" Column="34" TopLine="90"/>
</Position14> </Position14>
<Position15> <Position15>
<Filename Value="umainform.pas"/> <Filename Value="utriggersform.pas"/>
<Caret Line="589" Column="49" TopLine="584"/> <Caret Line="135" Column="34" TopLine="91"/>
</Position15> </Position15>
<Position16> <Position16>
<Filename Value="umainform.pas"/> <Filename Value="utriggersform.pas"/>
<Caret Line="592" Column="49" TopLine="587"/> <Caret Line="134" Column="34" TopLine="90"/>
</Position16> </Position16>
<Position17> <Position17>
<Filename Value="umainform.pas"/> <Filename Value="utriggersform.pas"/>
<Caret Line="595" Column="49" TopLine="590"/> <Caret Line="133" Column="34" TopLine="89"/>
</Position17> </Position17>
<Position18> <Position18>
<Filename Value="umainform.pas"/> <Filename Value="utriggersform.pas"/>
<Caret Line="598" Column="49" TopLine="593"/> <Caret Line="134" Column="34" TopLine="90"/>
</Position18> </Position18>
<Position19> <Position19>
<Filename Value="umainform.pas"/> <Filename Value="utriggersform.pas"/>
<Caret Line="402" Column="29" TopLine="369"/> <Caret Line="135" Column="34" TopLine="91"/>
</Position19> </Position19>
<Position20> <Position20>
<Filename Value="umainform.pas"/> <Filename Value="utriggersform.pas"/>
<Caret Line="438" Column="37" TopLine="401"/> <Caret Line="136" Column="34" TopLine="92"/>
</Position20> </Position20>
<Position21> <Position21>
<Filename Value="umainform.pas"/> <Filename Value="utriggersform.pas"/>
<Caret Line="415" Column="89" TopLine="393"/> <Caret Line="139" Column="34" TopLine="95"/>
</Position21> </Position21>
<Position22> <Position22>
<Filename Value="umainform.pas"/> <Filename Value="utriggersform.pas"/>
<Caret Line="417" Column="66" TopLine="395"/> <Caret Line="142" Column="34" TopLine="98"/>
</Position22> </Position22>
<Position23> <Position23>
<Filename Value="umainform.pas"/> <Filename Value="utriggersform.pas"/>
<Caret Line="1076" Column="38" TopLine="1035"/> <Caret Line="145" Column="34" TopLine="101"/>
</Position23> </Position23>
<Position24> <Position24>
<Filename Value="umainform.pas"/> <Filename Value="utriggersform.pas"/>
<Caret Line="709" Column="8" TopLine="696"/> <Caret Line="148" Column="34" TopLine="104"/>
</Position24> </Position24>
<Position25> <Position25>
<Filename Value="umainform.pas"/> <Filename Value="utriggersform.pas"/>
<Caret Line="462" Column="59" TopLine="411"/> <Caret Line="151" Column="34" TopLine="107"/>
</Position25> </Position25>
<Position26> <Position26>
<Filename Value="umainform.pas"/> <Filename Value="utriggersform.pas"/>
<Caret Line="463" Column="44" TopLine="422"/> <Caret Line="18" Column="18" TopLine="11"/>
</Position26> </Position26>
<Position27> <Position27>
<Filename Value="umainform.pas"/> <Filename Value="utriggersform.pas"/>
<Caret Line="408" Column="36" TopLine="382"/> <Caret Line="124" Column="6" TopLine="83"/>
</Position27> </Position27>
<Position28> <Position28>
<Filename Value="umainform.pas"/> <Filename Value="utriggersform.pas"/>
<Caret Line="1001" Column="34" TopLine="974"/> <Caret Line="101" Column="26" TopLine="74"/>
</Position28> </Position28>
<Position29> <Position29>
<Filename Value="umainform.pas"/> <Filename Value="utriggersform.pas"/>
<Caret Line="463" Column="44" TopLine="438"/> <Caret Line="192" Column="36" TopLine="165"/>
</Position29> </Position29>
<Position30> <Position30>
<Filename Value="umainform.pas"/> <Filename Value="utriggersform.pas"/>
<Caret Line="346" Column="11" TopLine="6"/> <Caret Line="229" TopLine="178"/>
</Position30> </Position30>
</JumpHistory> </JumpHistory>
</ProjectSession> </ProjectSession>

8
applications/foobot/monitor/umainform.lfm
View File

@ -1,12 +1,12 @@
object mainform: Tmainform object mainform: Tmainform
Left = 589 Left = 589
Height = 506 Height = 500
Top = 145 Top = 145
Width = 784 Width = 784
BorderIcons = [biSystemMenu, biMinimize] BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle BorderStyle = bsSingle
Caption = 'mainform' Caption = 'mainform'
ClientHeight = 486 ClientHeight = 480
ClientWidth = 784 ClientWidth = 784
DefaultMonitor = dmDesktop DefaultMonitor = dmDesktop
Font.Height = -12 Font.Height = -12
@ -833,9 +833,9 @@ object mainform: Tmainform
OnClick = mnu_optionsResetHighsLowsClick OnClick = mnu_optionsResetHighsLowsClick
end end
object mnu_optionsFoobotTriggers: TMenuItem object mnu_optionsFoobotTriggers: TMenuItem
Caption = 'Foobot Triggers...' Caption = 'Foobot Triggers and Recommended values...'
object mnu_options_triggersSetTriggers: TMenuItem object mnu_options_triggersSetTriggers: TMenuItem
Caption = 'Set Trigger Values...' Caption = 'Set Trigger and Recommended Values...'
OnClick = mnu_options_triggersSetTriggersClick OnClick = mnu_options_triggersSetTriggersClick
end end
object mnu_options_triggersActivateTriggers: TMenuItem object mnu_options_triggersActivateTriggers: TMenuItem

20
applications/foobot/monitor/umainform.pas
View File

@ -233,7 +233,7 @@ type
procedure SaveConfig; procedure SaveConfig;
procedure LoadConfig; procedure LoadConfig;
procedure SetMinMaxTriggers; procedure SetMinMaxTriggers;
procedure SetTrafficLightStats(iSensorNum: integer; HIGHLOW: integer); procedure SetTrafficLightStats(const iSensorNum: integer; const HIGHLOW: integer);
procedure DoHighTriggerAlert(const iSensorNum: integer; const aValue: variant); procedure DoHighTriggerAlert(const iSensorNum: integer; const aValue: variant);
procedure DoLowTriggerAlert(const iSensorNum: integer; const aValue: variant); procedure DoLowTriggerAlert(const iSensorNum: integer; const aValue: variant);
procedure RestoreNormalColour(const iSensorNum: integer); procedure RestoreNormalColour(const iSensorNum: integer);
@ -342,7 +342,7 @@ begin
PopulateFoobotMenu; PopulateFoobotMenu;
LoadTriggers; // This can only be done if we have a Foobot Identity LoadTriggers; // This can only be done if we have a Foobot Identity
// as each Foobot has its own trigger values // as each Foobot has its own trigger values
SetMinMaxTriggers; // Adjust if necesarry for Guage High/Low limits SetMinMaxTriggers; // Adjust if necesarry for preset Guage High/Low limits
for iCount := C_PM to C_ALLPOLLU do for iCount := C_PM to C_ALLPOLLU do
SetTrafficLightStats(iCount, C_HIGH); SetTrafficLightStats(iCount, C_HIGH);
Show; Show;
@ -363,6 +363,7 @@ begin
end end
else else
begin // Unable to fetch foobot identity begin // Unable to fetch foobot identity
ShowMessage('Cannot locate your Foobot. Click OK to close the application');
Close; Close;
end; end;
end end
@ -387,18 +388,21 @@ begin
LineEnding + 'New settings are applied on resart.'); LineEnding + 'New settings are applied on resart.');
Close; Close;
end; end;
end; end;
procedure Tmainform.ChangeCurrentFoobot(Sender: TObject); procedure Tmainform.ChangeCurrentFoobot(Sender: TObject);
// Called from 'Foobot' TSubmenuitem.click // Called from 'Foobot' TSubmenuitem.click
begin begin
iCurrentFoobot := (Sender as TMenuItem).Tag; iCurrentFoobot := (Sender as TMenuItem).Tag;
mnu_optionsTakeReadingNow.Click; mnu_optionsTakeReadingNow.Click; // also triggers DoDisplay
end; end;
procedure Tmainform.SetTrafficLightStats(iSensorNum: integer; HIGHLOW: integer); procedure Tmainform.SetTrafficLightStats(const iSensorNum: integer; const HIGHLOW: integer);
// Called via a loop in form.create with HIGHLOW=C_HIGH (all traffic light captions set)
// Called in DoHighTriggerAlert with HIGHLOW=C_HIGH (specific traffic light caption set)
// Called in DoLowTriggerAlert with HIGHLOW=C_LOW (specific traffic light caption set)
begin begin
{$IFDEF DEBUGMODE}Exit;{$ENDIF}
if iSensorNum = C_PM then if iSensorNum = C_PM then
if (HIGHLOW = C_HIGH) then if (HIGHLOW = C_HIGH) then
lbl_redlightpm.Caption := lbl_redlightpm.Caption :=
@ -770,10 +774,14 @@ procedure Tmainform.mnu_options_triggersSetTriggersClick(Sender: TObject);
begin begin
triggersform.ShowModal; triggersform.ShowModal;
if triggersform.ModalResult = mrCancel then if triggersform.ModalResult = mrCancel then
ShowMessage('Cancel') begin
// Cancelled form
end
else else
begin
mnu_options_triggersActivateTriggers.Enabled := True; mnu_options_triggersActivateTriggers.Enabled := True;
end; end;
end;
procedure Tmainform.mnu_SampleEveryHalfHourClick(Sender: TObject); procedure Tmainform.mnu_SampleEveryHalfHourClick(Sender: TObject);
begin begin

11
applications/foobot/monitor/usplash.lfm
View File

@ -1,14 +1,15 @@
object splashform: Tsplashform object splashform: Tsplashform
Left = 596 Left = 669
Height = 484 Height = 530
Top = 136 Top = 171
Width = 794 Width = 794
BorderStyle = bsNone BorderStyle = bsNone
Caption = 'splashform' Caption = 'splashform'
ClientHeight = 484 ClientHeight = 530
ClientWidth = 794 ClientWidth = 794
DefaultMonitor = dmDesktop DefaultMonitor = dmDesktop
FormStyle = fsStayOnTop FormStyle = fsStayOnTop
OnActivate = FormActivate
OnCreate = FormCreate OnCreate = FormCreate
Position = poWorkAreaCenter Position = poWorkAreaCenter
ShowInTaskBar = stNever ShowInTaskBar = stNever
@ -16,7 +17,7 @@ object splashform: Tsplashform
Scaled = True Scaled = True
object img: TImage object img: TImage
Left = 0 Left = 0
Height = 484 Height = 530
Top = 0 Top = 0
Width = 794 Width = 794
Align = alClient Align = alClient

7
applications/foobot/monitor/usplash.pas
View File

@ -13,6 +13,7 @@ type
Tsplashform = class(TForm) Tsplashform = class(TForm)
img: TImage; img: TImage;
procedure FormActivate(Sender: TObject);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
private private
@ -30,12 +31,16 @@ implementation
{ Tsplashform } { Tsplashform }
procedure Tsplashform.FormCreate(Sender: TObject); procedure Tsplashform.FormCreate(Sender: TObject);
begin
end;
procedure Tsplashform.FormActivate(Sender: TObject);
var jpg:TJPEGImage; var jpg:TJPEGImage;
begin begin
jpg:=TJPEGImage.Create; jpg:=TJPEGImage.Create;
try try
jpg.LoadFromResourceName(HInstance,'SPLASHIMAGE'); jpg.LoadFromResourceName(HInstance,'SPLASHIMAGE');
img.Canvas.Draw(0,0,jpg); img.Picture.Jpeg:=jpg;
finally finally
jpg.Free; jpg.Free;
end; end;

795
applications/foobot/monitor/utriggersform.lfm
View File

@ -1,92 +1,845 @@
object triggersform: Ttriggersform object triggersform: Ttriggersform
Left = 686 Left = 543
Height = 484 Height = 565
Top = 279 Top = 191
Width = 794 Width = 794
ActiveControl = edt_newrec_pm
BorderIcons = [biSystemMenu] BorderIcons = [biSystemMenu]
BorderStyle = bsSingle BorderStyle = bsSingle
Caption = 'triggersform' Caption = 'triggersform'
ClientHeight = 484 ClientHeight = 565
ClientWidth = 794 ClientWidth = 794
DefaultMonitor = dmDesktop DefaultMonitor = dmDesktop
FormStyle = fsStayOnTop FormStyle = fsStayOnTop
OnActivate = FormActivate
OnCreate = FormCreate OnCreate = FormCreate
OnShow = FormShow
Position = poWorkAreaCenter Position = poWorkAreaCenter
ShowInTaskBar = stNever ShowInTaskBar = stNever
LCLVersion = '1.7' LCLVersion = '1.7'
Scaled = True Scaled = True
object grp_main: TGroupBox object grp_main: TGroupBox
Left = 0 Left = 0
Height = 428 Height = 506
Top = 0 Top = 0
Width = 794 Width = 794
Align = alTop Align = alTop
AutoSize = True AutoSize = True
Caption = 'All Foobot Triggers' Caption = 'All Foobot Recommended values and Triggers'
ChildSizing.EnlargeVertical = crsScaleChilds ChildSizing.EnlargeVertical = crsScaleChilds
ChildSizing.ControlsPerLine = 1 ChildSizing.ControlsPerLine = 1
ClientHeight = 408 ClientHeight = 486
ClientWidth = 790 ClientWidth = 790
TabOrder = 0 TabOrder = 0
object grp_pm: TGroupBox object grp_pm: TGroupBox
Left = 0 Left = 0
Height = 68 Height = 81
Top = 0 Top = 0
Width = 790 Width = 790
Align = alTop Align = alTop
Caption = 'Particulates' Caption = 'Particulates'
ChildSizing.EnlargeVertical = crsHomogenousSpaceResize
ClientHeight = 61
ClientWidth = 786
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0 TabOrder = 0
object lbl_currentrec_pm: TLabel
Left = 8
Height = 15
Top = 0
Width = 304
AutoSize = False
Caption = 'Current recommended level: No Stats'
ParentColor = False
ParentFont = False
end
object lbl_currenthightrigger_pm: TLabel
Left = 8
Height = 15
Top = 20
Width = 304
AutoSize = False
Caption = 'Current high trigger: No Stats'
ParentColor = False
ParentFont = False
end
object lbl_currentlowtrigger_pm: TLabel
Left = 8
Height = 15
Top = 40
Width = 304
AutoSize = False
Caption = 'Current low trigger: No Stats'
ParentColor = False
ParentFont = False
end
object lbl_newrec_pm: TLabel
Left = 312
Height = 15
Top = 0
Width = 168
Alignment = taRightJustify
AutoSize = False
Caption = 'New recommended level:'
ParentColor = False
ParentFont = False
end
object lbl_newhightrigger_pm: TLabel
Left = 312
Height = 15
Top = 20
Width = 168
Alignment = taRightJustify
AutoSize = False
Caption = 'New high trigger:'
ParentColor = False
ParentFont = False
end
object lbl_newlowtrigger_pm: TLabel
Left = 312
Height = 15
Top = 40
Width = 168
Alignment = taRightJustify
AutoSize = False
Caption = 'New low trigger:'
ParentColor = False
ParentFont = False
end
object edt_newrec_pm: TEdit
Left = 504
Height = 15
Top = 0
Width = 72
BorderStyle = bsNone
ParentFont = False
TabOrder = 0
Text = '0.00'
end
object edt_newhightrigger_pm: TEdit
Left = 504
Height = 15
Top = 20
Width = 72
BorderStyle = bsNone
ParentFont = False
TabOrder = 1
Text = '0.00'
end
object edt_newlowtrigger_pm: TEdit
Left = 504
Height = 15
Top = 40
Width = 72
BorderStyle = bsNone
ParentFont = False
TabOrder = 2
Text = '0.00'
end
object lbl_currentrecunits_pm: TLabel
Left = 584
Height = 15
Top = 0
Width = 26
Caption = 'units'
ParentColor = False
ParentFont = False
end
object lbl_currenthightriggerunits_pm: TLabel
Left = 584
Height = 15
Top = 20
Width = 26
Caption = 'units'
ParentColor = False
ParentFont = False
end
object lbl_currentlowtriggerunits_pm: TLabel
Left = 584
Height = 15
Top = 40
Width = 26
Caption = 'units'
ParentColor = False
ParentFont = False
end
end end
object grp_tmp: TGroupBox object grp_tmp: TGroupBox
Left = 0 Left = 0
Height = 68 Height = 81
Top = 340 Top = 405
Width = 790 Width = 790
Align = alTop Align = alTop
Caption = 'All Pollution' Caption = 'All Pollution'
ChildSizing.EnlargeVertical = crsHomogenousSpaceResize
ClientHeight = 61
ClientWidth = 786
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1 TabOrder = 1
object lbl_currentrec_allpollu: TLabel
Left = 8
Height = 15
Top = 0
Width = 304
AutoSize = False
Caption = 'Current recommended level: No Stats'
ParentColor = False
ParentFont = False
end
object lbl_currenthightrigger_allpollu: TLabel
Left = 8
Height = 15
Top = 20
Width = 304
AutoSize = False
Caption = 'Current high trigger: No Stats'
ParentColor = False
ParentFont = False
end
object lbl_currentlowtrigger_allpollu: TLabel
Left = 8
Height = 15
Top = 40
Width = 304
AutoSize = False
Caption = 'Current low trigger: No Stats'
ParentColor = False
ParentFont = False
end
object lbl_newrec_allpollu: TLabel
Left = 312
Height = 15
Top = 0
Width = 168
Alignment = taRightJustify
AutoSize = False
Caption = 'New recommended level:'
ParentColor = False
ParentFont = False
end
object lbl_newhightrigger_allpollu: TLabel
Left = 312
Height = 15
Top = 20
Width = 168
Alignment = taRightJustify
AutoSize = False
Caption = 'New high trigger:'
ParentColor = False
ParentFont = False
end
object lbl_newlowtrigger_allpollu: TLabel
Left = 312
Height = 15
Top = 40
Width = 168
Alignment = taRightJustify
AutoSize = False
Caption = 'New low trigger:'
ParentColor = False
ParentFont = False
end
object edt_newrec_allpollu: TEdit
Left = 504
Height = 15
Top = 0
Width = 72
BorderStyle = bsNone
ParentFont = False
TabOrder = 0
Text = '0.00'
end
object edt_newhightrigger_allpollu: TEdit
Left = 504
Height = 15
Top = 20
Width = 72
BorderStyle = bsNone
ParentFont = False
TabOrder = 1
Text = '0.00'
end
object edt_newlowtrigger_allpollu: TEdit
Left = 504
Height = 15
Top = 40
Width = 72
BorderStyle = bsNone
ParentFont = False
TabOrder = 2
Text = '0.00'
end
object lbl_currentrecunits_allpollu: TLabel
Left = 584
Height = 15
Top = 0
Width = 26
Caption = 'units'
ParentColor = False
ParentFont = False
end
object lbl_currenthightriggerunits_allpollu: TLabel
Left = 584
Height = 15
Top = 20
Width = 26
Caption = 'units'
ParentColor = False
ParentFont = False
end
object lbl_currentlowtriggerunits_allpollu: TLabel
Left = 584
Height = 15
Top = 40
Width = 26
Caption = 'units'
ParentColor = False
ParentFont = False
end
end end
object grp_hum: TGroupBox object grp_hum: TGroupBox
Left = 0 Left = 0
Height = 68 Height = 81
Top = 272 Top = 324
Width = 790 Width = 790
Align = alTop Align = alTop
Caption = 'Volatile Componds' Caption = 'Volatile Componds'
ChildSizing.EnlargeVertical = crsHomogenousSpaceResize
ClientHeight = 61
ClientWidth = 786
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2 TabOrder = 2
object lbl_currentrec_voc: TLabel
Left = 8
Height = 15
Top = 0
Width = 304
AutoSize = False
Caption = 'Current recommended level: No Stats'
ParentColor = False
ParentFont = False
end
object lbl_currenthightrigger_voc: TLabel
Left = 8
Height = 15
Top = 20
Width = 304
AutoSize = False
Caption = 'Current high trigger: No Stats'
ParentColor = False
ParentFont = False
end
object lbl_currentlowtrigger_voc: TLabel
Left = 8
Height = 15
Top = 40
Width = 304
AutoSize = False
Caption = 'Current low trigger: No Stats'
ParentColor = False
ParentFont = False
end
object lbl_newrec_voc: TLabel
Left = 312
Height = 15
Top = 0
Width = 168
Alignment = taRightJustify
AutoSize = False
Caption = 'New recommended level:'
ParentColor = False
ParentFont = False
end
object lbl_newhightrigger_voc: TLabel
Left = 312
Height = 15
Top = 20
Width = 168
Alignment = taRightJustify
AutoSize = False
Caption = 'New high trigger:'
ParentColor = False
ParentFont = False
end
object lbl_newlowtrigger_voc: TLabel
Left = 312
Height = 15
Top = 40
Width = 168
Alignment = taRightJustify
AutoSize = False
Caption = 'New low trigger:'
ParentColor = False
ParentFont = False
end
object edt_newrec_voc: TEdit
Left = 504
Height = 15
Top = 0
Width = 72
BorderStyle = bsNone
ParentFont = False
TabOrder = 0
Text = '0.00'
end
object edt_newhightrigger_voc: TEdit
Left = 504
Height = 15
Top = 20
Width = 72
BorderStyle = bsNone
ParentFont = False
TabOrder = 1
Text = '0.00'
end
object edt_newlowtrigger_voc: TEdit
Left = 504
Height = 15
Top = 40
Width = 72
BorderStyle = bsNone
ParentFont = False
TabOrder = 2
Text = '0.00'
end
object lbl_currentrecunits_voc: TLabel
Left = 584
Height = 15
Top = 0
Width = 26
Caption = 'units'
ParentColor = False
ParentFont = False
end
object lbl_currenthightriggerunits_voc: TLabel
Left = 584
Height = 15
Top = 20
Width = 26
Caption = 'units'
ParentColor = False
ParentFont = False
end
object lbl_currentlowtriggerunits_voc: TLabel
Left = 584
Height = 15
Top = 40
Width = 26
Caption = 'units'
ParentColor = False
ParentFont = False
end
end end
object grp_co2: TGroupBox object grp_co2: TGroupBox
Left = 0 Left = 0
Height = 68 Height = 81
Top = 204 Top = 243
Width = 790 Width = 790
Align = alTop Align = alTop
Caption = 'Carbon Diaoxide' Caption = 'Carbon Dioxide'
ChildSizing.EnlargeVertical = crsHomogenousSpaceResize
ClientHeight = 61
ClientWidth = 786
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3 TabOrder = 3
object lbl_currentrec_co2: TLabel
Left = 8
Height = 15
Top = 0
Width = 304
AutoSize = False
Caption = 'Current recommended level: No Stats'
ParentColor = False
ParentFont = False
end
object lbl_currenthightrigger_co2: TLabel
Left = 8
Height = 15
Top = 20
Width = 304
AutoSize = False
Caption = 'Current high trigger: No Stats'
ParentColor = False
ParentFont = False
end
object lbl_currentlowtrigger_co2: TLabel
Left = 8
Height = 15
Top = 40
Width = 304
AutoSize = False
Caption = 'Current low trigger: No Stats'
ParentColor = False
ParentFont = False
end
object lbl_newrec_co2: TLabel
Left = 312
Height = 15
Top = 0
Width = 168
Alignment = taRightJustify
AutoSize = False
Caption = 'New recommended level:'
ParentColor = False
ParentFont = False
end
object lbl_newhightrigger_co2: TLabel
Left = 312
Height = 15
Top = 20
Width = 168
Alignment = taRightJustify
AutoSize = False
Caption = 'New high trigger:'
ParentColor = False
ParentFont = False
end
object lbl_newlowtrigger_co2: TLabel
Left = 312
Height = 15
Top = 40
Width = 168
Alignment = taRightJustify
AutoSize = False
Caption = 'New low trigger:'
ParentColor = False
ParentFont = False
end
object edt_newrec_co2: TEdit
Left = 504
Height = 15
Top = 0
Width = 72
BorderStyle = bsNone
ParentFont = False
TabOrder = 0
Text = '0.00'
end
object edt_newhightrigger_co2: TEdit
Left = 504
Height = 15
Top = 20
Width = 72
BorderStyle = bsNone
ParentFont = False
TabOrder = 1
Text = '0.00'
end
object edt_newlowtrigger_co2: TEdit
Left = 504
Height = 15
Top = 40
Width = 72
BorderStyle = bsNone
ParentFont = False
TabOrder = 2
Text = '0.00'
end
object lbl_currentrecunits_co2: TLabel
Left = 584
Height = 15
Top = 0
Width = 26
Caption = 'units'
ParentColor = False
ParentFont = False
end
object lbl_currenthightriggerunits_co2: TLabel
Left = 584
Height = 15
Top = 20
Width = 26
Caption = 'units'
ParentColor = False
ParentFont = False
end
object lbl_currentlowtriggerunits_co2: TLabel
Left = 584
Height = 15
Top = 40
Width = 26
Caption = 'units'
ParentColor = False
ParentFont = False
end
end end
object grp_voc: TGroupBox object grp_voc: TGroupBox
Left = 0 Left = 0
Height = 68 Height = 81
Top = 136 Top = 162
Width = 790 Width = 790
Align = alTop Align = alTop
Caption = 'Humidity' Caption = 'Humidity'
ChildSizing.EnlargeVertical = crsHomogenousSpaceResize
ClientHeight = 61
ClientWidth = 786
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4 TabOrder = 4
object lbl_currentrec_hum: TLabel
Left = 8
Height = 15
Top = 0
Width = 304
AutoSize = False
Caption = 'Current recommended level: No Stats'
ParentColor = False
ParentFont = False
end
object lbl_currenthightrigger_hum: TLabel
Left = 8
Height = 15
Top = 20
Width = 304
AutoSize = False
Caption = 'Current high trigger: No Stats'
ParentColor = False
ParentFont = False
end
object lbl_currentlowtrigger_hum: TLabel
Left = 8
Height = 15
Top = 40
Width = 304
AutoSize = False
Caption = 'Current low trigger: No Stats'
ParentColor = False
ParentFont = False
end
object lbl_newrec_hum: TLabel
Left = 312
Height = 15
Top = 0
Width = 168
Alignment = taRightJustify
AutoSize = False
Caption = 'New recommended level:'
ParentColor = False
ParentFont = False
end
object lbl_newhightrigger_hum: TLabel
Left = 312
Height = 15
Top = 20
Width = 168
Alignment = taRightJustify
AutoSize = False
Caption = 'New high trigger:'
ParentColor = False
ParentFont = False
end
object lbl_newlowtrigger_hum: TLabel
Left = 312
Height = 15
Top = 40
Width = 168
Alignment = taRightJustify
AutoSize = False
Caption = 'New low trigger:'
ParentColor = False
ParentFont = False
end
object edt_newrec_hum: TEdit
Left = 504
Height = 15
Top = 0
Width = 72
BorderStyle = bsNone
ParentFont = False
TabOrder = 0
Text = '0.00'
end
object edt_newhightrigger_hum: TEdit
Left = 504
Height = 15
Top = 20
Width = 72
BorderStyle = bsNone
ParentFont = False
TabOrder = 1
Text = '0.00'
end
object edt_newlowtrigger_hum: TEdit
Left = 504
Height = 15
Top = 40
Width = 72
BorderStyle = bsNone
ParentFont = False
TabOrder = 2
Text = '0.00'
end
object lbl_currentrecunits_hum: TLabel
Left = 584
Height = 15
Top = 0
Width = 26
Caption = 'units'
ParentColor = False
ParentFont = False
end
object lbl_currenthightriggerunits_hum: TLabel
Left = 584
Height = 15
Top = 20
Width = 26
Caption = 'units'
ParentColor = False
ParentFont = False
end
object lbl_currentlowtriggerunits_hum: TLabel
Left = 584
Height = 15
Top = 40
Width = 26
Caption = 'units'
ParentColor = False
ParentFont = False
end
end end
object grp_allpollu: TGroupBox object grp_allpollu: TGroupBox
Left = 0 Left = 0
Height = 68 Height = 81
Top = 68 Top = 81
Width = 790 Width = 790
Align = alTop Align = alTop
Caption = 'Temperature' Caption = 'Temperature'
ChildSizing.EnlargeVertical = crsHomogenousSpaceResize
ClientHeight = 61
ClientWidth = 786
Font.Style = [fsBold]
ParentFont = False
TabOrder = 5 TabOrder = 5
object lbl_currentrec_tmp: TLabel
Left = 8
Height = 15
Top = 0
Width = 304
AutoSize = False
Caption = 'Current recommended level: No Stats'
ParentColor = False
ParentFont = False
end
object lbl_currenthightrigger_tmp: TLabel
Left = 8
Height = 15
Top = 20
Width = 304
AutoSize = False
Caption = 'Current high trigger: No Stats'
ParentColor = False
ParentFont = False
end
object lbl_currentlowtrigger_tmp: TLabel
Left = 8
Height = 15
Top = 40
Width = 304
AutoSize = False
Caption = 'Current low trigger: No Stats'
ParentColor = False
ParentFont = False
end
object lbl_newrec_tmp: TLabel
Left = 312
Height = 15
Top = 0
Width = 168
Alignment = taRightJustify
AutoSize = False
Caption = 'New recommended level:'
ParentColor = False
ParentFont = False
end
object lbl_newhightrigger_tmp: TLabel
Left = 312
Height = 15
Top = 20
Width = 168
Alignment = taRightJustify
AutoSize = False
Caption = 'New high trigger:'
ParentColor = False
ParentFont = False
end
object lbl_newlowtrigger_tmp: TLabel
Left = 312
Height = 15
Top = 40
Width = 168
Alignment = taRightJustify
AutoSize = False
Caption = 'New low trigger:'
ParentColor = False
ParentFont = False
end
object edt_newrec_tmp: TEdit
Left = 504
Height = 15
Top = 0
Width = 72
BorderStyle = bsNone
ParentFont = False
TabOrder = 0
Text = '0.00'
end
object edt_newhightrigger_tmp: TEdit
Left = 504
Height = 15
Top = 20
Width = 72
BorderStyle = bsNone
ParentFont = False
TabOrder = 1
Text = '0.00'
end
object edt_newlowtrigger_tmp: TEdit
Left = 504
Height = 15
Top = 40
Width = 72
BorderStyle = bsNone
ParentFont = False
TabOrder = 2
Text = '0.00'
end
object lbl_currentrecunits_tmp: TLabel
Left = 584
Height = 15
Top = 0
Width = 26
Caption = 'units'
ParentColor = False
ParentFont = False
end
object lbl_currenthightriggerunits_tmp: TLabel
Left = 584
Height = 15
Top = 20
Width = 26
Caption = 'units'
ParentColor = False
ParentFont = False
end
object lbl_currentlowtriggerunits_tmp: TLabel
Left = 584
Height = 15
Top = 40
Width = 26
Caption = 'units'
ParentColor = False
ParentFont = False
end
end end
end end
object cmd_OK: TBitBtn object cmd_OK: TBitBtn
Left = 360 Left = 360
Height = 30 Height = 30
Top = 440 Top = 520
Width = 75 Width = 75
Default = True Default = True
DefaultCaption = True DefaultCaption = True
@ -97,7 +850,7 @@ object triggersform: Ttriggersform
object cmd_cancel: TBitBtn object cmd_cancel: TBitBtn
Left = 704 Left = 704
Height = 30 Height = 30
Top = 440 Top = 520
Width = 75 Width = 75
Cancel = True Cancel = True
DefaultCaption = True DefaultCaption = True

195
applications/foobot/monitor/utriggersform.pas
View File

@ -15,6 +15,24 @@ type
Ttriggersform = class(TForm) Ttriggersform = class(TForm)
cmd_cancel: TBitBtn; cmd_cancel: TBitBtn;
cmd_OK: TBitBtn; cmd_OK: TBitBtn;
edt_newhightrigger_tmp: TEdit;
edt_newhightrigger_hum: TEdit;
edt_newhightrigger_co2: TEdit;
edt_newhightrigger_voc: TEdit;
edt_newhightrigger_allpollu: TEdit;
edt_newlowtrigger_tmp: TEdit;
edt_newlowtrigger_hum: TEdit;
edt_newlowtrigger_co2: TEdit;
edt_newlowtrigger_voc: TEdit;
edt_newlowtrigger_allpollu: TEdit;
edt_newrec_pm: TEdit;
edt_newhightrigger_pm: TEdit;
edt_newlowtrigger_pm: TEdit;
edt_newrec_tmp: TEdit;
edt_newrec_hum: TEdit;
edt_newrec_co2: TEdit;
edt_newrec_voc: TEdit;
edt_newrec_allpollu: TEdit;
grp_pm: TGroupBox; grp_pm: TGroupBox;
grp_tmp: TGroupBox; grp_tmp: TGroupBox;
grp_hum: TGroupBox; grp_hum: TGroupBox;
@ -22,9 +40,66 @@ type
grp_voc: TGroupBox; grp_voc: TGroupBox;
grp_allpollu: TGroupBox; grp_allpollu: TGroupBox;
grp_main: TGroupBox; grp_main: TGroupBox;
lbl_currenthightriggerunits_tmp: TLabel;
lbl_currenthightriggerunits_hum: TLabel;
lbl_currenthightriggerunits_co2: TLabel;
lbl_currenthightriggerunits_voc: TLabel;
lbl_currenthightriggerunits_allpollu: TLabel;
lbl_currenthightrigger_tmp: TLabel;
lbl_currenthightrigger_hum: TLabel;
lbl_currenthightrigger_co2: TLabel;
lbl_currenthightrigger_voc: TLabel;
lbl_currenthightrigger_allpollu: TLabel;
lbl_currentlowtriggerunits_tmp: TLabel;
lbl_currentlowtriggerunits_hum: TLabel;
lbl_currentlowtriggerunits_co2: TLabel;
lbl_currentlowtriggerunits_voc: TLabel;
lbl_currentlowtriggerunits_allpollu: TLabel;
lbl_currentlowtrigger_tmp: TLabel;
lbl_currentlowtrigger_hum: TLabel;
lbl_currentlowtrigger_co2: TLabel;
lbl_currentlowtrigger_voc: TLabel;
lbl_currentlowtrigger_allpollu: TLabel;
lbl_currenthightriggerunits_pm: TLabel;
lbl_currentlowtriggerunits_pm: TLabel;
lbl_currentrecunits_tmp: TLabel;
lbl_currentrecunits_hum: TLabel;
lbl_currentrecunits_co2: TLabel;
lbl_currentrecunits_voc: TLabel;
lbl_currentrecunits_allpollu: TLabel;
lbl_currentrec_pm: TLabel;
lbl_currenthightrigger_pm: TLabel;
lbl_currentlowtrigger_pm: TLabel;
lbl_currentrecunits_pm: TLabel;
lbl_newhightrigger_tmp: TLabel;
lbl_newhightrigger_hum: TLabel;
lbl_newhightrigger_co2: TLabel;
lbl_newhightrigger_voc: TLabel;
lbl_newhightrigger_allpollu: TLabel;
lbl_newlowtrigger_tmp: TLabel;
lbl_newlowtrigger_hum: TLabel;
lbl_newlowtrigger_co2: TLabel;
lbl_newlowtrigger_voc: TLabel;
lbl_newlowtrigger_allpollu: TLabel;
lbl_newrec_pm: TLabel;
lbl_currentrec_tmp: TLabel;
lbl_currentrec_hum: TLabel;
lbl_currentrec_co2: TLabel;
lbl_currentrec_voc: TLabel;
lbl_currentrec_allpollu: TLabel;
lbl_newhightrigger_pm: TLabel;
lbl_newlowtrigger_pm: TLabel;
lbl_newrec_tmp: TLabel;
lbl_newrec_hum: TLabel;
lbl_newrec_co2: TLabel;
lbl_newrec_voc: TLabel;
lbl_newrec_allpollu: TLabel;
procedure FormActivate(Sender: TObject);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
private private
procedure DisplayCurrentValues;
procedure SetUpUnits;
public public
end; end;
@ -33,7 +108,9 @@ var
triggersform: Ttriggersform; triggersform: Ttriggersform;
implementation implementation
Uses umainform;
uses umainform, foobot_utility;
{$R *.lfm} {$R *.lfm}
{ Ttriggersform } { Ttriggersform }
@ -41,8 +118,118 @@ Uses umainform;
procedure Ttriggersform.FormCreate(Sender: TObject); procedure Ttriggersform.FormCreate(Sender: TObject);
begin begin
Icon := Application.Icon; Icon := Application.Icon;
Caption:=Application.Title + ' - Set Triggers'; Caption := Application.Title + ' - Set Recommended values and Triggers';
end;
procedure Ttriggersform.FormActivate(Sender: TObject);
begin
SetUpUnits;
end;
procedure Ttriggersform.FormShow(Sender: TObject);
begin
DisplayCurrentValues;
Update;
end;
procedure Ttriggersform.DisplayCurrentValues;
begin
{$IFDEF DEBUGMODE}
Exit;
{$ENDIF}
// Recommended levels
lbl_currentrec_pm.Caption :=
Format('Current recommended level: %.1f %s', [double(REC_PM),
FoobotDataObject.Units[C_PM]]);
lbl_currentrec_tmp.Caption :=
Format('Current recommended level: %.1f %s', [double(REC_TMP),
FoobotDataObject.Units[C_TMP]]);
lbl_currentrec_hum.Caption :=
Format('Current recommended level: %.1f %s', [double(REC_HUM),
FoobotDataObject.Units[C_HUM]]);
lbl_currentrec_co2.Caption :=
Format('Current recommended level: %.0f %s', [double(REC_CO2),
FoobotDataObject.Units[C_CO2]]);
lbl_currentrec_voc.Caption :=
Format('Current recommended level: %.0f %s', [double(REC_VOC),
FoobotDataObject.Units[C_VOC]]);
lbl_currentrec_allpollu.Caption :=
Format('Current recommended level: %.1f %s',
[double(REC_ALLPOLLU), FoobotDataObject.Units[C_ALLPOLLU]]);
// Trigger highs
lbl_currenthightrigger_pm.Caption :=
Format('Current high trigger: %.1f %s',
[double(FooBotTriggerArray[C_HIGH, C_PM]), FoobotDataObject.Units[C_PM]]);
lbl_currenthightrigger_tmp.Caption :=
Format('Current high trigger: %.1f %s',
[double(FooBotTriggerArray[C_HIGH, C_TMP]), FoobotDataObject.Units[C_TMP]]);
lbl_currenthightrigger_hum.Caption :=
Format('Current high trigger: %.1f %s',
[double(FooBotTriggerArray[C_HIGH, C_HUM]), FoobotDataObject.Units[C_HUM]]);
lbl_currenthightrigger_co2.Caption :=
Format('Current high trigger: %.1f %s',
[double(FooBotTriggerArray[C_HIGH, C_CO2]), FoobotDataObject.Units[C_CO2]]);
lbl_currenthightrigger_voc.Caption :=
Format('Current high trigger: %.1f %s',
[double(FooBotTriggerArray[C_HIGH, C_VOC]), FoobotDataObject.Units[C_VOC]]);
lbl_currenthightrigger_allpollu.Caption :=
Format('Current high trigger: %.1f %s',
[double(FooBotTriggerArray[C_HIGH, C_ALLPOLLU]),
FoobotDataObject.Units[C_ALLPOLLU]]);
// Trigger lows
lbl_currentlowtrigger_pm.Caption :=
Format('Current low trigger: %.1f %s',
[double(FooBotTriggerArray[C_LOW, C_PM]), FoobotDataObject.Units[C_PM]]);
lbl_currentlowtrigger_tmp.Caption :=
Format('Current low trigger: %.1f %s',
[double(FooBotTriggerArray[C_LOW, C_TMP]), FoobotDataObject.Units[C_TMP]]);
lbl_currentlowtrigger_hum.Caption :=
Format('Current low trigger: %.1f %s',
[double(FooBotTriggerArray[C_LOW, C_HUM]), FoobotDataObject.Units[C_HUM]]);
lbl_currentlowtrigger_co2.Caption :=
Format('Current low trigger: %.1f %s',
[double(FooBotTriggerArray[C_LOW, C_CO2]), FoobotDataObject.Units[C_CO2]]);
lbl_currentlowtrigger_voc.Caption :=
Format('Current low trigger: %.1f %s',
[double(FooBotTriggerArray[C_LOW, C_VOC]), FoobotDataObject.Units[C_VOC]]);
lbl_currentlowtrigger_allpollu.Caption :=
Format('Current low trigger: %.1f %s',
[double(FooBotTriggerArray[C_LOW, C_ALLPOLLU]), FoobotDataObject.Units[C_ALLPOLLU]]);
end;
procedure Ttriggersform.SetUpUnits;
var
s: string;
begin
s := Format('%s', [FoobotDataObject.Units[C_PM]]);
lbl_currentrecunits_pm.Caption := s;
lbl_currenthightriggerunits_pm.Caption := s;
lbl_currentlowtriggerunits_pm.Caption := s;
s := Format('%s', [FoobotDataObject.Units[C_TMP]]);
lbl_currentrecunits_tmp.Caption := s;
lbl_currenthightriggerunits_tmp.Caption := s;
lbl_currentlowtriggerunits_tmp.Caption := s;
s := Format('%s', [FoobotDataObject.Units[C_HUM]]);
lbl_currentrecunits_hum.Caption := s;
lbl_currenthightriggerunits_hum.Caption := s;
lbl_currentlowtriggerunits_hum.Caption := s;
s := Format('%s', [FoobotDataObject.Units[C_CO2]]);
lbl_currentrecunits_co2.Caption := s;
lbl_currenthightriggerunits_co2.Caption := s;
lbl_currentlowtriggerunits_co2.Caption := s;
s := Format('%s', [FoobotDataObject.Units[C_VOC]]);
lbl_currentrecunits_voc.Caption := s;
lbl_currenthightriggerunits_voc.Caption := s;
lbl_currentlowtriggerunits_voc.Caption := s;
s := Format('%s', [FoobotDataObject.Units[C_ALLPOLLU]]);
lbl_currentrecunits_allpollu.Caption := s;
lbl_currenthightriggerunits_allpollu.Caption := s;
lbl_currentlowtriggerunits_allpollu.Caption := s;
end; end;
end. end.