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