From a6ba417169a09599120da316e4e753705ed82ccc Mon Sep 17 00:00:00 2001
From: gbamber <gbamber@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 9 Jan 2017 15:46:31 +0000
Subject: [PATCH] V0.2.2.0: Work-in-progress. ToDo: finish triggerform
 processing

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5616 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 applications/foobot/monitor/foobotmonitor.lps | 176 +++++++++---------
 applications/foobot/monitor/umainform.pas     |   4 +-
 applications/foobot/monitor/utriggersform.lfm |  24 ++-
 applications/foobot/monitor/utriggersform.pas |  25 ++-
 4 files changed, 136 insertions(+), 93 deletions(-)

diff --git a/applications/foobot/monitor/foobotmonitor.lps b/applications/foobot/monitor/foobotmonitor.lps
index c2876882e..e5dbd1e29 100644
--- a/applications/foobot/monitor/foobotmonitor.lps
+++ b/applications/foobot/monitor/foobotmonitor.lps
@@ -8,9 +8,9 @@
       <Unit0>
         <Filename Value="foobotmonitor.lpr"/>
         <IsPartOfProject Value="True"/>
-        <EditorIndex Value="13"/>
+        <EditorIndex Value="12"/>
         <CursorPos Y="35"/>
-        <UsageCount Value="124"/>
+        <UsageCount Value="127"/>
         <Loaded Value="True"/>
       </Unit0>
       <Unit1>
@@ -19,9 +19,9 @@
         <ComponentName Value="mainform"/>
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
-        <TopLine Value="773"/>
-        <CursorPos X="22" Y="778"/>
-        <UsageCount Value="124"/>
+        <TopLine Value="774"/>
+        <CursorPos X="66" Y="776"/>
+        <UsageCount Value="127"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
       </Unit1>
@@ -31,10 +31,10 @@
         <ComponentName Value="configform"/>
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
-        <EditorIndex Value="8"/>
+        <EditorIndex Value="7"/>
         <TopLine Value="33"/>
         <CursorPos X="41" Y="45"/>
-        <UsageCount Value="114"/>
+        <UsageCount Value="117"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
       </Unit2>
@@ -44,7 +44,7 @@
         <EditorIndex Value="1"/>
         <TopLine Value="13"/>
         <CursorPos X="49" Y="20"/>
-        <UsageCount Value="106"/>
+        <UsageCount Value="109"/>
         <Loaded Value="True"/>
       </Unit3>
       <Unit4>
@@ -54,15 +54,15 @@
         <WindowIndex Value="-1"/>
         <TopLine Value="-1"/>
         <CursorPos X="-1" Y="-1"/>
-        <UsageCount Value="106"/>
+        <UsageCount Value="109"/>
       </Unit4>
       <Unit5>
         <Filename Value="..\foobot_utility.pas"/>
         <IsPartOfProject Value="True"/>
-        <EditorIndex Value="10"/>
+        <EditorIndex Value="9"/>
         <TopLine Value="129"/>
         <CursorPos X="49" Y="212"/>
-        <UsageCount Value="124"/>
+        <UsageCount Value="127"/>
         <Loaded Value="True"/>
       </Unit5>
       <Unit6>
@@ -72,16 +72,15 @@
         <WindowIndex Value="-1"/>
         <TopLine Value="-1"/>
         <CursorPos X="-1" Y="-1"/>
-        <UsageCount Value="106"/>
+        <UsageCount Value="109"/>
       </Unit6>
       <Unit7>
         <Filename Value="foobot_sensors.pas"/>
         <IsPartOfProject Value="True"/>
-        <EditorIndex Value="5"/>
+        <EditorIndex Value="-1"/>
         <TopLine Value="299"/>
         <CursorPos X="14" Y="321"/>
-        <UsageCount Value="58"/>
-        <Loaded Value="True"/>
+        <UsageCount Value="61"/>
       </Unit7>
       <Unit8>
         <Filename Value="usplash.pas"/>
@@ -90,9 +89,10 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <EditorIndex Value="3"/>
-        <CursorPos X="9" Y="33"/>
-        <UsageCount Value="53"/>
+        <CursorPos X="48" Y="37"/>
+        <UsageCount Value="56"/>
         <Loaded Value="True"/>
