jj 07.03.2016 add default entity icon

2016-03-07 11:50:32 +01:00
parent 89e5d5b721
commit 26da599ee0
8 changed files with 58 additions and 72 deletions
--- a/app/DD-Record-Organiser/frmMain.vb
+++ b/app/DD-Record-Organiser/frmMain.vb
@@ -161,7 +161,7 @@ Public Class frmMain
                    Dim image As Bitmap = Nothing

                    If IsDBNull(row.Item("MENU_IMG")) Then
-                        image = LoadNoImage()
+                        image = My.Resources.ResourceManager.GetObject("changechartlegendalignment_32x32")
                    Else
                        Dim bimg() As Byte = row.Item("MENU_IMG")
                        Dim bitmap As Bitmap = ByteArrayToBitmap(bimg)
@@ -187,6 +187,7 @@ Public Class frmMain
                    item.Caption = title
                    item.Tag = tag
                    item.Glyph = image
+                    item.LargeGlyph = image

                    AddHandler item.ItemClick, AddressOf ToolbarButtonItemClick
                    groupQuickAccessForm2.ItemLinks.Add(item)