You've already forked lazarus-ccr
V0.2.2.0: work-in-progress. Triggerform layout done
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5615 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
@ -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>
|
||||||
|
@ -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
|
||||||
|
@ -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,9 +774,13 @@ 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);
|
||||||
|
@ -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
|
||||||
|
@ -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;
|
||||||
|
@ -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
|
||||||
|
@ -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,16 +108,128 @@ var
|
|||||||
triggersform: Ttriggersform;
|
triggersform: Ttriggersform;
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
Uses umainform;
|
|
||||||
|
uses umainform, foobot_utility;
|
||||||
|
|
||||||
{$R *.lfm}
|
{$R *.lfm}
|
||||||
|
|
||||||
{ Ttriggersform }
|
{ Ttriggersform }
|
||||||
|
|
||||||
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.
|
||||||
|
|
||||||
|
Reference in New Issue
Block a user