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 'End If
If pNavbarClick = False Then If pNavbarClick = False Then
If pForceReload = True And (GridLayoutChanged() = True Or oColNotPartofLayout = True) Then If pForceReload = True And (GridLayoutChanged() = True Or oColNotPartofLayout = True) Then
ResetLayout() 'ResetLayout()
SaveGridLayout() 'SaveGridLayout()
LOGGER.Debug("Now GridLayout_Reset..")
Await GridLayout_Reset(False)
Else Else
If oColNotPartofLayout = False Then If oColNotPartofLayout = False Then
RestoreLayout() RestoreLayout()
@ -2069,8 +2071,11 @@ Public Class frmMain
Try Try
Create_GroupBy_Parts() If pForceReload = True And (GridLayoutChanged() = True Or oColNotPartofLayout = True) Then
COLUMNS_INVISIBLE() Create_GroupBy_Parts()
COLUMNS_INVISIBLE()
End If
@ -2086,18 +2091,7 @@ Public Class frmMain
End If 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...") LOGGER.Debug("GridViewWorkflows.Columns loaded...")
Try Try
Dim oReducedColName = LAST_EDITED_COLUMN.Replace("[", "") Dim oReducedColName = LAST_EDITED_COLUMN.Replace("[", "")
@ -2154,11 +2148,14 @@ Public Class frmMain
End If End If
End Sub 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" FRONTEND_ACTION = "RESET_LAYOUT"
Await Reset_GridLayout(False) Await Reset_GridLayout(False)
Await Decide_Load(False, True) If Also_decideload Then
Await Decide_Load(False, True)
End If
GridViewWorkflows.OptionsView.ShowViewCaption = False GridViewWorkflows.OptionsView.ShowViewCaption = False
SaveGridLayout() SaveGridLayout()
If GridViewWorkflows.GroupCount = 0 And Not IsNothing(GridViewWorkflows.Columns("GROUP_TEXT")) Then 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() LoadNavBar()
If oUserLanguage <> onewUserLanguage Then If oUserLanguage <> onewUserLanguage Then
MsgBox($"Layout will be reset as language changed from {oUserLanguage} to {onewUserLanguage}", MsgBoxStyle.Exclamation, ADDITIONAL_TITLE) MsgBox($"Layout will be reset as language changed from {oUserLanguage} to {onewUserLanguage}", MsgBoxStyle.Exclamation, ADDITIONAL_TITLE)
Await GridLayout_Reset() Await GridLayout_Reset(True)
Else Else
Await Decide_Load(False) Await Decide_Load(False)
End If 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 Private Async Sub BarButtonItem3_ItemClick_2(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemResetLayout.ItemClick
LOGGER.Info("User clicked reset layout") LOGGER.Info("User clicked reset layout")
Await GridLayout_Reset() Await GridLayout_Reset(True)
End Sub End Sub
Private Sub barbtnitmsaveLogfiles_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles barbtnitmsaveLogfiles.ItemClick Private Sub barbtnitmsaveLogfiles_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles barbtnitmsaveLogfiles.ItemClick