+        <LoadedDesigner Value="True"/>
       </Unit8>
       <Unit9>
         <Filename Value="utriggersform.pas"/>
@@ -102,26 +102,26 @@
         <ResourceBaseClass Value="Form"/>
         <IsVisibleTab Value="True"/>
         <EditorIndex Value="2"/>
-        <TopLine Value="148"/>
-        <CursorPos X="76" Y="203"/>
-        <UsageCount Value="44"/>
+        <TopLine Value="137"/>
+        <CursorPos X="45" Y="139"/>
+        <UsageCount Value="47"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
       </Unit9>
       <Unit10>
         <Filename Value="..\latest_stable\foobot_httpclient.pas"/>
-        <EditorIndex Value="9"/>
+        <EditorIndex Value="8"/>
         <TopLine Value="43"/>
         <CursorPos X="47" Y="13"/>
-        <UsageCount Value="77"/>
+        <UsageCount Value="78"/>
         <Loaded Value="True"/>
       </Unit10>
       <Unit11>
         <Filename Value="..\latest_stable\foobot_objects.pas"/>
-        <EditorIndex Value="12"/>
-        <TopLine Value="143"/>
-        <CursorPos X="35" Y="59"/>
-        <UsageCount Value="77"/>
+        <EditorIndex Value="11"/>
+        <TopLine Value="141"/>
+        <CursorPos X="31" Y="148"/>
+        <UsageCount Value="78"/>
         <Loaded Value="True"/>
       </Unit11>
       <Unit12>
@@ -130,12 +130,12 @@
         <WindowIndex Value="-1"/>
         <TopLine Value="-1"/>
         <CursorPos X="-1" Y="-1"/>
-        <UsageCount Value="34"/>
+        <UsageCount Value="33"/>
       </Unit12>
       <Unit13>
         <Filename Value="..\latest_stable\umainform.lfm"/>
         <EditorIndex Value="-1"/>
-        <UsageCount Value="6"/>
+        <UsageCount Value="5"/>
         <DefaultSyntaxHighlighter Value="LFM"/>
       </Unit13>
       <Unit14>
@@ -143,21 +143,21 @@
         <EditorIndex Value="-1"/>
         <TopLine Value="10"/>
         <CursorPos X="57" Y="36"/>
-        <UsageCount Value="6"/>
+        <UsageCount Value="5"/>
       </Unit14>
       <Unit15>
         <Filename Value="..\udataform.pas"/>
         <EditorIndex Value="-1"/>
         <TopLine Value="74"/>
         <CursorPos Y="96"/>
-        <UsageCount Value="14"/>
+        <UsageCount Value="13"/>
       </Unit15>
       <Unit16>
         <Filename Value="..\umainform.pas"/>
         <EditorIndex Value="-1"/>
         <TopLine Value="145"/>
         <CursorPos X="81" Y="158"/>
-        <UsageCount Value="42"/>
+        <UsageCount Value="41"/>
       </Unit16>
       <Unit17>
         <Filename Value="C:\trunklatest\lazarus\lcl\lclmessageglue.pas"/>
@@ -165,34 +165,34 @@
         <EditorIndex Value="-1"/>
         <TopLine Value="93"/>
         <CursorPos Y="114"/>
-        <UsageCount Value="6"/>
+        <UsageCount Value="5"/>
       </Unit17>
       <Unit18>
         <Filename Value="..\ulogin.pas"/>
         <EditorIndex Value="-1"/>
         <CursorPos Y="108"/>
-        <UsageCount Value="9"/>
+        <UsageCount Value="8"/>
       </Unit18>
       <Unit19>
         <Filename Value="..\..\..\components\cryptini\latest_stable\ucryptini.pas"/>
         <EditorIndex Value="-1"/>
         <TopLine Value="906"/>
         <CursorPos X="8" Y="939"/>
-        <UsageCount Value="7"/>
+        <UsageCount Value="6"/>
       </Unit19>
       <Unit20>
         <Filename Value="..\backup\foobot_utility.pas"/>
         <EditorIndex Value="-1"/>
         <TopLine Value="7"/>
-        <UsageCount Value="6"/>
+        <UsageCount Value="5"/>
       </Unit20>
       <Unit21>
         <Filename Value="C:\trunklatest\lazarus\ide\lazarus.pp"/>
         <UnitName Value="Lazarus"/>
