Sub Globals
....
Public gdUPnav As GradientDrawable, gdDOWNnav As GradientDrawable, gdUPevent As GradientDrawable, gdDOWNevent As GradientDrawable
....
End Sub
Sub Activity_Create(FirstTime As Boolean)
....
gdUPnav.Initialize("BL_TR", Main.clrNavUP)
gdUPnav.CornerRadius=Main.Rad
gdDOWNnav.Initialize("BL_TR", Main.clrNavDOWN)
gdDOWNnav.CornerRadius=Main.Rad
gdUPevent.Initialize("BL_TR", Main.clrEventUP)
gdUPevent.CornerRadius=Main.Rad
gdDOWNevent.Initialize("BL_TR", Main.clrEventDOWN)
gdDOWNevent.CornerRadius=Main.Rad
.....
End Sub
....
btn.Initialize("btnZvonok")
str="Звонок консультанту"
btn.Text=str
btn.TextSize=Main.fSred
btn.Background=gdUPevent
btn.TextColor=Colors.DarkGray
Activity.AddView(btn, 3%x, 76%y, 37%x, 10%y)
....