This commit is contained in:
SchreiberM 2016-11-09 11:15:40 +01:00
commit 5cb29f2d7d

View File

@ -324,6 +324,8 @@ Public Class frmMain
Dim bimg() As Byte = row.Item("MENU_IMG")
Dim bitmap As Bitmap = ByteArrayToBitmap(bimg)
image2 = bitmap
Else
image2 = My.Resources.changechartlegendalignment_32x32
End If
Dim title = row.Item("FORM_TITLE")
If title = "CAPTION (OBJ) NOT TRANSLATED" Then
@ -348,6 +350,7 @@ Public Class frmMain
AddHandler item.ItemClick, AddressOf ToolbarButtonItemClick
groupQuickAccessForm.ItemLinks.Add(item)
image2 = Nothing
Next
End If