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

V0.2.2.0: Work-in-progress. ToDo: finish triggerform processing

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5616 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
gbamber
2017-01-09 15:46:31 +00:00
parent 9ef0b4c9ee
commit a6ba417169
4 changed files with 136 additions and 93 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -8,9 +8,9 @@
<Unit0> <Unit0>
<Filename Value="foobotmonitor.lpr"/> <Filename Value="foobotmonitor.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<EditorIndex Value="13"/> <EditorIndex Value="12"/>
<CursorPos Y="35"/> <CursorPos Y="35"/>
<UsageCount Value="124"/> <UsageCount Value="127"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
@ -19,9 +19,9 @@
<ComponentName Value="mainform"/> <ComponentName Value="mainform"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<TopLine Value="773"/> <TopLine Value="774"/>
<CursorPos X="22" Y="778"/> <CursorPos X="66" Y="776"/>
<UsageCount Value="124"/> <UsageCount Value="127"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
</Unit1> </Unit1>
@ -31,10 +31,10 @@
<ComponentName Value="configform"/> <ComponentName Value="configform"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<EditorIndex Value="8"/> <EditorIndex Value="7"/>
<TopLine Value="33"/> <TopLine Value="33"/>
<CursorPos X="41" Y="45"/> <CursorPos X="41" Y="45"/>
<UsageCount Value="114"/> <UsageCount Value="117"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
</Unit2> </Unit2>
@ -44,7 +44,7 @@
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<TopLine Value="13"/> <TopLine Value="13"/>
<CursorPos X="49" Y="20"/> <CursorPos X="49" Y="20"/>
<UsageCount Value="106"/> <UsageCount Value="109"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit3> </Unit3>
<Unit4> <Unit4>
@ -54,15 +54,15 @@
<WindowIndex Value="-1"/> <WindowIndex Value="-1"/>
<TopLine Value="-1"/> <TopLine Value="-1"/>
<CursorPos X="-1" Y="-1"/> <CursorPos X="-1" Y="-1"/>
<UsageCount Value="106"/> <UsageCount Value="109"/>
</Unit4> </Unit4>
<Unit5> <Unit5>
<Filename Value="..\foobot_utility.pas"/> <Filename Value="..\foobot_utility.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<EditorIndex Value="10"/> <EditorIndex Value="9"/>
<TopLine Value="129"/> <TopLine Value="129"/>
<CursorPos X="49" Y="212"/> <CursorPos X="49" Y="212"/>
<UsageCount Value="124"/> <UsageCount Value="127"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit5> </Unit5>
<Unit6> <Unit6>
@ -72,16 +72,15 @@
<WindowIndex Value="-1"/> <WindowIndex Value="-1"/>
<TopLine Value="-1"/> <TopLine Value="-1"/>
<CursorPos X="-1" Y="-1"/> <CursorPos X="-1" Y="-1"/>
<UsageCount Value="106"/> <UsageCount Value="109"/>
</Unit6> </Unit6>
<Unit7> <Unit7>
<Filename Value="foobot_sensors.pas"/> <Filename Value="foobot_sensors.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<EditorIndex Value="5"/> <EditorIndex Value="-1"/>
<TopLine Value="299"/> <TopLine Value="299"/>
<CursorPos X="14" Y="321"/> <CursorPos X="14" Y="321"/>
<UsageCount Value="58"/> <UsageCount Value="61"/>
<Loaded Value="True"/>
</Unit7> </Unit7>
<Unit8> <Unit8>
<Filename Value="usplash.pas"/> <Filename Value="usplash.pas"/>
@ -90,9 +89,10 @@
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<EditorIndex Value="3"/> <EditorIndex Value="3"/>
<CursorPos X="9" Y="33"/> <CursorPos X="48" Y="37"/>
<UsageCount Value="53"/> <UsageCount Value="56"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit8> </Unit8>
<Unit9> <Unit9>
<Filename Value="utriggersform.pas"/> <Filename Value="utriggersform.pas"/>
@ -102,26 +102,26 @@
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<IsVisibleTab Value="True"/> <IsVisibleTab Value="True"/>
<EditorIndex Value="2"/> <EditorIndex Value="2"/>
<TopLine Value="148"/> <TopLine Value="137"/>
<CursorPos X="76" Y="203"/> <CursorPos X="45" Y="139"/>
<UsageCount Value="44"/> <UsageCount Value="47"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
</Unit9> </Unit9>
<Unit10> <Unit10>
<Filename Value="..\latest_stable\foobot_httpclient.pas"/> <Filename Value="..\latest_stable\foobot_httpclient.pas"/>
<EditorIndex Value="9"/> <EditorIndex Value="8"/>
<TopLine Value="43"/> <TopLine Value="43"/>
<CursorPos X="47" Y="13"/> <CursorPos X="47" Y="13"/>
<UsageCount Value="77"/> <UsageCount Value="78"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit10> </Unit10>
<Unit11> <Unit11>
<Filename Value="..\latest_stable\foobot_objects.pas"/> <Filename Value="..\latest_stable\foobot_objects.pas"/>
<EditorIndex Value="12"/> <EditorIndex Value="11"/>
<TopLine Value="143"/> <TopLine Value="141"/>
<CursorPos X="35" Y="59"/> <CursorPos X="31" Y="148"/>
<UsageCount Value="77"/> <UsageCount Value="78"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit11> </Unit11>
<Unit12> <Unit12>
@ -130,12 +130,12 @@
<WindowIndex Value="-1"/> <WindowIndex Value="-1"/>
<TopLine Value="-1"/> <TopLine Value="-1"/>
<CursorPos X="-1" Y="-1"/> <CursorPos X="-1" Y="-1"/>
<UsageCount Value="34"/> <UsageCount Value="33"/>
</Unit12> </Unit12>
<Unit13> <Unit13>
<Filename Value="..\latest_stable\umainform.lfm"/> <Filename Value="..\latest_stable\umainform.lfm"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<UsageCount Value="6"/> <UsageCount Value="5"/>
<DefaultSyntaxHighlighter Value="LFM"/> <DefaultSyntaxHighlighter Value="LFM"/>
</Unit13> </Unit13>
<Unit14> <Unit14>
@ -143,21 +143,21 @@
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="10"/> <TopLine Value="10"/>
<CursorPos X="57" Y="36"/> <CursorPos X="57" Y="36"/>
<UsageCount Value="6"/> <UsageCount Value="5"/>
</Unit14> </Unit14>
<Unit15> <Unit15>
<Filename Value="..\udataform.pas"/> <Filename Value="..\udataform.pas"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="74"/> <TopLine Value="74"/>
<CursorPos Y="96"/> <CursorPos Y="96"/>
<UsageCount Value="14"/> <UsageCount Value="13"/>
</Unit15> </Unit15>
<Unit16> <Unit16>
<Filename Value="..\umainform.pas"/> <Filename Value="..\umainform.pas"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="145"/> <TopLine Value="145"/>
<CursorPos X="81" Y="158"/> <CursorPos X="81" Y="158"/>
<UsageCount Value="42"/> <UsageCount Value="41"/>
</Unit16> </Unit16>
<Unit17> <Unit17>
<Filename Value="C:\trunklatest\lazarus\lcl\lclmessageglue.pas"/> <Filename Value="C:\trunklatest\lazarus\lcl\lclmessageglue.pas"/>
@ -165,34 +165,34 @@
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="93"/> <TopLine Value="93"/>
<CursorPos Y="114"/> <CursorPos Y="114"/>
<UsageCount Value="6"/> <UsageCount Value="5"/>
</Unit17> </Unit17>
<Unit18> <Unit18>
<Filename Value="..\ulogin.pas"/> <Filename Value="..\ulogin.pas"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<CursorPos Y="108"/> <CursorPos Y="108"/>
<UsageCount Value="9"/> <UsageCount Value="8"/>
</Unit18> </Unit18>
<Unit19> <Unit19>
<Filename Value="..\..\..\components\cryptini\latest_stable\ucryptini.pas"/> <Filename Value="..\..\..\components\cryptini\latest_stable\ucryptini.pas"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="906"/> <TopLine Value="906"/>
<CursorPos X="8" Y="939"/> <CursorPos X="8" Y="939"/>
<UsageCount Value="7"/> <UsageCount Value="6"/>
</Unit19> </Unit19>
<Unit20> <Unit20>
<Filename Value="..\backup\foobot_utility.pas"/> <Filename Value="..\backup\foobot_utility.pas"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="7"/> <TopLine Value="7"/>
<UsageCount Value="6"/> <UsageCount Value="5"/>
</Unit20> </Unit20>
<Unit21> <Unit21>
<Filename Value="C:\trunklatest\lazarus\ide\lazarus.pp"/> <Filename Value="C:\trunklatest\lazarus\ide\lazarus.pp"/>
<UnitName Value="Lazarus"/> <UnitName Value="Lazarus"/>
<EditorIndex Value="6"/> <EditorIndex Value="5"/>
<TopLine Value="101"/> <TopLine Value="101"/>
<CursorPos Y="154"/> <CursorPos Y="154"/>
<UsageCount Value="28"/> <UsageCount Value="29"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit21> </Unit21>
<Unit22> <Unit22>
@ -200,35 +200,35 @@
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="11"/> <TopLine Value="11"/>
<CursorPos X="8" Y="33"/> <CursorPos X="8" Y="33"/>
<UsageCount Value="7"/> <UsageCount Value="6"/>
</Unit22> </Unit22>
<Unit23> <Unit23>
<Filename Value="D:\Lazarusprojects\healthmonitor\svn\healthanalysis\healthanalysis\umainform.pas"/> <Filename Value="D:\Lazarusprojects\healthmonitor\svn\healthanalysis\healthanalysis\umainform.pas"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="540"/> <TopLine Value="540"/>
<CursorPos X="55" Y="593"/> <CursorPos X="55" Y="593"/>
<UsageCount Value="7"/> <UsageCount Value="6"/>
</Unit23> </Unit23>
<Unit24> <Unit24>
<Filename Value="C:\trunklatest\fpc\rtl\objpas\sysutils\datih.inc"/> <Filename Value="C:\trunklatest\fpc\rtl\objpas\sysutils\datih.inc"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="109"/> <TopLine Value="109"/>
<CursorPos X="10" Y="128"/> <CursorPos X="10" Y="128"/>
<UsageCount Value="6"/> <UsageCount Value="5"/>
</Unit24> </Unit24>
<Unit25> <Unit25>
<Filename Value="C:\trunklatest\fpc\packages\rtl-objpas\src\inc\dateutil.inc"/> <Filename Value="C:\trunklatest\fpc\packages\rtl-objpas\src\inc\dateutil.inc"/>
<EditorIndex Value="11"/> <EditorIndex Value="10"/>
<TopLine Value="381"/> <TopLine Value="381"/>
<CursorPos X="13" Y="384"/> <CursorPos X="13" Y="384"/>
<UsageCount Value="46"/> <UsageCount Value="47"/>
<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="6"/>
<TopLine Value="70"/> <TopLine Value="70"/>
<UsageCount Value="46"/> <UsageCount Value="47"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit26> </Unit26>
<Unit27> <Unit27>
@ -236,20 +236,20 @@
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="781"/> <TopLine Value="781"/>
<CursorPos X="28" Y="795"/> <CursorPos X="28" Y="795"/>
<UsageCount Value="21"/> <UsageCount Value="20"/>
</Unit27> </Unit27>
<Unit28> <Unit28>
<Filename Value="C:\trunklatest\fpc\packages\fcl-base\src\fileinfo.pp"/> <Filename Value="C:\trunklatest\fpc\packages\fcl-base\src\fileinfo.pp"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="43"/> <TopLine Value="43"/>
<CursorPos X="19" Y="51"/> <CursorPos X="19" Y="51"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit28> </Unit28>
<Unit29> <Unit29>
<Filename Value="C:\trunklatest\lazarus\components\IndustrialStuff\industrial.pas"/> <Filename Value="C:\trunklatest\lazarus\components\IndustrialStuff\industrial.pas"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<CursorPos X="18" Y="11"/> <CursorPos X="18" Y="11"/>
<UsageCount Value="8"/> <UsageCount Value="7"/>
</Unit29> </Unit29>
<Unit30> <Unit30>
<Filename Value="..\..\..\components\poweredby\latest_stable\upoweredby.pas"/> <Filename Value="..\..\..\components\poweredby\latest_stable\upoweredby.pas"/>
@ -257,14 +257,14 @@
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="190"/> <TopLine Value="190"/>
<CursorPos X="33" Y="205"/> <CursorPos X="33" Y="205"/>
<UsageCount Value="18"/> <UsageCount Value="17"/>
</Unit30> </Unit30>
<Unit31> <Unit31>
<Filename Value="C:\trunklatest\lazarus\lcl\include\customform.inc"/> <Filename Value="C:\trunklatest\lazarus\lcl\include\customform.inc"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="2228"/> <TopLine Value="2228"/>
<CursorPos X="14" Y="2239"/> <CursorPos X="14" Y="2239"/>
<UsageCount Value="8"/> <UsageCount Value="7"/>
</Unit31> </Unit31>
<Unit32> <Unit32>
<Filename Value="C:\trunklatest\lazarus\lcl\graphics.pp"/> <Filename Value="C:\trunklatest\lazarus\lcl\graphics.pp"/>
@ -272,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="24"/> <UsageCount Value="25"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit32> </Unit32>
<Unit33> <Unit33>
@ -280,130 +280,130 @@
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="119"/> <TopLine Value="119"/>
<CursorPos Y="151"/> <CursorPos Y="151"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
<DefaultSyntaxHighlighter Value="LFM"/> <DefaultSyntaxHighlighter Value="LFM"/>
</Unit33> </Unit33>
</Units> </Units>
<JumpHistory Count="30" HistoryIndex="29"> <JumpHistory Count="30" HistoryIndex="29">
<Position1> <Position1>
<Filename Value="utriggersform.pas"/> <Filename Value="utriggersform.pas"/>
<Caret Line="117" Column="34" TopLine="73"/> <Caret Line="133" Column="34" TopLine="89"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="utriggersform.pas"/> <Filename Value="utriggersform.pas"/>
<Caret Line="116" Column="34" TopLine="72"/> <Caret Line="134" Column="34" TopLine="90"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="utriggersform.pas"/> <Filename Value="utriggersform.pas"/>
<Caret Line="115" Column="34" TopLine="71"/> <Caret Line="135" Column="34" TopLine="91"/>
</Position3> </Position3>
<Position4> <Position4>
<Filename Value="utriggersform.pas"/> <Filename Value="utriggersform.pas"/>
<Caret Line="116" Column="34" TopLine="72"/> <Caret Line="136" Column="34" TopLine="92"/>
</Position4> </Position4>
<Position5> <Position5>
<Filename Value="utriggersform.pas"/> <Filename Value="utriggersform.pas"/>
<Caret Line="117" Column="34" TopLine="73"/> <Caret Line="139" Column="34" TopLine="95"/>
</Position5> </Position5>
<Position6> <Position6>
<Filename Value="utriggersform.pas"/> <Filename Value="utriggersform.pas"/>
<Caret Line="118" Column="34" TopLine="74"/> <Caret Line="142" Column="34" TopLine="98"/>
</Position6> </Position6>
<Position7> <Position7>
<Filename Value="utriggersform.pas"/> <Filename Value="utriggersform.pas"/>
<Caret Line="121" Column="34" TopLine="77"/> <Caret Line="145" Column="34" TopLine="101"/>
</Position7> </Position7>
<Position8> <Position8>
<Filename Value="utriggersform.pas"/> <Filename Value="utriggersform.pas"/>
<Caret Line="124" Column="34" TopLine="80"/> <Caret Line="148" Column="34" TopLine="104"/>
</Position8> </Position8>
<Position9> <Position9>
<Filename Value="utriggersform.pas"/> <Filename Value="utriggersform.pas"/>
<Caret Line="127" Column="34" TopLine="83"/> <Caret Line="151" Column="34" TopLine="107"/>
</Position9> </Position9>
<Position10> <Position10>
<Filename Value="utriggersform.pas"/> <Filename Value="utriggersform.pas"/>
<Caret Line="130" Column="34" TopLine="86"/> <Caret Line="18" Column="18" TopLine="11"/>
</Position10> </Position10>
<Position11> <Position11>
<Filename Value="utriggersform.pas"/> <Filename Value="utriggersform.pas"/>
<Caret Line="133" Column="34" TopLine="89"/> <Caret Line="124" Column="6" TopLine="83"/>
</Position11> </Position11>
<Position12> <Position12>
<Filename Value="usplash.pas"/> <Filename Value="utriggersform.pas"/>
<Caret Line="43" Column="28"/> <Caret Line="101" Column="26" TopLine="74"/>
</Position12> </Position12>
<Position13> <Position13>
<Filename Value="utriggersform.pas"/> <Filename Value="utriggersform.pas"/>
<Caret Line="133" Column="34" TopLine="89"/> <Caret Line="192" Column="36" TopLine="165"/>
</Position13> </Position13>
<Position14> <Position14>
<Filename Value="utriggersform.pas"/> <Filename Value="utriggersform.pas"/>
<Caret Line="134" Column="34" TopLine="90"/> <Caret Line="229" TopLine="178"/>
</Position14> </Position14>
<Position15> <Position15>
<Filename Value="utriggersform.pas"/> <Filename Value="umainform.pas"/>
<Caret Line="135" Column="34" TopLine="91"/> <Caret Line="362" Column="22" TopLine="349"/>
</Position15> </Position15>
<Position16> <Position16>
<Filename Value="utriggersform.pas"/> <Filename Value="umainform.pas"/>
<Caret Line="134" Column="34" TopLine="90"/> <Caret Line="539" Column="42" TopLine="524"/>
</Position16> </Position16>
<Position17> <Position17>
<Filename Value="utriggersform.pas"/> <Filename Value="utriggersform.pas"/>
<Caret Line="133" Column="34" TopLine="89"/> <Caret Line="14" Column="5"/>
</Position17> </Position17>
<Position18> <Position18>
<Filename Value="utriggersform.pas"/> <Filename Value="utriggersform.pas"/>
<Caret Line="134" Column="34" TopLine="90"/> <Caret Line="12" Column="15"/>
</Position18> </Position18>
<Position19> <Position19>
<Filename Value="utriggersform.pas"/> <Filename Value="utriggersform.pas"/>
<Caret Line="135" Column="34" TopLine="91"/> <Caret Line="13" Column="26"/>
</Position19> </Position19>
<Position20> <Position20>
<Filename Value="utriggersform.pas"/> <Filename Value="utriggersform.pas"/>
<Caret Line="136" Column="34" TopLine="92"/> <Caret Line="21" Column="18"/>
</Position20> </Position20>
<Position21> <Position21>
<Filename Value="utriggersform.pas"/> <Filename Value="utriggersform.pas"/>
<Caret Line="139" Column="34" TopLine="95"/> <Caret Line="153" Column="20" TopLine="130"/>
</Position21> </Position21>
<Position22> <Position22>
<Filename Value="utriggersform.pas"/> <Filename Value="utriggersform.pas"/>
<Caret Line="142" Column="34" TopLine="98"/> <Caret Line="92" Column="20" TopLine="90"/>
</Position22> </Position22>
<Position23> <Position23>
<Filename Value="utriggersform.pas"/> <Filename Value="umainform.pas"/>
<Caret Line="145" Column="34" TopLine="101"/> <Caret Line="397" Column="17" TopLine="378"/>
</Position23> </Position23>
<Position24> <Position24>
<Filename Value="utriggersform.pas"/> <Filename Value="umainform.pas"/>
<Caret Line="148" Column="34" TopLine="104"/> <Caret Line="745" Column="44" TopLine="698"/>
</Position24> </Position24>
<Position25> <Position25>
<Filename Value="utriggersform.pas"/> <Filename Value="umainform.pas"/>
<Caret Line="151" Column="34" TopLine="107"/> <Caret Line="832" Column="44" TopLine="785"/>
</Position25> </Position25>
<Position26> <Position26>
<Filename Value="utriggersform.pas"/> <Filename Value="utriggersform.pas"/>
<Caret Line="18" Column="18" TopLine="11"/> <Caret Line="138" TopLine="103"/>
</Position26> </Position26>
<Position27> <Position27>
<Filename Value="utriggersform.pas"/> <Filename Value="utriggersform.pas"/>
<Caret Line="124" Column="6" TopLine="83"/> <Caret Line="137" Column="52" TopLine="110"/>
</Position27> </Position27>
<Position28> <Position28>
<Filename Value="utriggersform.pas"/> <Filename Value="utriggersform.pas"/>
<Caret Line="101" Column="26" TopLine="74"/> <Caret Line="123" Column="8" TopLine="105"/>
</Position28> </Position28>
<Position29> <Position29>
<Filename Value="utriggersform.pas"/> <Filename Value="umainform.pas"/>
<Caret Line="192" Column="36" TopLine="165"/> <Caret Line="279" Column="11" TopLine="261"/>
</Position29> </Position29>
<Position30> <Position30>
<Filename Value="utriggersform.pas"/> <Filename Value="utriggersform.pas"/>
<Caret Line="229" TopLine="178"/> <Caret Line="153" Column="43" TopLine="134"/>
</Position30> </Position30>
</JumpHistory> </JumpHistory>
</ProjectSession> </ProjectSession>

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

