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

MS Anpassungen Layout speichern bei windream konfig

Browse Source
This commit is contained in:
Developer01 2024-08-27 17:28:05 +02:00
parent 09b60929b3
commit 9ffad954cb
1 changed files with 16 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
app/TaskFlow/frmMain.vb
View File

@ -2056,8 +2056,10 @@ Public Class frmMain
'End If
If pNavbarClick = False Then
If pForceReload = True And (GridLayoutChanged() = True Or oColNotPartofLayout = True) Then
ResetLayout()
SaveGridLayout()
'ResetLayout()
'SaveGridLayout()
LOGGER.Debug("Now GridLayout_Reset..")
Await GridLayout_Reset(False)
Else
If oColNotPartofLayout = False Then
RestoreLayout()
@ -2069,8 +2071,11 @@ Public Class frmMain
Try
Create_GroupBy_Parts()
COLUMNS_INVISIBLE()
If pForceReload = True And (GridLayoutChanged() = True Or oColNotPartofLayout = True) Then
Create_GroupBy_Parts()
COLUMNS_INVISIBLE()
End If
@ -2086,18 +2091,7 @@ Public Class frmMain
End If
'If IDB_ACTIVE = True Then
' Try
' GridViewWorkflows.Columns.Item("CONVERSATION").MaxWidth = 24
' GridViewWorkflows.Columns.Item("CONVERSATION").MinWidth = 24
' GridViewWorkflows.Columns.Item("CONVERSATION").Fixed = DevExpress.XtraGrid.Columns.FixedStyle.Left
' Catch ex As Exception
' LOGGER.Info("LoadGridOverview - Column CONVERSATION obviously not part of GridViewWorkflows")
' End Try
'End If
'GridViewWorkflows.OptionsView.ShowIndicator = False
LOGGER.Debug("GridViewWorkflows.Columns loaded...")
Try
Dim oReducedColName = LAST_EDITED_COLUMN.Replace("[", "")
@ -2154,11 +2148,14 @@ Public Class frmMain
End If
End Sub
Private Async Function GridLayout_Reset() As Tasks.Task
Private Async Function GridLayout_Reset(Also_decideload As Boolean) As Tasks.Task
FRONTEND_ACTION = "RESET_LAYOUT"
Await Reset_GridLayout(False)
Await Decide_Load(False, True)
If Also_decideload Then
Await Decide_Load(False, True)
End If
GridViewWorkflows.OptionsView.ShowViewCaption = False
SaveGridLayout()
If GridViewWorkflows.GroupCount = 0 And Not IsNothing(GridViewWorkflows.Columns("GROUP_TEXT")) Then
@ -2766,7 +2763,7 @@ FROM VWPM_PROFILE_ACTIVE T WHERE T.FILE_COUNT > 0 AND T.GUID IN (SELECT PROFILE_
LoadNavBar()
If oUserLanguage <> onewUserLanguage Then
MsgBox($"Layout will be reset as language changed from {oUserLanguage} to {onewUserLanguage}", MsgBoxStyle.Exclamation, ADDITIONAL_TITLE)
Await GridLayout_Reset()
Await GridLayout_Reset(True)
Else
Await Decide_Load(False)
End If
@ -3275,7 +3272,7 @@ FROM VWPM_PROFILE_ACTIVE T WHERE T.FILE_COUNT > 0 AND T.GUID IN (SELECT PROFILE_
Private Async Sub BarButtonItem3_ItemClick_2(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemResetLayout.ItemClick
LOGGER.Info("User clicked reset layout")
Await GridLayout_Reset()
Await GridLayout_Reset(True)
End Sub
Private Sub barbtnitmsaveLogfiles_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles barbtnitmsaveLogfiles.ItemClick