
Example of customizing B4XDialog and B4XDateTemplate.
B4X:
Sub SetLightTheme
Dialog.TitleBarColor = 0xFFFF7505
Dialog.TitleBarHeight = 80dip
Dim TextColor As Int = 0xFF5B5B5B
Dialog.BackgroundColor = xui.Color_White
Dialog.ButtonsColor = xui.Color_White
Dialog.ButtonsTextColor = Dialog.TitleBarColor
Dialog.BorderColor = xui.Color_Transparent
DateTemplate.DaysInWeekColor = xui.Color_Black
DateTemplate.SelectedColor = 0xFF39D7CE
DateTemplate.HighlightedColor = 0xFF00CEFF
DateTemplate.DaysInMonthColor = TextColor
DateTemplate.lblMonth.TextColor = TextColor
DateTemplate.lblYear.TextColor = TextColor
DateTemplate.SelectedColor = 0xFFFFA761
For Each x As B4XView In Array(DateTemplate.btnMonthLeft, DateTemplate.btnMonthRight, DateTemplate.btnYearLeft, DateTemplate.btnYearRight)
x.Color = xui.Color_Transparent
Next
End Sub
Attachments
-
9.3 KB Views: 482