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;