Sub getBackgroundImageName(strImage As String) As String
Dim lstImage As List
Dim index As Int
lstImage.Initialize
lstImage.AddAll(Array As String("tisch_01","tisch_02","tisch_03","tisch_04","tisch_05","tisch_06","tisch_07","tisch_08"))
If strImage <> "" Then
index = lstImage.IndexOf(strImage)
Else
index = 1
End If
If index > -1 Then
Starter.manager.SetString("imgBackground", lstImage.Get(index))
Return lstImage.Get(index)
Else
Starter.manager.SetString("imgBackground", lstImage.Get(1))
Return lstImage.Get(1) '1=tisch_02
End If
End Sub