@ -217,7 +217,6 @@ type
sSecretKey, sFoobotUserName, sUUID: string; sSecretKey, sFoobotUserName, sUUID: string;
bDisplayGuagesOnly, bDisplayYellowLines, bDisplayRedLines: boolean; bDisplayGuagesOnly, bDisplayYellowLines, bDisplayRedLines: boolean;
iFudgeFactor: integer; iFudgeFactor: integer;
iCurrentFoobot: integer;
HighTriggerColor, LowTriggerColor: TColor; HighTriggerColor, LowTriggerColor: TColor;
foobotmenuarray: array of TMenuItem; foobotmenuarray: array of TMenuItem;
procedure DisplayReadings; procedure DisplayReadings;
@ -238,6 +237,7 @@ type
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);
public public
iCurrentFoobot: integer;
INI: TCryptINIfile; INI: TCryptINIfile;
end; end;
@ -351,6 +351,7 @@ begin
{$ENDIF} {$ENDIF}
grp_sensorDisplay.Refresh; grp_sensorDisplay.Refresh;
grp_highlow.Refresh; grp_highlow.Refresh;
grp_health.Refresh;
Update; Update;
Application.ProcessMessages; Application.ProcessMessages;
splashform.hide; splashform.hide;
@ -772,6 +773,7 @@ end;
procedure Tmainform.mnu_options_triggersSetTriggersClick(Sender: TObject); procedure Tmainform.mnu_options_triggersSetTriggersClick(Sender: TObject);
begin begin
If FoobotIdentityObject.FoobotIdentityList.Count = 0 then Exit;;
triggersform.ShowModal; triggersform.ShowModal;
if triggersform.ModalResult = mrCancel then if triggersform.ModalResult = mrCancel then
begin begin

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

