Aktuelle Zeit: 20.10.2020 14:13

Alle Zeiten sind UTC + 1 Stunde [ Sommerzeit ]




Ein neues Thema erstellen Auf das Thema antworten  [ 3 Beiträge ] 
Autor Nachricht
 Betreff des Beitrags: Event, wenn Kalender von DateGadget geschlossen wird
BeitragVerfasst: 07.10.2020 13:20 
Offline
Benutzeravatar

Registriert: 27.01.2016 11:08
Wohnort: BY
Hi!

das DateGadget hat per Standard nur das Event #PB_EventType_Change.

Ich brauche aber auch ein Event, wenn das aktuelle Datum nicht verändert wurde.
(z.B. hat der User im aufgeklappten Kalender auf das aktuelle Datum geklickt.)

Hat hier jemand einen Tipp für mich?

(Dieses Verhalten ist lt. Lastenheft explizit gewünscht und nicht verhandelbar.)

Danke :-)

_________________
Never change a running system - Never run a changed system!
(PB 5.62 [x86] und PB 5.71 [x86])


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: Event, wenn Kalender von DateGadget geschlossen wird
BeitragVerfasst: 07.10.2020 13:32 
Offline
Benutzeravatar

Registriert: 10.09.2004 09:59
Code:
#MyDateGadget = 0

Procedure WindowCallback(hWnd, uMsg, wParam, lParam)
  Protected *NMDATETIMECHANGE.NMDATETIMECHANGE
 
  Select uMsg
    Case #WM_NOTIFY
      *NMDATETIMECHANGE = lParam
      Select *NMDATETIMECHANGE\nmhdr\hwndfrom
        Case GadgetID(#MyDateGadget)
           Select *NMDATETIMECHANGE\nmhdr\code
              Case #DTN_CLOSEUP
                 Debug "closed"
          EndSelect
      EndSelect
     
  EndSelect
 
  ProcedureReturn #PB_ProcessPureBasicEvents
EndProcedure

If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  DateGadget(#MyDateGadget, 15, 50, 200, 17, "%dd/%mm/%yyyy", Date())
  SetWindowCallback(@WindowCallback())
 
  Repeat
    Select WaitWindowEvent()
      Case #PB_Event_CloseWindow
        End
    EndSelect
  ForEver
EndIf

_________________
Link tot?
Ändere h3x0r.ath.cx in hex0rs.coderbu.de und alles wird gut.


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: Event, wenn Kalender von DateGadget geschlossen wird
BeitragVerfasst: 07.10.2020 13:35 
Offline
Benutzeravatar

Registriert: 27.01.2016 11:08
Wohnort: BY
Vielen Dank für den Tipp! :allright:

_________________
Never change a running system - Never run a changed system!
(PB 5.62 [x86] und PB 5.71 [x86])


Nach oben
 Profil  
Mit Zitat antworten  
Beiträge der letzten Zeit anzeigen:  Sortiere nach  
Ein neues Thema erstellen Auf das Thema antworten  [ 3 Beiträge ] 

Alle Zeiten sind UTC + 1 Stunde [ Sommerzeit ]


Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 35 Gäste


Sie dürfen keine neuen Themen in diesem Forum erstellen.
Sie dürfen keine Antworten zu Themen in diesem Forum erstellen.
Sie dürfen Ihre Beiträge in diesem Forum nicht ändern.
Sie dürfen Ihre Beiträge in diesem Forum nicht löschen.

Suche nach:
Gehe zu:  

 


Powered by phpBB © 2008 phpBB Group | Deutsche Übersetzung durch phpBB.de
subSilver+ theme by Canver Software, sponsor Sanal Modifiye