2 * Date and time picker control
4 * Copyright 1998, 1999 Eric Kohl
5 * Copyright 1999, 2000 Alex Priem <alexp@sci.kun.nl>
6 * Copyright 2000 Chris Morgan <cmorgan@wpi.edu>
8 * This library is free software; you can redistribute it and/or
9 * modify it under the terms of the GNU Lesser General Public
10 * License as published by the Free Software Foundation; either
11 * version 2.1 of the License, or (at your option) any later version.
13 * This library is distributed in the hope that it will be useful,
14 * but WITHOUT ANY WARRANTY; without even the implied warranty of
15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
16 * Lesser General Public License for more details.
18 * You should have received a copy of the GNU Lesser General Public
19 * License along with this library; if not, write to the Free Software
20 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
24 * - All notifications.
40 #include "wine/debug.h"
42 WINE_DEFAULT_DEBUG_CHANNEL(datetime
);
52 RECT rcClient
; /* rect around the edge of the window */
53 RECT rcDraw
; /* rect inside of the border */
54 RECT checkbox
; /* checkbox allowing the control to be enabled/disabled */
55 RECT calbutton
; /* button that toggles the dropdown of the monthcal control */
56 BOOL bCalDepressed
; /* TRUE = cal button is depressed */
59 int nrFieldsAllocated
;
67 } DATETIME_INFO
, *LPDATETIME_INFO
;
70 extern int MONTHCAL_MonthLength(int month
, int year
);
72 /* this list of defines is closely related to `allowedformatchars' defined
73 * in datetime.c; the high nibble indicates the `base type' of the format
75 * Do not change without first reading DATETIME_UseFormat.
79 #define DT_END_FORMAT 0
80 #define ONEDIGITDAY 0x01
81 #define TWODIGITDAY 0x02
82 #define THREECHARDAY 0x03
84 #define ONEDIGIT12HOUR 0x11
85 #define TWODIGIT12HOUR 0x12
86 #define ONEDIGIT24HOUR 0x21
87 #define TWODIGIT24HOUR 0x22
88 #define ONEDIGITMINUTE 0x31
89 #define TWODIGITMINUTE 0x32
90 #define ONEDIGITMONTH 0x41
91 #define TWODIGITMONTH 0x42
92 #define THREECHARMONTH 0x43
93 #define FULLMONTH 0x44
94 #define ONEDIGITSECOND 0x51
95 #define TWODIGITSECOND 0x52
96 #define ONELETTERAMPM 0x61
97 #define TWOLETTERAMPM 0x62
98 #define ONEDIGITYEAR 0x71
99 #define TWODIGITYEAR 0x72
100 #define INVALIDFULLYEAR 0x73 /* FIXME - yyy is not valid - we'll treat it as yyyy */
101 #define FULLYEAR 0x74
102 #define FORMATCALLBACK 0x81 /* -> maximum of 0x80 callbacks possible */
103 #define FORMATCALLMASK 0x80
104 #define DT_STRING 0x0100
106 #define DTHT_DATEFIELD 0xff /* for hit-testing */
109 #define DTHT_CHECKBOX 0x200 /* these should end at '00' , to make */
110 #define DTHT_MCPOPUP 0x300 /* & DTHT_DATEFIELD 0 when DATETIME_KeyDown */
111 #define DTHT_GOTFOCUS 0x400 /* tests for date-fields */
113 #define DATETIME_GetInfoPtr(hwnd) ((DATETIME_INFO *)GetWindowLongA (hwnd, 0))
115 static BOOL
DATETIME_SendSimpleNotify (HWND hwnd
, UINT code
);
116 static BOOL
DATETIME_SendDateTimeChangeNotify (HWND hwnd
);
117 extern void MONTHCAL_CopyTime(const SYSTEMTIME
*from
, SYSTEMTIME
*to
);
118 static const char *allowedformatchars
= {"dhHmMstyX'"};
119 static const int maxrepetition
[] = {4,2,2,2,4,2,2,4,-1,-1};
123 DATETIME_GetSystemTime (HWND hwnd
, WPARAM wParam
, LPARAM lParam
)
125 DATETIME_INFO
*infoPtr
= DATETIME_GetInfoPtr (hwnd
);
126 DWORD dwStyle
= GetWindowLongA (hwnd
, GWL_STYLE
);
127 SYSTEMTIME
*lprgSysTimeArray
=(SYSTEMTIME
*) lParam
;
129 TRACE("%04x %08lx\n",wParam
,lParam
);
130 if (!lParam
) return GDT_NONE
;
132 if ((dwStyle
& DTS_SHOWNONE
) &&
133 (SendMessageA (infoPtr
->hwndCheckbut
, BM_GETCHECK
, 0, 0) == BST_UNCHECKED
))
136 MONTHCAL_CopyTime (&infoPtr
->date
, lprgSysTimeArray
);
143 DATETIME_SetSystemTime (HWND hwnd
, WPARAM wParam
, LPARAM lParam
)
145 DATETIME_INFO
*infoPtr
= DATETIME_GetInfoPtr (hwnd
);
146 SYSTEMTIME
*lprgSysTimeArray
=(SYSTEMTIME
*) lParam
;
148 TRACE("%p %04x %08lx\n",hwnd
, wParam
, lParam
);
149 if (!lParam
) return 0;
151 TRACE("%04d/%02d/%02d %02d:%02d:%02d)\n",
152 lprgSysTimeArray
->wYear
, lprgSysTimeArray
->wMonth
, lprgSysTimeArray
->wDay
,
153 lprgSysTimeArray
->wHour
, lprgSysTimeArray
->wMinute
, lprgSysTimeArray
->wSecond
);
155 if (wParam
==GDT_VALID
) {
156 infoPtr
->dateValid
= TRUE
;
157 MONTHCAL_CopyTime (lprgSysTimeArray
, &infoPtr
->date
);
158 SendMessageA (infoPtr
->hwndCheckbut
, BM_SETCHECK
, BST_CHECKED
, 0);
159 } else if (wParam
==GDT_NONE
) {
160 infoPtr
->dateValid
= FALSE
;
161 SendMessageA (infoPtr
->hwndCheckbut
, BM_SETCHECK
, BST_UNCHECKED
, 0);
163 InvalidateRect(hwnd
, NULL
, TRUE
);
169 DATETIME_GetRange (HWND hwnd
, LPARAM lParam
)
171 DATETIME_INFO
*infoPtr
= DATETIME_GetInfoPtr (hwnd
);
174 TRACE("%08lx\n", lParam
);
175 ret
= SendMessageA (infoPtr
->hMonthCal
, MCM_GETRANGE
, 0, lParam
);
176 if (!ret
) ret
= 1; /* bug emulation... */
181 DATETIME_SetRange (HWND hwnd
, WPARAM wParam
, LPARAM lParam
)
183 DATETIME_INFO
*infoPtr
= DATETIME_GetInfoPtr (hwnd
);
185 TRACE("%04x %08lx\n",wParam
,lParam
);
187 return SendMessageA (infoPtr
->hMonthCal
, MCM_SETRANGE
, wParam
, lParam
);
191 DATETIME_GetMonthCalColor (HWND hwnd
, WPARAM wParam
)
193 DATETIME_INFO
*infoPtr
= DATETIME_GetInfoPtr (hwnd
);
195 TRACE("%04x\n",wParam
);
196 return SendMessageA (infoPtr
->hMonthCal
, MCM_GETCOLOR
, wParam
, 0);
201 DATETIME_SetMonthCalColor (HWND hwnd
, WPARAM wParam
, LPARAM lParam
)
203 DATETIME_INFO
*infoPtr
= DATETIME_GetInfoPtr (hwnd
);
205 TRACE("%04x %08lx\n",wParam
,lParam
);
206 return SendMessageA (infoPtr
->hMonthCal
, MCM_SETCOLOR
, wParam
, lParam
);
210 /* FIXME: need to get way to force font into monthcal structure */
212 DATETIME_GetMonthCal (HWND hwnd
)
214 DATETIME_INFO
*infoPtr
= DATETIME_GetInfoPtr (hwnd
);
217 return (LRESULT
)infoPtr
->hMonthCal
;
222 /* FIXME: need to get way to force font into monthcal structure */
225 DATETIME_GetMonthCalFont (HWND hwnd
)
234 DATETIME_SetMonthCalFont (HWND hwnd
, WPARAM wParam
, LPARAM lParam
)
237 TRACE("%04x %08lx\n",wParam
,lParam
);
243 Split up a formattxt in actions.
244 See ms documentation for the meaning of the letter codes/'specifiers'.
247 *'dddddd' is handled as 'dddd' plus 'dd'.
248 *unrecognized formats are strings (here given the type DT_STRING;
249 start of the string is encoded in lower bits of DT_STRING.
250 Therefore, 'string' ends finally up as '<show seconds>tring'.
256 DATETIME_UseFormat (DATETIME_INFO
*infoPtr
, const char *formattxt
)
259 int *nrFields
=& infoPtr
->nrFields
;
261 TRACE ("%s\n",formattxt
);
265 infoPtr
->fieldspec
[*nrFields
]=0;
266 len
=strlen(allowedformatchars
);
269 for (i
=0; i
<strlen (formattxt
); i
++) {
270 TRACE ("\n%d %c:",i
, formattxt
[i
]);
271 for (j
=0; j
<len
; j
++) {
272 if (allowedformatchars
[j
]==formattxt
[i
]) {
273 TRACE ("%c[%d,%x]",allowedformatchars
[j
], *nrFields
,
274 infoPtr
->fieldspec
[*nrFields
]);
275 if ((*nrFields
==0) && (infoPtr
->fieldspec
[*nrFields
]==0)) {
276 infoPtr
->fieldspec
[*nrFields
]=(j
<<4) +1;
279 if (infoPtr
->fieldspec
[*nrFields
]>>4!=j
) {
281 infoPtr
->fieldspec
[*nrFields
]=(j
<<4) +1;
284 if ((infoPtr
->fieldspec
[*nrFields
] & 0x0f)==maxrepetition
[j
]) {
286 infoPtr
->fieldspec
[*nrFields
]=(j
<<4) +1;
289 infoPtr
->fieldspec
[*nrFields
]++;
291 } /* if allowedformatchar */
295 /* char is not a specifier: handle char like a string */
297 if ((*nrFields
==0) && (infoPtr
->fieldspec
[*nrFields
]==0)) {
298 infoPtr
->fieldspec
[*nrFields
]=DT_STRING
+k
;
299 infoPtr
->buflen
[*nrFields
]=0;
301 if ((infoPtr
->fieldspec
[*nrFields
] & DT_STRING
)!=DT_STRING
) {
303 infoPtr
->fieldspec
[*nrFields
]=DT_STRING
+k
;
304 infoPtr
->buflen
[*nrFields
]=0;
306 infoPtr
->textbuf
[k
]=formattxt
[i
];
308 infoPtr
->buflen
[*nrFields
]++;
311 if (*nrFields
==infoPtr
->nrFieldsAllocated
) {
312 FIXME ("out of memory; should reallocate. crash ahead.\n");
319 if (infoPtr
->fieldspec
[*nrFields
]!=0) (*nrFields
)++;
324 DATETIME_SetFormat (HWND hwnd
, WPARAM wParam
, LPARAM lParam
)
326 DATETIME_INFO
*infoPtr
= DATETIME_GetInfoPtr (hwnd
);
330 TRACE("%04x %08lx\n",wParam
,lParam
);
332 DWORD dwStyle
= GetWindowLongA (hwnd
, GWL_STYLE
);
334 if (dwStyle
& DTS_LONGDATEFORMAT
)
335 format_item
=LOCALE_SLONGDATE
;
336 else if (dwStyle
& DTS_TIMEFORMAT
)
337 format_item
=LOCALE_STIMEFORMAT
;
338 else /* DTS_SHORTDATEFORMAT */
339 format_item
=LOCALE_SSHORTDATE
;
340 GetLocaleInfoA( GetSystemDefaultLCID(), format_item
,format_buf
,sizeof(format_buf
));
341 DATETIME_UseFormat (infoPtr
, format_buf
);
344 DATETIME_UseFormat (infoPtr
, (char *) lParam
);
346 return infoPtr
->nrFields
;
351 DATETIME_SetFormatW (HWND hwnd
, WPARAM wParam
, LPARAM lParam
)
354 TRACE("%04x %08lx\n",wParam
,lParam
);
358 int len
= WideCharToMultiByte( CP_ACP
, 0, (LPWSTR
)lParam
, -1, NULL
, 0, NULL
, NULL
);
360 buf
= (LPSTR
) Alloc (len
);
361 WideCharToMultiByte( CP_ACP
, 0, (LPWSTR
)lParam
, -1, buf
, len
, NULL
, NULL
);
362 retval
=DATETIME_SetFormat (hwnd
, 0, (LPARAM
) buf
);
367 return DATETIME_SetFormat (hwnd
, 0, 0);
373 DATETIME_ReturnTxt (DATETIME_INFO
*infoPtr
, int count
, char *result
, int resultSize
)
375 SYSTEMTIME date
= infoPtr
->date
;
380 TRACE ("%d,%d\n", infoPtr
->nrFields
, count
);
381 if ((count
>infoPtr
->nrFields
) || (count
<0)) {
382 WARN ("buffer overrun, have %d want %d\n", infoPtr
->nrFields
, count
);
386 if (!infoPtr
->fieldspec
) return;
388 spec
=infoPtr
->fieldspec
[count
];
389 if (spec
& DT_STRING
) {
390 int txtlen
=infoPtr
->buflen
[count
];
392 if (txtlen
> resultSize
)
393 txtlen
= resultSize
- 1;
394 memcpy (result
, infoPtr
->textbuf
+ (spec
&~ DT_STRING
), txtlen
);
396 TRACE ("arg%d=%x->[%s]\n",count
,infoPtr
->fieldspec
[count
],result
);
406 sprintf (result
,"%d",date
.wDay
);
409 sprintf (result
,"%.2d",date
.wDay
);
412 GetLocaleInfoA( LOCALE_USER_DEFAULT
, LOCALE_SABBREVDAYNAME1
+(date
.wDayOfWeek
+6)%7,
414 /*sprintf (result,"%.3s",days[date.wDayOfWeek]);*/
417 GetLocaleInfoA( LOCALE_USER_DEFAULT
,LOCALE_SDAYNAME1
+ (date
.wDayOfWeek
+6)%7,
422 sprintf (result
,"%d",date
.wHour
-12);
424 sprintf (result
,"%d",date
.wHour
);
428 sprintf (result
,"%.2d",date
.wHour
-12);
430 sprintf (result
,"%.2d",date
.wHour
);
433 sprintf (result
,"%d",date
.wHour
);
436 sprintf (result
,"%.2d",date
.wHour
);
439 sprintf (result
,"%d",date
.wSecond
);
442 sprintf (result
,"%.2d",date
.wSecond
);
445 sprintf (result
,"%d",date
.wMinute
);
448 sprintf (result
,"%.2d",date
.wMinute
);
451 sprintf (result
,"%d",date
.wMonth
);
454 sprintf (result
,"%.2d",date
.wMonth
);
457 GetLocaleInfoA( GetSystemDefaultLCID(),LOCALE_SMONTHNAME1
+date
.wMonth
-1,
458 buffer
,sizeof(buffer
));
459 sprintf (result
,"%.3s",buffer
);
462 GetLocaleInfoA( GetSystemDefaultLCID(),LOCALE_SMONTHNAME1
+date
.wMonth
-1,
473 strcpy (result
,"AM");
475 strcpy (result
,"PM");
478 FIXME ("Not implemented\n");
479 strcpy (result
,"xxx");
482 sprintf (result
,"%d",date
.wYear
-10* (int) floor(date
.wYear
/10));
485 sprintf (result
,"%.2d",date
.wYear
-100* (int) floor(date
.wYear
/100));
487 case INVALIDFULLYEAR
:
489 sprintf (result
,"%d",date
.wYear
);
493 TRACE ("arg%d=%x->[%s]\n",count
,infoPtr
->fieldspec
[count
],result
);
498 DATETIME_IncreaseField (DATETIME_INFO
*infoPtr
, int number
)
500 SYSTEMTIME
*date
= &infoPtr
->date
;
503 TRACE ("%d\n",number
);
504 if ((number
>infoPtr
->nrFields
) || (number
<0)) return;
506 spec
=infoPtr
->fieldspec
[number
];
507 if ((spec
& DTHT_DATEFIELD
)==0) return;
515 if (date
->wDay
>MONTHCAL_MonthLength(date
->wMonth
,date
->wYear
))
523 if (date
->wHour
>23) date
->wHour
=0;
528 if (date
->wSecond
>59) date
->wSecond
=0;
533 if (date
->wMinute
>59) date
->wMinute
=0;
540 if (date
->wMonth
>12) date
->wMonth
=1;
541 if (date
->wDay
>MONTHCAL_MonthLength(date
->wMonth
,date
->wYear
))
542 date
->wDay
=MONTHCAL_MonthLength(date
->wMonth
,date
->wYear
);
547 if (date
->wHour
>23) date
->wHour
-=24;
550 FIXME ("Not implemented\n");
563 DATETIME_DecreaseField (DATETIME_INFO
*infoPtr
, int number
)
565 SYSTEMTIME
*date
= & infoPtr
->date
;
568 TRACE ("%d\n",number
);
569 if ((number
>infoPtr
->nrFields
) || (number
<0)) return;
571 spec
= infoPtr
->fieldspec
[number
];
572 if ((spec
& DTHT_DATEFIELD
)==0) return;
583 date
->wDay
=MONTHCAL_MonthLength(date
->wMonth
,date
->wYear
);
616 if (date
->wDay
>MONTHCAL_MonthLength(date
->wMonth
,date
->wYear
))
617 date
->wDay
=MONTHCAL_MonthLength(date
->wMonth
,date
->wYear
);
627 FIXME ("Not implemented\n");
640 DATETIME_ResetFieldDown (DATETIME_INFO
*infoPtr
, int number
)
642 SYSTEMTIME
*date
= &infoPtr
->date
;
645 TRACE ("%d\n",number
);
646 if ((number
>infoPtr
->nrFields
) || (number
<0)) return;
648 spec
= infoPtr
->fieldspec
[number
];
649 if ((spec
& DTHT_DATEFIELD
)==0) return;
681 FIXME ("Not implemented\n");
685 /* FYI: On 1752/9/14 the calendar changed and England and the
686 * American colonies changed to the Gregorian calendar. This change
687 * involved having September 14th follow September 2nd. So no date
688 * algorithm works before that date.
694 date
->wDay
= 14; /* overactive ms-programmers..*/
704 DATETIME_ResetFieldUp (DATETIME_INFO
*infoPtr
, int number
)
706 SYSTEMTIME
*date
= & infoPtr
->date
;
709 TRACE("%d \n",number
);
710 if ((number
>infoPtr
->nrFields
) || (number
<0)) return;
712 spec
=infoPtr
->fieldspec
[number
];
713 if ((spec
& DTHT_DATEFIELD
)==0) return;
720 date
->wDay
=MONTHCAL_MonthLength(date
->wMonth
,date
->wYear
);
744 FIXME ("Not implemented\n");
749 date
->wYear
=9999; /* Y10K problem? naaah. */
756 static void DATETIME_Refresh (HWND hwnd
, HDC hdc
)
759 DATETIME_INFO
*infoPtr
= DATETIME_GetInfoPtr (hwnd
);
762 DWORD dwStyle
= GetWindowLongA (hwnd
, GWL_STYLE
);
763 RECT
*rcDraw
= &infoPtr
->rcDraw
;
764 RECT
*rcClient
= &infoPtr
->rcClient
;
765 RECT
*calbutton
= &infoPtr
->calbutton
;
766 RECT
*checkbox
= &infoPtr
->checkbox
;
769 COLORREF oldBk
, oldTextColor
;
771 /* draw control edge */
773 hbr
= CreateSolidBrush(RGB(255, 255, 255));
774 FillRect(hdc
, rcClient
, hbr
);
775 DrawEdge(hdc
, rcClient
, EDGE_SUNKEN
, BF_RECT
);
778 if (infoPtr
->dateValid
) {
781 oldFont
= SelectObject (hdc
, infoPtr
->hFont
);
783 DATETIME_ReturnTxt (infoPtr
, 0, txt
, sizeof(txt
));
784 GetTextExtentPoint32A (hdc
, txt
, strlen (txt
), &size
);
785 rcDraw
->bottom
= size
.cy
+2;
787 if (dwStyle
& DTS_SHOWNONE
) checkbox
->right
= 18;
789 prevright
= checkbox
->right
;
791 for (i
=0; i
<infoPtr
->nrFields
; i
++) {
792 DATETIME_ReturnTxt (infoPtr
, i
, txt
, sizeof(txt
));
793 GetTextExtentPoint32A (hdc
, txt
, strlen (txt
), &size
);
794 field
= & infoPtr
->fieldRect
[i
];
795 field
->left
= prevright
;
796 field
->right
= prevright
+size
.cx
;
797 field
->top
= rcDraw
->top
;
798 field
->bottom
= rcDraw
->bottom
;
799 prevright
= field
->right
;
801 if ((infoPtr
->haveFocus
) && (i
==infoPtr
->select
)) {
802 hbr
= CreateSolidBrush (GetSysColor (COLOR_ACTIVECAPTION
));
803 FillRect(hdc
, field
, hbr
);
804 oldBk
= SetBkColor (hdc
, GetSysColor(COLOR_ACTIVECAPTION
));
805 oldTextColor
= SetTextColor (hdc
, GetSysColor(COLOR_WINDOW
));
807 DrawTextA ( hdc
, txt
, strlen(txt
), field
,
808 DT_RIGHT
| DT_VCENTER
| DT_SINGLELINE
);
809 SetBkColor (hdc
, oldBk
);
810 SetTextColor (hdc
, oldTextColor
);
813 DrawTextA ( hdc
, txt
, strlen(txt
), field
,
814 DT_RIGHT
| DT_VCENTER
| DT_SINGLELINE
);
817 SelectObject (hdc
, oldFont
);
820 if (!(dwStyle
& DTS_UPDOWN
)) {
821 DrawFrameControl(hdc
, calbutton
, DFC_SCROLL
,
822 DFCS_SCROLLDOWN
| (infoPtr
->bCalDepressed
? DFCS_PUSHED
: 0) |
823 (dwStyle
& WS_DISABLED
? DFCS_INACTIVE
: 0) );
829 DATETIME_HitTest (HWND hwnd
, DATETIME_INFO
*infoPtr
, POINT pt
)
833 TRACE ("%ld, %ld\n",pt
.x
,pt
.y
);
836 if (PtInRect (&infoPtr
->calbutton
, pt
))
837 {retval
= DTHT_MCPOPUP
; TRACE("Hit in calbutton(DTHT_MCPOPUP)\n"); goto done
; }
838 if (PtInRect (&infoPtr
->checkbox
, pt
))
839 {retval
= DTHT_CHECKBOX
; TRACE("Hit in checkbox(DTHT_CHECKBOX)\n"); goto done
; }
841 for (i
=0; i
<infoPtr
->nrFields
; i
++) {
842 if (PtInRect (&infoPtr
->fieldRect
[i
], pt
)) {
844 TRACE("Hit in date text in field %d\n", i
);
855 DATETIME_LButtonDown (HWND hwnd
, WPARAM wParam
, LPARAM lParam
)
857 DATETIME_INFO
*infoPtr
= DATETIME_GetInfoPtr (hwnd
);
858 DWORD dwStyle
= GetWindowLongA (hwnd
, GWL_STYLE
);
864 old
= infoPtr
->select
;
865 pt
.x
= (INT
)LOWORD(lParam
);
866 pt
.y
= (INT
)HIWORD(lParam
);
868 new = DATETIME_HitTest (hwnd
, infoPtr
, pt
);
870 /* FIXME: might be conditions where we don't want to update infoPtr->select */
871 infoPtr
->select
= new;
873 if (infoPtr
->select
!= old
) {
874 infoPtr
->haveFocus
= DTHT_GOTFOCUS
;
877 if (infoPtr
->select
== DTHT_MCPOPUP
) {
878 /* FIXME: button actually is only depressed during dropdown of the */
879 /* calendar control and when the mouse is over the button window */
880 infoPtr
->bCalDepressed
= TRUE
;
882 /* recalculate the position of the monthcal popup */
883 if(dwStyle
& DTS_RIGHTALIGN
)
884 infoPtr
->monthcal_pos
.x
= infoPtr
->rcClient
.right
- ((infoPtr
->calbutton
.right
-
885 infoPtr
->calbutton
.left
) + 145);
887 infoPtr
->monthcal_pos
.x
= 8;
889 infoPtr
->monthcal_pos
.y
= infoPtr
->rcClient
.bottom
;
890 ClientToScreen (hwnd
, &(infoPtr
->monthcal_pos
));
891 SetWindowPos(infoPtr
->hMonthCal
, 0, infoPtr
->monthcal_pos
.x
,
892 infoPtr
->monthcal_pos
.y
, 145, 150, 0);
894 if(IsWindowVisible(infoPtr
->hMonthCal
))
895 ShowWindow(infoPtr
->hMonthCal
, SW_HIDE
);
897 ShowWindow(infoPtr
->hMonthCal
, SW_SHOW
);
899 TRACE ("dt:%p mc:%p mc parent:%p, desktop:%p\n",
900 hwnd
, infoPtr
->hMonthCal
, infoPtr
->hwndNotify
, GetDesktopWindow ());
901 DATETIME_SendSimpleNotify (hwnd
, DTN_DROPDOWN
);
904 InvalidateRect(hwnd
, NULL
, FALSE
);
911 DATETIME_LButtonUp (HWND hwnd
, WPARAM wParam
, LPARAM lParam
)
913 DATETIME_INFO
*infoPtr
= DATETIME_GetInfoPtr (hwnd
);
917 if(infoPtr
->bCalDepressed
== TRUE
) {
918 infoPtr
->bCalDepressed
= FALSE
;
919 InvalidateRect(hwnd
, &(infoPtr
->calbutton
), TRUE
);
927 DATETIME_Paint (HWND hwnd
, WPARAM wParam
)
932 hdc
= wParam
==0 ? BeginPaint (hwnd
, &ps
) : (HDC
)wParam
;
933 DATETIME_Refresh (hwnd
, hdc
);
935 EndPaint (hwnd
, &ps
);
941 DATETIME_Button_Command (HWND hwnd
, WPARAM wParam
, LPARAM lParam
)
943 DATETIME_INFO
*infoPtr
= DATETIME_GetInfoPtr(hwnd
);
945 switch(HIWORD(wParam
)) {
948 DWORD state
= SendMessageA((HWND
)lParam
, BM_GETCHECK
, 0, 0);
949 if(state
== BST_CHECKED
)
950 infoPtr
->dateValid
= TRUE
;
952 infoPtr
->dateValid
= FALSE
;
953 InvalidateRect(hwnd
, NULL
, TRUE
);
964 DATETIME_Command (HWND hwnd
, WPARAM wParam
, LPARAM lParam
)
966 DATETIME_INFO
*infoPtr
= DATETIME_GetInfoPtr(hwnd
);
968 TRACE("%08x %08lx\n", wParam
, lParam
);
969 TRACE("hwndbutton = %p\n", infoPtr
->hwndCheckbut
);
970 if(infoPtr
->hwndCheckbut
== (HWND
)lParam
)
971 return DATETIME_Button_Command(hwnd
, wParam
, lParam
);
976 DATETIME_ParentNotify (HWND hwnd
, WPARAM wParam
, LPARAM lParam
)
978 DATETIME_INFO
*infoPtr
= DATETIME_GetInfoPtr (hwnd
);
979 LPNMHDR lpnmh
= (LPNMHDR
) lParam
;
981 TRACE ("%x,%lx\n",wParam
, lParam
);
982 TRACE ("Got notification %x from %p\n", lpnmh
->code
, lpnmh
->hwndFrom
);
983 TRACE ("info: %p %p %p\n",hwnd
,infoPtr
->hMonthCal
,infoPtr
->hUpdown
);
989 DATETIME_Notify (HWND hwnd
, WPARAM wParam
, LPARAM lParam
)
992 DATETIME_INFO
*infoPtr
= DATETIME_GetInfoPtr (hwnd
);
993 LPNMHDR lpnmh
= (LPNMHDR
) lParam
;
995 TRACE ("%x,%lx\n",wParam
, lParam
);
996 TRACE ("Got notification %x from %p\n", lpnmh
->code
, lpnmh
->hwndFrom
);
997 TRACE ("info: %p %p %p\n",hwnd
,infoPtr
->hMonthCal
,infoPtr
->hUpdown
);
1003 DATETIME_KeyDown (HWND hwnd
, WPARAM wParam
, LPARAM lParam
)
1005 DATETIME_INFO
*infoPtr
= DATETIME_GetInfoPtr (hwnd
);
1006 int FieldNum
,wrap
=0;
1008 TRACE("%x %lx %x\n",wParam
, lParam
, infoPtr
->select
);
1010 FieldNum
= infoPtr
->select
& DTHT_DATEFIELD
;
1012 if (!(infoPtr
->haveFocus
)) return 0;
1013 if ((FieldNum
==0) && (infoPtr
->select
)) return 0;
1015 if (infoPtr
->select
& FORMATCALLMASK
) {
1016 FIXME ("Callbacks not implemented yet\n");
1022 DATETIME_IncreaseField (infoPtr
,FieldNum
);
1023 DATETIME_SendDateTimeChangeNotify (hwnd
);
1027 DATETIME_DecreaseField (infoPtr
,FieldNum
);
1028 DATETIME_SendDateTimeChangeNotify (hwnd
);
1031 DATETIME_ResetFieldDown (infoPtr
,FieldNum
);
1032 DATETIME_SendDateTimeChangeNotify (hwnd
);
1035 DATETIME_ResetFieldUp(infoPtr
,FieldNum
);
1036 DATETIME_SendDateTimeChangeNotify (hwnd
);
1040 if (infoPtr
->select
==0) {
1041 infoPtr
->select
= infoPtr
->nrFields
- 1;
1046 while ((infoPtr
->fieldspec
[infoPtr
->select
] & DT_STRING
) && (wrap
<2));
1051 if (infoPtr
->select
==infoPtr
->nrFields
) {
1052 infoPtr
->select
= 0;
1056 while ((infoPtr
->fieldspec
[infoPtr
->select
] & DT_STRING
) && (wrap
<2));
1060 InvalidateRect(hwnd
, NULL
, FALSE
);
1067 DATETIME_KillFocus (HWND hwnd
, WPARAM wParam
, LPARAM lParam
)
1069 DATETIME_INFO
*infoPtr
= DATETIME_GetInfoPtr (hwnd
);
1073 if (infoPtr
->haveFocus
) {
1074 DATETIME_SendSimpleNotify (hwnd
, NM_KILLFOCUS
);
1075 infoPtr
->haveFocus
= 0;
1078 InvalidateRect (hwnd
, NULL
, TRUE
);
1085 DATETIME_SetFocus (HWND hwnd
, WPARAM wParam
, LPARAM lParam
)
1087 DATETIME_INFO
*infoPtr
= DATETIME_GetInfoPtr (hwnd
);
1091 if (infoPtr
->haveFocus
==0) {
1092 DATETIME_SendSimpleNotify (hwnd
, NM_SETFOCUS
);
1093 infoPtr
->haveFocus
= DTHT_GOTFOCUS
;
1096 InvalidateRect(hwnd
, NULL
, FALSE
);
1103 DATETIME_SendDateTimeChangeNotify (HWND hwnd
)
1106 DATETIME_INFO
*infoPtr
= DATETIME_GetInfoPtr (hwnd
);
1107 NMDATETIMECHANGE dtdtc
;
1110 dtdtc
.nmhdr
.hwndFrom
= hwnd
;
1111 dtdtc
.nmhdr
.idFrom
= GetWindowLongA( hwnd
, GWL_ID
);
1112 dtdtc
.nmhdr
.code
= DTN_DATETIMECHANGE
;
1114 if ((GetWindowLongA (hwnd
, GWL_STYLE
) & DTS_SHOWNONE
))
1115 dtdtc
.dwFlags
= GDT_NONE
;
1117 dtdtc
.dwFlags
= GDT_VALID
;
1119 MONTHCAL_CopyTime (&infoPtr
->date
, &dtdtc
.st
);
1120 return (BOOL
) SendMessageA (infoPtr
->hwndNotify
, WM_NOTIFY
,
1121 (WPARAM
)dtdtc
.nmhdr
.idFrom
, (LPARAM
)&dtdtc
);
1126 DATETIME_SendSimpleNotify (HWND hwnd
, UINT code
)
1128 DATETIME_INFO
*infoPtr
= DATETIME_GetInfoPtr (hwnd
);
1132 nmhdr
.hwndFrom
= hwnd
;
1133 nmhdr
.idFrom
= GetWindowLongA( hwnd
, GWL_ID
);
1136 return (BOOL
) SendMessageA (infoPtr
->hwndNotify
, WM_NOTIFY
,
1137 (WPARAM
)nmhdr
.idFrom
, (LPARAM
)&nmhdr
);
1141 DATETIME_Size (HWND hwnd
, WPARAM wParam
, LPARAM lParam
)
1143 DATETIME_INFO
*infoPtr
= DATETIME_GetInfoPtr(hwnd
);
1144 DWORD dwStyle
= GetWindowLongA(hwnd
, GWL_STYLE
);
1147 infoPtr
->rcClient
.bottom
= HIWORD(lParam
);
1148 infoPtr
->rcClient
.right
= LOWORD(lParam
);
1150 TRACE("Height=%ld, Width=%ld\n", infoPtr
->rcClient
.bottom
, infoPtr
->rcClient
.right
);
1152 /* use DrawEdge to adjust the size of rcEdge to get rcDraw */
1153 memcpy((&infoPtr
->rcDraw
), (&infoPtr
->rcClient
), sizeof(infoPtr
->rcDraw
));
1155 DrawEdge(NULL
, &(infoPtr
->rcDraw
), EDGE_SUNKEN
, BF_RECT
| BF_ADJUST
);
1157 /* set the size of the button that drops the calendar down */
1158 /* FIXME: account for style that allows button on left side */
1159 infoPtr
->calbutton
.top
= infoPtr
->rcDraw
.top
;
1160 infoPtr
->calbutton
.bottom
= infoPtr
->rcDraw
.bottom
;
1161 infoPtr
->calbutton
.left
= infoPtr
->rcDraw
.right
-15;
1162 infoPtr
->calbutton
.right
= infoPtr
->rcDraw
.right
;
1164 /* set enable/disable button size for show none style being enabled */
1165 /* FIXME: these dimensions are completely incorrect */
1166 infoPtr
->checkbox
.top
= infoPtr
->rcDraw
.top
;
1167 infoPtr
->checkbox
.bottom
= infoPtr
->rcDraw
.bottom
;
1168 infoPtr
->checkbox
.left
= infoPtr
->rcDraw
.left
;
1169 infoPtr
->checkbox
.right
= infoPtr
->rcDraw
.left
+ 10;
1171 /* update the position of the monthcal control */
1172 if(dwStyle
& DTS_RIGHTALIGN
)
1173 infoPtr
->monthcal_pos
.x
= infoPtr
->rcClient
.right
- ((infoPtr
->calbutton
.right
-
1174 infoPtr
->calbutton
.left
) + 145);
1176 infoPtr
->monthcal_pos
.x
= 8;
1178 infoPtr
->monthcal_pos
.y
= infoPtr
->rcClient
.bottom
;
1179 ClientToScreen (hwnd
, &(infoPtr
->monthcal_pos
));
1180 SetWindowPos(infoPtr
->hMonthCal
, 0, infoPtr
->monthcal_pos
.x
,
1181 infoPtr
->monthcal_pos
.y
,
1184 InvalidateRect(hwnd
, NULL
, FALSE
);
1191 DATETIME_Create (HWND hwnd
, WPARAM wParam
, LPARAM lParam
)
1193 DATETIME_INFO
*infoPtr
;
1194 DWORD dwStyle
= GetWindowLongA (hwnd
, GWL_STYLE
);
1196 /* allocate memory for info structure */
1197 TRACE("%04x %08lx\n",wParam
,lParam
);
1198 infoPtr
= (DATETIME_INFO
*)Alloc (sizeof(DATETIME_INFO
));
1199 if (infoPtr
== NULL
) {
1200 ERR("could not allocate info memory!\n");
1204 SetWindowLongA (hwnd
, 0, (DWORD
)infoPtr
);
1206 if (dwStyle
& DTS_SHOWNONE
) {
1207 infoPtr
->hwndCheckbut
=CreateWindowExA (0,"button", 0,
1208 WS_CHILD
| WS_VISIBLE
| BS_AUTOCHECKBOX
,
1211 0, (HINSTANCE
)GetWindowLongA (hwnd
, GWL_HINSTANCE
), 0);
1212 SendMessageA (infoPtr
->hwndCheckbut
, BM_SETCHECK
, 1, 0);
1215 if (dwStyle
& DTS_UPDOWN
) {
1216 infoPtr
->hUpdown
=CreateUpDownControl (
1217 WS_CHILD
| WS_BORDER
| WS_VISIBLE
,
1220 UD_MAXVAL
, UD_MINVAL
, 0);
1223 infoPtr
->fieldspec
= (int *) Alloc (32*sizeof(int));
1224 infoPtr
->fieldRect
= (RECT
*) Alloc (32*sizeof(RECT
));
1225 infoPtr
->buflen
= (int *) Alloc (32*sizeof(int));
1226 infoPtr
->nrFieldsAllocated
= 32;
1227 infoPtr
->hwndNotify
= ((LPCREATESTRUCTA
)lParam
)->hwndParent
;
1229 DATETIME_SetFormat (hwnd
, 0, 0);
1231 /* create the monthcal control */
1232 infoPtr
->hMonthCal
= CreateWindowExA (0,"SysMonthCal32", 0,
1233 WS_BORDER
| WS_POPUP
| WS_CLIPSIBLINGS
,
1235 infoPtr
->hwndNotify
,
1238 /* initialize info structure */
1239 GetSystemTime (&infoPtr
->date
);
1240 infoPtr
->dateValid
= TRUE
;
1241 infoPtr
->hFont
= GetStockObject(DEFAULT_GUI_FONT
);
1247 DATETIME_Destroy (HWND hwnd
, WPARAM wParam
, LPARAM lParam
)
1249 DATETIME_INFO
*infoPtr
= DATETIME_GetInfoPtr (hwnd
);
1253 SetWindowLongA( hwnd
, 0, 0 );
1258 static LRESULT WINAPI
1259 DATETIME_WindowProc (HWND hwnd
, UINT uMsg
, WPARAM wParam
, LPARAM lParam
)
1261 if (!DATETIME_GetInfoPtr(hwnd
) && (uMsg
!= WM_CREATE
))
1262 return DefWindowProcA( hwnd
, uMsg
, wParam
, lParam
);
1267 case DTM_GETSYSTEMTIME
:
1268 return DATETIME_GetSystemTime (hwnd
, wParam
, lParam
);
1270 case DTM_SETSYSTEMTIME
:
1271 return DATETIME_SetSystemTime (hwnd
, wParam
, lParam
);
1274 return DATETIME_GetRange(hwnd
, lParam
);
1277 return DATETIME_SetRange(hwnd
, wParam
, lParam
);
1279 case DTM_SETFORMATA
:
1280 return DATETIME_SetFormat (hwnd
, wParam
, lParam
);
1282 case DTM_SETFORMATW
:
1283 return DATETIME_SetFormatW (hwnd
, wParam
, lParam
);
1285 case DTM_SETMCCOLOR
:
1286 return DATETIME_SetMonthCalColor (hwnd
, wParam
, lParam
);
1288 case DTM_GETMCCOLOR
:
1289 return DATETIME_GetMonthCalColor (hwnd
, wParam
);
1291 case DTM_GETMONTHCAL
:
1292 return DATETIME_GetMonthCal (hwnd
);
1295 return DATETIME_SetMonthCalFont (hwnd
, wParam
, lParam
);
1298 return DATETIME_GetMonthCalFont (hwnd
);
1300 case WM_PARENTNOTIFY
:
1301 return DATETIME_ParentNotify (hwnd
, wParam
, lParam
);
1304 return DATETIME_Notify (hwnd
, wParam
, lParam
);
1307 return DLGC_WANTARROWS
| DLGC_WANTCHARS
;
1310 return DATETIME_Paint (hwnd
, wParam
);
1313 return DATETIME_KeyDown (hwnd
, wParam
, lParam
);
1316 return DATETIME_KillFocus (hwnd
, wParam
, lParam
);
1319 return DATETIME_SetFocus (hwnd
, wParam
, lParam
);
1322 return DATETIME_Size (hwnd
, wParam
, lParam
);
1324 case WM_LBUTTONDOWN
:
1325 return DATETIME_LButtonDown (hwnd
, wParam
, lParam
);
1328 return DATETIME_LButtonUp (hwnd
, wParam
, lParam
);
1331 return DATETIME_Create (hwnd
, wParam
, lParam
);
1334 return DATETIME_Destroy (hwnd
, wParam
, lParam
);
1337 return DATETIME_Command (hwnd
, wParam
, lParam
);
1340 if ((uMsg
>= WM_USER
) && (uMsg
< WM_APP
))
1341 ERR("unknown msg %04x wp=%08x lp=%08lx\n",
1342 uMsg
, wParam
, lParam
);
1343 return DefWindowProcA (hwnd
, uMsg
, wParam
, lParam
);
1350 DATETIME_Register (void)
1355 ZeroMemory (&wndClass
, sizeof(WNDCLASSA
));
1356 wndClass
.style
= CS_GLOBALCLASS
;
1357 wndClass
.lpfnWndProc
= (WNDPROC
)DATETIME_WindowProc
;
1358 wndClass
.cbClsExtra
= 0;
1359 wndClass
.cbWndExtra
= sizeof(DATETIME_INFO
*);
1360 wndClass
.hCursor
= LoadCursorA (0, (LPSTR
)IDC_ARROW
);
1361 wndClass
.hbrBackground
= (HBRUSH
)(COLOR_WINDOW
+ 1);
1362 wndClass
.lpszClassName
= DATETIMEPICK_CLASSA
;
1364 RegisterClassA (&wndClass
);
1369 DATETIME_Unregister (void)
1372 UnregisterClassA (DATETIMEPICK_CLASSA
, NULL
);