AppStd/Monorepo
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Zooflow: Search

Browse Source
This commit is contained in:
Jonathan Jenne
2022-05-19 14:02:15 +02:00
parent a9cf7d6b6c
commit 0c23878301
5 changed files with 56 additions and 83 deletions
Download Patch File Download Diff File Expand all files Collapse all files

39
GUIs.ZooFlow/Search/frmFlowSearch2.vb
View File

@@ -137,29 +137,26 @@ Public Class frmFlowSearch2
}
End Function
Private Function GetTokens() As IEnumerable(Of AttributeValueToken)
Private Function GetTokens() As IEnumerable(Of Token)
Dim oTokens = TokenEditEx1.GetTokenList()
Return oTokens.Select(Of AttributeValueToken)(Function(token) token.Value).ToList()
Return oTokens.Select(Of Token)(Function(token) token.Value).ToList()
End Function
Private Async Sub TextEdit1_KeyUp(sender As Object, e As KeyEventArgs) Handles TextEdit1.KeyUp
Private Async Sub TextEdit1_KeyUp(sender As Object, e As KeyEventArgs)
If e.KeyCode = Keys.Enter Then
Dim oTokens = GetTokens()
Await RunSearch(oTokens)
Await RunSearch(GetTokens())
End If
End Sub
Private Async Sub SearchControl2_KeyUp(sender As Object, e As KeyEventArgs) Handles TokenEditEx1.KeyUp
If e.KeyCode = Keys.Enter And TokenEditEx1.IsPopupOpen = False Then
Dim oTokens = GetTokens()
Await RunSearch(oTokens)
Await RunSearch(GetTokens())
End If
End Sub
Private Async Sub TextEdit1_ButtonClick(sender As Object, e As DevExpress.XtraEditors.Controls.ButtonPressedEventArgs) Handles TextEdit1.ButtonClick
Private Async Sub TextEdit1_ButtonClick(sender As Object, e As DevExpress.XtraEditors.Controls.ButtonPressedEventArgs)
If e.Button.Tag = "SEARCH" Then
Dim oTokens = GetTokens()
Await RunSearch(oTokens)
Await RunSearch(GetTokens())
End If
End Sub
@@ -182,7 +179,7 @@ Public Class frmFlowSearch2
Dim oResult = Await SearchRunner.RunWithSearchTerm(String.Empty, oDateFrom, oDateTo, pTokens, "")
If oResult.OK = False Then
SetStatusBarColor(Color.OrangeRed)
SetStatusBarColor(Color.OrangeRed, Color.White)
End If
lblResults.Caption = $"{oResult.Count} Ergebnisse"
@@ -211,11 +208,19 @@ Public Class frmFlowSearch2
Dim oResult = Await SearchRunner.RunWithSearchTerm("", oSearchTitle)
If oResult.Count = 0 Then
SetStatusBarColor(Color.OrangeRed)
If oResult.OK = False Then
SetStatusBarColor(Color.OrangeRed, Color.White)
lblResults.Caption = oResult.ErrorMessage
ElseIf oResult.Count = 0 Then
SetStatusBarColor(Color.OrangeRed, Color.White)
lblResults.Caption = $"Keine Ergebnisse"
Else
lblResults.Caption = $"{oResult.Count} Ergebnisse"
End If
lblResults.Caption = $"{oResult.Count} Ergebnisse"
Catch ex As Exception
MsgBox(ex.Message)
Finally
@@ -224,7 +229,7 @@ Public Class frmFlowSearch2
End Sub
Private Function StartUpdateUI() As IOverlaySplashScreenHandle
SetStatusBarColor(Color.FromArgb(255, 240, 240, 240))
SetStatusBarColor(Color.FromArgb(255, 240, 240, 240), Color.Black)
Dim oHandle = SplashScreenManager.ShowOverlayForm(LayoutControl1)
Return oHandle
End Function
@@ -233,16 +238,18 @@ Public Class frmFlowSearch2
SplashScreenManager.CloseOverlayForm(pHandle)
End Sub
Private Sub SetStatusBarColor(pColor As Color)
Private Sub SetStatusBarColor(pColor As Color, pForeColor As Color)
' Change color for StatusBarBackground
Dim element As SkinElement = SkinManager.GetSkinElement(SkinProductId.Ribbon, UserLookAndFeel.Default, "StatusBarBackground")
element.Color.SolidImageCenterColor = pColor
element.Color.BackColor = pColor
element.Color.ForeColor = pForeColor
' Change color for StatusBarFormBackground
Dim element2 As SkinElement = SkinManager.GetSkinElement(SkinProductId.Ribbon, UserLookAndFeel.Default, "StatusBarFormBackground")
element2.Color.SolidImageCenterColor = pColor
element2.Color.BackColor = pColor
element2.Color.ForeColor = pForeColor
' Force update of LookAndFeel
LookAndFeelHelper.ForceDefaultLookAndFeelChanged()