Dim s As B4XColorTemplate
s.Initialize
s.mBase.Height = 85%y
s.mBase.Width = 90%x
Dim hsvcol As ARGBColor
hsvcol.Initialize
Dim inten As Float
tempbc.Initialize(0,0)
dialog.Title = "Choose colour"
dialog.Initialize(Activity)
wait for (dialog.ShowTemplate(s, "Ok", "", "Cancel")) complete (r As Int)
.....etc etc