MS Config

2022-02-22 15:30:04 +01:00
parent ed505ec71f
commit bd05410f4a
4 changed files with 210 additions and 220 deletions
--- a/GUIs.ZooFlow/frmConfigBasic.vb
+++ b/GUIs.ZooFlow/frmConfigBasic.vb
@@ -20,7 +20,12 @@ Public Class frmConfigBasic
                    Dim oItem = SkinPaletteRibbonGalleryBarItem1.Gallery.GetAllItems().
                        Where(Function(item) item.Value = orow.ItemEx("CAT_STRING", String.Empty)).
                        FirstOrDefault()
-                    SkinPaletteRibbonGalleryBarItem1.Gallery.SetItemCheck(oItem, True)
+                    If Not IsNothing(oItem) Then
+                        SkinPaletteRibbonGalleryBarItem1.Gallery.SetItemCheck(oItem, True)
+                    End If
+
+
+

            End Select
        Next