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 * This code was audited for completeness against the documented features
25 * of Comctl32.dll version 6.0 on Oct. 20, 2004, by Dimitrie O. Paun.
27 * Unless otherwise noted, we believe this code to be complete, as per
28 * the specification mentioned above.
29 * If you discover missing features, or bugs, please note them below.
33 * -- DTS_SHORTDATECENTURYFORMAT
55 #include "wine/debug.h"
56 #include "wine/unicode.h"
58 WINE_DEFAULT_DEBUG_CHANNEL(datetime
);
70 RECT rcClient
; /* rect around the edge of the window */
71 RECT rcDraw
; /* rect inside of the border */
72 RECT checkbox
; /* checkbox allowing the control to be enabled/disabled */
73 RECT calbutton
; /* button that toggles the dropdown of the monthcal control */
74 BOOL bCalDepressed
; /* TRUE = cal button is depressed */
77 int nrFieldsAllocated
;
85 } DATETIME_INFO
, *LPDATETIME_INFO
;
88 extern int MONTHCAL_MonthLength(int month
, int year
);
90 /* this list of defines is closely related to `allowedformatchars' defined
91 * in datetime.c; the high nibble indicates the `base type' of the format
93 * Do not change without first reading DATETIME_UseFormat.
97 #define DT_END_FORMAT 0
98 #define ONEDIGITDAY 0x01
99 #define TWODIGITDAY 0x02
100 #define THREECHARDAY 0x03
102 #define ONEDIGIT12HOUR 0x11
103 #define TWODIGIT12HOUR 0x12
104 #define ONEDIGIT24HOUR 0x21
105 #define TWODIGIT24HOUR 0x22
106 #define ONEDIGITMINUTE 0x31
107 #define TWODIGITMINUTE 0x32
108 #define ONEDIGITMONTH 0x41
109 #define TWODIGITMONTH 0x42
110 #define THREECHARMONTH 0x43
111 #define FULLMONTH 0x44
112 #define ONEDIGITSECOND 0x51
113 #define TWODIGITSECOND 0x52
114 #define ONELETTERAMPM 0x61
115 #define TWOLETTERAMPM 0x62
116 #define ONEDIGITYEAR 0x71
117 #define TWODIGITYEAR 0x72
118 #define INVALIDFULLYEAR 0x73 /* FIXME - yyy is not valid - we'll treat it as yyyy */
119 #define FULLYEAR 0x74
120 #define FORMATCALLBACK 0x81 /* -> maximum of 0x80 callbacks possible */
121 #define FORMATCALLMASK 0x80
122 #define DT_STRING 0x0100
124 #define DTHT_DATEFIELD 0xff /* for hit-testing */
127 #define DTHT_CHECKBOX 0x200 /* these should end at '00' , to make */
128 #define DTHT_MCPOPUP 0x300 /* & DTHT_DATEFIELD 0 when DATETIME_KeyDown */
129 #define DTHT_GOTFOCUS 0x400 /* tests for date-fields */
131 static BOOL
DATETIME_SendSimpleNotify (DATETIME_INFO
*infoPtr
, UINT code
);
132 static BOOL
DATETIME_SendDateTimeChangeNotify (DATETIME_INFO
*infoPtr
);
133 extern void MONTHCAL_CopyTime(const SYSTEMTIME
*from
, SYSTEMTIME
*to
);
134 static const WCHAR allowedformatchars
[] = {'d', 'h', 'H', 'm', 'M', 's', 't', 'y', 'X', '\'', 0};
135 static const int maxrepetition
[] = {4,2,2,2,4,2,2,4,-1,-1};
139 DATETIME_GetSystemTime (DATETIME_INFO
*infoPtr
, SYSTEMTIME
*lprgSysTimeArray
)
141 if (!lprgSysTimeArray
) return GDT_NONE
;
143 if ((infoPtr
->dwStyle
& DTS_SHOWNONE
) &&
144 (SendMessageW (infoPtr
->hwndCheckbut
, BM_GETCHECK
, 0, 0) == BST_UNCHECKED
))
147 MONTHCAL_CopyTime (&infoPtr
->date
, lprgSysTimeArray
);
154 DATETIME_SetSystemTime (DATETIME_INFO
*infoPtr
, DWORD flag
, SYSTEMTIME
*lprgSysTimeArray
)
156 if (!lprgSysTimeArray
) return 0;
158 TRACE("%04d/%02d/%02d %02d:%02d:%02d\n",
159 lprgSysTimeArray
->wYear
, lprgSysTimeArray
->wMonth
, lprgSysTimeArray
->wDay
,
160 lprgSysTimeArray
->wHour
, lprgSysTimeArray
->wMinute
, lprgSysTimeArray
->wSecond
);
162 if (flag
== GDT_VALID
) {
163 infoPtr
->dateValid
= TRUE
;
164 MONTHCAL_CopyTime (lprgSysTimeArray
, &infoPtr
->date
);
165 SendMessageW (infoPtr
->hMonthCal
, MCM_SETCURSEL
, 0, (LPARAM
)(&infoPtr
->date
));
166 SendMessageW (infoPtr
->hwndCheckbut
, BM_SETCHECK
, BST_CHECKED
, 0);
167 } else if (flag
== GDT_NONE
) {
168 infoPtr
->dateValid
= FALSE
;
169 SendMessageW (infoPtr
->hwndCheckbut
, BM_SETCHECK
, BST_UNCHECKED
, 0);
172 InvalidateRect(infoPtr
->hwndSelf
, NULL
, TRUE
);
178 * Split up a formattxt in actions.
179 * See ms documentation for the meaning of the letter codes/'specifiers'.
182 * *'dddddd' is handled as 'dddd' plus 'dd'.
183 * *unrecognized formats are strings (here given the type DT_STRING;
184 * start of the string is encoded in lower bits of DT_STRING.
185 * Therefore, 'string' ends finally up as '<show seconds>tring'.
189 DATETIME_UseFormat (DATETIME_INFO
*infoPtr
, LPCWSTR formattxt
)
193 int *nrFields
= &infoPtr
->nrFields
;
196 infoPtr
->fieldspec
[*nrFields
] = 0;
197 len
= strlenW(allowedformatchars
);
200 for (i
= 0; formattxt
[i
]; i
++) {
201 TRACE ("\n%d %c:", i
, formattxt
[i
]);
202 for (j
= 0; j
< len
; j
++) {
203 if (allowedformatchars
[j
]==formattxt
[i
]) {
204 TRACE ("%c[%d,%x]", allowedformatchars
[j
], *nrFields
, infoPtr
->fieldspec
[*nrFields
]);
205 if ((*nrFields
==0) && (infoPtr
->fieldspec
[*nrFields
]==0)) {
206 infoPtr
->fieldspec
[*nrFields
] = (j
<<4) + 1;
209 if (infoPtr
->fieldspec
[*nrFields
] >> 4 != j
) {
211 infoPtr
->fieldspec
[*nrFields
] = (j
<<4) + 1;
214 if ((infoPtr
->fieldspec
[*nrFields
] & 0x0f) == maxrepetition
[j
]) {
216 infoPtr
->fieldspec
[*nrFields
] = (j
<<4) + 1;
219 infoPtr
->fieldspec
[*nrFields
]++;
221 } /* if allowedformatchar */
224 /* char is not a specifier: handle char like a string */
226 if ((*nrFields
==0) && (infoPtr
->fieldspec
[*nrFields
]==0)) {
227 infoPtr
->fieldspec
[*nrFields
] = DT_STRING
+ k
;
228 infoPtr
->buflen
[*nrFields
] = 0;
229 } else if ((infoPtr
->fieldspec
[*nrFields
] & DT_STRING
) != DT_STRING
) {
231 infoPtr
->fieldspec
[*nrFields
] = DT_STRING
+ k
;
232 infoPtr
->buflen
[*nrFields
] = 0;
234 infoPtr
->textbuf
[k
] = formattxt
[i
];
236 infoPtr
->buflen
[*nrFields
]++;
239 if (*nrFields
== infoPtr
->nrFieldsAllocated
) {
240 FIXME ("out of memory; should reallocate. crash ahead.\n");
246 if (infoPtr
->fieldspec
[*nrFields
] != 0) (*nrFields
)++;
251 DATETIME_SetFormatW (DATETIME_INFO
*infoPtr
, LPCWSTR lpszFormat
)
254 WCHAR format_buf
[80];
257 if (infoPtr
->dwStyle
& DTS_LONGDATEFORMAT
)
258 format_item
= LOCALE_SLONGDATE
;
259 else if (infoPtr
->dwStyle
& DTS_TIMEFORMAT
)
260 format_item
= LOCALE_STIMEFORMAT
;
261 else /* DTS_SHORTDATEFORMAT */
262 format_item
= LOCALE_SSHORTDATE
;
263 GetLocaleInfoW( GetSystemDefaultLCID(), format_item
, format_buf
, sizeof(format_buf
)/sizeof(format_buf
[0]));
264 lpszFormat
= format_buf
;
267 DATETIME_UseFormat (infoPtr
, lpszFormat
);
269 return infoPtr
->nrFields
;
274 DATETIME_SetFormatA (DATETIME_INFO
*infoPtr
, LPCSTR lpszFormat
)
278 INT len
= MultiByteToWideChar(CP_ACP
, 0, lpszFormat
, -1, NULL
, 0);
279 LPWSTR wstr
= Alloc(len
* sizeof(WCHAR
));
280 if (wstr
) MultiByteToWideChar(CP_ACP
, 0, lpszFormat
, -1, wstr
, len
);
281 retval
= DATETIME_SetFormatW (infoPtr
, wstr
);
286 return DATETIME_SetFormatW (infoPtr
, 0);
292 DATETIME_ReturnTxt (DATETIME_INFO
*infoPtr
, int count
, LPWSTR result
, int resultSize
)
294 static const WCHAR fmt_dW
[] = { '%', 'd', 0 };
295 static const WCHAR fmt__2dW
[] = { '%', '.', '2', 'd', 0 };
296 static const WCHAR fmt__3sW
[] = { '%', '.', '3', 's', 0 };
297 SYSTEMTIME date
= infoPtr
->date
;
302 TRACE ("%d,%d\n", infoPtr
->nrFields
, count
);
303 if (count
>infoPtr
->nrFields
|| count
< 0) {
304 WARN ("buffer overrun, have %d want %d\n", infoPtr
->nrFields
, count
);
308 if (!infoPtr
->fieldspec
) return;
310 spec
= infoPtr
->fieldspec
[count
];
311 if (spec
& DT_STRING
) {
312 int txtlen
= infoPtr
->buflen
[count
];
314 if (txtlen
> resultSize
)
315 txtlen
= resultSize
- 1;
316 memcpy (result
, infoPtr
->textbuf
+ (spec
&~ DT_STRING
), txtlen
* sizeof(WCHAR
));
318 TRACE ("arg%d=%x->[%s]\n", count
, infoPtr
->fieldspec
[count
], debugstr_w(result
));
328 wsprintfW (result
, fmt_dW
, date
.wDay
);
331 wsprintfW (result
, fmt__2dW
, date
.wDay
);
334 GetLocaleInfoW(LOCALE_USER_DEFAULT
, LOCALE_SABBREVDAYNAME1
+(date
.wDayOfWeek
+6)%7, result
, 4);
335 /*wsprintfW (result,"%.3s",days[date.wDayOfWeek]);*/
338 GetLocaleInfoW(LOCALE_USER_DEFAULT
, LOCALE_SDAYNAME1
+(date
.wDayOfWeek
+6)%7, result
, resultSize
);
341 wsprintfW (result
, fmt_dW
, date
.wHour
- (date
.wHour
> 12 ? 12 : 0));
344 wsprintfW (result
, fmt__2dW
, date
.wHour
- (date
.wHour
> 12 ? 12 : 0));
347 wsprintfW (result
, fmt_dW
, date
.wHour
);
350 wsprintfW (result
, fmt__2dW
, date
.wHour
);
353 wsprintfW (result
, fmt_dW
, date
.wSecond
);
356 wsprintfW (result
, fmt__2dW
, date
.wSecond
);
359 wsprintfW (result
, fmt_dW
, date
.wMinute
);
362 wsprintfW (result
, fmt__2dW
, date
.wMinute
);
365 wsprintfW (result
, fmt_dW
, date
.wMonth
);
368 wsprintfW (result
, fmt__2dW
, date
.wMonth
);
371 GetLocaleInfoW(GetSystemDefaultLCID(), LOCALE_SMONTHNAME1
+date
.wMonth
-1,
372 buffer
, sizeof(buffer
)/sizeof(buffer
[0]));
373 wsprintfW (result
, fmt__3sW
, buffer
);
376 GetLocaleInfoW(GetSystemDefaultLCID(),LOCALE_SMONTHNAME1
+date
.wMonth
-1,
380 result
[0] = (date
.wHour
< 12 ? 'A' : 'P');
384 result
[0] = (date
.wHour
< 12 ? 'A' : 'P');
389 FIXME ("Not implemented\n");
394 wsprintfW (result
, fmt_dW
, date
.wYear
-10* (int) floor(date
.wYear
/10));
397 wsprintfW (result
, fmt__2dW
, date
.wYear
-100* (int) floor(date
.wYear
/100));
399 case INVALIDFULLYEAR
:
401 wsprintfW (result
, fmt_dW
, date
.wYear
);
405 TRACE ("arg%d=%x->[%s]\n", count
, infoPtr
->fieldspec
[count
], debugstr_w(result
));
408 static int wrap(int val
, int delta
, int minVal
, int maxVal
)
411 if (delta
== INT_MIN
|| val
< minVal
) return maxVal
;
412 if (delta
== INT_MAX
|| val
> maxVal
) return minVal
;
417 DATETIME_IncreaseField (DATETIME_INFO
*infoPtr
, int number
, int delta
)
419 SYSTEMTIME
*date
= &infoPtr
->date
;
421 TRACE ("%d\n", number
);
422 if ((number
> infoPtr
->nrFields
) || (number
< 0)) return;
424 if ((infoPtr
->fieldspec
[number
] & DTHT_DATEFIELD
) == 0) return;
426 switch (infoPtr
->fieldspec
[number
]) {
430 date
->wYear
= wrap(date
->wYear
, delta
, 1752, 9999);
436 date
->wMonth
= wrap(date
->wMonth
, delta
, 1, 12);
443 date
->wDay
= wrap(date
->wDay
, delta
, 1, MONTHCAL_MonthLength(date
->wMonth
, date
->wYear
));
453 date
->wHour
= wrap(date
->wHour
, delta
, 0, 23);
457 date
->wMinute
= wrap(date
->wMinute
, delta
, 0, 59);
461 date
->wSecond
= wrap(date
->wSecond
, delta
, 0, 59);
464 FIXME ("Not implemented\n");
468 /* FYI: On 1752/9/14 the calendar changed and England and the
469 * American colonies changed to the Gregorian calendar. This change
470 * involved having September 14th follow September 2nd. So no date
471 * algorithm works before that date.
473 if (10000 * date
->wYear
+ 100 * date
->wMonth
+ date
->wDay
< 17520914) {
485 DATETIME_Refresh (DATETIME_INFO
*infoPtr
, HDC hdc
)
489 RECT
*rcDraw
= &infoPtr
->rcDraw
;
490 RECT
*calbutton
= &infoPtr
->calbutton
;
491 RECT
*checkbox
= &infoPtr
->checkbox
;
493 COLORREF oldTextColor
;
495 /* draw control edge */
498 if (infoPtr
->dateValid
) {
499 HFONT oldFont
= SelectObject (hdc
, infoPtr
->hFont
);
500 INT oldBkMode
= SetBkMode (hdc
, TRANSPARENT
);
503 DATETIME_ReturnTxt (infoPtr
, 0, txt
, sizeof(txt
)/sizeof(txt
[0]));
504 GetTextExtentPoint32W (hdc
, txt
, strlenW(txt
), &size
);
505 rcDraw
->bottom
= size
.cy
+ 2;
507 prevright
= checkbox
->right
= ((infoPtr
->dwStyle
& DTS_SHOWNONE
) ? 18 : 2);
509 for (i
= 0; i
< infoPtr
->nrFields
; i
++) {
510 DATETIME_ReturnTxt (infoPtr
, i
, txt
, sizeof(txt
)/sizeof(txt
[0]));
511 GetTextExtentPoint32W (hdc
, txt
, strlenW(txt
), &size
);
512 field
= &infoPtr
->fieldRect
[i
];
513 field
->left
= prevright
;
514 field
->right
= prevright
+size
.cx
;
515 field
->top
= rcDraw
->top
;
516 field
->bottom
= rcDraw
->bottom
;
517 prevright
= field
->right
;
519 if (infoPtr
->dwStyle
& WS_DISABLED
)
520 oldTextColor
= SetTextColor (hdc
, comctl32_color
.clrGrayText
);
521 else if ((infoPtr
->haveFocus
) && (i
== infoPtr
->select
)) {
522 /* fill if focussed */
523 HBRUSH hbr
= CreateSolidBrush (comctl32_color
.clrActiveCaption
);
524 FillRect(hdc
, field
, hbr
);
526 oldTextColor
= SetTextColor (hdc
, comctl32_color
.clrWindow
);
529 oldTextColor
= SetTextColor (hdc
, comctl32_color
.clrWindowText
);
531 /* draw the date text using the colour set above */
532 DrawTextW (hdc
, txt
, strlenW(txt
), field
, DT_RIGHT
| DT_VCENTER
| DT_SINGLELINE
);
533 SetTextColor (hdc
, oldTextColor
);
535 SetBkMode (hdc
, oldBkMode
);
536 SelectObject (hdc
, oldFont
);
539 if (!(infoPtr
->dwStyle
& DTS_UPDOWN
)) {
540 DrawFrameControl(hdc
, calbutton
, DFC_SCROLL
,
541 DFCS_SCROLLDOWN
| (infoPtr
->bCalDepressed
? DFCS_PUSHED
: 0) |
542 (infoPtr
->dwStyle
& WS_DISABLED
? DFCS_INACTIVE
: 0) );
548 DATETIME_HitTest (DATETIME_INFO
*infoPtr
, POINT pt
)
552 TRACE ("%ld, %ld\n", pt
.x
, pt
.y
);
554 if (PtInRect (&infoPtr
->calbutton
, pt
)) return DTHT_MCPOPUP
;
555 if (PtInRect (&infoPtr
->checkbox
, pt
)) return DTHT_CHECKBOX
;
557 for (i
=0; i
< infoPtr
->nrFields
; i
++) {
558 if (PtInRect (&infoPtr
->fieldRect
[i
], pt
)) return i
;
566 DATETIME_LButtonDown (DATETIME_INFO
*infoPtr
, WORD wKey
, INT x
, INT y
)
573 old
= infoPtr
->select
;
574 new = DATETIME_HitTest (infoPtr
, pt
);
576 /* FIXME: might be conditions where we don't want to update infoPtr->select */
577 infoPtr
->select
= new;
579 SetFocus(infoPtr
->hwndSelf
);
581 if (infoPtr
->select
== DTHT_MCPOPUP
) {
583 SendMessageW(infoPtr
->hMonthCal
, MCM_GETMINREQRECT
, 0, (LPARAM
)&rcMonthCal
);
585 /* FIXME: button actually is only depressed during dropdown of the */
586 /* calendar control and when the mouse is over the button window */
587 infoPtr
->bCalDepressed
= TRUE
;
589 /* recalculate the position of the monthcal popup */
590 if(infoPtr
->dwStyle
& DTS_RIGHTALIGN
)
591 infoPtr
->monthcal_pos
.x
= infoPtr
->calbutton
.left
-
592 (rcMonthCal
.right
- rcMonthCal
.left
);
594 /* FIXME: this should be after the area reserved for the checkbox */
595 infoPtr
->monthcal_pos
.x
= infoPtr
->rcDraw
.left
;
597 infoPtr
->monthcal_pos
.y
= infoPtr
->rcClient
.bottom
;
598 ClientToScreen (infoPtr
->hwndSelf
, &(infoPtr
->monthcal_pos
));
599 SetWindowPos(infoPtr
->hMonthCal
, 0, infoPtr
->monthcal_pos
.x
,
600 infoPtr
->monthcal_pos
.y
, rcMonthCal
.right
- rcMonthCal
.left
,
601 rcMonthCal
.bottom
- rcMonthCal
.top
, 0);
603 if(IsWindowVisible(infoPtr
->hMonthCal
)) {
604 ShowWindow(infoPtr
->hMonthCal
, SW_HIDE
);
606 SYSTEMTIME
*lprgSysTimeArray
= &infoPtr
->date
;
607 TRACE("update calendar %04d/%02d/%02d\n",
608 lprgSysTimeArray
->wYear
, lprgSysTimeArray
->wMonth
, lprgSysTimeArray
->wDay
);
609 SendMessageW(infoPtr
->hMonthCal
, MCM_SETCURSEL
, 0, (LPARAM
)(&infoPtr
->date
));
610 ShowWindow(infoPtr
->hMonthCal
, SW_SHOW
);
613 TRACE ("dt:%p mc:%p mc parent:%p, desktop:%p\n",
614 infoPtr
->hwndSelf
, infoPtr
->hMonthCal
, infoPtr
->hwndNotify
, GetDesktopWindow ());
615 DATETIME_SendSimpleNotify (infoPtr
, DTN_DROPDOWN
);
618 InvalidateRect(infoPtr
->hwndSelf
, NULL
, TRUE
);
625 DATETIME_LButtonUp (DATETIME_INFO
*infoPtr
, WORD wKey
)
627 if(infoPtr
->bCalDepressed
) {
628 infoPtr
->bCalDepressed
= FALSE
;
629 InvalidateRect(infoPtr
->hwndSelf
, &(infoPtr
->calbutton
), TRUE
);
637 DATETIME_Paint (DATETIME_INFO
*infoPtr
, HDC hdc
)
641 hdc
= BeginPaint (infoPtr
->hwndSelf
, &ps
);
642 DATETIME_Refresh (infoPtr
, hdc
);
643 EndPaint (infoPtr
->hwndSelf
, &ps
);
645 DATETIME_Refresh (infoPtr
, hdc
);
652 DATETIME_Button_Command (DATETIME_INFO
*infoPtr
, WPARAM wParam
, LPARAM lParam
)
654 if( HIWORD(wParam
) == BN_CLICKED
) {
655 DWORD state
= SendMessageW((HWND
)lParam
, BM_GETCHECK
, 0, 0);
656 infoPtr
->dateValid
= (state
== BST_CHECKED
);
657 InvalidateRect(infoPtr
->hwndSelf
, NULL
, TRUE
);
665 DATETIME_Command (DATETIME_INFO
*infoPtr
, WPARAM wParam
, LPARAM lParam
)
667 TRACE("hwndbutton = %p\n", infoPtr
->hwndCheckbut
);
668 if(infoPtr
->hwndCheckbut
== (HWND
)lParam
)
669 return DATETIME_Button_Command(infoPtr
, wParam
, lParam
);
675 DATETIME_Enable (DATETIME_INFO
*infoPtr
, BOOL bEnable
)
677 TRACE("%p %s\n", infoPtr
, bEnable
? "TRUE" : "FALSE");
679 infoPtr
->dwStyle
&= ~WS_DISABLED
;
681 infoPtr
->dwStyle
|= WS_DISABLED
;
687 DATETIME_EraseBackground (DATETIME_INFO
*infoPtr
, HDC hdc
)
689 HBRUSH hBrush
, hSolidBrush
= NULL
;
692 if (infoPtr
->dwStyle
& WS_DISABLED
)
693 hBrush
= hSolidBrush
= CreateSolidBrush(comctl32_color
.clrBtnFace
);
696 hBrush
= (HBRUSH
)SendMessageW(infoPtr
->hwndNotify
, WM_CTLCOLOREDIT
,
697 (WPARAM
)hdc
, (LPARAM
)infoPtr
->hwndSelf
);
699 hBrush
= hSolidBrush
= CreateSolidBrush(comctl32_color
.clrWindow
);
702 GetClientRect (infoPtr
->hwndSelf
, &rc
);
704 FillRect (hdc
, &rc
, hBrush
);
707 DeleteObject(hSolidBrush
);
714 DATETIME_Notify (DATETIME_INFO
*infoPtr
, int idCtrl
, LPNMHDR lpnmh
)
716 TRACE ("Got notification %x from %p\n", lpnmh
->code
, lpnmh
->hwndFrom
);
717 TRACE ("info: %p %p %p\n", infoPtr
->hwndSelf
, infoPtr
->hMonthCal
, infoPtr
->hUpdown
);
719 if (lpnmh
->code
== MCN_SELECT
) {
720 ShowWindow(infoPtr
->hMonthCal
, SW_HIDE
);
721 infoPtr
->dateValid
= TRUE
;
722 SendMessageW (infoPtr
->hMonthCal
, MCM_GETCURSEL
, 0, (LPARAM
)&infoPtr
->date
);
723 TRACE("got from calendar %04d/%02d/%02d\n",
724 infoPtr
->date
.wYear
, infoPtr
->date
.wMonth
, infoPtr
->date
.wDay
);
725 SendMessageW (infoPtr
->hwndCheckbut
, BM_SETCHECK
, BST_CHECKED
, 0);
726 InvalidateRect(infoPtr
->hwndSelf
, NULL
, TRUE
);
727 DATETIME_SendDateTimeChangeNotify (infoPtr
);
734 DATETIME_KeyDown (DATETIME_INFO
*infoPtr
, DWORD vkCode
, LPARAM flags
)
736 int fieldNum
= infoPtr
->select
& DTHT_DATEFIELD
;
739 if (!(infoPtr
->haveFocus
)) return 0;
740 if ((fieldNum
==0) && (infoPtr
->select
)) return 0;
742 if (infoPtr
->select
& FORMATCALLMASK
) {
743 FIXME ("Callbacks not implemented yet\n");
749 DATETIME_IncreaseField (infoPtr
, fieldNum
, 1);
750 DATETIME_SendDateTimeChangeNotify (infoPtr
);
754 DATETIME_IncreaseField (infoPtr
, fieldNum
, -1);
755 DATETIME_SendDateTimeChangeNotify (infoPtr
);
758 DATETIME_IncreaseField (infoPtr
, fieldNum
, INT_MIN
);
759 DATETIME_SendDateTimeChangeNotify (infoPtr
);
762 DATETIME_IncreaseField (infoPtr
, fieldNum
, INT_MAX
);
763 DATETIME_SendDateTimeChangeNotify (infoPtr
);
767 if (infoPtr
->select
== 0) {
768 infoPtr
->select
= infoPtr
->nrFields
- 1;
773 } while ((infoPtr
->fieldspec
[infoPtr
->select
] & DT_STRING
) && (wrap
<2));
778 if (infoPtr
->select
==infoPtr
->nrFields
) {
782 } while ((infoPtr
->fieldspec
[infoPtr
->select
] & DT_STRING
) && (wrap
<2));
786 InvalidateRect(infoPtr
->hwndSelf
, NULL
, FALSE
);
793 DATETIME_KillFocus (DATETIME_INFO
*infoPtr
, HWND lostFocus
)
795 TRACE("lost focus to %p\n", lostFocus
);
797 if (infoPtr
->haveFocus
) {
798 DATETIME_SendSimpleNotify (infoPtr
, NM_KILLFOCUS
);
799 infoPtr
->haveFocus
= 0;
802 InvalidateRect (infoPtr
->hwndSelf
, NULL
, TRUE
);
809 DATETIME_NCCreate (HWND hwnd
, LPCREATESTRUCTW lpcs
)
811 DWORD dwExStyle
= GetWindowLongW(hwnd
, GWL_EXSTYLE
);
812 /* force control to have client edge */
813 dwExStyle
|= WS_EX_CLIENTEDGE
;
814 SetWindowLongW(hwnd
, GWL_EXSTYLE
, dwExStyle
);
816 return DefWindowProcW(hwnd
, WM_NCCREATE
, 0, (LPARAM
)lpcs
);
821 DATETIME_SetFocus (DATETIME_INFO
*infoPtr
, HWND lostFocus
)
823 TRACE("got focus from %p\n", lostFocus
);
825 if (infoPtr
->haveFocus
== 0) {
826 DATETIME_SendSimpleNotify (infoPtr
, NM_SETFOCUS
);
827 infoPtr
->haveFocus
= DTHT_GOTFOCUS
;
830 InvalidateRect(infoPtr
->hwndSelf
, NULL
, FALSE
);
837 DATETIME_SendDateTimeChangeNotify (DATETIME_INFO
*infoPtr
)
839 NMDATETIMECHANGE dtdtc
;
841 dtdtc
.nmhdr
.hwndFrom
= infoPtr
->hwndSelf
;
842 dtdtc
.nmhdr
.idFrom
= GetWindowLongPtrW(infoPtr
->hwndSelf
, GWLP_ID
);
843 dtdtc
.nmhdr
.code
= DTN_DATETIMECHANGE
;
845 dtdtc
.dwFlags
= (infoPtr
->dwStyle
& DTS_SHOWNONE
) ? GDT_NONE
: GDT_VALID
;
847 MONTHCAL_CopyTime (&infoPtr
->date
, &dtdtc
.st
);
848 return (BOOL
) SendMessageW (infoPtr
->hwndNotify
, WM_NOTIFY
,
849 (WPARAM
)dtdtc
.nmhdr
.idFrom
, (LPARAM
)&dtdtc
);
854 DATETIME_SendSimpleNotify (DATETIME_INFO
*infoPtr
, UINT code
)
859 nmhdr
.hwndFrom
= infoPtr
->hwndSelf
;
860 nmhdr
.idFrom
= GetWindowLongPtrW(infoPtr
->hwndSelf
, GWLP_ID
);
863 return (BOOL
) SendMessageW (infoPtr
->hwndNotify
, WM_NOTIFY
,
864 (WPARAM
)nmhdr
.idFrom
, (LPARAM
)&nmhdr
);
868 DATETIME_Size (DATETIME_INFO
*infoPtr
, WORD flags
, INT width
, INT height
)
871 infoPtr
->rcClient
.bottom
= height
;
872 infoPtr
->rcClient
.right
= width
;
874 TRACE("Height=%ld, Width=%ld\n", infoPtr
->rcClient
.bottom
, infoPtr
->rcClient
.right
);
876 infoPtr
->rcDraw
= infoPtr
->rcClient
;
878 /* set the size of the button that drops the calendar down */
879 /* FIXME: account for style that allows button on left side */
880 infoPtr
->calbutton
.top
= infoPtr
->rcDraw
.top
;
881 infoPtr
->calbutton
.bottom
= infoPtr
->rcDraw
.bottom
;
882 infoPtr
->calbutton
.left
= infoPtr
->rcDraw
.right
-15;
883 infoPtr
->calbutton
.right
= infoPtr
->rcDraw
.right
;
885 /* set enable/disable button size for show none style being enabled */
886 /* FIXME: these dimensions are completely incorrect */
887 infoPtr
->checkbox
.top
= infoPtr
->rcDraw
.top
;
888 infoPtr
->checkbox
.bottom
= infoPtr
->rcDraw
.bottom
;
889 infoPtr
->checkbox
.left
= infoPtr
->rcDraw
.left
;
890 infoPtr
->checkbox
.right
= infoPtr
->rcDraw
.left
+ 10;
892 InvalidateRect(infoPtr
->hwndSelf
, NULL
, FALSE
);
899 DATETIME_StyleChanged(DATETIME_INFO
*infoPtr
, WPARAM wStyleType
, LPSTYLESTRUCT lpss
)
901 static const WCHAR buttonW
[] = { 'b', 'u', 't', 't', 'o', 'n', 0 };
903 TRACE("(styletype=%x, styleOld=0x%08lx, styleNew=0x%08lx)\n",
904 wStyleType
, lpss
->styleOld
, lpss
->styleNew
);
906 if (wStyleType
!= GWL_STYLE
) return 0;
908 infoPtr
->dwStyle
= lpss
->styleNew
;
910 if ( !(lpss
->styleOld
& DTS_SHOWNONE
) && (lpss
->styleNew
& DTS_SHOWNONE
) ) {
911 infoPtr
->hwndCheckbut
= CreateWindowExW (0, buttonW
, 0, WS_CHILD
| WS_VISIBLE
| BS_AUTOCHECKBOX
,
912 2, 2, 13, 13, infoPtr
->hwndSelf
, 0,
913 (HINSTANCE
)GetWindowLongPtrW (infoPtr
->hwndSelf
, GWLP_HINSTANCE
), 0);
914 SendMessageW (infoPtr
->hwndCheckbut
, BM_SETCHECK
, 1, 0);
916 if ( (lpss
->styleOld
& DTS_SHOWNONE
) && !(lpss
->styleNew
& DTS_SHOWNONE
) ) {
917 DestroyWindow(infoPtr
->hwndCheckbut
);
918 infoPtr
->hwndCheckbut
= 0;
920 if ( !(lpss
->styleOld
& DTS_UPDOWN
) && (lpss
->styleNew
& DTS_UPDOWN
) ) {
921 infoPtr
->hUpdown
= CreateUpDownControl (WS_CHILD
| WS_BORDER
| WS_VISIBLE
, 120, 1, 20, 20,
922 infoPtr
->hwndSelf
, 1, 0, 0, UD_MAXVAL
, UD_MINVAL
, 0);
924 if ( (lpss
->styleOld
& DTS_UPDOWN
) && !(lpss
->styleNew
& DTS_UPDOWN
) ) {
925 DestroyWindow(infoPtr
->hUpdown
);
926 infoPtr
->hUpdown
= 0;
929 InvalidateRect(infoPtr
->hwndSelf
, NULL
, TRUE
);
935 DATETIME_Create (HWND hwnd
, LPCREATESTRUCTW lpcs
)
937 static const WCHAR SysMonthCal32W
[] = { 'S', 'y', 's', 'M', 'o', 'n', 't', 'h', 'C', 'a', 'l', '3', '2', 0 };
938 DATETIME_INFO
*infoPtr
= (DATETIME_INFO
*)Alloc (sizeof(DATETIME_INFO
));
939 STYLESTRUCT ss
= { 0, lpcs
->style
};
941 if (!infoPtr
) return -1;
943 infoPtr
->hwndSelf
= hwnd
;
944 infoPtr
->dwStyle
= lpcs
->style
;
946 infoPtr
->nrFieldsAllocated
= 32;
947 infoPtr
->fieldspec
= (int *) Alloc (infoPtr
->nrFieldsAllocated
* sizeof(int));
948 infoPtr
->fieldRect
= (RECT
*) Alloc (infoPtr
->nrFieldsAllocated
* sizeof(RECT
));
949 infoPtr
->buflen
= (int *) Alloc (infoPtr
->nrFieldsAllocated
* sizeof(int));
950 infoPtr
->hwndNotify
= lpcs
->hwndParent
;
951 infoPtr
->select
= -1; /* initially, nothing is selected */
953 DATETIME_StyleChanged(infoPtr
, GWL_STYLE
, &ss
);
954 DATETIME_SetFormatW (infoPtr
, 0);
956 /* create the monthcal control */
957 infoPtr
->hMonthCal
= CreateWindowExW (0, SysMonthCal32W
, 0, WS_BORDER
| WS_POPUP
| WS_CLIPSIBLINGS
,
958 0, 0, 0, 0, infoPtr
->hwndSelf
, 0, 0, 0);
960 /* initialize info structure */
961 GetSystemTime (&infoPtr
->date
);
962 infoPtr
->dateValid
= TRUE
;
963 infoPtr
->hFont
= GetStockObject(DEFAULT_GUI_FONT
);
965 SetWindowLongPtrW (hwnd
, 0, (DWORD_PTR
)infoPtr
);
973 DATETIME_Destroy (DATETIME_INFO
*infoPtr
)
975 if (infoPtr
->hwndCheckbut
)
976 DestroyWindow(infoPtr
->hwndCheckbut
);
977 if (infoPtr
->hUpdown
)
978 DestroyWindow(infoPtr
->hUpdown
);
979 if (infoPtr
->hMonthCal
)
980 DestroyWindow(infoPtr
->hMonthCal
);
981 SetWindowLongPtrW( infoPtr
->hwndSelf
, 0, 0 ); /* clear infoPtr */
987 static LRESULT WINAPI
988 DATETIME_WindowProc (HWND hwnd
, UINT uMsg
, WPARAM wParam
, LPARAM lParam
)
990 DATETIME_INFO
*infoPtr
= ((DATETIME_INFO
*)GetWindowLongPtrW (hwnd
, 0));
993 TRACE ("%x, %x, %lx\n", uMsg
, wParam
, lParam
);
995 if (!infoPtr
&& (uMsg
!= WM_CREATE
) && (uMsg
!= WM_NCCREATE
))
996 return DefWindowProcW( hwnd
, uMsg
, wParam
, lParam
);
1000 case DTM_GETSYSTEMTIME
:
1001 return DATETIME_GetSystemTime (infoPtr
, (SYSTEMTIME
*) lParam
);
1003 case DTM_SETSYSTEMTIME
:
1004 return DATETIME_SetSystemTime (infoPtr
, wParam
, (SYSTEMTIME
*) lParam
);
1007 ret
= SendMessageW (infoPtr
->hMonthCal
, MCM_GETRANGE
, wParam
, lParam
);
1008 return ret
? ret
: 1; /* bug emulation */
1011 return SendMessageW (infoPtr
->hMonthCal
, MCM_SETRANGE
, wParam
, lParam
);
1013 case DTM_SETFORMATA
:
1014 return DATETIME_SetFormatA (infoPtr
, (LPCSTR
)lParam
);
1016 case DTM_SETFORMATW
:
1017 return DATETIME_SetFormatW (infoPtr
, (LPCWSTR
)lParam
);
1019 case DTM_GETMONTHCAL
:
1020 return (LRESULT
)infoPtr
->hMonthCal
;
1022 case DTM_SETMCCOLOR
:
1023 return SendMessageW (infoPtr
->hMonthCal
, MCM_SETCOLOR
, wParam
, lParam
);
1025 case DTM_GETMCCOLOR
:
1026 return SendMessageW (infoPtr
->hMonthCal
, MCM_GETCOLOR
, wParam
, 0);
1029 return SendMessageW (infoPtr
->hMonthCal
, WM_SETFONT
, wParam
, lParam
);
1032 return SendMessageW (infoPtr
->hMonthCal
, WM_GETFONT
, wParam
, lParam
);
1035 return DATETIME_Notify (infoPtr
, (int)wParam
, (LPNMHDR
)lParam
);
1038 return DATETIME_Enable (infoPtr
, (BOOL
)wParam
);
1041 return DATETIME_EraseBackground (infoPtr
, (HDC
)wParam
);
1044 return DLGC_WANTARROWS
| DLGC_WANTCHARS
;
1047 return DATETIME_Paint (infoPtr
, (HDC
)wParam
);
1050 return DATETIME_KeyDown (infoPtr
, wParam
, lParam
);
1053 return DATETIME_KillFocus (infoPtr
, (HWND
)wParam
);
1056 return DATETIME_NCCreate (hwnd
, (LPCREATESTRUCTW
)lParam
);
1059 return DATETIME_SetFocus (infoPtr
, (HWND
)wParam
);
1062 return DATETIME_Size (infoPtr
, wParam
, (SHORT
)LOWORD(lParam
), (SHORT
)HIWORD(lParam
));
1064 case WM_LBUTTONDOWN
:
1065 return DATETIME_LButtonDown (infoPtr
, (WORD
)wParam
, (SHORT
)LOWORD(lParam
), (SHORT
)HIWORD(lParam
));
1068 return DATETIME_LButtonUp (infoPtr
, (WORD
)wParam
);
1071 return DATETIME_Create (hwnd
, (LPCREATESTRUCTW
)lParam
);
1074 return DATETIME_Destroy (infoPtr
);
1077 return DATETIME_Command (infoPtr
, wParam
, lParam
);
1079 case WM_STYLECHANGED
:
1080 return DATETIME_StyleChanged(infoPtr
, wParam
, (LPSTYLESTRUCT
)lParam
);
1083 if ((uMsg
>= WM_USER
) && (uMsg
< WM_APP
))
1084 ERR("unknown msg %04x wp=%08x lp=%08lx\n",
1085 uMsg
, wParam
, lParam
);
1086 return DefWindowProcW (hwnd
, uMsg
, wParam
, lParam
);
1092 DATETIME_Register (void)
1096 ZeroMemory (&wndClass
, sizeof(WNDCLASSW
));
1097 wndClass
.style
= CS_GLOBALCLASS
;
1098 wndClass
.lpfnWndProc
= DATETIME_WindowProc
;
1099 wndClass
.cbClsExtra
= 0;
1100 wndClass
.cbWndExtra
= sizeof(DATETIME_INFO
*);
1101 wndClass
.hCursor
= LoadCursorW (0, (LPCWSTR
)IDC_ARROW
);
1102 wndClass
.hbrBackground
= (HBRUSH
)(COLOR_WINDOW
+ 1);
1103 wndClass
.lpszClassName
= DATETIMEPICK_CLASSW
;
1105 RegisterClassW (&wndClass
);
1110 DATETIME_Unregister (void)
1112 UnregisterClassW (DATETIMEPICK_CLASSW
, NULL
);