Dim matpicker As B4XwebGetMAT
matpicker.Initialize("")
Dim fnt As B4XFont = xui.CreateFont(Typeface.DEFAULT_BOLD, 18)
Dim cs As CSBuilder
Dialog.Title = cs.Initialize.Size(24).Append("Material auswaehlen").PopAll
Dialog.ButtonsFont = fnt
Dialog.ButtonsTextColor = xui.Color_RGB(128, 200, 20)
Dialog.ButtonsColor = xui.Color_rgb(120, 120, 120)
Dim rs As ResumableSub = Dialog.ShowTemplate(matpicker, "Ok", "", "Abbruch")
Wait For (rs) Complete (Result As Int)