Fixed buttons for snipping tool and PSR. Fixed time format table fill.

Author: tduguid

VB/App_Data/ScriptHelp.sdf

@@ -90,7 +90,7 @@ Namespace Scripts
                 Dim sql As String = Convert.ToString((Convert.ToString("SELECT * FROM ") & tableName) + " ORDER BY ") & columnName
 
                 Using da = New SqlCeDataAdapter(sql, Connection())
-                    da.Fill(DateFormatTable)
+                    da.Fill(TimeFormatTable)
                 End Using
 
                 TimeFormatTable.DefaultView.Sort = columnName & Convert.ToString(" asc")

VB/Scripts/Data.vb

@@ -397,6 +397,10 @@ Namespace Scripts
                     Case "btnFormatDate", "btnTableAlias", "btnFormatTime"
                         AppVariables.TableName = Control.Tag
                         OpenTableDataPane()
+                    Case "btnSnippingTool"
+                        OpenSnippingTool()
+                    Case "btnProblemStepRecorder"
+                        OpenProblemStepRecorder()
                 End Select
 
             Catch ex As Exception
@@ -1203,6 +1207,30 @@ Namespace Scripts
             End Try
         End Function
 
+        Public Sub OpenSnippingTool()
+            Dim filePath As String
+            Try
+                If System.Environment.Is64BitOperatingSystem Then
+                    filePath = "C:\Windows\sysnative\SnippingTool.exe"
+                Else
+                    filePath = "C:\Windows\system32\SnippingTool.exe"
+                End If
+
+                System.Diagnostics.Process.Start(filePath)
+            Catch ex As Exception
+                ErrorHandler.DisplayMessage(ex)
+            End Try
+        End Sub
+
+        Public Sub OpenProblemStepRecorder()
+            Dim filePath As String = "C:\Windows\System32\psr.exe"
+            Try
+                System.Diagnostics.Process.Start(filePath)
+            Catch ex As Exception
+                ErrorHandler.DisplayMessage(ex)
+            End Try
+        End Sub
+
 #End Region
 
     End Class