Pb color with DateGadget
Posted: Tue Dec 03, 2024 2:31 pm
Hi,
I want to use setgadgetcolor with a DateGadget, but it does'nt work with Window11. On MasOS only the BackColor work for the calendar and not for the string.
Does anybody have an idea ?
Thanks
// Edit: Moved from "Bugs - Windows" to "Coding Questions" (Kiffi)
I want to use setgadgetcolor with a DateGadget, but it does'nt work with Window11. On MasOS only the BackColor work for the calendar and not for the string.
Does anybody have an idea ?
Thanks
Code: Select all
Enumeration
#wcal
#cal
EndEnumeration
If OpenWindow(#wcal, 0, 0, 250, 250,"DateGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
DateGadget(#cal, 10, 10, 100, 25)
SetGadgetColor(#cal, #PB_Gadget_FrontColor, #Blue)
SetGadgetColor(#cal, #PB_Gadget_BackColor, #Yellow)
SetGadgetColor(#cal, #PB_Gadget_TitleBackColor, #Yellow)
SetGadgetColor(#cal, #PB_Gadget_TitleFrontColor, #Red)
SetGadgetColor(#cal, #PB_Gadget_GrayTextColor, #Green)
AddKeyboardShortcut(#Wcal,#PB_Shortcut_Escape,Key_esc)
Repeat
event_c = WaitWindowEvent()
Select event_c
Case #PB_Event_Gadget
Event_Gadgetc = EventGadget()
Select Event_Gadgetc
Case #cal
Debug Str(GetGadgetState(#cal)) + " >> " + FormatDate("%dd/%mm/%yyyy",GetGadgetState(#cal)) + " -- " + GetGadgetText(#cal)
EndSelect
Case #PB_Event_CloseWindow
Break
Case #PB_Event_Menu
Select EventMenu()
Case key_esc
Break
EndSelect
EndSelect
ForEver
RemoveKeyboardShortcut(#Wcal,Key_esc)
CloseWindow(#Wcal)
EndIf
// Edit: Moved from "Bugs - Windows" to "Coding Questions" (Kiffi)