-        <EditorIndex Value="6"/>
+        <EditorIndex Value="5"/>
         <TopLine Value="101"/>
         <CursorPos Y="154"/>
-        <UsageCount Value="28"/>
+        <UsageCount Value="29"/>
         <Loaded Value="True"/>
       </Unit21>
       <Unit22>
@@ -200,35 +200,35 @@
         <EditorIndex Value="-1"/>
         <TopLine Value="11"/>
         <CursorPos X="8" Y="33"/>
-        <UsageCount Value="7"/>
+        <UsageCount Value="6"/>
       </Unit22>
       <Unit23>
         <Filename Value="D:\Lazarusprojects\healthmonitor\svn\healthanalysis\healthanalysis\umainform.pas"/>
         <EditorIndex Value="-1"/>
         <TopLine Value="540"/>
         <CursorPos X="55" Y="593"/>
-        <UsageCount Value="7"/>
+        <UsageCount Value="6"/>
       </Unit23>
       <Unit24>
         <Filename Value="C:\trunklatest\fpc\rtl\objpas\sysutils\datih.inc"/>
         <EditorIndex Value="-1"/>
         <TopLine Value="109"/>
         <CursorPos X="10" Y="128"/>
-        <UsageCount Value="6"/>
+        <UsageCount Value="5"/>
       </Unit24>
       <Unit25>
         <Filename Value="C:\trunklatest\fpc\packages\rtl-objpas\src\inc\dateutil.inc"/>
-        <EditorIndex Value="11"/>
+        <EditorIndex Value="10"/>
         <TopLine Value="381"/>
         <CursorPos X="13" Y="384"/>
-        <UsageCount Value="46"/>
+        <UsageCount Value="47"/>
         <Loaded Value="True"/>
       </Unit25>
       <Unit26>
         <Filename Value="..\latest_stable\udataform.pas"/>
-        <EditorIndex Value="7"/>
+        <EditorIndex Value="6"/>
         <TopLine Value="70"/>
-        <UsageCount Value="46"/>
+        <UsageCount Value="47"/>
         <Loaded Value="True"/>
       </Unit26>
       <Unit27>
@@ -236,20 +236,20 @@
         <EditorIndex Value="-1"/>
         <TopLine Value="781"/>
         <CursorPos X="28" Y="795"/>
-        <UsageCount Value="21"/>
+        <UsageCount Value="20"/>
       </Unit27>
       <Unit28>
         <Filename Value="C:\trunklatest\fpc\packages\fcl-base\src\fileinfo.pp"/>
         <EditorIndex Value="-1"/>
         <TopLine Value="43"/>
         <CursorPos X="19" Y="51"/>
-        <UsageCount Value="10"/>
+        <UsageCount Value="9"/>
       </Unit28>
       <Unit29>
         <Filename Value="C:\trunklatest\lazarus\components\IndustrialStuff\industrial.pas"/>
         <EditorIndex Value="-1"/>
         <CursorPos X="18" Y="11"/>
-        <UsageCount Value="8"/>
+        <UsageCount Value="7"/>
       </Unit29>
       <Unit30>
         <Filename Value="..\..\..\components\poweredby\latest_stable\upoweredby.pas"/>
@@ -257,14 +257,14 @@
         <EditorIndex Value="-1"/>
         <TopLine Value="190"/>
         <CursorPos X="33" Y="205"/>
-        <UsageCount Value="18"/>
+        <UsageCount Value="17"/>
       </Unit30>
       <Unit31>
         <Filename Value="C:\trunklatest\lazarus\lcl\include\customform.inc"/>
         <EditorIndex Value="-1"/>
         <TopLine Value="2228"/>
         <CursorPos X="14" Y="2239"/>
-        <UsageCount Value="8"/>
+        <UsageCount Value="7"/>
       </Unit31>
       <Unit32>
         <Filename Value="C:\trunklatest\lazarus\lcl\graphics.pp"/>
@@ -272,7 +272,7 @@
         <EditorIndex Value="4"/>
         <TopLine Value="1811"/>
         <CursorPos X="13" Y="1834"/>
-        <UsageCount Value="24"/>
+        <UsageCount Value="25"/>
         <Loaded Value="True"/>
       </Unit32>
       <Unit33>