@ -1,7 +1,7 @@
object triggersform: Ttriggersform object triggersform: Ttriggersform
Left = 543 Left = 478
Height = 565 Height = 565
Top = 191 Top = 162
Width = 794 Width = 794
ActiveControl = edt_newrec_pm ActiveControl = edt_newrec_pm
BorderIcons = [biSystemMenu] BorderIcons = [biSystemMenu]
@ -13,6 +13,7 @@ object triggersform: Ttriggersform
FormStyle = fsStayOnTop FormStyle = fsStayOnTop
OnActivate = FormActivate OnActivate = FormActivate
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow OnShow = FormShow
Position = poWorkAreaCenter Position = poWorkAreaCenter
ShowInTaskBar = stNever ShowInTaskBar = stNever
@ -113,6 +114,7 @@ object triggersform: Ttriggersform
Top = 0 Top = 0
Width = 72 Width = 72
BorderStyle = bsNone BorderStyle = bsNone
OnKeyPress = OnlyNumericKeyPress
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
Text = '0.00' Text = '0.00'
@ -123,6 +125,7 @@ object triggersform: Ttriggersform
Top = 20 Top = 20
Width = 72 Width = 72
BorderStyle = bsNone BorderStyle = bsNone
OnKeyPress = OnlyNumericKeyPress
ParentFont = False ParentFont = False
TabOrder = 1 TabOrder = 1
Text = '0.00' Text = '0.00'
@ -133,6 +136,7 @@ object triggersform: Ttriggersform
Top = 40 Top = 40
Width = 72 Width = 72
BorderStyle = bsNone BorderStyle = bsNone
OnKeyPress = OnlyNumericKeyPress
ParentFont = False ParentFont = False
TabOrder = 2 TabOrder = 2
Text = '0.00' Text = '0.00'
@ -247,6 +251,7 @@ object triggersform: Ttriggersform
Top = 0 Top = 0
Width = 72 Width = 72
BorderStyle = bsNone BorderStyle = bsNone
OnKeyPress = OnlyNumericKeyPress
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
Text = '0.00' Text = '0.00'
@ -257,6 +262,7 @@ object triggersform: Ttriggersform
Top = 20 Top = 20
Width = 72 Width = 72
BorderStyle = bsNone BorderStyle = bsNone
OnKeyPress = OnlyNumericKeyPress
ParentFont = False ParentFont = False
TabOrder = 1 TabOrder = 1
Text = '0.00' Text = '0.00'
@ -267,6 +273,7 @@ object triggersform: Ttriggersform
Top = 40 Top = 40
Width = 72 Width = 72
BorderStyle = bsNone BorderStyle = bsNone
OnKeyPress = OnlyNumericKeyPress
ParentFont = False ParentFont = False
TabOrder = 2 TabOrder = 2
Text = '0.00' Text = '0.00'
@ -381,6 +388,7 @@ object triggersform: Ttriggersform
Top = 0 Top = 0
Width = 72 Width = 72
BorderStyle = bsNone BorderStyle = bsNone
OnKeyPress = OnlyNumericKeyPress
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
Text = '0.00' Text = '0.00'
@ -391,6 +399,7 @@ object triggersform: Ttriggersform
Top = 20 Top = 20
Width = 72 Width = 72
BorderStyle = bsNone BorderStyle = bsNone
OnKeyPress = OnlyNumericKeyPress
ParentFont = False ParentFont = False
TabOrder = 1 TabOrder = 1
Text = '0.00' Text = '0.00'
@ -401,6 +410,7 @@ object triggersform: Ttriggersform
Top = 40 Top = 40
Width = 72 Width = 72
BorderStyle = bsNone BorderStyle = bsNone
OnKeyPress = OnlyNumericKeyPress
ParentFont = False ParentFont = False
TabOrder = 2 TabOrder = 2
Text = '0.00' Text = '0.00'
@ -515,6 +525,7 @@ object triggersform: Ttriggersform
Top = 0 Top = 0
Width = 72 Width = 72
BorderStyle = bsNone BorderStyle = bsNone
OnKeyPress = OnlyNumericKeyPress
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
Text = '0.00' Text = '0.00'
@ -525,6 +536,7 @@ object triggersform: Ttriggersform
Top = 20 Top = 20
Width = 72 Width = 72
BorderStyle = bsNone BorderStyle = bsNone
OnKeyPress = OnlyNumericKeyPress
ParentFont = False ParentFont = False
TabOrder = 1 TabOrder = 1
Text = '0.00' Text = '0.00'
@ -535,6 +547,7 @@ object triggersform: Ttriggersform
Top = 40 Top = 40
Width = 72 Width = 72
BorderStyle = bsNone BorderStyle = bsNone
OnKeyPress = OnlyNumericKeyPress
ParentFont = False ParentFont = False
TabOrder = 2 TabOrder = 2
Text = '0.00' Text = '0.00'
@ -649,6 +662,7 @@ object triggersform: Ttriggersform
Top = 0 Top = 0
Width = 72 Width = 72
BorderStyle = bsNone BorderStyle = bsNone
OnKeyPress = OnlyNumericKeyPress
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
Text = '0.00' Text = '0.00'
@ -659,6 +673,7 @@ object triggersform: Ttriggersform
Top = 20 Top = 20
Width = 72 Width = 72
BorderStyle = bsNone BorderStyle = bsNone
OnKeyPress = OnlyNumericKeyPress
ParentFont = False ParentFont = False
TabOrder = 1 TabOrder = 1
Text = '0.00' Text = '0.00'
@ -669,6 +684,7 @@ object triggersform: Ttriggersform
Top = 40 Top = 40
Width = 72 Width = 72
BorderStyle = bsNone BorderStyle = bsNone
OnKeyPress = OnlyNumericKeyPress
ParentFont = False ParentFont = False
TabOrder = 2 TabOrder = 2
Text = '0.00' Text = '0.00'
@ -783,6 +799,7 @@ object triggersform: Ttriggersform
Top = 0 Top = 0
Width = 72 Width = 72
BorderStyle = bsNone BorderStyle = bsNone
OnKeyPress = OnlyNumericKeyPress
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
Text = '0.00' Text = '0.00'
@ -793,6 +810,7 @@ object triggersform: Ttriggersform
Top = 20 Top = 20
Width = 72 Width = 72
BorderStyle = bsNone BorderStyle = bsNone
OnKeyPress = OnlyNumericKeyPress
ParentFont = False ParentFont = False
TabOrder = 1 TabOrder = 1
Text = '0.00' Text = '0.00'
@ -803,6 +821,7 @@ object triggersform: Ttriggersform
Top = 40 Top = 40
Width = 72 Width = 72
BorderStyle = bsNone BorderStyle = bsNone
OnKeyPress = OnlyNumericKeyPress
ParentFont = False ParentFont = False
TabOrder = 2 TabOrder = 2
Text = '0.00' Text = '0.00'
@ -845,6 +864,7 @@ object triggersform: Ttriggersform
DefaultCaption = True DefaultCaption = True
Kind = bkOK Kind = bkOK
ModalResult = 1 ModalResult = 1
OnClick = cmd_OKClick
TabOrder = 1 TabOrder = 1
end end
object cmd_cancel: TBitBtn object cmd_cancel: TBitBtn

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

