Dim options As B4XSearchTemplate
options.Initialize
options.SearchField.HintText =" Suchen" ' <<<==== Unfortunately nothing changes here!
options.SearchField.HintColor = xui.Color_Magenta
options.CustomListView1.DefaultTextBackgroundColor = xui.Color_White
options.CustomListView1.DefaultTextColor = xui.Color_DarkGray
options.ItemHightlightColor = xui.Color_Green
options.SearchField.HintColor = xui.Color_Magenta
Dim l As List
l.Initialize
l.Add("Eins")
l.Add("Zwei")
l.Add("Drei")
l.Add("Vier")
l.Add("Fünf")
l.Add("Sechs")
l.Add("Sieben")
l.Add("Acht")
l.Add("Neun")
l.Add("Zehn")
options.Setitems(l)
dialog.Title = "Suchen"
dialog.BlurBackground = True
dialog.BackgroundColor = xui.Color_White
dialog.ButtonsColor = xui.Color_White
dialog.TitleBarColor = xui.Color_Red'xui.Color_ARGB(255, 255, 193, 7)
dialog.BorderColor = xui.Color_LightGray
dialog.ButtonsTextColor = xui.Color_Red'xui.Color_ARGB(255, 255, 193, 7)
dialog.BorderCornersRadius = 10
Wait For (dialog.ShowTemplate(options, "", "", "Abbruch")) Complete (Result As Int)
If Result = xui.DialogResponse_Positive Then
'Log("OK " & options.SelectedItem)
Label1.Text = options.SelectedItem
End If
If Result = xui.DialogResponse_Cancel Then Log("Abbruch")