AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

jj 07.03.2016 - fix loading background image

Browse Source
This commit is contained in:
JenneJ
2016-03-07 11:36:14 +01:00
parent 3266da1baa
commit 89e5d5b721
3 changed files with 22 additions and 61 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
app/DD-Record-Organiser/ClassInit.vb
View File

@@ -51,33 +51,6 @@ Public Class ClassInit
End Sub
Public Sub InitInterface(mainForm As frmMain)
Dim SQL As String = "SELECT BACKGROUND_IMAGE, PRODUCT_NAME1 FROM TBDD_MODULES WHERE NAME = 'Record-Organizer'"
Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL)
If dt.Rows.Count > 0 Then
Dim row As DataRow = dt.Rows(0)
If Not IsDBNull(row.Item("BACKGROUND_IMAGE")) Then
Dim bimage() As Byte = CType(row.Item("BACKGROUND_IMAGE"), Byte())
Dim image As Bitmap = ByteArrayToBitmap(bimage)
mainForm.SetWindowBackground(image)
End If
If Not IsDBNull(row.Item("PRODUCT_NAME1")) Then
Dim title As String = row.Item("PRODUCT_NAME1")
mainForm.SetWindowTitle(title)
End If
End If
End Sub
Public Sub InitUserLogin()
Dim sql = sql_UserID
sql = sql.Replace("@user", Environment.UserName)