@@ -280,130 +280,130 @@
         <EditorIndex Value="-1"/>
         <TopLine Value="119"/>
         <CursorPos Y="151"/>
-        <UsageCount Value="10"/>
+        <UsageCount Value="9"/>
         <DefaultSyntaxHighlighter Value="LFM"/>
       </Unit33>
     </Units>
     <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
         <Filename Value="utriggersform.pas"/>
-        <Caret Line="117" Column="34" TopLine="73"/>
+        <Caret Line="133" Column="34" TopLine="89"/>
       </Position1>
       <Position2>
         <Filename Value="utriggersform.pas"/>
-        <Caret Line="116" Column="34" TopLine="72"/>
+        <Caret Line="134" Column="34" TopLine="90"/>
       </Position2>
       <Position3>
         <Filename Value="utriggersform.pas"/>
-        <Caret Line="115" Column="34" TopLine="71"/>
+        <Caret Line="135" Column="34" TopLine="91"/>
       </Position3>
       <Position4>
         <Filename Value="utriggersform.pas"/>
-        <Caret Line="116" Column="34" TopLine="72"/>
+        <Caret Line="136" Column="34" TopLine="92"/>
       </Position4>
       <Position5>
         <Filename Value="utriggersform.pas"/>
-        <Caret Line="117" Column="34" TopLine="73"/>
+        <Caret Line="139" Column="34" TopLine="95"/>
       </Position5>
       <Position6>
         <Filename Value="utriggersform.pas"/>
-        <Caret Line="118" Column="34" TopLine="74"/>
+        <Caret Line="142" Column="34" TopLine="98"/>
       </Position6>
       <Position7>
         <Filename Value="utriggersform.pas"/>
-        <Caret Line="121" Column="34" TopLine="77"/>
+        <Caret Line="145" Column="34" TopLine="101"/>
       </Position7>
       <Position8>
         <Filename Value="utriggersform.pas"/>
-        <Caret Line="124" Column="34" TopLine="80"/>
+        <Caret Line="148" Column="34" TopLine="104"/>
       </Position8>
       <Position9>
         <Filename Value="utriggersform.pas"/>
-        <Caret Line="127" Column="34" TopLine="83"/>
+        <Caret Line="151" Column="34" TopLine="107"/>
       </Position9>
       <Position10>
         <Filename Value="utriggersform.pas"/>
-        <Caret Line="130" Column="34" TopLine="86"/>
+        <Caret Line="18" Column="18" TopLine="11"/>
       </Position10>
       <Position11>
         <Filename Value="utriggersform.pas"/>
-        <Caret Line="133" Column="34" TopLine="89"/>
+        <Caret Line="124" Column="6" TopLine="83"/>
       </Position11>
       <Position12>
-        <Filename Value="usplash.pas"/>
-        <Caret Line="43" Column="28"/>
+        <Filename Value="utriggersform.pas"/>
+        <Caret Line="101" Column="26" TopLine="74"/>
       </Position12>
       <Position13>
         <Filename Value="utriggersform.pas"/>
-        <Caret Line="133" Column="34" TopLine="89"/>
+        <Caret Line="192" Column="36" TopLine="165"/>
       </Position13>
       <Position14>
         <Filename Value="utriggersform.pas"/>
-        <Caret Line="134" Column="34" TopLine="90"/>
+        <Caret Line="229" TopLine="178"/>
       </Position14>
       <Position15>
-        <Filename Value="utriggersform.pas"/>
-        <Caret Line="135" Column="34" TopLine="91"/>
+        <Filename Value="umainform.pas"/>
+        <Caret Line="362" Column="22" TopLine="349"/>
       </Position15>
       <Position16>
-        <Filename Value="utriggersform.pas"/>
-        <Caret Line="134" Column="34" TopLine="90"/>
+        <Filename Value="umainform.pas"/>
+        <Caret Line="539" Column="42" TopLine="524"/>
       </Position16>
       <Position17>
         <Filename Value="utriggersform.pas"/>
-        <Caret Line="133" Column="34" TopLine="89"/>
+        <Caret Line="14" Column="5"/>
       </Position17>
       <Position18>
         <Filename Value="utriggersform.pas"/>
-        <Caret Line="134" Column="34" TopLine="90"/>
+        <Caret Line="12" Column="15"/>
       </Position18>
       <Position19>
         <Filename Value="utriggersform.pas"/>
