You've already forked lazarus-ccr
3106f1eb0c
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5620 8e941d3f-bd1b-0410-a28a-d453659cc2b4
440 lines
18 KiB
ObjectPascal
440 lines
18 KiB
ObjectPascal
unit utriggersform;
|
|
{ Foobot Monitor
|
|
|
|
Copyright (C)2016 Gordon Bamber minsadorada@charcodelvalle.com
|
|
|
|
This source is free software; you can redistribute it and/or modify it under
|
|
the terms of the GNU General Public License as published by the Free
|
|
Software Foundation; either version 2 of the License, or (at your option)
|
|
any later version.
|
|
|
|
This code is distributed in the hope that it will be useful, but WITHOUT ANY
|
|
WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
|
|
FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
|
|
details.
|
|
|
|
A copy of the GNU General Public License is available on the World Wide Web
|
|
at <http://www.gnu.org/copyleft/gpl.html>. You can also obtain it by writing
|
|
to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
|
|
MA 02111-1307, USA.
|
|
}
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
|
|
Buttons;
|
|
|
|
type
|
|
{ Ttriggersform }
|
|
|
|
Ttriggersform = class(TForm)
|
|
cmd_cancel: 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_tmp: TGroupBox;
|
|
grp_hum: TGroupBox;
|
|
grp_co2: TGroupBox;
|
|
grp_voc: TGroupBox;
|
|
grp_allpollu: 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 cmd_OKClick(Sender: TObject);
|
|
procedure FormActivate(Sender: TObject);
|
|
procedure FormCreate(Sender: TObject);
|
|
procedure FormDestroy(Sender: TObject);
|
|
procedure FormShow(Sender: TObject);
|
|
procedure OnlyNumericKeyPressFloat(Sender: TObject; var Key: char);
|
|
procedure OnlyNumericKeyPressInteger(Sender: TObject; var Key: char);
|
|
private
|
|
ErrorList: TStrings;
|
|
procedure DisplayCurrentValues;
|
|
procedure SetUpUnits;
|
|
function AssignAndSaveTriggers: boolean;
|
|
function AssignAndSaveRecommendedLevels: boolean;
|
|
function AllInputsVerified: boolean;
|
|
public
|
|
|
|
end;
|
|
|
|
var
|
|
triggersform: Ttriggersform;
|
|
|
|
implementation
|
|
|
|
uses umainform, foobot_utility;
|
|
|
|
{$R *.lfm}
|
|
|
|
{ Ttriggersform }
|
|
|
|
procedure Ttriggersform.FormCreate(Sender: TObject);
|
|
begin
|
|
Icon := Application.Icon;
|
|
ErrorList := TStringList.Create;
|
|
end;
|
|
|
|
procedure Ttriggersform.FormDestroy(Sender: TObject);
|
|
begin
|
|
FreeAndNil(ErrorList);
|
|
end;
|
|
|
|
procedure Ttriggersform.FormActivate(Sender: TObject);
|
|
begin
|
|
SetUpUnits;
|
|
end;
|
|
|
|
procedure Ttriggersform.FormShow(Sender: TObject);
|
|
begin
|
|
Caption := Application.Title +
|
|
' - Set Recommended values (for all Foobots) and Triggers (for ' +
|
|
FoobotIdentityObject.FoobotIdentityList[mainform.iCurrentFoobot].Name + ')';
|
|
DisplayCurrentValues;
|
|
ErrorList.Clear;
|
|
Update;
|
|
end;
|
|
// *****************************************************************************
|
|
|
|
procedure Ttriggersform.cmd_OKClick(Sender: TObject);
|
|
var
|
|
s: string;
|
|
iCount: integer;
|
|
begin
|
|
// VerifyEveryThing then Save to inifiles;
|
|
if AllInputsVerified then
|
|
begin
|
|
AssignAndSaveTriggers;
|
|
AssignAndSaveRecommendedLevels;
|
|
ModalResult := mrClose;
|
|
Close;
|
|
end
|
|
else
|
|
begin
|
|
ModalResult := mrNone;
|
|
s := '';
|
|
if (ErrorList.Count > 0) then
|
|
for iCount := 0 to Pred(ErrorList.Count) do
|
|
s := s + '* ' + ErrorList[iCount] + LineEnding;
|
|
MessageDlg('Problems listed below', s, mtError, [mbOK], 0);
|
|
end;
|
|
end;
|
|
|
|
procedure Ttriggersform.OnlyNumericKeyPressInteger(Sender: TObject; var Key: char);
|
|
begin
|
|
if not (Key in ['0'..'9', #8, #9]) then
|
|
Key := #0;
|
|
end;
|
|
|
|
procedure Ttriggersform.OnlyNumericKeyPressFloat(Sender: TObject; var Key: char);
|
|
begin
|
|
if not (Key in ['0'..'9', '.', #8, #9]) then
|
|
Key := #0;
|
|
end;
|
|
|
|
function Ttriggersform.AllInputsVerified: boolean;
|
|
begin
|
|
ErrorList.Clear;
|
|
// Low triggers bigger than high triggers
|
|
If StrToFloat(edt_newlowtrigger_pm.Text) > StrToFloat(edt_newhightrigger_pm.Text) then
|
|
ErrorList.Add('Particulates low trigger is greater than the high trigger');
|
|
If StrToFloat(edt_newlowtrigger_tmp.Text) > StrToFloat(edt_newhightrigger_tmp.Text) then
|
|
ErrorList.Add('Temperature low trigger is greater than the high trigger');
|
|
If StrToFloat(edt_newlowtrigger_hum.Text) > StrToFloat(edt_newhightrigger_hum.Text) then
|
|
ErrorList.Add('Humidity low trigger is greater than the high trigger');
|
|
If StrToFloat(edt_newlowtrigger_co2.Text) > StrToFloat(edt_newhightrigger_co2.Text) then
|
|
ErrorList.Add('CO2 low trigger is greater than the high trigger');
|
|
If StrToFloat(edt_newlowtrigger_voc.Text) > StrToFloat(edt_newhightrigger_voc.Text) then
|
|
ErrorList.Add('Volatile compounds low trigger is greater than the high trigger');
|
|
If StrToFloat(edt_newlowtrigger_allpollu.Text) > StrToFloat(edt_newhightrigger_allpollu.Text) then
|
|
ErrorList.Add('All Pollution low trigger is greater than the high trigger');
|
|
// Recommended levels bigger than high triggers
|
|
If StrToFloat(edt_newrec_pm.Text) > StrToFloat(edt_newhightrigger_pm.Text) then
|
|
ErrorList.Add('Particulates recommended level is greater than the high trigger');
|
|
If StrToFloat(edt_newrec_tmp.Text) > StrToFloat(edt_newhightrigger_tmp.Text) then
|
|
ErrorList.Add('Temperature recommended level is greater than the high trigger');
|
|
If StrToFloat(edt_newrec_hum.Text) > StrToFloat(edt_newhightrigger_hum.Text) then
|
|
ErrorList.Add('Humidity recommended level is greater than the high trigger');
|
|
If StrToFloat(edt_newrec_co2.Text) > StrToFloat(edt_newhightrigger_co2.Text) then
|
|
ErrorList.Add('CO2 recommended level is greater than the high trigger');
|
|
If StrToFloat(edt_newrec_voc.Text) > StrToFloat(edt_newhightrigger_voc.Text) then
|
|
ErrorList.Add('Volatile compounds recommended level is greater than the high trigger');
|
|
If StrToFloat(edt_newrec_allpollu.Text) > StrToFloat(edt_newhightrigger_allpollu.Text) then
|
|
ErrorList.Add('All Pollution recommended level is greater than the high trigger');
|
|
// Recommended levels lower than low trigger
|
|
If StrToFloat(edt_newrec_pm.Text) < StrToFloat(edt_newlowtrigger_pm.Text) then
|
|
ErrorList.Add('Particulates recommended level is less than the low trigger');
|
|
If StrToFloat(edt_newrec_tmp.Text) < StrToFloat(edt_newlowtrigger_tmp.Text) then
|
|
ErrorList.Add('Temperature recommended level is less than the low trigger');
|
|
If StrToFloat(edt_newrec_hum.Text) < StrToFloat(edt_newlowtrigger_hum.Text) then
|
|
ErrorList.Add('Humidity recommended level is less than the low trigger');
|
|
If StrToFloat(edt_newrec_co2.Text) < StrToFloat(edt_newlowtrigger_co2.Text) then
|
|
ErrorList.Add('CO2 recommended level is less than the low trigger');
|
|
If StrToFloat(edt_newrec_voc.Text) < StrToFloat(edt_newlowtrigger_voc.Text) then
|
|
ErrorList.Add('Volatile compounds recommended level is less than the low trigger');
|
|
If StrToFloat(edt_newrec_allpollu.Text) < StrToFloat(edt_newlowtrigger_allpollu.Text) then
|
|
ErrorList.Add('All Pollution recommended level is less than the low trigger');
|
|
|
|
// CO2 and Voc lowtrigger or rec level lower than sensor minimum
|
|
If StrToFloat(edt_newlowtrigger_co2.Text) < 450 then
|
|
ErrorList.Add('CO2 low trigger cannot be below 450');
|
|
If StrToFloat(edt_newlowtrigger_voc.Text) < 125 then
|
|
ErrorList.Add('Volatile compounds low trigger cannot be below 125');
|
|
If StrToFloat(edt_newrec_co2.Text) < 450 then
|
|
ErrorList.Add('CO2 recommended level cannot be below 450');
|
|
If StrToFloat(edt_newrec_voc.Text) < 125 then
|
|
ErrorList.Add('Volatile compounds recommended level cannot be below 125');
|
|
|
|
If (ErrorList.Count > 0) then Result:=FALSE
|
|
else Result := True;
|
|
end;
|
|
|
|
function Ttriggersform.AssignAndSaveTriggers: boolean;
|
|
begin
|
|
Result := False;
|
|
try
|
|
FooBotTriggerArray[C_HIGH, C_PM] := StrToFloat(edt_newhightrigger_pm.Text);
|
|
FooBotTriggerArray[C_LOW, C_PM] := StrToFloat(edt_newlowtrigger_pm.Text);
|
|
FooBotTriggerArray[C_HIGH, C_TMP] := StrToFloat(edt_newhightrigger_tmp.Text);
|
|
FooBotTriggerArray[C_LOW, C_TMP] := StrToFloat(edt_newlowtrigger_tmp.Text);
|
|
FooBotTriggerArray[C_HIGH, C_HUM] := StrToFloat(edt_newhightrigger_hum.Text);
|
|
FooBotTriggerArray[C_LOW, C_HUM] := StrToFloat(edt_newlowtrigger_hum.Text);
|
|
FooBotTriggerArray[C_HIGH, C_CO2] := StrToInt(edt_newhightrigger_co2.Text);
|
|
FooBotTriggerArray[C_LOW, C_CO2] := StrToInt(edt_newlowtrigger_co2.Text);
|
|
FooBotTriggerArray[C_HIGH, C_VOC] := StrToInt(edt_newhightrigger_voc.Text);
|
|
FooBotTriggerArray[C_LOW, C_VOC] := StrToInt(edt_newlowtrigger_voc.Text);
|
|
FooBotTriggerArray[C_HIGH, C_ALLPOLLU] := StrToFloat(edt_newhightrigger_allpollu.Text);
|
|
FooBotTriggerArray[C_LOW, C_ALLPOLLU] := StrToFloat(edt_newlowtrigger_allpollu.Text);
|
|
except
|
|
raise Exception.Create('Error in AssignAndSaveTriggers');
|
|
Exit;
|
|
end;
|
|
if not SaveTriggers then
|
|
ErrorList.Add('Unable to save new triggers to disk')
|
|
else
|
|
Result := True;
|
|
end;
|
|
|
|
function Ttriggersform.AssignAndSaveRecommendedLevels: boolean;
|
|
begin
|
|
Result := False;
|
|
try
|
|
RecommendedLevelsArray[C_PM] := StrToFloat(edt_newrec_pm.Text);
|
|
RecommendedLevelsArray[C_TMP] := StrToFloat(edt_newrec_tmp.Text);
|
|
RecommendedLevelsArray[C_HUM] := StrToFloat(edt_newrec_hum.Text);
|
|
RecommendedLevelsArray[C_CO2] := StrToFloat(edt_newrec_co2.Text);
|
|
RecommendedLevelsArray[C_VOC] := StrToFloat(edt_newrec_voc.Text);
|
|
RecommendedLevelsArray[C_ALLPOLLU] := StrToFloat(edt_newrec_allpollu.Text);
|
|
except
|
|
raise Exception.Create('Error in AssignAndSaveRecommendedLevels');
|
|
Exit;
|
|
end;
|
|
if not SaveRecommendedLevels then
|
|
ErrorList.Add('Unable to save new recommended levels to disk')
|
|
else
|
|
Result := True;
|
|
end;
|
|
|
|
procedure Ttriggersform.DisplayCurrentValues;
|
|
begin
|
|
{$IFDEF DEBUGMODE}
|
|
Exit;
|
|
{$ENDIF}
|
|
// Recommended levels
|
|
lbl_currentrec_pm.Caption :=
|
|
Format('Current recommended level: %.1f %s',
|
|
[RecommendedLevelsArray[C_PM], FoobotDataObject.Units[C_PM]]);
|
|
lbl_currentrec_tmp.Caption :=
|
|
Format('Current recommended level: %.1f %s',
|
|
[RecommendedLevelsArray[C_TMP], FoobotDataObject.Units[C_TMP]]);
|
|
lbl_currentrec_hum.Caption :=
|
|
Format('Current recommended level: %.1f %s',
|
|
[RecommendedLevelsArray[C_HUM], FoobotDataObject.Units[C_HUM]]);
|
|
lbl_currentrec_co2.Caption :=
|
|
Format('Current recommended level: %.0f %s',
|
|
[RecommendedLevelsArray[C_CO2], FoobotDataObject.Units[C_CO2]]);
|
|
lbl_currentrec_voc.Caption :=
|
|
Format('Current recommended level: %.0f %s',
|
|
[RecommendedLevelsArray[C_VOC], FoobotDataObject.Units[C_VOC]]);
|
|
lbl_currentrec_allpollu.Caption :=
|
|
Format('Current recommended level: %.1f %s',
|
|
[RecommendedLevelsArray[C_ALLPOLLU], FoobotDataObject.Units[C_ALLPOLLU]]);
|
|
// 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: %.0f %s',
|
|
[double(FooBotTriggerArray[C_HIGH, C_CO2]), FoobotDataObject.Units[C_CO2]]);
|
|
lbl_currenthightrigger_voc.Caption :=
|
|
Format('Current high trigger: %.0f %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: %.0f %s',
|
|
[double(FooBotTriggerArray[C_LOW, C_CO2]), FoobotDataObject.Units[C_CO2]]);
|
|
lbl_currentlowtrigger_voc.Caption :=
|
|
Format('Current low trigger: %.0f %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]]);
|
|
|
|
// Assign Edit control values
|
|
// Recommended
|
|
edt_newrec_pm.Text := Format('%.1f', [RecommendedLevelsArray[C_PM]]);
|
|
edt_newrec_tmp.Text := Format('%.1f', [RecommendedLevelsArray[C_TMP]]);
|
|
edt_newrec_hum.Text := Format('%.1f', [RecommendedLevelsArray[C_HUM]]);
|
|
edt_newrec_co2.Text := Format('%.0f', [RecommendedLevelsArray[C_CO2]]);
|
|
edt_newrec_voc.Text := Format('%.0f', [RecommendedLevelsArray[C_VOC]]);
|
|
edt_newrec_allpollu.Text := Format('%.1f', [RecommendedLevelsArray[C_ALLPOLLU]]);
|
|
// HighTrigger
|
|
edt_newhightrigger_pm.Text := Format('%.1f', [double(FooBotTriggerArray[C_HIGH, C_PM])]);
|
|
edt_newhightrigger_tmp.Text :=
|
|
Format('%.1f', [double(FooBotTriggerArray[C_HIGH, C_TMP])]);
|
|
edt_newhightrigger_hum.Text :=
|
|
Format('%.1f', [double(FooBotTriggerArray[C_HIGH, C_HUM])]);
|
|
edt_newhightrigger_co2.Text :=
|
|
Format('%.0f', [double(FooBotTriggerArray[C_HIGH, C_CO2])]);
|
|
edt_newhightrigger_voc.Text :=
|
|
Format('%.0f', [double(FooBotTriggerArray[C_HIGH, C_VOC])]);
|
|
edt_newhightrigger_allpollu.Text :=
|
|
Format('%.1f', [double(FooBotTriggerArray[C_HIGH, C_ALLPOLLU])]);
|
|
// LowTrigger
|
|
edt_newlowtrigger_pm.Text := Format('%.1f', [double(FooBotTriggerArray[C_LOW, C_PM])]);
|
|
edt_newlowtrigger_tmp.Text := Format('%.1f', [double(FooBotTriggerArray[C_LOW, C_TMP])]);
|
|
edt_newlowtrigger_hum.Text := Format('%.1f', [double(FooBotTriggerArray[C_LOW, C_HUM])]);
|
|
edt_newlowtrigger_co2.Text := Format('%.0f', [double(FooBotTriggerArray[C_LOW, C_CO2])]);
|
|
edt_newlowtrigger_voc.Text := Format('%.0f', [double(FooBotTriggerArray[C_LOW, C_VOC])]);
|
|
edt_newlowtrigger_allpollu.Text :=
|
|
Format('%.1f', [double(FooBotTriggerArray[C_LOW, C_ALLPOLLU])]);
|
|
|
|
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.
|