Ja, der schon wieder, wird wohl so mancher denken. Ja, der hat wieder eine Hürde zu nehmen, nämlich:
Code: Alles auswählen
Procedure datumpicker(titel.s)
LoadFont(11, "Arial", 16)
If OpenWindow(1, 0, 0, 370, 320, titel, #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
CalendarGadget(11, 10, 10, 350, 300)
SetWindowLongPtr_(GadgetID(11),#GWL_STYLE,GetWindowLongPtr_(GadgetID(11),#GWL_STYLE)|#MCS_NOTODAY)
SetWindowLongPtr_(GadgetID(11),#GWL_STYLE,GetWindowLongPtr_(GadgetID(11),#GWL_STYLE)|#MCS_WEEKNUMBERS)
SetWindowLongPtr_(GadgetID(11), #GWL_EXSTYLE, GetWindowLongPtr_(GadgetID(11), #GWL_EXSTYLE) &(~#WS_EX_CLIENTEDGE))
SetWindowPos_(GadgetID(11), 0, 0, 0, 0, 0, #SWP_SHOWWINDOW | #SWP_NOZORDER | #SWP_NOSIZE | #SWP_NOMOVE | #SWP_FRAMECHANGED)
SetWindowTheme_(GadgetID(11), @"", @"")
SendMessage_(GadgetID(11), #MCM_SETCOLOR, #MCSC_TITLETEXT, RGB(255,255,255))
SendMessage_(GadgetID(11), #MCM_SETCOLOR, #MCSC_TITLEBK, RGB(255, 0, 0))
SendMessage_(GadgetID(11), #MCM_SETCOLOR, #MCSC_TRAILINGTEXT, RGB(180, 180, 180))
SetGadgetFont(11, FontID(11))
Repeat
datumpicker=GetGadgetState(11)
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
ProcedureReturn datumpicker
EndSelect
Until EventID = #PB_Event_CloseWindow
EndIf
CloseWindow(1)
EndProcedure
Außerdem: Wenn ich das Datumpickerfenster per Klick auf das Fenster-X schließe, beendet es auch das Prog (aufrufendes Fenster) - wie kann ich das verhindern?