@ -9,7 +9,6 @@ uses
Buttons; Buttons;
type type
{ Ttriggersform } { Ttriggersform }
Ttriggersform = class(TForm) Ttriggersform = class(TForm)
@ -94,10 +93,14 @@ type
lbl_newrec_co2: TLabel; lbl_newrec_co2: TLabel;
lbl_newrec_voc: TLabel; lbl_newrec_voc: TLabel;
lbl_newrec_allpollu: TLabel; lbl_newrec_allpollu: TLabel;
procedure cmd_OKClick(Sender: TObject);
procedure FormActivate(Sender: TObject); procedure FormActivate(Sender: TObject);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure OnlyNumericKeyPress(Sender: TObject; var Key: char);
private private
ErrorList:TStrings;
procedure DisplayCurrentValues; procedure DisplayCurrentValues;
procedure SetUpUnits; procedure SetUpUnits;
public public
@ -118,7 +121,12 @@ uses umainform, foobot_utility;
procedure Ttriggersform.FormCreate(Sender: TObject); procedure Ttriggersform.FormCreate(Sender: TObject);
begin begin
Icon := Application.Icon; Icon := Application.Icon;
Caption := Application.Title + ' - Set Recommended values and Triggers'; ErrorList:=TStringList.Create;
end;
procedure Ttriggersform.FormDestroy(Sender: TObject);
begin
FreeAndNil(ErrorList);
end; end;
procedure Ttriggersform.FormActivate(Sender: TObject); procedure Ttriggersform.FormActivate(Sender: TObject);
@ -126,9 +134,22 @@ begin
SetUpUnits; SetUpUnits;
end; end;
procedure Ttriggersform.cmd_OKClick(Sender: TObject);
begin
// VerifyEveryThing then Save to inifiles;
end;
procedure Ttriggersform.OnlyNumericKeyPress(Sender: TObject; var Key: char);
begin
if not (Key in ['0'..'9', '.', #8, #9]) then Key := #0;
end;
procedure Ttriggersform.FormShow(Sender: TObject); procedure Ttriggersform.FormShow(Sender: TObject);
begin begin
Caption := Application.Title + ' - Set Recommended values (for all Foobots) and Triggers (for ' +
FoobotIdentityObject.FoobotIdentityList[mainform.iCurrentFoobot].Name + ')';
DisplayCurrentValues; DisplayCurrentValues;
ErrorList.Clear;
Update; Update;
end; end;