MS Init TEST/PROD, Layout

This commit is contained in:
2024-07-09 16:37:36 +02:00
parent 4a93b2e6fe
commit 1c5afd198f
5 changed files with 143 additions and 107 deletions

View File

@@ -66,6 +66,7 @@ Public Class frmMain
Private Const FA_NONE = "NONE"
Public Const NAVBAR_CLICKED = "NAVBAR LINK CLICKED"
Private Class S
Inherits My.Resources.frmMain_Strings
End Class
@@ -997,6 +998,7 @@ Public Class frmMain
GridControlWorkflows.DataSource = Nothing
Else
NO_WORKFLOWITEMS = False
lblCaptionMainGrid.Text = CURRENT_CLICKED_PROFILE_TITLE
End If
Create_Basic_View()
@@ -2795,13 +2797,14 @@ FROM VWPM_PROFILE_ACTIVE T WHERE T.FILE_COUNT > 0 AND T.GUID IN (SELECT PROFILE_
End If
If Ev_Filter_Panel_Closed = False Then
Dim objectCount_Descr As String = S.Filter_aktiv
lblCaptionMainGrid.Text += $"|{objectCount_Descr}"
Else
Ev_Filter_Panel_Closed = False
End If
If GridViewWorkflows.ActiveFilterEnabled Then
Dim oTermFilterActive As String = S.Filter_aktiv
If GridViewWorkflows.ActiveFilterString <> String.Empty Then
If Not lblCaptionMainGrid.Text.Contains(oTermFilterActive) Then
lblCaptionMainGrid.Text += $"|{oTermFilterActive}"
Else
Ev_Filter_Panel_Closed = False
End If
End If
End If
GridLayout_Changed("ColumnFilterChanged")
@@ -3293,4 +3296,14 @@ FROM VWPM_PROFILE_ACTIVE T WHERE T.FILE_COUNT > 0 AND T.GUID IN (SELECT PROFILE_
LOGGER.Info("User clicked reset layout")
Await GridLayout_Reset()
End Sub
Private Sub GridViewWorkflows_KeyUp(sender As Object, e As KeyEventArgs) Handles GridViewWorkflows.KeyUp
If GridViewWorkflows.ActiveFilterEnabled = False Then
If DetailLinkActive Then
lblCaptionMainGrid.Text = CURRENT_CLICKED_PROFILE_TITLE
Else
Create_View_Caption()
End If
End If
End Sub
End Class