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

GUIs.ZooFlow/frmConfigBasic.vb

@@ -20,6 +20,8 @@ Public Class frmConfigBasic
                     Dim oItem = SkinPaletteRibbonGalleryBarItem1.Gallery.GetAllItems().
                         Where(Function(item) item.Value = orow.ItemEx("CAT_STRING", String.Empty)).
                         FirstOrDefault()
+
+
                     If Not IsNothing(oItem) Then
                         SkinPaletteRibbonGalleryBarItem1.Gallery.SetItemCheck(oItem, True)
                     End If
@@ -105,10 +107,36 @@ Public Class frmConfigBasic
     End Sub
 
     Private Sub SkinPaletteRibbonGalleryBarItem1_GalleryItemClick(sender As Object, e As DevExpress.XtraBars.Ribbon.GalleryItemClickEventArgs) Handles SkinPaletteRibbonGalleryBarItem1.GalleryItemClick
-        Dim oName = e.Item.Value
+        UpdateThemeSettings()
+    End Sub
 
+    Private Sub SkinRibbonGalleryBarItem1_GalleryItemClick(sender As Object, e As DevExpress.XtraBars.Ribbon.GalleryItemClickEventArgs) Handles SkinRibbonGalleryBarItem1.GalleryItemClick
+        Dim oDefaultPalette = SkinPaletteRibbonGalleryBarItem1.Gallery.GetAllItems().FirstOrDefault()
+
+        If oDefaultPalette IsNot Nothing Then
+            SkinPaletteRibbonGalleryBarItem1.Gallery.FocusedItem = oDefaultPalette
+        End If
+
+        UpdateThemeSettings()
+    End Sub
+
+    Private Sub UpdateThemeSettings()
         Try
-            Dim oUpd = $"UPDATE TBIDB_CATALOG_USER SET CHANGED_WHO = '{My.Application.User.UserName}', CAT_STRING  = '{oName}'
+            Dim oPalette = SkinPaletteRibbonGalleryBarItem1.Gallery.GetCheckedItem()
+            Dim oSkin = SkinRibbonGalleryBarItem1.Gallery.GetCheckedItem()
+            Dim oThemeString = ""
+
+            If oSkin Is Nothing Then
+                Exit Sub
+            End If
+
+            oThemeString = oSkin.Value
+
+            If oPalette IsNot Nothing Then
+                oThemeString &= "|" & oPalette.Value
+            End If
+
+            Dim oUpd = $"UPDATE TBIDB_CATALOG_USER SET CHANGED_WHO = '{My.Application.User.UserName}', CAT_STRING  = '{oThemeString}'
             WHERE CAT_TITLE = '{ClassConstants.USER_CATALOG_APPLICATION_THEME}'"
             If My.Database.ExecuteNonQuery(oUpd, DigitalData.Modules.EDMI.API.Constants.DatabaseType.IDB) = True Then
                 bsiInfo.Caption = "Application Theme saved!"