fix focus state for datepicker/lookup control

Global_Indexer/ClassControls.vb

@@ -75,6 +75,7 @@ Public Class ClassControls
                     .IndexType = DataType
                 }
             }
+            oControl.Properties.AppearanceFocused.BackColor = Color.Lime
 
             If Not String.IsNullOrEmpty(Vorgabe) Then
                 Dim oDefaultValues As New List(Of String)
@@ -372,6 +373,7 @@ Public Class ClassControls
                 .IndexType = DataType
             }
         }
+        oPicker.Properties.AppearanceFocused.BackColor = Color.Lime
 
         Return oPicker
     End Function