ZooFlow: Finishing Attribute Form

GUIs.ZooFlow/Administration/frmAdmin_Start.vb

@@ -122,15 +122,51 @@ Public Class frmAdmin_Start
 
             Dim oGridView = DirectCast(GridControl.DefaultView, GridView)
 
+            With oGridView.Appearance.EvenRow
+                .BackColor = Color.Gainsboro
+                .Options.UseBackColor = True
+            End With
+
+            With oGridView.Appearance.FocusedCell
+                .BackColor = Color.Gold
+                .Options.UseBackColor = True
+            End With
+
+            With oGridView.Appearance.FocusedRow
+                .BackColor = Color.Gold
+                .Options.UseBackColor = True
+            End With
+
             With oGridView.OptionsBehavior
                 .Editable = False
                 .ReadOnly = True
             End With
 
+            With oGridView.OptionsClipboard
+                .CopyColumnHeaders = DefaultBoolean.False
+            End With
+
+            With oGridView.OptionsFind
+                .AlwaysVisible = True
+            End With
+
             With oGridView.OptionsView
                 .ShowAutoFilterRow = True
+                .EnableAppearanceEvenRow = True
+                .ShowIndicator = False
             End With
 
+            AddHandler oGridView.KeyDown, Sub(sender As Object, e As KeyEventArgs)
+                                              Dim oView As GridView = DirectCast(sender, GridView)
+                                              If e.Control AndAlso e.KeyCode = Keys.C And e.Modifiers = Keys.Control Then
+                                                  Dim oCellValue = oView.GetRowCellValue(oView.FocusedRowHandle, oView.FocusedColumn)
+                                                  If oCellValue IsNot Nothing AndAlso oCellValue.ToString() <> String.Empty Then
+                                                      Clipboard.SetText(oCellValue.ToString)
+                                                  End If
+                                                  e.Handled = True
+                                              End If
+                                          End Sub
+
             oGridView.BestFitColumns()
 
         Catch ex As Exception
@@ -146,7 +182,7 @@ Public Class frmAdmin_Start
             Try
                 Dim oRow As DataRow = ViewAttributes.GetFocusedDataRow
                 Dim oPrimaryKey As Integer = oRow.Item(PrimaryKey)
-                Dim oForm As New frmAdmin_Attribute(oPrimaryKey)
+                Dim oForm As New frmAdmin_IDBAttribute(oPrimaryKey)
 
                 GridView1.ShowLoadingPanel()
                 oForm.ShowDialog()