JJ 23.09.15

app/DD-Record-Organiser/frmMain.vb

@@ -190,6 +190,29 @@ Public Class frmMain
             End Try
         Next
     End Sub
+
+    Delegate Sub SetWindowTitleDelegate(t As String)
+    Public Sub SetWindowTitle(t As String)
+        If Me.InvokeRequired Then
+            Dim d As New SetWindowTitleDelegate(AddressOf SetWindowTitle)
+            Me.Invoke(d, New Object() {t})
+        Else
+            Me.Text = t
+        End If
+    End Sub
+
+    Delegate Sub SetWindowBackgroundDelegate(i As Bitmap)
+    Public Sub SetWindowBackground(i As Bitmap)
+        If Me.InvokeRequired Then
+            Dim d As New SetWindowBackgroundDelegate(AddressOf SetWindowBackground)
+            Me.Invoke(d, New Object() {i})
+        Else
+            Me.BackgroundImage = i
+        End If
+    End Sub
+
+
+
     Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles Me.Load
         Try
             ' Form Titel setzen