Zooflow: fix small things

GUIs.ZooFlow/Search/frmFlowSearch1.Designer.vb

@@ -58,9 +58,8 @@ Partial Class frmFlowSearch1
         Me.Label1 = New System.Windows.Forms.Label()
         Me.cmbLimitationDateAttr = New System.Windows.Forms.ComboBox()
         Me.LabelControl1 = New DevExpress.XtraEditors.LabelControl()
-        Me.txtSearchInput = New System.Windows.Forms.TextBox()
         Me.PictureEdit1 = New DevExpress.XtraEditors.PictureEdit()
-        Me.TextEdit1 = New DevExpress.XtraEditors.TextEdit()
+        Me.txtSearchInput = New DevExpress.XtraEditors.TextEdit()
         CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.DockManager1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.DockPanel1.SuspendLayout()
@@ -82,7 +81,7 @@ Partial Class frmFlowSearch1
         CType(Me.ToggleSwitchYear_Last.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.ToggleSwitchYear.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtSearchInput.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'RibbonControl1
@@ -263,7 +262,7 @@ Partial Class frmFlowSearch1
         Me.ToggleSwitchMonth_Last.Name = "ToggleSwitchMonth_Last"
         Me.ToggleSwitchMonth_Last.Properties.OffText = "Letzter Monat"
         Me.ToggleSwitchMonth_Last.Properties.OnText = "Letzter Monat"
-        Me.ToggleSwitchMonth_Last.Size = New System.Drawing.Size(195, 18)
+        Me.ToggleSwitchMonth_Last.Size = New System.Drawing.Size(195, 19)
         Me.ToggleSwitchMonth_Last.TabIndex = 9
         '
         'ToggleSwitchDateto
@@ -273,14 +272,14 @@ Partial Class frmFlowSearch1
         Me.ToggleSwitchDateto.Name = "ToggleSwitchDateto"
         Me.ToggleSwitchDateto.Properties.OffText = "Datum bis"
         Me.ToggleSwitchDateto.Properties.OnText = "Datum bis"
-        Me.ToggleSwitchDateto.Size = New System.Drawing.Size(122, 18)
+        Me.ToggleSwitchDateto.Size = New System.Drawing.Size(122, 19)
         Me.ToggleSwitchDateto.TabIndex = 0
         '
         'lblDatefrom
         '
         Me.lblDatefrom.Location = New System.Drawing.Point(3, 211)
         Me.lblDatefrom.Name = "lblDatefrom"
-        Me.lblDatefrom.Size = New System.Drawing.Size(31, 13)
+        Me.lblDatefrom.Size = New System.Drawing.Size(34, 13)
         Me.lblDatefrom.TabIndex = 3
         Me.lblDatefrom.Text = "Datum"
         '
@@ -304,7 +303,7 @@ Partial Class frmFlowSearch1
         Me.ToggleSwitchMonth.Name = "ToggleSwitchMonth"
         Me.ToggleSwitchMonth.Properties.OffText = "Dieser Monat"
         Me.ToggleSwitchMonth.Properties.OnText = "Dieser Monat"
-        Me.ToggleSwitchMonth.Size = New System.Drawing.Size(195, 18)
+        Me.ToggleSwitchMonth.Size = New System.Drawing.Size(195, 19)
         Me.ToggleSwitchMonth.TabIndex = 8
         '
         'ToggleSwitchTomorrow
@@ -314,7 +313,7 @@ Partial Class frmFlowSearch1
         Me.ToggleSwitchTomorrow.Name = "ToggleSwitchTomorrow"
         Me.ToggleSwitchTomorrow.Properties.OffText = "Morgen"
         Me.ToggleSwitchTomorrow.Properties.OnText = "Morgen"
-        Me.ToggleSwitchTomorrow.Size = New System.Drawing.Size(95, 18)
+        Me.ToggleSwitchTomorrow.Size = New System.Drawing.Size(95, 19)
         Me.ToggleSwitchTomorrow.TabIndex = 7
         Me.ToggleSwitchTomorrow.Visible = False
         '
@@ -325,7 +324,7 @@ Partial Class frmFlowSearch1
         Me.ToggleSwitchToday.Name = "ToggleSwitchToday"
         Me.ToggleSwitchToday.Properties.OffText = "Heute"
         Me.ToggleSwitchToday.Properties.OnText = "Heute"
-        Me.ToggleSwitchToday.Size = New System.Drawing.Size(95, 18)
+        Me.ToggleSwitchToday.Size = New System.Drawing.Size(95, 19)
         Me.ToggleSwitchToday.TabIndex = 2
         '
         'ToggleSwitchLastWeek
@@ -335,7 +334,7 @@ Partial Class frmFlowSearch1
         Me.ToggleSwitchLastWeek.Name = "ToggleSwitchLastWeek"
         Me.ToggleSwitchLastWeek.Properties.OffText = "Letzten 7 Tage"
         Me.ToggleSwitchLastWeek.Properties.OnText = "Letzten 7 Tage"
-        Me.ToggleSwitchLastWeek.Size = New System.Drawing.Size(195, 18)
+        Me.ToggleSwitchLastWeek.Size = New System.Drawing.Size(195, 19)
         Me.ToggleSwitchLastWeek.TabIndex = 6
         '
         'ToggleSwitchYesterday
@@ -345,7 +344,7 @@ Partial Class frmFlowSearch1
         Me.ToggleSwitchYesterday.Name = "ToggleSwitchYesterday"
         Me.ToggleSwitchYesterday.Properties.OffText = "Gestern"
         Me.ToggleSwitchYesterday.Properties.OnText = "Gestern"
-        Me.ToggleSwitchYesterday.Size = New System.Drawing.Size(95, 18)
+        Me.ToggleSwitchYesterday.Size = New System.Drawing.Size(95, 19)
         Me.ToggleSwitchYesterday.TabIndex = 3
         '
         'ToggleSwitchYear_Last
@@ -355,7 +354,7 @@ Partial Class frmFlowSearch1
         Me.ToggleSwitchYear_Last.Name = "ToggleSwitchYear_Last"
         Me.ToggleSwitchYear_Last.Properties.OffText = "Letztes Jahr"
         Me.ToggleSwitchYear_Last.Properties.OnText = "Letztes Jahr"
-        Me.ToggleSwitchYear_Last.Size = New System.Drawing.Size(195, 18)
+        Me.ToggleSwitchYear_Last.Size = New System.Drawing.Size(195, 19)
         Me.ToggleSwitchYear_Last.TabIndex = 5
         '
         'ToggleSwitchYear
@@ -365,7 +364,7 @@ Partial Class frmFlowSearch1
         Me.ToggleSwitchYear.Name = "ToggleSwitchYear"
         Me.ToggleSwitchYear.Properties.OffText = "Dieses Jahr"
         Me.ToggleSwitchYear.Properties.OnText = "Dieses Jahr"
-        Me.ToggleSwitchYear.Size = New System.Drawing.Size(195, 18)
+        Me.ToggleSwitchYear.Size = New System.Drawing.Size(195, 19)
         Me.ToggleSwitchYear.TabIndex = 4
         '
         'XtraTabPage2
@@ -379,7 +378,7 @@ Partial Class frmFlowSearch1
         Me.Label1.AutoSize = True
         Me.Label1.Location = New System.Drawing.Point(4, 8)
         Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(44, 13)
+        Me.Label1.Size = New System.Drawing.Size(47, 13)
         Me.Label1.TabIndex = 0
         Me.Label1.Text = "Attribut"
         '
@@ -401,16 +400,6 @@ Partial Class frmFlowSearch1
         Me.LabelControl1.TabIndex = 3
         Me.LabelControl1.Text = "Suchbegriff:"
         '
-        'txtSearchInput
-        '
-        Me.txtSearchInput.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.txtSearchInput.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtSearchInput.Location = New System.Drawing.Point(231, 189)
-        Me.txtSearchInput.Name = "txtSearchInput"
-        Me.txtSearchInput.Size = New System.Drawing.Size(693, 25)
-        Me.txtSearchInput.TabIndex = 4
-        '
         'PictureEdit1
         '
         Me.PictureEdit1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
@@ -429,14 +418,14 @@ Partial Class frmFlowSearch1
         Me.PictureEdit1.Size = New System.Drawing.Size(208, 200)
         Me.PictureEdit1.TabIndex = 8
         '
-        'TextEdit1
+        'txtSearchInput
         '
-        Me.TextEdit1.Location = New System.Drawing.Point(231, 220)
+        Me.txtSearchInput.Location = New System.Drawing.Point(227, 189)
-        Me.TextEdit1.MenuManager = Me.RibbonControl1
+        Me.txtSearchInput.MenuManager = Me.RibbonControl1
-        Me.TextEdit1.Name = "TextEdit1"
+        Me.txtSearchInput.Name = "txtSearchInput"
-        Me.TextEdit1.Properties.Padding = New System.Windows.Forms.Padding(10)
+        Me.txtSearchInput.Properties.Padding = New System.Windows.Forms.Padding(10)
-        Me.TextEdit1.Size = New System.Drawing.Size(528, 40)
+        Me.txtSearchInput.Size = New System.Drawing.Size(697, 40)
-        Me.TextEdit1.TabIndex = 12
+        Me.txtSearchInput.TabIndex = 12
         '
         'frmFlowSearch1
         '
@@ -445,9 +434,8 @@ Partial Class frmFlowSearch1
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(936, 769)
-        Me.Controls.Add(Me.TextEdit1)
-        Me.Controls.Add(Me.PictureEdit1)
         Me.Controls.Add(Me.txtSearchInput)
+        Me.Controls.Add(Me.PictureEdit1)
         Me.Controls.Add(Me.LabelControl1)
         Me.Controls.Add(Me.DockPanel1)
         Me.Controls.Add(Me.RibbonStatusBar1)
@@ -480,7 +468,7 @@ Partial Class frmFlowSearch1
         CType(Me.ToggleSwitchYear_Last.Properties, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.ToggleSwitchYear.Properties, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.PictureEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtSearchInput.Properties, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -505,7 +493,6 @@ Partial Class frmFlowSearch1
     Friend WithEvents ToggleSwitchMonth As DevExpress.XtraEditors.ToggleSwitch
     Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem
-    Friend WithEvents txtSearchInput As TextBox
     Friend WithEvents LabelControl1 As DevExpress.XtraEditors.LabelControl
     Friend WithEvents bsiStatus As DevExpress.XtraBars.BarStaticItem
     Friend WithEvents ToggleSwitchYear As DevExpress.XtraEditors.ToggleSwitch
@@ -522,5 +509,5 @@ Partial Class frmFlowSearch1
     Friend WithEvents DateEditTill As DevExpress.XtraEditors.DateEdit
     Friend WithEvents DateEditFrom As DevExpress.XtraEditors.DateEdit
     Friend WithEvents ToggleSwitchDateto As DevExpress.XtraEditors.ToggleSwitch
-    Friend WithEvents TextEdit1 As DevExpress.XtraEditors.TextEdit
+    Friend WithEvents txtSearchInput As DevExpress.XtraEditors.TextEdit
 End Class

GUIs.ZooFlow/frmFlowForm.Designer.vb

@@ -133,9 +133,6 @@ Partial Class frmFlowForm
         Me.ZooFlowBeendenToolStripMenuItem.Size = New System.Drawing.Size(169, 22)
         Me.ZooFlowBeendenToolStripMenuItem.Text = "ZooFlow beenden"
         '
-        'TimerRefreshData
-        '
-        '
         'PictureBoxPM
         '
         Me.PictureBoxPM.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)

GUIs.ZooFlow/frmFlowForm.vb

@@ -1220,7 +1220,7 @@ Public Class frmFlowForm
             End Try
         End If
     End Function
-    Private Async Function PictureEdit1_Click(sender As Object, e As EventArgs) As Task Handles PictureBoxSearch.Click
+    Private Async Function PictureEdit1_Click(sender As Object, e As EventArgs) As Task Handles SvgImageBox2.Click
         If TextEdit1.Text = String.Empty Then
             Open_FlowSearch()
             Return
@@ -1293,8 +1293,8 @@ Public Class frmFlowForm
         PictureBoxPM.SvgImage = My.Resources.FLOW_Sidebar_Task_inaktiv
     End Sub
 
-    Private Sub TimerRefreshData_Tick_1(sender As Object, e As EventArgs) Handles TimerRefreshData.Tick
+    Private Sub SvgImageBox2_Click(sender As Object, e As EventArgs) Handles SvgImageBox2.Click
-        TaskBadge.Properties.Text = Date.Now.Millisecond.ToString.Last
+        Open_FlowSearch()
     End Sub
 End Class