Version 0.4.0.0

GUIs.Monitor/frmMonitor.vb

@@ -115,12 +115,17 @@ Public Class frmMonitor
             Dim oConnectionString = MSSQLServer.DecryptConnectionString(ConfigManager.Config.ConnectionString)
             Database = New MSSQLServer(LogConfig, oConnectionString)
             SearchLoader = New SearchLoader(LogConfig, ConfigManager.Config, Database)
-            GridBuilder = New GridBuilder(New List(Of GridView) From {GridView1, GridView2, GridView3, GridView4, GridViewResults})
-            GridBuilder.
-                WithDefaults().
-                WithDefaults(TreeListResults).
-                WithReadOnlyOptions().
-                WithReadOnlyOptions(TreeListResults)
+            GridBuilder = New GridBuilder()
+
+            Dim oGrids As GridView() = New List(Of GridView) From {GridView1, GridView2, GridView3, GridView4, GridViewResults}.ToArray
+            GridBuilder.SetDefaults(oGrids)
+            GridBuilder.SetClipboardHandler(oGrids)
+            GridBuilder.SetReadOnlyOptions(oGrids)
+
+            GridBuilder.SetDefaults(TreeListResults)
+            GridBuilder.SetClipboardHandler(TreeListResults)
+            GridBuilder.SetReadOnlyOptions(TreeListResults)
+
 
             SQLResultGrids = New List(Of GridControl) From {GridControl1, GridControl2, GridControl3, GridControl4}
             SQLResultTabs = New List(Of XtraTabPage) From {XtraTabPageSQL1, XtraTabPageSQL2, XtraTabPageSQL3, XtraTabPageSQL4}
@@ -282,6 +287,15 @@ Public Class frmMonitor
 
             cmbSearches.Properties.Items.Clear()
             cmbSearches.Properties.Items.AddRange(SearchLoader.Searches)
+
+            If cmbSearches.EditValue IsNot Nothing Then
+                Dim oOldSearch As Search = DirectCast(cmbSearches.EditValue, Search)
+                Dim oNewSearch As Search = SearchLoader.Searches.Where(Function(search) search.Id = oOldSearch.Id).SingleOrDefault()
+
+                If oNewSearch IsNot Nothing Then
+                    cmbSearches.EditValue = oNewSearch
+                End If
+            End If
         Catch ex As Exception
             FormHelper.ShowErrorMessage(ex, "LoadSearches")
         End Try
@@ -764,5 +778,13 @@ Public Class frmMonitor
             End If
         End If
     End Sub
+
+    Private Sub BarButtonItem4_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem4.ItemClick
+        SearchLoader.LoadSearchParameters()
+        LoadSearches()
+
+        TreeListResults.DataSource = Nothing
+        GridControlResults.DataSource = Nothing
+    End Sub
 End Class