MS2

app/DD-Record-Organiser/frmConstructor_Main.vb

@@ -4790,6 +4790,23 @@ Public Class frmConstructor_Main
     Private Sub grvwGrid_RowStyle(sender As Object, e As DevExpress.XtraGrid.Views.Grid.RowStyleEventArgs) Handles grvwGrid.RowStyle
         If e.RowHandle = DevExpress.XtraGrid.GridControl.AutoFilterRowHandle Then
             e.Appearance.BackColor = Color.Orange
+        Else
+            If GRID_TYPE = GridType.Grid Then
+                If e.RowHandle = -1 Then
+                    Exit Sub
+                End If
+                Try
+                    Dim row = grvwGrid.GetDataRow(e.RowHandle)
+                    Dim itemvalue = row.Item("COLOR")
+                    If itemvalue <> "" Then
+                        Console.WriteLine("RowColor: " & itemvalue)
+                        e.Appearance.BackColor = ColorTranslator.FromWin32(CInt(itemvalue))
+                    End If
+
+                Catch ex As Exception
+                    MsgBox(ex.Message, MsgBoxStyle.Critical)
+                End Try
+            End If
         End If
     End Sub
     Private Sub grvwGrid_MouseDown(sender As Object, e As MouseEventArgs) Handles grvwGrid.MouseDown, grvwTiles.MouseDown, grvwCarousel.MouseDown