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 b As B4XView In Array(DateTemplate.btnMonthLeft, DateTemplate.btnMonthRight, DateTemplate.btnYearLeft, DateTemplate.btnYearRight)
b.Color = xui.Color_Transparent
b.TextColor = TextColor
#if B4i
Dim no As NativeObject = b
no.RunMethod("setTitleColor:forState:", Array(no.ColorToUIColor(TextColor), 0))
#End If
Next
End Sub