It looks like wrong information in the manual
For Windows
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