-        <Caret Line="135" Column="34" TopLine="91"/>
+        <Caret Line="13" Column="26"/>
       </Position19>
       <Position20>
         <Filename Value="utriggersform.pas"/>
-        <Caret Line="136" Column="34" TopLine="92"/>
+        <Caret Line="21" Column="18"/>
       </Position20>
       <Position21>
         <Filename Value="utriggersform.pas"/>
-        <Caret Line="139" Column="34" TopLine="95"/>
+        <Caret Line="153" Column="20" TopLine="130"/>
       </Position21>
       <Position22>
         <Filename Value="utriggersform.pas"/>
-        <Caret Line="142" Column="34" TopLine="98"/>
+        <Caret Line="92" Column="20" TopLine="90"/>
       </Position22>
       <Position23>
-        <Filename Value="utriggersform.pas"/>
-        <Caret Line="145" Column="34" TopLine="101"/>
+        <Filename Value="umainform.pas"/>
+        <Caret Line="397" Column="17" TopLine="378"/>
       </Position23>
       <Position24>
-        <Filename Value="utriggersform.pas"/>
-        <Caret Line="148" Column="34" TopLine="104"/>
+        <Filename Value="umainform.pas"/>
+        <Caret Line="745" Column="44" TopLine="698"/>
       </Position24>
       <Position25>
-        <Filename Value="utriggersform.pas"/>
-        <Caret Line="151" Column="34" TopLine="107"/>
+        <Filename Value="umainform.pas"/>
+        <Caret Line="832" Column="44" TopLine="785"/>
       </Position25>
       <Position26>
         <Filename Value="utriggersform.pas"/>
-        <Caret Line="18" Column="18" TopLine="11"/>
+        <Caret Line="138" TopLine="103"/>
       </Position26>
       <Position27>
         <Filename Value="utriggersform.pas"/>
-        <Caret Line="124" Column="6" TopLine="83"/>
+        <Caret Line="137" Column="52" TopLine="110"/>
       </Position27>
       <Position28>
         <Filename Value="utriggersform.pas"/>
-        <Caret Line="101" Column="26" TopLine="74"/>
+        <Caret Line="123" Column="8" TopLine="105"/>
       </Position28>
       <Position29>
-        <Filename Value="utriggersform.pas"/>
-        <Caret Line="192" Column="36" TopLine="165"/>
+        <Filename Value="umainform.pas"/>
+        <Caret Line="279" Column="11" TopLine="261"/>
       </Position29>
       <Position30>
         <Filename Value="utriggersform.pas"/>
-        <Caret Line="229" TopLine="178"/>
+        <Caret Line="153" Column="43" TopLine="134"/>
       </Position30>
     </JumpHistory>
   </ProjectSession>
diff --git a/applications/foobot/monitor/umainform.pas b/applications/foobot/monitor/umainform.pas
index 8d5207f44..7eac01f2b 100644
--- a/applications/foobot/monitor/umainform.pas
+++ b/applications/foobot/monitor/umainform.pas
@@ -217,7 +217,6 @@ type
     sSecretKey, sFoobotUserName, sUUID: string;
     bDisplayGuagesOnly, bDisplayYellowLines, bDisplayRedLines: boolean;
     iFudgeFactor: integer;
-    iCurrentFoobot: integer;
     HighTriggerColor, LowTriggerColor: TColor;
     foobotmenuarray: array of TMenuItem;
     procedure DisplayReadings;
@@ -238,6 +237,7 @@ type
     procedure DoLowTriggerAlert(const iSensorNum: integer; const aValue: variant);
     procedure RestoreNormalColour(const iSensorNum: integer);
   public
+    iCurrentFoobot: integer;
     INI: TCryptINIfile;
   end;
 
@@ -351,6 +351,7 @@ begin
         {$ENDIF}
         grp_sensorDisplay.Refresh;
         grp_highlow.Refresh;
+        grp_health.Refresh;
         Update;
         Application.ProcessMessages;
         splashform.hide;
@@ -772,6 +773,7 @@ end;
 
 procedure Tmainform.mnu_options_triggersSetTriggersClick(Sender: TObject);
 begin
