Sub SetLightTheme
Dialog.TitleBarColor = 0xFFFF7505
Dialog.TitleBarHeight = 80dip
[B] Dim TextColor As Int = xui.Color_Green ' 0xFF5B5B5B[/B]
Dialog.BackgroundColor = xui.Color_White
Dialog.ButtonsColor = xui.Color_White
Dialog.ButtonsTextColor = Dialog.TitleBarColor
Dialog.BorderColor = xui.Color_Transparent
[B]DateTemplate.DaysInWeekColor = xui.Color_Red[/B]
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