http://www.purebasic.com
https://www.purebasic.fr/english/
Code: Select all
OpenWindow(0,100,100,100,100,"Test")
DateGadget(1,0,0,100,22,"%dd.%mm.%yyyy",Date(),#PB_Date_CheckBox)
SetGadgetColor(1,#PB_Gadget_BackColor,#Red)
SetGadgetColor(1,#PB_Gadget_FrontColor,#Red)
Repeat:Until WaitWindowEvent()=#PB_Event_CloseWindow
Code: Select all
EnableExplicit
Procedure WindowCallback(hWnd, uMsg, wParam, lParam)
Protected *NMDATETIMECHANGE.NMDATETIMECHANGE
Select uMsg
Case #WM_NOTIFY
*NMDATETIMECHANGE = lParam
Select *NMDATETIMECHANGE\nmhdr\hwndfrom
Case GadgetID(0)
If *NMDATETIMECHANGE\nmhdr\code = #DTN_DROPDOWN
SetWindowTheme_(FindWindowEx_(FindWindow_("DropDown", 0), #Null, "SysMonthCal32", #Null), @"", @"")
EndIf
EndSelect
EndSelect
ProcedureReturn #PB_ProcessPureBasicEvents
EndProcedure
If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
DateGadget(0, 15, 50, 200, 17, "%dd/%mm/%yyyy", Date())
SetGadgetColor(0, #PB_Gadget_BackColor, #Red)
SetGadgetColor(0, #PB_Gadget_FrontColor, #Red)
SetWindowCallback(@WindowCallback())
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
End
EndSelect
ForEver
EndIf
I mean the dropdown calendarThis gadget supports the SetGadgetColor() and GetGadgetColor() functions with the following values as 'ColorType' to color the dropdown calendar (the edit area cannot be colored)
Code: Select all
OpenWindow(0, 0,0,400,300, "", #PB_Window_SystemMenu| #PB_Window_ScreenCentered)
DateGadget(0, 10, 90, 100, 25,"%mm/%dd/%yyyy")
SetGadgetColor(0,#PB_Gadget_FrontColor , #Red)
SetGadgetColor(0, #PB_Gadget_BackColor,RGB(255,255,128))
StringGadget(1, 10, 10, 100, 25, "")
SetGadgetColor(1, #PB_Gadget_BackColor,RGB(255,255,128))
StringGadget(2, 10, 50, 100, 25, "")
SetGadgetColor(2, #PB_Gadget_BackColor,RGB(255,255,128))
ButtonGadget(3,10,265,60,25,"TEST")
SetThemeAppProperties_(1)
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
Quit = 1
Case #PB_Event_Gadget
Select EventGadget()
Case 0
EndSelect
EndSelect
Until Quit = 1
Code: Select all
if (((LPNMHDR)lParam)->code == DTN_DROPDOWN)
{
if (MonthCalWindow = (HWND)SendMessage(((LPNMHDR)lParam)->hwndFrom, DTM_GETMONTHCAL, 0, 0))
{
SetWindowTheme(MonthCalWindow, L"", L"");
}
}