Zooflow: round up the search form

GUIs.ZooFlow/Search/frmFlowSearch2.vb

@@ -32,6 +32,8 @@ Public Class frmFlowSearch2
 
         TokenTable = GetTokenTable()
         ComboBoxDateAttributes.Properties.Items.AddRange(LoadDateAttributes())
+        ComboBoxDateAttributes.SelectedIndex = 0
+
         GridPredefinedSearches.DataSource = LoadPredefinedSearches()
 
         Dim oTokens = GetTokensFromTable(Of AttributeValueToken)(TokenTable)
@@ -152,6 +154,10 @@ Public Class frmFlowSearch2
         Await RunSearch2(GetTokens())
     End Sub
 
+    Private Async Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
+        Await RunSearch2(GetTokens())
+    End Sub
+
     Private Async Function RunSearch2(pTokens As IEnumerable(Of Token)) As Threading.Tasks.Task
         Dim oHandle = StartUpdateUI()
         Dim oSearchTitle As String = "Suche"
@@ -368,4 +374,14 @@ Public Class frmFlowSearch2
     Private Sub TokenEditEx1_Properties_TokenAdded(sender As Object, e As TokenEditTokenAddedEventArgs) Handles TokenEditEx1.Properties.TokenAdded
 
     End Sub
+
+    Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
+        FormLoading = True
+        DateEditFrom.EditValue = Nothing
+        DateEditTo.EditValue = Nothing
+        CheckEdit1.IsOn = False
+        ComboBoxDateAttributes.SelectedIndex = 0
+        TokenEditEx1.EditValue = Nothing
+        FormLoading = False
+    End Sub
 End Class