jj: GridViewProfile

app/DD_PM_WINDREAM/frmMain.Designer.vb

@@ -274,7 +274,6 @@ Partial Class frmMain
         Me.GridViewProfile.GroupPanelText = "Ziehen Sie Spaltenüberschriften in diesen Bereich um nach diesen gruppieren zu la" &
     "ssen"
         Me.GridViewProfile.Name = "GridViewProfile"
-        Me.GridViewProfile.OptionsBehavior.AlignGroupSummaryInGroupRow = DevExpress.Utils.DefaultBoolean.[True]
         Me.GridViewProfile.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
         Me.GridViewProfile.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
         Me.GridViewProfile.OptionsBehavior.Editable = False

app/DD_PM_WINDREAM/frmMain.resx

@@ -125,7 +125,7 @@
         AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
         LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
         ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw
-        CAAAAk1TRnQBSQFMAgEBAgEAAUABAgFAAQIBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
+        CAAAAk1TRnQBSQFMAgEBAgEAAVABAgFQAQIBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
         AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
         AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
         AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA

app/DD_PM_WINDREAM/frmMain.vb

@@ -11,6 +11,7 @@ Public Class frmMain
     Private UserLoggedin As Integer = 0
     Private PROFILE_COUNT As Integer = 0
     Private DTPROFIL As DataTable
+    Private DT_VWPM_PROFILE_ACTIVE As DataTable
 
     Private RedDocuments As Integer = 0
     Private YellowDocuments As Integer = 0
@@ -161,6 +162,7 @@ Public Class frmMain
         Try
             If Me.Visible = True And frmProfileDesigner.Visible = False Then
                 DTPROFIL = ClassDatabase.Return_Datatable("SELECT * FROM TBPM_PROFILE WHERE GUID = " & CURRENT_ProfilGUID)
+                DT_VWPM_PROFILE_ACTIVE = ClassDatabase.Return_Datatable("SELECT * FROM VWPM_PROFILE_ACTIVE")
                 PROFILE_COUNT = 0
                 Dim sql = CURRENT_DT_CONFIG.Rows(0).Item("SQL_PROFILE_MAIN_VIEW")
                 sql = sql.replace("@USER", Environment.UserName)
@@ -170,8 +172,8 @@ Public Class frmMain
                 '       "WHERE T.PROFIL_ID = T1.PROFIL_ID " &
                 '      "AND T1.ACTIVE = 1  And (UPPER(T1.USERNAME) = UPPER('{0}')) Order By T1.PRIORITY", Environment.UserName)
                 Dim DTGRID As DataTable = ClassDatabase.Return_Datatable(sql, True)
-                If Not IsNothing(DTGRID) Then
 
+                If Not IsNothing(DTGRID) Then
                     ' Spalte für Status Icon erstellen
                     Dim columnStateIcon As New DataColumn()
                     columnStateIcon.DataType = GetType(Image)
@@ -218,20 +220,17 @@ Public Class frmMain
                         GridViewProfile.Columns.Item("ICON").MinWidth = 24
                         GridViewProfile.Columns.Item("ICON").AppearanceCell.BackColor = Color.White
 
-                        GridViewProfile.Columns.Item("TL_STATE").SummaryItem.SummaryType = DevExpress.Data.SummaryItemType.Max
-                        GridViewProfile.Columns.Item("TL_STATE").SummaryItem.DisplayFormat = "Max: {0}"
-                        GridViewProfile.Columns.Item("TL_STATE").SummaryItem.FieldName = "TL_STATE"
-
                         GridViewProfile.Columns("Last edited").DisplayFormat.FormatType = FormatType.DateTime
                         GridViewProfile.Columns("Last edited").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
 
-                        'GridViewProfile.OptionsBehavior.AlignGroupSummaryInGroupRow = True
-                        GridViewProfile.OptionsView.ShowGroupPanel = False
                         GridViewProfile.OptionsBehavior.AutoExpandAllGroups = True
+                        GridViewProfile.OptionsView.ShowGroupedColumns = False
                     Catch ex As Exception
                         ClassLogger.Add("Unexpected Error in Formatting Grid: " & ex.Message)
                     End Try
 
+                    GridViewProfile.SaveLayoutToXml(GetXML_LayoutName())
+
                 Else
                     GridControlProfile.DataSource = Nothing
                     Try
@@ -361,6 +360,8 @@ Public Class frmMain
 
     End Sub
 
+
+
     Private Sub GridViewProfile_DoubleClick(sender As Object, e As EventArgs) Handles GridViewProfile.DoubleClick
         Try
             Dim PROFIL_ID = GridViewProfile.GetFocusedRowCellValue(GridViewProfile.Columns("PROFIL_ID"))
@@ -390,9 +391,29 @@ Public Class frmMain
         Dim info As GridGroupRowInfo = TryCast(e.Info, GridGroupRowInfo)
         Dim view As GridView = sender
 
+
         If info.Column.FieldName = "PROFILE_GROUP_TEXT" Then
             info.GroupText = info.GroupValueText
+
+            Dim _color As String
+
+            For Each row As DataRow In DT_VWPM_PROFILE_ACTIVE.Rows
+                If row.Item("PROFILE_GROUP_TEXT") = info.GroupValueText Then
+                    _color = row.Item("PROFILE_GROUP_COLOR")
+                End If
+            Next
+
+            Select Case _color
+                Case "Red"
+                    info.Appearance.BackColor = Color.LightSalmon
+                Case "Green"
+                    info.Appearance.BackColor = Color.LightGreen
+                Case "Yellow"
+                    info.Appearance.BackColor = Color.LightGoldenrodYellow
+                Case Else
                     info.Appearance.BackColor = Color.LightGray
+            End Select
+
         End If
     End Sub
 
@@ -427,4 +448,21 @@ Public Class frmMain
 
         End Try
     End Sub
+
+    Private Sub GridViewProfile_MouseDown(sender As Object, e As MouseEventArgs) Handles GridViewProfile.MouseDown
+        ' Wir brauchen nur einen Doppelklick
+        If e.Button <> MouseButtons.Left Or e.Clicks < 2 Then
+            Exit Sub
+        End If
+
+        Dim view As GridView = sender
+        Dim hi As GridHitInfo = view.CalcHitInfo(e.Location)
+
+        ' wenn in eine Group Row Doppelt geklickt wurde..
+        If hi.InGroupRow Then
+
+            ' Ein/Ausklappen verhindern
+            DXMouseEventArgs.GetMouseArgs(e).Handled = True
+        End If
+    End Sub
 End Class