MS_30.05.2016

app/DD-Record-Organiser/frmConstructor_Main.vb

@@ -4796,13 +4796,13 @@ Public Class frmConstructor_Main
                     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))
+                    Dim rowCellValue = grvwGrid.GetRowCellValue(e.RowHandle, "COLOR")
+                    If rowCellValue <> "" Then
+                        Dim Color As Color = Color.FromArgb(rowCellValue)
+                        ' Dim c As Color = DirectCast(rowCellValue, Color)
+                        e.Appearance.BackColor = Color
+                        e.HighPriority = True
                     End If
-
                 Catch ex As Exception
                     MsgBox(ex.Message, MsgBoxStyle.Critical)
                 End Try
@@ -5339,4 +5339,7 @@ Public Class frmConstructor_Main
 #End Region
 
 
+    Private Sub grvwGrid_CellValueChanged(sender As Object, e As CellValueChangedEventArgs) Handles grvwGrid.CellValueChanged
+
+    End Sub
 End Class