Source to V0.1.0.0

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5586 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2017-01-02 12:13:25 +00:00
parent 47c45023ca
commit eab0c546a3
5 changed files with 59 additions and 37 deletions
--- a/applications/foobot/monitor/foobotmonitor.lpi
+++ b/applications/foobot/monitor/foobotmonitor.lpi
@ -19,7 +19,7 @@
    </General>
    <VersionInfo>
      <UseVersionInfo Value="True"/>
-      <RevisionNr Value="4"/>
+      <MinorVersionNr Value="1"/>
      <StringTable Comments="Uses Foobot public API to query Foobot #1" FileDescription="Monitor for Foobot" InternalName="foobotmonitor" LegalCopyright="(c)2016 minesadorada@charcodelvalle.com" LegalTrademarks="Foobot" ProductName="Foobot" ProductVersion="0.0.0.0"/>
    </VersionInfo>
    <BuildModes Count="6">
@ -50,6 +50,11 @@
              </Win32>
            </Options>
          </Linking>
+          <Other>
+            <OtherDefines Count="1">
+              <Define0 Value="DEBUGMODE"/>
+            </OtherDefines>
+          </Other>
        </CompilerOptions>
      </Item2>
      <Item3 Name="win64">
--- a/applications/foobot/monitor/foobotmonitor.lps
+++ b/applications/foobot/monitor/foobotmonitor.lps
@ -3,7 +3,7 @@
  <ProjectSession>
    <PathDelim Value="\"/>
    <Version Value="10"/>
-    <BuildModes Active="win32GTK2"/>
+    <BuildModes Active="linux64"/>
    <Units Count="25">
      <Unit0>
        <Filename Value="foobotmonitor.lpr"/>
@ -20,8 +20,8 @@
        <HasResources Value="True"/>
        <ResourceBaseClass Value="Form"/>
        <IsVisibleTab Value="True"/>
-        <TopLine Value="591"/>
-        <CursorPos X="58" Y="613"/>
+        <TopLine Value="37"/>
+        <CursorPos X="13" Y="374"/>
        <UsageCount Value="74"/>
        <Loaded Value="True"/>
        <LoadedDesigner Value="True"/>
@ -59,7 +59,7 @@
        <Filename Value="..\foobot_utility.pas"/>
        <IsPartOfProject Value="True"/>
        <EditorIndex Value="5"/>
-        <TopLine Value="65"/>
+        <TopLine Value="34"/>
        <CursorPos X="18" Y="83"/>
        <UsageCount Value="74"/>
        <Loaded Value="True"/>
@ -210,123 +210,123 @@
    <JumpHistory Count="30" HistoryIndex="29">
      <Position1>
        <Filename Value="umainform.pas"/>
-        <Caret Line="128" Column="7" TopLine="106"/>
+        <Caret Line="300" Column="57" TopLine="295"/>
      </Position1>
      <Position2>
        <Filename Value="umainform.pas"/>
-        <Caret Line="129" Column="7" TopLine="107"/>
+        <Caret Line="301" Column="57" TopLine="296"/>
      </Position2>
      <Position3>
        <Filename Value="umainform.pas"/>
-        <Caret Line="166" Column="83" TopLine="143"/>
+        <Caret Line="302" Column="57" TopLine="297"/>
      </Position3>
      <Position4>
        <Filename Value="umainform.pas"/>
-        <Caret Line="279" Column="3" TopLine="277"/>
+        <Caret Line="303" Column="57" TopLine="298"/>
      </Position4>
      <Position5>
        <Filename Value="umainform.pas"/>
-        <Caret Line="299" Column="57" TopLine="294"/>
+        <Caret Line="304" Column="57" TopLine="299"/>
      </Position5>
      <Position6>
        <Filename Value="umainform.pas"/>
-        <Caret Line="300" Column="57" TopLine="295"/>
+        <Caret Line="508" Column="30" TopLine="472"/>
      </Position6>
      <Position7>
        <Filename Value="umainform.pas"/>
-        <Caret Line="301" Column="57" TopLine="296"/>
+        <Caret Line="515" Column="30" TopLine="479"/>
      </Position7>
      <Position8>
        <Filename Value="umainform.pas"/>
-        <Caret Line="302" Column="57" TopLine="297"/>
+        <Caret Line="287" Column="66" TopLine="243"/>
      </Position8>
      <Position9>
        <Filename Value="umainform.pas"/>
-        <Caret Line="303" Column="57" TopLine="298"/>
+        <Caret Line="529" Column="32" TopLine="487"/>
      </Position9>
      <Position10>
        <Filename Value="umainform.pas"/>
