diff --git a/applications/foobot/monitor/foobotmonitor.lpi b/applications/foobot/monitor/foobotmonitor.lpi
index 22fdc3996..7854b7c05 100644
--- a/applications/foobot/monitor/foobotmonitor.lpi
+++ b/applications/foobot/monitor/foobotmonitor.lpi
@@ -19,7 +19,7 @@
-
+
@@ -50,6 +50,11 @@
+
+
+
+
+
diff --git a/applications/foobot/monitor/foobotmonitor.lps b/applications/foobot/monitor/foobotmonitor.lps
index 91cff6786..018c1ca0d 100644
--- a/applications/foobot/monitor/foobotmonitor.lps
+++ b/applications/foobot/monitor/foobotmonitor.lps
@@ -3,7 +3,7 @@
-
+
@@ -20,8 +20,8 @@
-
-
+
+
@@ -59,7 +59,7 @@
-
+
@@ -210,123 +210,123 @@
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
-
+
+
-
+
-
+
-
+
-
+
-
-
+
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
diff --git a/applications/foobot/monitor/foobotmonitor.res b/applications/foobot/monitor/foobotmonitor.res
index 36ba30e0f..c03cae5dd 100644
Binary files a/applications/foobot/monitor/foobotmonitor.res and b/applications/foobot/monitor/foobotmonitor.res differ
diff --git a/applications/foobot/monitor/umainform.lfm b/applications/foobot/monitor/umainform.lfm
index abf915685..781a3c059 100644
--- a/applications/foobot/monitor/umainform.lfm
+++ b/applications/foobot/monitor/umainform.lfm
@@ -457,6 +457,10 @@ object mainform: Tmainform
Checked = True
OnClick = mnu_optionsSaveHighLowsClick
end
+ object mnu_optionsResetHighsLows: TMenuItem
+ Caption = 'Reset All-time Highs/Lows'
+ OnClick = mnu_optionsResetHighsLowsClick
+ end
end
object mnu_help: TMenuItem
Caption = '&Help'
diff --git a/applications/foobot/monitor/umainform.pas b/applications/foobot/monitor/umainform.pas
index 1ee97e96b..2768479f3 100644
--- a/applications/foobot/monitor/umainform.pas
+++ b/applications/foobot/monitor/umainform.pas
@@ -113,6 +113,7 @@ type
lbl_voclow: TLabel;
lbl_allpollulow: TLabel;
MainMenu1: TMainMenu;
+ mnu_optionsResetHighsLows: TMenuItem;
mnu_optionsOnlineHelp: TMenuItem;
mnu_optionsSeperator1: TMenuItem;
mnu_helpAbout: TMenuItem;
@@ -144,6 +145,7 @@ type
procedure mnu_helpAboutClick(Sender: TObject);
procedure mnu_optionsMinimiseToTrayClick(Sender: TObject);
procedure mnu_optionsOnlineHelpClick(Sender: TObject);
+ procedure mnu_optionsResetHighsLowsClick(Sender: TObject);
procedure mnu_optionsSaveHighLowsClick(Sender: TObject);
procedure mnu_optionsShowMinimalDisplayClick(Sender: TObject);
procedure mnu_optionsTakeReadingNowClick(Sender: TObject);
@@ -365,6 +367,17 @@ begin
OpenURL('http://wiki.freepascal.org/Foobot');
end;
+procedure Tmainform.mnu_optionsResetHighsLowsClick(Sender: TObject);
+Var iCount:Integer;
+begin
+ If MessageDlg('This will erase the all-time high/low data permanently. Are you sure?',
+ mtConfirmation,[MBYES,MBCANCEL],0,MBCANCEL) = mrCancel then exit;
+ ResetHighLows;
+ SaveHighLows;
+ For iCount:=1 to 6 do
+ UpdateHighLow(iCount);
+end;
+
procedure Tmainform.mnu_optionsSaveHighLowsClick(Sender: TObject);
begin
SaveLoadHighLows := mnu_optionsSaveHighLows.Checked;