+  If FoobotIdentityObject.FoobotIdentityList.Count = 0 then Exit;;
   triggersform.ShowModal;
   if triggersform.ModalResult = mrCancel then
   begin
diff --git a/applications/foobot/monitor/utriggersform.lfm b/applications/foobot/monitor/utriggersform.lfm
index d999d440b..ebf87eff1 100644
--- a/applications/foobot/monitor/utriggersform.lfm
+++ b/applications/foobot/monitor/utriggersform.lfm
@@ -1,7 +1,7 @@
 object triggersform: Ttriggersform
-  Left = 543
+  Left = 478
   Height = 565
-  Top = 191
+  Top = 162
   Width = 794
   ActiveControl = edt_newrec_pm
   BorderIcons = [biSystemMenu]
@@ -13,6 +13,7 @@ object triggersform: Ttriggersform
   FormStyle = fsStayOnTop
   OnActivate = FormActivate
   OnCreate = FormCreate
+  OnDestroy = FormDestroy
   OnShow = FormShow
   Position = poWorkAreaCenter
   ShowInTaskBar = stNever
@@ -113,6 +114,7 @@ object triggersform: Ttriggersform
         Top = 0
         Width = 72
         BorderStyle = bsNone
+        OnKeyPress = OnlyNumericKeyPress
         ParentFont = False
         TabOrder = 0
         Text = '0.00'
@@ -123,6 +125,7 @@ object triggersform: Ttriggersform
         Top = 20
         Width = 72
         BorderStyle = bsNone
+        OnKeyPress = OnlyNumericKeyPress
         ParentFont = False
         TabOrder = 1
         Text = '0.00'
@@ -133,6 +136,7 @@ object triggersform: Ttriggersform
         Top = 40
         Width = 72
         BorderStyle = bsNone
+        OnKeyPress = OnlyNumericKeyPress
         ParentFont = False
         TabOrder = 2
         Text = '0.00'
@@ -247,6 +251,7 @@ object triggersform: Ttriggersform
         Top = 0
         Width = 72
         BorderStyle = bsNone
+        OnKeyPress = OnlyNumericKeyPress
         ParentFont = False
         TabOrder = 0
         Text = '0.00'
@@ -257,6 +262,7 @@ object triggersform: Ttriggersform
         Top = 20
         Width = 72
         BorderStyle = bsNone
+        OnKeyPress = OnlyNumericKeyPress
         ParentFont = False
         TabOrder = 1
         Text = '0.00'
@@ -267,6 +273,7 @@ object triggersform: Ttriggersform
         Top = 40
         Width = 72
         BorderStyle = bsNone
+        OnKeyPress = OnlyNumericKeyPress
         ParentFont = False
         TabOrder = 2
         Text = '0.00'
@@ -381,6 +388,7 @@ object triggersform: Ttriggersform
         Top = 0
         Width = 72
         BorderStyle = bsNone
+        OnKeyPress = OnlyNumericKeyPress
         ParentFont = False
         TabOrder = 0
         Text = '0.00'
@@ -391,6 +399,7 @@ object triggersform: Ttriggersform
         Top = 20
         Width = 72
         BorderStyle = bsNone
+        OnKeyPress = OnlyNumericKeyPress
         ParentFont = False
         TabOrder = 1
         Text = '0.00'
@@ -401,6 +410,7 @@ object triggersform: Ttriggersform
         Top = 40
         Width = 72
         BorderStyle = bsNone
+        OnKeyPress = OnlyNumericKeyPress
         ParentFont = False
         TabOrder = 2
         Text = '0.00'
@@ -515,6 +525,7 @@ object triggersform: Ttriggersform
         Top = 0
         Width = 72
         BorderStyle = bsNone
+        OnKeyPress = OnlyNumericKeyPress
         ParentFont = False
         TabOrder = 0
         Text = '0.00'
@@ -525,6 +536,7 @@ object triggersform: Ttriggersform
         Top = 20
         Width = 72
         BorderStyle = bsNone
+        OnKeyPress = OnlyNumericKeyPress
         ParentFont = False
         TabOrder = 1
         Text = '0.00'
@@ -535,6 +547,7 @@ object triggersform: Ttriggersform
         Top = 40
         Width = 72
         BorderStyle = bsNone
+        OnKeyPress = OnlyNumericKeyPress
         ParentFont = False
         TabOrder = 2
         Text = '0.00'
