V0.2.2.0 for distribution
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5620 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
gbamber
parent
33d48a18d2
commit
3106f1eb0c
@ -226,9 +226,9 @@ begin
|
||||
FooBotTriggerArray[C_HIGH, C_HUM] := ReadFloat(sFoobotName, 'humTriggerHigh', 0);
|
||||
FooBotTriggerArray[C_LOW, C_HUM] := ReadFloat(sFoobotName, 'humTriggerLow', 0);
|
||||
FooBotTriggerArray[C_HIGH, C_CO2] := ReadFloat(sFoobotName, 'co2TriggerHigh', 0);
|
||||
FooBotTriggerArray[C_LOW, C_CO2] := ReadFloat(sFoobotName, 'co2TriggerLow', 0);
|
||||
FooBotTriggerArray[C_LOW, C_CO2] := ReadFloat(sFoobotName, 'co2TriggerLow', 450);
|
||||
FooBotTriggerArray[C_HIGH, C_VOC] := ReadFloat(sFoobotName, 'vocTriggerHigh', 0);
|
||||
FooBotTriggerArray[C_LOW, C_VOC] := ReadFloat(sFoobotName, 'vocTriggerLow', 0);
|
||||
FooBotTriggerArray[C_LOW, C_VOC] := ReadFloat(sFoobotName, 'vocTriggerLow', 125);
|
||||
FooBotTriggerArray[C_HIGH, C_ALLPOLLU] :=
|
||||
ReadFloat(sFoobotName, 'allpolluTriggerHigh', 0);
|
||||
FooBotTriggerArray[C_LOW, C_ALLPOLLU] :=
|
||||
|
||||
@ -24,7 +24,7 @@
|
||||
<UseVersionInfo Value="True"/>
|
||||
<MinorVersionNr Value="2"/>
|
||||
<RevisionNr Value="2"/>
|
||||
<StringTable Comments="Uses Foobot public API to query Foobot #1" FileDescription="Monitor for Foobot" InternalName="foobotmonitor" LegalCopyright="(c)2016 minesadorada@charcodelvalle.com" LegalTrademarks="Foobot" ProductName="Foobot" ProductVersion="0.0.0.0"/>
|
||||
<StringTable Comments="Uses Foobot public API to query Foobots" FileDescription="Monitor for Foobot" InternalName="foobotmonitor" LegalCopyright="(c)2016 minesadorada@charcodelvalle.com" LegalTrademarks="Foobot" ProductName="Foobot" ProductVersion="0.0.0.0"/>
|
||||
</VersionInfo>
|
||||
<BuildModes Count="6">
|
||||
<Item1 Name="Debug" Default="True"/>
|
||||
|
||||
@ -3,14 +3,14 @@
|
||||
<ProjectSession>
|
||||
<PathDelim Value="\"/>
|
||||
<Version Value="10"/>
|
||||
<BuildModes Active="win64"/>
|
||||
<BuildModes Active="win32GTK2"/>
|
||||
<Units Count="34">
|
||||
<Unit0>
|
||||
<Filename Value="foobotmonitor.lpr"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<EditorIndex Value="12"/>
|
||||
<CursorPos Y="35"/>
|
||||
<UsageCount Value="151"/>
|
||||
<UsageCount Value="153"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit0>
|
||||
<Unit1>
|
||||
@ -19,10 +19,9 @@
|
||||
<ComponentName Value="mainform"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<IsVisibleTab Value="True"/>
|
||||
<TopLine Value="770"/>
|
||||
<CursorPos X="6" Y="780"/>
|
||||
<UsageCount Value="151"/>
|
||||
<TopLine Value="199"/>
|
||||
<CursorPos X="47" Y="22"/>
|
||||
<UsageCount Value="153"/>
|
||||
<Loaded Value="True"/>
|
||||
<LoadedDesigner Value="True"/>
|
||||
</Unit1>
|
||||
@ -35,7 +34,7 @@
|
||||
<EditorIndex Value="7"/>
|
||||
<TopLine Value="33"/>
|
||||
<CursorPos X="41" Y="45"/>
|
||||
<UsageCount Value="141"/>
|
||||
<UsageCount Value="143"/>
|
||||
<Loaded Value="True"/>
|
||||
<LoadedDesigner Value="True"/>
|
||||
</Unit2>
|
||||
@ -45,7 +44,7 @@
|
||||
<EditorIndex Value="1"/>
|
||||
<TopLine Value="13"/>
|
||||
<CursorPos X="49" Y="20"/>
|
||||
<UsageCount Value="133"/>
|
||||
<UsageCount Value="135"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit3>
|
||||
<Unit4>
|
||||
@ -55,15 +54,16 @@
|
||||
<WindowIndex Value="-1"/>
|
||||
<TopLine Value="-1"/>
|
||||
<CursorPos X="-1" Y="-1"/>
|
||||
<UsageCount Value="133"/>
|
||||
<UsageCount Value="135"/>
|
||||
</Unit4>
|
||||
<Unit5>
|
||||
<Filename Value="..\foobot_utility.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<IsVisibleTab Value="True"/>
|
||||
<EditorIndex Value="9"/>
|
||||
<TopLine Value="241"/>
|
||||
<CursorPos X="68" Y="261"/>
|
||||
<UsageCount Value="151"/>
|
||||
<TopLine Value="199"/>
|
||||
<CursorPos X="56" Y="232"/>
|
||||
<UsageCount Value="153"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit5>
|
||||
<Unit6>
|
||||
@ -73,7 +73,7 @@
|
||||
<WindowIndex Value="-1"/>
|
||||
<TopLine Value="-1"/>
|
||||
<CursorPos X="-1" Y="-1"/>
|
||||
<UsageCount Value="133"/>
|
||||
<UsageCount Value="135"/>
|
||||
</Unit6>
|
||||
<Unit7>
|
||||
<Filename Value="foobot_sensors.pas"/>
|
||||
@ -81,7 +81,7 @@
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="299"/>
|
||||
<CursorPos X="14" Y="321"/>
|
||||
<UsageCount Value="85"/>
|
||||
<UsageCount Value="87"/>
|
||||
</Unit7>
|
||||
<Unit8>
|
||||
<Filename Value="usplash.pas"/>
|
||||
@ -91,7 +91,7 @@
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<EditorIndex Value="3"/>
|
||||
<CursorPos X="48" Y="37"/>
|
||||
<UsageCount Value="80"/>
|
||||
<UsageCount Value="82"/>
|
||||
<Loaded Value="True"/>
|
||||
<LoadedDesigner Value="True"/>
|
||||
</Unit8>
|
||||
@ -102,9 +102,9 @@
|
||||
<HasResources Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<EditorIndex Value="2"/>
|
||||
<TopLine Value="232"/>
|
||||
<CursorPos X="81" Y="254"/>
|
||||
<UsageCount Value="71"/>
|
||||
<TopLine Value="382"/>
|
||||
<CursorPos X="26" Y="21"/>
|
||||
<UsageCount Value="73"/>
|
||||
<Loaded Value="True"/>
|
||||
<LoadedDesigner Value="True"/>
|
||||
</Unit9>
|
||||
@ -113,7 +113,7 @@
|
||||
<EditorIndex Value="8"/>
|
||||
<TopLine Value="43"/>
|
||||
<CursorPos X="47" Y="13"/>
|
||||
<UsageCount Value="90"/>
|
||||
<UsageCount Value="91"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit10>
|
||||
<Unit11>
|
||||
@ -121,7 +121,7 @@
|
||||
<EditorIndex Value="11"/>
|
||||
<TopLine Value="141"/>
|
||||
<CursorPos X="31" Y="148"/>
|
||||
<UsageCount Value="90"/>
|
||||
<UsageCount Value="91"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit11>
|
||||
<Unit12>
|
||||
@ -130,12 +130,12 @@
|
||||
<WindowIndex Value="-1"/>
|
||||
<TopLine Value="-1"/>
|
||||
<CursorPos X="-1" Y="-1"/>
|
||||
<UsageCount Value="31"/>
|
||||
<UsageCount Value="30"/>
|
||||
</Unit12>
|
||||
<Unit13>
|
||||
<Filename Value="..\latest_stable\umainform.lfm"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<UsageCount Value="3"/>
|
||||
<UsageCount Value="2"/>
|
||||
<DefaultSyntaxHighlighter Value="LFM"/>
|
||||
</Unit13>
|
||||
<Unit14>
|
||||
@ -143,21 +143,21 @@
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="10"/>
|
||||
<CursorPos X="57" Y="36"/>
|
||||
<UsageCount Value="3"/>
|
||||
<UsageCount Value="2"/>
|
||||
</Unit14>
|
||||
<Unit15>
|
||||
<Filename Value="..\udataform.pas"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="74"/>
|
||||
<CursorPos Y="96"/>
|
||||
<UsageCount Value="11"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit15>
|
||||
<Unit16>
|
||||
<Filename Value="..\umainform.pas"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="145"/>
|
||||
<CursorPos X="81" Y="158"/>
|
||||
<UsageCount Value="39"/>
|
||||
<UsageCount Value="38"/>
|
||||
</Unit16>
|
||||
<Unit17>
|
||||
<Filename Value="C:\trunklatest\lazarus\lcl\lclmessageglue.pas"/>
|
||||
@ -165,26 +165,26 @@
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="93"/>
|
||||
<CursorPos Y="114"/>
|
||||
<UsageCount Value="3"/>
|
||||
<UsageCount Value="2"/>
|
||||
</Unit17>
|
||||
<Unit18>
|
||||
<Filename Value="..\ulogin.pas"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<CursorPos Y="108"/>
|
||||
<UsageCount Value="6"/>
|
||||
<UsageCount Value="5"/>
|
||||
</Unit18>
|
||||
<Unit19>
|
||||
<Filename Value="..\..\..\components\cryptini\latest_stable\ucryptini.pas"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="906"/>
|
||||
<CursorPos X="8" Y="939"/>
|
||||
<UsageCount Value="4"/>
|
||||
<UsageCount Value="3"/>
|
||||
</Unit19>
|
||||
<Unit20>
|
||||
<Filename Value="..\backup\foobot_utility.pas"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="7"/>
|
||||
<UsageCount Value="3"/>
|
||||
<UsageCount Value="2"/>
|
||||
</Unit20>
|
||||
<Unit21>
|
||||
<Filename Value="C:\trunklatest\lazarus\ide\lazarus.pp"/>
|
||||
@ -192,7 +192,7 @@
|
||||
<EditorIndex Value="5"/>
|
||||
<TopLine Value="101"/>
|
||||
<CursorPos Y="154"/>
|
||||
<UsageCount Value="41"/>
|
||||
<UsageCount Value="42"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit21>
|
||||
<Unit22>
|
||||
@ -200,35 +200,35 @@
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="11"/>
|
||||
<CursorPos X="8" Y="33"/>
|
||||
<UsageCount Value="4"/>
|
||||
<UsageCount Value="3"/>
|
||||
</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="4"/>
|
||||
<UsageCount Value="3"/>
|
||||
</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="3"/>
|
||||
<UsageCount Value="2"/>
|
||||
</Unit24>
|
||||
<Unit25>
|
||||
<Filename Value="C:\trunklatest\fpc\packages\rtl-objpas\src\inc\dateutil.inc"/>
|
||||
<EditorIndex Value="10"/>
|
||||
<TopLine Value="381"/>
|
||||
<CursorPos X="13" Y="384"/>
|
||||
<UsageCount Value="59"/>
|
||||
<UsageCount Value="60"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit25>
|
||||
<Unit26>
|
||||
<Filename Value="..\latest_stable\udataform.pas"/>
|
||||
<EditorIndex Value="6"/>
|
||||
<TopLine Value="70"/>
|
||||
<UsageCount Value="59"/>
|
||||
<UsageCount Value="60"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit26>
|
||||
<Unit27>
|
||||
@ -236,20 +236,20 @@
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="781"/>
|
||||
<CursorPos X="28" Y="795"/>
|
||||
<UsageCount Value="18"/>
|
||||
<UsageCount Value="17"/>
|
||||
</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="7"/>
|
||||
<UsageCount Value="6"/>
|
||||
</Unit28>
|
||||
<Unit29>
|
||||
<Filename Value="C:\trunklatest\lazarus\components\IndustrialStuff\industrial.pas"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<CursorPos X="18" Y="11"/>
|
||||
<UsageCount Value="5"/>
|
||||
<UsageCount Value="4"/>
|
||||
</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="15"/>
|
||||
<UsageCount Value="14"/>
|
||||
</Unit30>
|
||||
<Unit31>
|
||||
<Filename Value="C:\trunklatest\lazarus\lcl\include\customform.inc"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="2228"/>
|
||||
<CursorPos X="14" Y="2239"/>
|
||||
<UsageCount Value="5"/>
|
||||
<UsageCount Value="4"/>
|
||||
</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="37"/>
|
||||
<UsageCount Value="38"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit32>
|
||||
<Unit33>
|
||||
@ -280,130 +280,130 @@
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="119"/>
|
||||
<CursorPos Y="151"/>
|
||||
<UsageCount Value="7"/>
|
||||
<UsageCount Value="6"/>
|
||||
<DefaultSyntaxHighlighter Value="LFM"/>
|
||||
</Unit33>
|
||||
</Units>
|
||||
<JumpHistory Count="30" HistoryIndex="29">
|
||||
<Position1>
|
||||
<Filename Value="utriggersform.pas"/>
|
||||
<Caret Line="123" Column="8" TopLine="105"/>
|
||||
<Caret Line="153" Column="43" TopLine="134"/>
|
||||
</Position1>
|
||||
<Position2>
|
||||
<Filename Value="umainform.pas"/>
|
||||
<Caret Line="279" Column="11" TopLine="261"/>
|
||||
<Caret Line="78" Column="9" TopLine="45"/>
|
||||
</Position2>
|
||||
<Position3>
|
||||
<Filename Value="utriggersform.pas"/>
|
||||
<Caret Line="153" Column="43" TopLine="134"/>
|
||||
<Filename Value="umainform.pas"/>
|
||||
<Caret Line="417" Column="39" TopLine="370"/>
|
||||
</Position3>
|
||||
<Position4>
|
||||
<Filename Value="umainform.pas"/>
|
||||
<Caret Line="78" Column="9" TopLine="45"/>
|
||||
<Caret Line="419" Column="39" TopLine="372"/>
|
||||
</Position4>
|
||||
<Position5>
|
||||
<Filename Value="umainform.pas"/>
|
||||
<Caret Line="417" Column="39" TopLine="370"/>
|
||||
<Caret Line="884" Column="32" TopLine="837"/>
|
||||
</Position5>
|
||||
<Position6>
|
||||
<Filename Value="umainform.pas"/>
|
||||
<Caret Line="419" Column="39" TopLine="372"/>
|
||||
<Caret Line="1062" Column="28" TopLine="1015"/>
|
||||
</Position6>
|
||||
<Position7>
|
||||
<Filename Value="umainform.pas"/>
|
||||
<Caret Line="884" Column="32" TopLine="837"/>
|
||||
<Caret Line="77" TopLine="51"/>
|
||||
</Position7>
|
||||
<Position8>
|
||||
<Filename Value="umainform.pas"/>
|
||||
<Caret Line="1062" Column="28" TopLine="1015"/>
|
||||
<Caret Line="3" Column="7"/>
|
||||
</Position8>
|
||||
<Position9>
|
||||
<Filename Value="umainform.pas"/>
|
||||
<Caret Line="77" TopLine="51"/>
|
||||
<Caret Line="30" Column="20" TopLine="28"/>
|
||||
</Position9>
|
||||
<Position10>
|
||||
<Filename Value="umainform.pas"/>
|
||||
<Caret Line="3" Column="7"/>
|
||||
<Caret Line="883" Column="65" TopLine="852"/>
|
||||
</Position10>
|
||||
<Position11>
|
||||
<Filename Value="umainform.pas"/>
|
||||
<Caret Line="30" Column="20" TopLine="28"/>
|
||||
<Caret Line="1080" Column="61" TopLine="1036"/>
|
||||
</Position11>
|
||||
<Position12>
|
||||
<Filename Value="umainform.pas"/>
|
||||
<Caret Line="883" Column="65" TopLine="852"/>
|
||||
<Filename Value="..\foobot_utility.pas"/>
|
||||
<Caret Line="277" TopLine="241"/>
|
||||
</Position12>
|
||||
<Position13>
|
||||
<Filename Value="umainform.pas"/>
|
||||
<Caret Line="1080" Column="61" TopLine="1036"/>
|
||||
<Caret Line="476" Column="65" TopLine="457"/>
|
||||
</Position13>
|
||||
<Position14>
|
||||
<Filename Value="..\foobot_utility.pas"/>
|
||||
<Caret Line="277" TopLine="241"/>
|
||||
</Position14>
|
||||
<Position15>
|
||||
<Filename Value="umainform.pas"/>
|
||||
<Caret Line="476" Column="65" TopLine="457"/>
|
||||
</Position15>
|
||||
<Position16>
|
||||
<Filename Value="umainform.pas"/>
|
||||
<Caret Line="448" Column="8" TopLine="445"/>
|
||||
</Position14>
|
||||
<Position15>
|
||||
<Filename Value="utriggersform.pas"/>
|
||||
<Caret Line="171" Column="16" TopLine="135"/>
|
||||
</Position15>
|
||||
<Position16>
|
||||
<Filename Value="utriggersform.pas"/>
|
||||
<Caret Line="285" Column="79" TopLine="244"/>
|
||||
</Position16>
|
||||
<Position17>
|
||||
<Filename Value="utriggersform.pas"/>
|
||||
<Caret Line="171" Column="16" TopLine="135"/>
|
||||
<Caret Line="287" Column="88" TopLine="245"/>
|
||||
</Position17>
|
||||
<Position18>
|
||||
<Filename Value="utriggersform.pas"/>
|
||||
<Caret Line="285" Column="79" TopLine="244"/>
|
||||
<Caret Line="275" Column="17" TopLine="260"/>
|
||||
</Position18>
|
||||
<Position19>
|
||||
<Filename Value="utriggersform.pas"/>
|
||||
<Caret Line="287" Column="88" TopLine="245"/>
|
||||
<Caret Line="161" Column="22" TopLine="150"/>
|
||||
</Position19>
|
||||
<Position20>
|
||||
<Filename Value="utriggersform.pas"/>
|
||||
<Caret Line="275" Column="17" TopLine="260"/>
|
||||
<Caret Line="162" Column="16" TopLine="130"/>
|
||||
</Position20>
|
||||
<Position21>
|
||||
<Filename Value="utriggersform.pas"/>
|
||||
<Caret Line="161" Column="22" TopLine="150"/>
|
||||
<Filename Value="umainform.pas"/>
|
||||
<Caret Line="318" Column="46" TopLine="313"/>
|
||||
</Position21>
|
||||
<Position22>
|
||||
<Filename Value="utriggersform.pas"/>
|
||||
<Caret Line="162" Column="16" TopLine="130"/>
|
||||
<Filename Value="umainform.pas"/>
|
||||
<Caret Line="779" Column="58" TopLine="769"/>
|
||||
</Position22>
|
||||
<Position23>
|
||||
<Filename Value="umainform.pas"/>
|
||||
<Caret Line="318" Column="46" TopLine="313"/>
|
||||
<Caret Line="786" TopLine="769"/>
|
||||
</Position23>
|
||||
<Position24>
|
||||
<Filename Value="umainform.pas"/>
|
||||
<Caret Line="779" Column="58" TopLine="769"/>
|
||||
<Caret Line="1194" Column="27" TopLine="1184"/>
|
||||
</Position24>
|
||||
<Position25>
|
||||
<Filename Value="umainform.pas"/>
|
||||
<Caret Line="786" TopLine="769"/>
|
||||
<Caret Line="400" Column="3" TopLine="392"/>
|
||||
</Position25>
|
||||
<Position26>
|
||||
<Filename Value="umainform.pas"/>
|
||||
<Caret Line="1194" Column="27" TopLine="1184"/>
|
||||
<Caret Line="449" Column="27" TopLine="391"/>
|
||||
</Position26>
|
||||
<Position27>
|
||||
<Filename Value="umainform.pas"/>
|
||||
<Caret Line="400" Column="3" TopLine="392"/>
|
||||
<Caret Line="742" Column="13" TopLine="738"/>
|
||||
</Position27>
|
||||
<Position28>
|
||||
<Filename Value="umainform.pas"/>
|
||||
<Caret Line="449" Column="27" TopLine="391"/>
|
||||
<Caret Line="400" Column="3" TopLine="395"/>
|
||||
</Position28>
|
||||
<Position29>
|
||||
<Filename Value="umainform.pas"/>
|
||||
<Caret Line="742" Column="13" TopLine="738"/>
|
||||
<Caret Line="777" Column="42" TopLine="770"/>
|
||||
</Position29>
|
||||
<Position30>
|
||||
<Filename Value="umainform.pas"/>
|
||||
<Caret Line="400" Column="3" TopLine="395"/>
|
||||
<Filename Value="utriggersform.pas"/>
|
||||
<Caret Line="188" Column="46" TopLine="144"/>
|
||||
</Position30>
|
||||
</JumpHistory>
|
||||
</ProjectSession>
|
||||
|
||||
Binary file not shown.
@ -9,7 +9,7 @@
|
||||
|
||||
[Setup]
|
||||
AppName=Foobot Monitor
|
||||
AppVersion=0.2.0.0
|
||||
AppVersion=0.2.2.0
|
||||
DefaultDirName={pf}\foobotmonitor
|
||||
DefaultGroupName=Foobot
|
||||
UninstallDisplayIcon={app}\foobotmonitor.exe
|
||||
|
||||
Binary file not shown.
Binary file not shown.
@ -851,9 +851,9 @@ object mainform: Tmainform
|
||||
end
|
||||
object mnu_help: TMenuItem
|
||||
Caption = '&Help'
|
||||
object mnu_optionsOnlineHelp: TMenuItem
|
||||
Caption = 'Online Help'
|
||||
OnClick = mnu_optionsOnlineHelpClick
|
||||
object mnu_optionsHomePage: TMenuItem
|
||||
Caption = 'Home Page'
|
||||
OnClick = mnu_optionsHomePageClick
|
||||
end
|
||||
object mnu_helpFoobotAPIPage: TMenuItem
|
||||
Caption = 'Foobot API page'
|
||||
|
||||
@ -28,6 +28,8 @@ V0.0.4.0: Graph added
|
||||
V0.1.0.0: Save/Load Alltime High/Lows. Reset values from menu
|
||||
V0.1.1.0: Save/Load Colours, Min and Max values to cfg file
|
||||
V0.2.1.0: Triggers,Multiple Foobots
|
||||
V0.2.2.0: Trigger config form, SaveLoad recommended values
|
||||
V0.2.3.0: ??
|
||||
}
|
||||
{$ifopt D+}
|
||||
// Debug mode does not load data from web
|
||||
@ -145,7 +147,7 @@ type
|
||||
mnu_optionsDisplayGuagesOnly: TMenuItem;
|
||||
mnu_SampleEveryHalfHour: TMenuItem;
|
||||
mnu_optionsResetHighsLows: TMenuItem;
|
||||
mnu_optionsOnlineHelp: TMenuItem;
|
||||
mnu_optionsHomePage: TMenuItem;
|
||||
mnu_optionsSeperator1: TMenuItem;
|
||||
mnu_helpAbout: TMenuItem;
|
||||
mnu_help: TMenuItem;
|
||||
@ -192,7 +194,7 @@ type
|
||||
procedure mnu_optionsDisplayRedLinesClick(Sender: TObject);
|
||||
procedure mnu_optionsDisplayYellowLinesClick(Sender: TObject);
|
||||
procedure mnu_optionsMinimiseToTrayClick(Sender: TObject);
|
||||
procedure mnu_optionsOnlineHelpClick(Sender: TObject);
|
||||
procedure mnu_optionsHomePageClick(Sender: TObject);
|
||||
procedure mnu_optionsResetHighsLowsClick(Sender: TObject);
|
||||
procedure mnu_optionsSaveHighLowsClick(Sender: TObject);
|
||||
procedure mnu_optionsTakeReadingNowClick(Sender: TObject);
|
||||
@ -711,7 +713,7 @@ begin
|
||||
mainform.FormWindowStateChange(Self);
|
||||
end;
|
||||
|
||||
procedure Tmainform.mnu_optionsOnlineHelpClick(Sender: TObject);
|
||||
procedure Tmainform.mnu_optionsHomePageClick(Sender: TObject);
|
||||
begin
|
||||
OpenURL('http://wiki.freepascal.org/Foobot');
|
||||
end;
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
object triggersform: Ttriggersform
|
||||
Left = 2283
|
||||
Left = 2007
|
||||
Height = 565
|
||||
Top = 82
|
||||
Top = 405
|
||||
Width = 794
|
||||
ActiveControl = edt_newrec_pm
|
||||
BorderIcons = [biSystemMenu]
|
||||
|
||||
@ -1,5 +1,23 @@
|
||||
unit utriggersform;
|
||||
{ Foobot Monitor
|
||||
|
||||
Copyright (C)2016 Gordon Bamber minsadorada@charcodelvalle.com
|
||||
|
||||
This source is free software; you can redistribute it and/or modify it under
|
||||
the terms of the GNU General Public License as published by the Free
|
||||
Software Foundation; either version 2 of the License, or (at your option)
|
||||
any later version.
|
||||
|
||||
This code is distributed in the hope that it will be useful, but WITHOUT ANY
|
||||
WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
|
||||
FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
|
||||
details.
|
||||
|
||||
A copy of the GNU General Public License is available on the World Wide Web
|
||||
at <http://www.gnu.org/copyleft/gpl.html>. You can also obtain it by writing
|
||||
to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
|
||||
MA 02111-1307, USA.
|
||||
}
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
@ -101,12 +119,12 @@ type
|
||||
procedure OnlyNumericKeyPressFloat(Sender: TObject; var Key: char);
|
||||
procedure OnlyNumericKeyPressInteger(Sender: TObject; var Key: char);
|
||||
private
|
||||
ErrorList:TStrings;
|
||||
ErrorList: TStrings;
|
||||
procedure DisplayCurrentValues;
|
||||
procedure SetUpUnits;
|
||||
function AssignAndSaveTriggers:boolean;
|
||||
function AssignAndSaveRecommendedLevels:boolean;
|
||||
function AllInputsVerified:Boolean;
|
||||
function AssignAndSaveTriggers: boolean;
|
||||
function AssignAndSaveRecommendedLevels: boolean;
|
||||
function AllInputsVerified: boolean;
|
||||
public
|
||||
|
||||
end;
|
||||
@ -125,7 +143,7 @@ uses umainform, foobot_utility;
|
||||
procedure Ttriggersform.FormCreate(Sender: TObject);
|
||||
begin
|
||||
Icon := Application.Icon;
|
||||
ErrorList:=TStringList.Create;
|
||||
ErrorList := TStringList.Create;
|
||||
end;
|
||||
|
||||
procedure Ttriggersform.FormDestroy(Sender: TObject);
|
||||
@ -137,10 +155,12 @@ procedure Ttriggersform.FormActivate(Sender: TObject);
|
||||
begin
|
||||
SetUpUnits;
|
||||
end;
|
||||
|
||||
procedure Ttriggersform.FormShow(Sender: TObject);
|
||||
begin
|
||||
Caption := Application.Title + ' - Set Recommended values (for all Foobots) and Triggers (for ' +
|
||||
FoobotIdentityObject.FoobotIdentityList[mainform.iCurrentFoobot].Name + ')';
|
||||
Caption := Application.Title +
|
||||
' - Set Recommended values (for all Foobots) and Triggers (for ' +
|
||||
FoobotIdentityObject.FoobotIdentityList[mainform.iCurrentFoobot].Name + ')';
|
||||
DisplayCurrentValues;
|
||||
ErrorList.Clear;
|
||||
Update;
|
||||
@ -148,77 +168,142 @@ end;
|
||||
// *****************************************************************************
|
||||
|
||||
procedure Ttriggersform.cmd_OKClick(Sender: TObject);
|
||||
var
|
||||
s: string;
|
||||
iCount: integer;
|
||||
begin
|
||||
// VerifyEveryThing then Save to inifiles;
|
||||
IF AssignAndSaveTriggers
|
||||
AND AssignAndSaveRecommendedLevels
|
||||
AND AllInputsVerified then
|
||||
if AllInputsVerified then
|
||||
begin
|
||||
ModalResult:=mrClose;
|
||||
AssignAndSaveTriggers;
|
||||
AssignAndSaveRecommendedLevels;
|
||||
ModalResult := mrClose;
|
||||
Close;
|
||||
end
|
||||
else
|
||||
begin
|
||||
ModalResult:=mrNone;
|
||||
ShowMessage('Wont close');
|
||||
ModalResult := mrNone;
|
||||
s := '';
|
||||
if (ErrorList.Count > 0) then
|
||||
for iCount := 0 to Pred(ErrorList.Count) do
|
||||
s := s + '* ' + ErrorList[iCount] + LineEnding;
|
||||
MessageDlg('Problems listed below', s, mtError, [mbOK], 0);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure Ttriggersform.OnlyNumericKeyPressInteger(Sender: TObject; var Key: char);
|
||||
begin
|
||||
if not (Key in ['0'..'9', #8, #9]) then Key := #0;
|
||||
if not (Key in ['0'..'9', #8, #9]) then
|
||||
Key := #0;
|
||||
end;
|
||||
|
||||
procedure Ttriggersform.OnlyNumericKeyPressFloat(Sender: TObject; var Key: char);
|
||||
begin
|
||||
if not (Key in ['0'..'9', '.', #8, #9]) then Key := #0;
|
||||
if not (Key in ['0'..'9', '.', #8, #9]) then
|
||||
Key := #0;
|
||||
end;
|
||||
|
||||
function Ttriggersform.AllInputsVerified:Boolean;
|
||||
function Ttriggersform.AllInputsVerified: boolean;
|
||||
begin
|
||||
Result:=TRUE;
|
||||
ErrorList.Clear;
|
||||
// Low triggers bigger than high triggers
|
||||
If StrToFloat(edt_newlowtrigger_pm.Text) > StrToFloat(edt_newhightrigger_pm.Text) then
|
||||
ErrorList.Add('Particulates low trigger is greater than the high trigger');
|
||||
If StrToFloat(edt_newlowtrigger_tmp.Text) > StrToFloat(edt_newhightrigger_tmp.Text) then
|
||||
ErrorList.Add('Temperature low trigger is greater than the high trigger');
|
||||
If StrToFloat(edt_newlowtrigger_hum.Text) > StrToFloat(edt_newhightrigger_hum.Text) then
|
||||
ErrorList.Add('Humidity low trigger is greater than the high trigger');
|
||||
If StrToFloat(edt_newlowtrigger_co2.Text) > StrToFloat(edt_newhightrigger_co2.Text) then
|
||||
ErrorList.Add('CO2 low trigger is greater than the high trigger');
|
||||
If StrToFloat(edt_newlowtrigger_voc.Text) > StrToFloat(edt_newhightrigger_voc.Text) then
|
||||
ErrorList.Add('Volatile compounds low trigger is greater than the high trigger');
|
||||
If StrToFloat(edt_newlowtrigger_allpollu.Text) > StrToFloat(edt_newhightrigger_allpollu.Text) then
|
||||
ErrorList.Add('All Pollution low trigger is greater than the high trigger');
|
||||
// Recommended levels bigger than high triggers
|
||||
If StrToFloat(edt_newrec_pm.Text) > StrToFloat(edt_newhightrigger_pm.Text) then
|
||||
ErrorList.Add('Particulates recommended level is greater than the high trigger');
|
||||
If StrToFloat(edt_newrec_tmp.Text) > StrToFloat(edt_newhightrigger_tmp.Text) then
|
||||
ErrorList.Add('Temperature recommended level is greater than the high trigger');
|
||||
If StrToFloat(edt_newrec_hum.Text) > StrToFloat(edt_newhightrigger_hum.Text) then
|
||||
ErrorList.Add('Humidity recommended level is greater than the high trigger');
|
||||
If StrToFloat(edt_newrec_co2.Text) > StrToFloat(edt_newhightrigger_co2.Text) then
|
||||
ErrorList.Add('CO2 recommended level is greater than the high trigger');
|
||||
If StrToFloat(edt_newrec_voc.Text) > StrToFloat(edt_newhightrigger_voc.Text) then
|
||||
ErrorList.Add('Volatile compounds recommended level is greater than the high trigger');
|
||||
If StrToFloat(edt_newrec_allpollu.Text) > StrToFloat(edt_newhightrigger_allpollu.Text) then
|
||||
ErrorList.Add('All Pollution recommended level is greater than the high trigger');
|
||||
// Recommended levels lower than low trigger
|
||||
If StrToFloat(edt_newrec_pm.Text) < StrToFloat(edt_newlowtrigger_pm.Text) then
|
||||
ErrorList.Add('Particulates recommended level is less than the low trigger');
|
||||
If StrToFloat(edt_newrec_tmp.Text) < StrToFloat(edt_newlowtrigger_tmp.Text) then
|
||||
ErrorList.Add('Temperature recommended level is less than the low trigger');
|
||||
If StrToFloat(edt_newrec_hum.Text) < StrToFloat(edt_newlowtrigger_hum.Text) then
|
||||
ErrorList.Add('Humidity recommended level is less than the low trigger');
|
||||
If StrToFloat(edt_newrec_co2.Text) < StrToFloat(edt_newlowtrigger_co2.Text) then
|
||||
ErrorList.Add('CO2 recommended level is less than the low trigger');
|
||||
If StrToFloat(edt_newrec_voc.Text) < StrToFloat(edt_newlowtrigger_voc.Text) then
|
||||
ErrorList.Add('Volatile compounds recommended level is less than the low trigger');
|
||||
If StrToFloat(edt_newrec_allpollu.Text) < StrToFloat(edt_newlowtrigger_allpollu.Text) then
|
||||
ErrorList.Add('All Pollution recommended level is less than the low trigger');
|
||||
|
||||
// CO2 and Voc lowtrigger or rec level lower than sensor minimum
|
||||
If StrToFloat(edt_newlowtrigger_co2.Text) < 450 then
|
||||
ErrorList.Add('CO2 low trigger cannot be below 450');
|
||||
If StrToFloat(edt_newlowtrigger_voc.Text) < 125 then
|
||||
ErrorList.Add('Volatile compounds low trigger cannot be below 125');
|
||||
If StrToFloat(edt_newrec_co2.Text) < 450 then
|
||||
ErrorList.Add('CO2 recommended level cannot be below 450');
|
||||
If StrToFloat(edt_newrec_voc.Text) < 125 then
|
||||
ErrorList.Add('Volatile compounds recommended level cannot be below 125');
|
||||
|
||||
If (ErrorList.Count > 0) then Result:=FALSE
|
||||
else Result := True;
|
||||
end;
|
||||
|
||||
function Ttriggersform.AssignAndSaveTriggers:boolean;
|
||||
function Ttriggersform.AssignAndSaveTriggers: boolean;
|
||||
begin
|
||||
Result:=FALSE;
|
||||
TRY
|
||||
FooBotTriggerArray[C_HIGH, C_PM]:=StrToFloat(edt_newhightrigger_pm.text);
|
||||
FooBotTriggerArray[C_LOW, C_PM]:=StrToFloat(edt_newlowtrigger_pm.text);
|
||||
FooBotTriggerArray[C_HIGH, C_TMP]:=StrToFloat(edt_newhightrigger_tmp.text);
|
||||
FooBotTriggerArray[C_LOW, C_TMP]:=StrToFloat(edt_newlowtrigger_tmp.text);
|
||||
FooBotTriggerArray[C_HIGH, C_HUM]:=StrToFloat(edt_newhightrigger_hum.text);
|
||||
FooBotTriggerArray[C_LOW, C_HUM]:=StrToFloat(edt_newlowtrigger_hum.text);
|
||||
FooBotTriggerArray[C_HIGH, C_CO2]:=StrToInt(edt_newhightrigger_co2.text);
|
||||
FooBotTriggerArray[C_LOW, C_CO2]:=StrToInt(edt_newlowtrigger_co2.text);
|
||||
FooBotTriggerArray[C_HIGH, C_VOC]:=StrToInt(edt_newhightrigger_voc.text);
|
||||
FooBotTriggerArray[C_LOW, C_VOC]:=StrToInt(edt_newlowtrigger_voc.text);
|
||||
FooBotTriggerArray[C_HIGH, C_ALLPOLLU]:=StrToFloat(edt_newhightrigger_allpollu.text);
|
||||
FooBotTriggerArray[C_LOW, C_ALLPOLLU]:=StrToFloat(edt_newlowtrigger_allpollu.text);
|
||||
Result := False;
|
||||
try
|
||||
FooBotTriggerArray[C_HIGH, C_PM] := StrToFloat(edt_newhightrigger_pm.Text);
|
||||
FooBotTriggerArray[C_LOW, C_PM] := StrToFloat(edt_newlowtrigger_pm.Text);
|
||||
FooBotTriggerArray[C_HIGH, C_TMP] := StrToFloat(edt_newhightrigger_tmp.Text);
|
||||
FooBotTriggerArray[C_LOW, C_TMP] := StrToFloat(edt_newlowtrigger_tmp.Text);
|
||||
FooBotTriggerArray[C_HIGH, C_HUM] := StrToFloat(edt_newhightrigger_hum.Text);
|
||||
FooBotTriggerArray[C_LOW, C_HUM] := StrToFloat(edt_newlowtrigger_hum.Text);
|
||||
FooBotTriggerArray[C_HIGH, C_CO2] := StrToInt(edt_newhightrigger_co2.Text);
|
||||
FooBotTriggerArray[C_LOW, C_CO2] := StrToInt(edt_newlowtrigger_co2.Text);
|
||||
FooBotTriggerArray[C_HIGH, C_VOC] := StrToInt(edt_newhightrigger_voc.Text);
|
||||
FooBotTriggerArray[C_LOW, C_VOC] := StrToInt(edt_newlowtrigger_voc.Text);
|
||||
FooBotTriggerArray[C_HIGH, C_ALLPOLLU] := StrToFloat(edt_newhightrigger_allpollu.Text);
|
||||
FooBotTriggerArray[C_LOW, C_ALLPOLLU] := StrToFloat(edt_newlowtrigger_allpollu.Text);
|
||||
except
|
||||
raise exception.create('Error in AssignAndSaveTriggers');
|
||||
raise Exception.Create('Error in AssignAndSaveTriggers');
|
||||
Exit;
|
||||
end;
|
||||
If NOT SaveTriggers then ErrorList.Add('Unable to save new triggers to disk')
|
||||
else Result:=TRUE;
|
||||
if not SaveTriggers then
|
||||
ErrorList.Add('Unable to save new triggers to disk')
|
||||
else
|
||||
Result := True;
|
||||
end;
|
||||
|
||||
function Ttriggersform.AssignAndSaveRecommendedLevels:boolean;
|
||||
function Ttriggersform.AssignAndSaveRecommendedLevels: boolean;
|
||||
begin
|
||||
Result:=FALSE;
|
||||
TRY
|
||||
RecommendedLevelsArray[C_PM]:=StrToFloat(edt_newrec_pm.Text);
|
||||
RecommendedLevelsArray[C_TMP]:=StrToFloat(edt_newrec_tmp.Text);
|
||||
RecommendedLevelsArray[C_HUM]:=StrToFloat(edt_newrec_hum.Text);
|
||||
RecommendedLevelsArray[C_CO2]:=StrToFloat(edt_newrec_co2.Text);
|
||||
RecommendedLevelsArray[C_VOC]:=StrToFloat(edt_newrec_voc.Text);
|
||||
RecommendedLevelsArray[C_ALLPOLLU]:=StrToFloat(edt_newrec_allpollu.Text);
|
||||
Result := False;
|
||||
try
|
||||
RecommendedLevelsArray[C_PM] := StrToFloat(edt_newrec_pm.Text);
|
||||
RecommendedLevelsArray[C_TMP] := StrToFloat(edt_newrec_tmp.Text);
|
||||
RecommendedLevelsArray[C_HUM] := StrToFloat(edt_newrec_hum.Text);
|
||||
RecommendedLevelsArray[C_CO2] := StrToFloat(edt_newrec_co2.Text);
|
||||
RecommendedLevelsArray[C_VOC] := StrToFloat(edt_newrec_voc.Text);
|
||||
RecommendedLevelsArray[C_ALLPOLLU] := StrToFloat(edt_newrec_allpollu.Text);
|
||||
except
|
||||
raise exception.create('Error in AssignAndSaveRecommendedLevels');
|
||||
raise Exception.Create('Error in AssignAndSaveRecommendedLevels');
|
||||
Exit;
|
||||
end;
|
||||
If NOT SaveRecommendedLevels then ErrorList.Add('Unable to save new recommended levels to disk')
|
||||
else Result:=TRUE;
|
||||
if not SaveRecommendedLevels then
|
||||
ErrorList.Add('Unable to save new recommended levels to disk')
|
||||
else
|
||||
Result := True;
|
||||
end;
|
||||
|
||||
procedure Ttriggersform.DisplayCurrentValues;
|
||||
@ -228,20 +313,20 @@ begin
|
||||
{$ENDIF}
|
||||
// Recommended levels
|
||||
lbl_currentrec_pm.Caption :=
|
||||
Format('Current recommended level: %.1f %s', [RecommendedLevelsArray[C_PM],
|
||||
FoobotDataObject.Units[C_PM]]);
|
||||
Format('Current recommended level: %.1f %s',
|
||||
[RecommendedLevelsArray[C_PM], FoobotDataObject.Units[C_PM]]);
|
||||
lbl_currentrec_tmp.Caption :=
|
||||
Format('Current recommended level: %.1f %s', [RecommendedLevelsArray[C_TMP],
|
||||
FoobotDataObject.Units[C_TMP]]);
|
||||
Format('Current recommended level: %.1f %s',
|
||||
[RecommendedLevelsArray[C_TMP], FoobotDataObject.Units[C_TMP]]);
|
||||
lbl_currentrec_hum.Caption :=
|
||||
Format('Current recommended level: %.1f %s', [RecommendedLevelsArray[C_HUM],
|
||||
FoobotDataObject.Units[C_HUM]]);
|
||||
Format('Current recommended level: %.1f %s',
|
||||
[RecommendedLevelsArray[C_HUM], FoobotDataObject.Units[C_HUM]]);
|
||||
lbl_currentrec_co2.Caption :=
|
||||
Format('Current recommended level: %.0f %s', [RecommendedLevelsArray[C_CO2],
|
||||
FoobotDataObject.Units[C_CO2]]);
|
||||
Format('Current recommended level: %.0f %s',
|
||||
[RecommendedLevelsArray[C_CO2], FoobotDataObject.Units[C_CO2]]);
|
||||
lbl_currentrec_voc.Caption :=
|
||||
Format('Current recommended level: %.0f %s', [RecommendedLevelsArray[C_VOC],
|
||||
FoobotDataObject.Units[C_VOC]]);
|
||||
Format('Current recommended level: %.0f %s',
|
||||
[RecommendedLevelsArray[C_VOC], FoobotDataObject.Units[C_VOC]]);
|
||||
lbl_currentrec_allpollu.Caption :=
|
||||
Format('Current recommended level: %.1f %s',
|
||||
[RecommendedLevelsArray[C_ALLPOLLU], FoobotDataObject.Units[C_ALLPOLLU]]);
|
||||
@ -287,26 +372,32 @@ begin
|
||||
|
||||
// Assign Edit control values
|
||||
// Recommended
|
||||
edt_newrec_pm.Text:=Format('%.1f', [RecommendedLevelsArray[C_PM]]);
|
||||
edt_newrec_tmp.Text:=Format('%.1f', [RecommendedLevelsArray[C_TMP]]);
|
||||
edt_newrec_hum.Text:=Format('%.1f', [RecommendedLevelsArray[C_HUM]]);
|
||||
edt_newrec_co2.Text:=Format('%.0f', [RecommendedLevelsArray[C_CO2]]);
|
||||
edt_newrec_voc.Text:=Format('%.0f', [RecommendedLevelsArray[C_VOC]]);
|
||||
edt_newrec_allpollu.Text:=Format('%.1f', [RecommendedLevelsArray[C_ALLPOLLU]]);
|
||||
// HighTrigger
|
||||
edt_newhightrigger_pm.Text:=Format('%.1f',[double(FooBotTriggerArray[C_HIGH, C_PM])]);
|
||||
edt_newhightrigger_tmp.Text:=Format('%.1f',[double(FooBotTriggerArray[C_HIGH, C_TMP])]);
|
||||
edt_newhightrigger_hum.Text:=Format('%.1f',[double(FooBotTriggerArray[C_HIGH, C_HUM])]);
|
||||
edt_newhightrigger_co2.Text:=Format('%.0f',[double(FooBotTriggerArray[C_HIGH, C_CO2])]);
|
||||
edt_newhightrigger_voc.Text:=Format('%.0f',[double(FooBotTriggerArray[C_HIGH, C_VOC])]);
|
||||
edt_newhightrigger_allpollu.Text:=Format('%.1f',[double(FooBotTriggerArray[C_HIGH, C_ALLPOLLU])]);
|
||||
// LowTrigger
|
||||
edt_newlowtrigger_pm.Text:=Format('%.1f',[double(FooBotTriggerArray[C_LOW, C_PM])]);
|
||||
edt_newlowtrigger_tmp.Text:=Format('%.1f',[double(FooBotTriggerArray[C_LOW, C_TMP])]);
|
||||
edt_newlowtrigger_hum.Text:=Format('%.1f',[double(FooBotTriggerArray[C_LOW, C_HUM])]);
|
||||
edt_newlowtrigger_co2.Text:=Format('%.0f',[double(FooBotTriggerArray[C_LOW, C_CO2])]);
|
||||
edt_newlowtrigger_voc.Text:=Format('%.0f',[double(FooBotTriggerArray[C_LOW, C_VOC])]);
|
||||
edt_newlowtrigger_allpollu.Text:=Format('%.1f',[double(FooBotTriggerArray[C_LOW, C_ALLPOLLU])]);
|
||||
edt_newrec_pm.Text := Format('%.1f', [RecommendedLevelsArray[C_PM]]);
|
||||
edt_newrec_tmp.Text := Format('%.1f', [RecommendedLevelsArray[C_TMP]]);
|
||||
edt_newrec_hum.Text := Format('%.1f', [RecommendedLevelsArray[C_HUM]]);
|
||||
edt_newrec_co2.Text := Format('%.0f', [RecommendedLevelsArray[C_CO2]]);
|
||||
edt_newrec_voc.Text := Format('%.0f', [RecommendedLevelsArray[C_VOC]]);
|
||||
edt_newrec_allpollu.Text := Format('%.1f', [RecommendedLevelsArray[C_ALLPOLLU]]);
|
||||
// HighTrigger
|
||||
edt_newhightrigger_pm.Text := Format('%.1f', [double(FooBotTriggerArray[C_HIGH, C_PM])]);
|
||||
edt_newhightrigger_tmp.Text :=
|
||||
Format('%.1f', [double(FooBotTriggerArray[C_HIGH, C_TMP])]);
|
||||
edt_newhightrigger_hum.Text :=
|
||||
Format('%.1f', [double(FooBotTriggerArray[C_HIGH, C_HUM])]);
|
||||
edt_newhightrigger_co2.Text :=
|
||||
Format('%.0f', [double(FooBotTriggerArray[C_HIGH, C_CO2])]);
|
||||
edt_newhightrigger_voc.Text :=
|
||||
Format('%.0f', [double(FooBotTriggerArray[C_HIGH, C_VOC])]);
|
||||
edt_newhightrigger_allpollu.Text :=
|
||||
Format('%.1f', [double(FooBotTriggerArray[C_HIGH, C_ALLPOLLU])]);
|
||||
// LowTrigger
|
||||
edt_newlowtrigger_pm.Text := Format('%.1f', [double(FooBotTriggerArray[C_LOW, C_PM])]);
|
||||
edt_newlowtrigger_tmp.Text := Format('%.1f', [double(FooBotTriggerArray[C_LOW, C_TMP])]);
|
||||
edt_newlowtrigger_hum.Text := Format('%.1f', [double(FooBotTriggerArray[C_LOW, C_HUM])]);
|
||||
edt_newlowtrigger_co2.Text := Format('%.0f', [double(FooBotTriggerArray[C_LOW, C_CO2])]);
|
||||
edt_newlowtrigger_voc.Text := Format('%.0f', [double(FooBotTriggerArray[C_LOW, C_VOC])]);
|
||||
edt_newlowtrigger_allpollu.Text :=
|
||||
Format('%.1f', [double(FooBotTriggerArray[C_LOW, C_ALLPOLLU])]);
|
||||
|
||||
end;
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user