-        <Caret Line="304" Column="57" TopLine="299"/>
+        <Caret Line="532" Column="27" TopLine="489"/>
      </Position10>
      <Position11>
        <Filename Value="umainform.pas"/>
-        <Caret Line="508" Column="30" TopLine="472"/>
+        <Caret Line="535" Column="25" TopLine="494"/>
      </Position11>
      <Position12>
        <Filename Value="umainform.pas"/>
-        <Caret Line="515" Column="30" TopLine="479"/>
+        <Caret Line="531" Column="26" TopLine="494"/>
      </Position12>
      <Position13>
        <Filename Value="umainform.pas"/>
-        <Caret Line="287" Column="66" TopLine="243"/>
+        <Caret Line="530" Column="5" TopLine="495"/>
      </Position13>
      <Position14>
        <Filename Value="umainform.pas"/>
-        <Caret Line="529" Column="32" TopLine="487"/>
+        <Caret Line="529" Column="5" TopLine="494"/>
      </Position14>
      <Position15>
        <Filename Value="umainform.pas"/>
-        <Caret Line="532" Column="27" TopLine="489"/>
+        <Caret Line="509" Column="22" TopLine="488"/>
      </Position15>
      <Position16>
        <Filename Value="umainform.pas"/>
-        <Caret Line="535" Column="25" TopLine="494"/>
+        <Caret Line="530" Column="25" TopLine="490"/>
      </Position16>
      <Position17>
-        <Filename Value="umainform.pas"/>
-        <Caret Line="531" Column="26" TopLine="494"/>
+        <Filename Value="..\foobot_utility.pas"/>
+        <Caret Line="243" Column="47" TopLine="218"/>
      </Position17>
      <Position18>
        <Filename Value="umainform.pas"/>
-        <Caret Line="530" Column="5" TopLine="495"/>
+        <Caret Line="527" Column="68" TopLine="486"/>
      </Position18>
      <Position19>
        <Filename Value="umainform.pas"/>
-        <Caret Line="529" Column="5" TopLine="494"/>
+        <Caret Line="523" Column="17" TopLine="488"/>
      </Position19>
      <Position20>
        <Filename Value="umainform.pas"/>
-        <Caret Line="509" Column="22" TopLine="488"/>
+        <Caret Line="245" TopLine="243"/>
      </Position20>
      <Position21>
        <Filename Value="umainform.pas"/>
-        <Caret Line="530" Column="25" TopLine="490"/>
+        <Caret Line="244" TopLine="242"/>
      </Position21>
      <Position22>
-        <Filename Value="..\foobot_utility.pas"/>
-        <Caret Line="243" Column="47" TopLine="218"/>
+        <Filename Value="umainform.pas"/>
+        <Caret Line="264" Column="31" TopLine="242"/>
      </Position22>
      <Position23>
        <Filename Value="umainform.pas"/>
-        <Caret Line="527" Column="68" TopLine="486"/>
+        <Caret Line="532" Column="43" TopLine="497"/>
      </Position23>
      <Position24>
        <Filename Value="umainform.pas"/>
-        <Caret Line="523" Column="17" TopLine="488"/>
+        <Caret Line="188" Column="16" TopLine="176"/>
      </Position24>
      <Position25>
        <Filename Value="umainform.pas"/>
-        <Caret Line="245" TopLine="243"/>
+        <Caret Line="572" Column="44" TopLine="551"/>
      </Position25>
      <Position26>
        <Filename Value="umainform.pas"/>
-        <Caret Line="244" TopLine="242"/>
+        <Caret Line="613" Column="58" TopLine="591"/>
      </Position26>
      <Position27>
        <Filename Value="umainform.pas"/>
-        <Caret Line="264" Column="31" TopLine="242"/>
+        <Caret Line="620" Column="58" TopLine="598"/>
      </Position27>
      <Position28>
        <Filename Value="umainform.pas"/>
-        <Caret Line="532" Column="43" TopLine="497"/>
+        <Caret Line="170" Column="70" TopLine="462"/>
      </Position28>
      <Position29>
        <Filename Value="umainform.pas"/>
-        <Caret Line="188" Column="16" TopLine="176"/>
+        <Caret Line="374" Column="71" TopLine="344"/>
      </Position29>
      <Position30>
        <Filename Value="umainform.pas"/>
-        <Caret Line="572" Column="44" TopLine="551"/>
+        <Caret Line="373" Column="11" TopLine="351"/>
      </Position30>
    </JumpHistory>
  </ProjectSession>
--- a/applications/foobot/monitor/foobotmonitor.res
+++ b/applications/foobot/monitor/foobotmonitor.res
--- 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'
--- 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;