Zooflow: Fix theming, show overlay for keyup event in search

GUIs.ZooFlow/ClassInit.vb

@@ -228,8 +228,18 @@ Public Class ClassInit
 
             For Each oRow As DataRow In My.Tables.DTIDB_CATALOG_USER.Rows
                 If oRow.Item("CAT_TITLE") = ClassConstants.USER_CATALOG_APPLICATION_THEME Then
-                    Dim oPaletteName As String = oRow.ItemEx("CAT_STRING", "Digital Data")
-                    UserLookAndFeel.Default.SetSkinStyle(SkinStyle.Basic, oPaletteName)
+                    Dim oThemeName As String = oRow.ItemEx("CAT_STRING", "Digital Data")
+
+                    If oThemeName.Contains("|") Then
+                        Dim oSkin = oThemeName.Split("|").ElementAt(0)
+                        Dim oPalette = oThemeName.Split("|").ElementAt(1)
+
+                        MyApplication.Skin = oSkin
+                        MyApplication.Palette = oPalette
+                    Else
+                        MyApplication.Skin = oThemeName
+                        MyApplication.Palette = ""
+                    End If
                 End If
             Next