@@ -649,6 +662,7 @@ object triggersform: Ttriggersform
         Top = 0
         Width = 72
         BorderStyle = bsNone
+        OnKeyPress = OnlyNumericKeyPress
         ParentFont = False
         TabOrder = 0
         Text = '0.00'
@@ -659,6 +673,7 @@ object triggersform: Ttriggersform
         Top = 20
         Width = 72
         BorderStyle = bsNone
+        OnKeyPress = OnlyNumericKeyPress
         ParentFont = False
         TabOrder = 1
         Text = '0.00'
@@ -669,6 +684,7 @@ object triggersform: Ttriggersform
         Top = 40
         Width = 72
         BorderStyle = bsNone
+        OnKeyPress = OnlyNumericKeyPress
         ParentFont = False
         TabOrder = 2
         Text = '0.00'
@@ -783,6 +799,7 @@ object triggersform: Ttriggersform
         Top = 0
         Width = 72
         BorderStyle = bsNone
+        OnKeyPress = OnlyNumericKeyPress
         ParentFont = False
         TabOrder = 0
         Text = '0.00'
@@ -793,6 +810,7 @@ object triggersform: Ttriggersform
         Top = 20
         Width = 72
         BorderStyle = bsNone
+        OnKeyPress = OnlyNumericKeyPress
         ParentFont = False
         TabOrder = 1
         Text = '0.00'
@@ -803,6 +821,7 @@ object triggersform: Ttriggersform
         Top = 40
         Width = 72
         BorderStyle = bsNone
+        OnKeyPress = OnlyNumericKeyPress
         ParentFont = False
         TabOrder = 2
         Text = '0.00'
@@ -845,6 +864,7 @@ object triggersform: Ttriggersform
     DefaultCaption = True
     Kind = bkOK
     ModalResult = 1
+    OnClick = cmd_OKClick
     TabOrder = 1
   end
   object cmd_cancel: TBitBtn
diff --git a/applications/foobot/monitor/utriggersform.pas b/applications/foobot/monitor/utriggersform.pas
index 3bea742f0..12d7ba245 100644
--- a/applications/foobot/monitor/utriggersform.pas
+++ b/applications/foobot/monitor/utriggersform.pas
@@ -9,7 +9,6 @@ uses
   Buttons;
 
 type
-
   { Ttriggersform }
 
   Ttriggersform = class(TForm)
@@ -94,10 +93,14 @@ type
     lbl_newrec_co2: TLabel;
     lbl_newrec_voc: TLabel;
     lbl_newrec_allpollu: TLabel;
+    procedure cmd_OKClick(Sender: TObject);
     procedure FormActivate(Sender: TObject);
     procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
     procedure FormShow(Sender: TObject);
+    procedure OnlyNumericKeyPress(Sender: TObject; var Key: char);
   private
+    ErrorList:TStrings;
     procedure DisplayCurrentValues;
     procedure SetUpUnits;
   public
@@ -118,7 +121,12 @@ uses umainform, foobot_utility;
 procedure Ttriggersform.FormCreate(Sender: TObject);
 begin
   Icon := Application.Icon;
-  Caption := Application.Title + ' - Set Recommended values and Triggers';
+  ErrorList:=TStringList.Create;
+end;
+
+procedure Ttriggersform.FormDestroy(Sender: TObject);
+begin
+  FreeAndNil(ErrorList);
 end;
 
 procedure Ttriggersform.FormActivate(Sender: TObject);
@@ -126,9 +134,22 @@ begin
   SetUpUnits;
 end;
 
+procedure Ttriggersform.cmd_OKClick(Sender: TObject);
+begin
+  // VerifyEveryThing then Save to inifiles;
+end;
+
+procedure Ttriggersform.OnlyNumericKeyPress(Sender: TObject; var Key: char);
+begin
+   if not (Key in ['0'..'9', '.', #8, #9]) then Key := #0;
+end;
+
 procedure Ttriggersform.FormShow(Sender: TObject);
 begin
+  Caption := Application.Title + ' - Set Recommended values (for all Foobots) and Triggers (for ' +
+  FoobotIdentityObject.FoobotIdentityList[mainform.iCurrentFoobot].Name + ')';
   DisplayCurrentValues;
+  ErrorList.Clear;
   Update;
 end;