Continue work on issue #21

Implement help screen
PSU-CSAR · Nov 12, 2015 · a0f473f · a0f473f
1 parent 4cf4eb3
commit a0f473f
Show file tree

Hide file tree

Showing 6 changed files with 71 additions and 45 deletions.
diff --git a/src/BAGIS_ClassLibrary/enumerations/BA_HelpTopics.vb b/src/BAGIS_ClassLibrary/enumerations/BA_HelpTopics.vb
@@ -23,4 +23,5 @@ Public Enum BA_HelpTopics
     ReclassZones
     TimberlineTool
     SequentialId
+    PeAndObsTool
 End Enum
diff --git a/src/BAGIS_P/Forms/FrmPEandSRObs.Designer.vb b/src/BAGIS_P/Forms/FrmPEandSRObs.Designer.vb
diff --git a/src/BAGIS_P/Forms/FrmPEandSRObs.vb b/src/BAGIS_P/Forms/FrmPEandSRObs.vb
@@ -208,7 +208,7 @@ Public Class FrmPEandSRObs
                         Else
                             m_aoiParamTable.Add(BA_Aoi_Parameter_SR_Obs, newParameter)
                         End If
-                        TxtSrDate.Text = newParameter.DateUpdated.ToString("MM/dd/yy")
+                        TxtSrDate.Text = newParameter.DateUpdated.ToString("MM/dd/yyyy")
                         If newParameter.ValuesList IsNot Nothing Then
                             TxtSrValue.Text = newParameter.ValuesList(0)
                         End If
@@ -240,7 +240,7 @@ Public Class FrmPEandSRObs
             If m_aoiParamTable.ContainsKey(BA_Aoi_Parameter_SR_Obs) Then
                 Dim srObsParam As AoiParameter = m_aoiParamTable(BA_Aoi_Parameter_SR_Obs)
                 If srObsParam IsNot Nothing Then
-                    TxtSrDate.Text = srObsParam.DateUpdated.ToString("MM/dd/yy")
+                    TxtSrDate.Text = srObsParam.DateUpdated.ToString("MM/dd/yyyy")
                     If srObsParam.ValuesList IsNot Nothing Then
                         TxtSrValue.Text = srObsParam.ValuesList(0)
                     End If
@@ -321,4 +321,9 @@ Public Class FrmPEandSRObs
         Dim settingsPath As String = BA_GetLocalSettingsPath(TxtAoiPath.Text)
         Return BA_SaveAOIParameters(srcList, settingsPath)
     End Function
+
+    Private Sub BtnAbout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAbout.Click
+        Dim toolHelpForm As FrmHelp = New FrmHelp(BA_HelpTopics.PeAndObsTool)
+        toolHelpForm.ShowDialog()
+    End Sub
 End Class
diff --git a/src/BAGIS_P/Help/FrmHelp.Designer.vb b/src/BAGIS_P/Help/FrmHelp.Designer.vb
diff --git a/src/BAGIS_P/Help/FrmHelp.resx b/src/BAGIS_P/Help/FrmHelp.resx
@@ -112,9 +112,9 @@
     <value>2.0</value>
   </resheader>
   <resheader name="reader">
-    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
   <resheader name="writer">
-    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
 </root>