secur32: Basic implementation of schannel AcquireCredentialsHandle/FreeCredentialsHandle.
[wine] / dlls / comctl32 / datetime.c
1 /*
2  * Date and time picker control
3  *
4  * Copyright 1998, 1999 Eric Kohl
5  * Copyright 1999, 2000 Alex Priem <alexp@sci.kun.nl>
6  * Copyright 2000 Chris Morgan <cmorgan@wpi.edu>
7  *
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.
12  *
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.
17  *
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., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
21  *
22  * NOTE
23  * 
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.
26  * 
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.
30  * 
31  * TODO:
32  *    -- DTS_APPCANPARSE
33  *    -- DTS_SHORTDATECENTURYFORMAT
34  *    -- DTN_CLOSEUP
35  *    -- DTN_FORMAT
36  *    -- DTN_FORMATQUERY
37  *    -- DTN_USERSTRING
38  *    -- DTN_WMKEYDOWN
39  *    -- FORMATCALLBACK
40  */
41
42 #include <math.h>
43 #include <string.h>
44 #include <stdarg.h>
45 #include <stdio.h>
46 #include <limits.h>
47
48 #include "windef.h"
49 #include "winbase.h"
50 #include "wingdi.h"
51 #include "winuser.h"
52 #include "winnls.h"
53 #include "commctrl.h"
54 #include "comctl32.h"
55 #include "wine/debug.h"
56 #include "wine/unicode.h"
57
58 WINE_DEFAULT_DEBUG_CHANNEL(datetime);
59
60 typedef struct
61 {
62     HWND hwndSelf;
63     HWND hMonthCal;
64     HWND hwndNotify;
65     HWND hUpdown;
66     DWORD dwStyle;
67     SYSTEMTIME date;
68     BOOL dateValid;
69     HWND hwndCheckbut;
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 */
75     int  bDropdownEnabled;
76     int  select;
77     HFONT hFont;
78     int nrFieldsAllocated;
79     int nrFields;
80     int haveFocus;
81     int *fieldspec;
82     RECT *fieldRect;
83     int  *buflen;
84     WCHAR textbuf[256];
85     POINT monthcal_pos;
86     int pendingUpdown;
87 } DATETIME_INFO, *LPDATETIME_INFO;
88
89 /* in monthcal.c */
90 extern int MONTHCAL_MonthLength(int month, int year);
91
92 /* this list of defines is closely related to `allowedformatchars' defined
93  * in datetime.c; the high nibble indicates the `base type' of the format
94  * specifier.
95  * Do not change without first reading DATETIME_UseFormat.
96  *
97  */
98
99 #define DT_END_FORMAT      0
100 #define ONEDIGITDAY     0x01
101 #define TWODIGITDAY     0x02
102 #define THREECHARDAY    0x03
103 #define FULLDAY         0x04
104 #define ONEDIGIT12HOUR  0x11
105 #define TWODIGIT12HOUR  0x12
106 #define ONEDIGIT24HOUR  0x21
107 #define TWODIGIT24HOUR  0x22
108 #define ONEDIGITMINUTE  0x31
109 #define TWODIGITMINUTE  0x32
110 #define ONEDIGITMONTH   0x41
111 #define TWODIGITMONTH   0x42
112 #define THREECHARMONTH  0x43
113 #define FULLMONTH       0x44
114 #define ONEDIGITSECOND  0x51
115 #define TWODIGITSECOND  0x52
116 #define ONELETTERAMPM   0x61
117 #define TWOLETTERAMPM   0x62
118 #define ONEDIGITYEAR    0x71
119 #define TWODIGITYEAR    0x72
120 #define INVALIDFULLYEAR 0x73      /* FIXME - yyy is not valid - we'll treat it as yyyy */
121 #define FULLYEAR        0x74
122 #define FORMATCALLBACK  0x81      /* -> maximum of 0x80 callbacks possible */
123 #define FORMATCALLMASK  0x80
124 #define DT_STRING       0x0100
125
126 #define DTHT_DATEFIELD  0xff      /* for hit-testing */
127
128 #define DTHT_NONE     0
129 #define DTHT_CHECKBOX 0x200     /* these should end at '00' , to make */
130 #define DTHT_MCPOPUP  0x300     /* & DTHT_DATEFIELD 0 when DATETIME_KeyDown */
131 #define DTHT_GOTFOCUS 0x400     /* tests for date-fields */
132
133 static BOOL DATETIME_SendSimpleNotify (const DATETIME_INFO *infoPtr, UINT code);
134 static BOOL DATETIME_SendDateTimeChangeNotify (const DATETIME_INFO *infoPtr);
135 extern void MONTHCAL_CopyTime(const SYSTEMTIME *from, SYSTEMTIME *to);
136 static const WCHAR allowedformatchars[] = {'d', 'h', 'H', 'm', 'M', 's', 't', 'y', 'X', 0};
137 static const int maxrepetition [] = {4,2,2,2,4,2,2,4,-1};
138
139
140 static DWORD
141 DATETIME_GetSystemTime (const DATETIME_INFO *infoPtr, SYSTEMTIME *lprgSysTimeArray)
142 {
143     if (!lprgSysTimeArray) return GDT_NONE;
144
145     if ((infoPtr->dwStyle & DTS_SHOWNONE) &&
146         (SendMessageW (infoPtr->hwndCheckbut, BM_GETCHECK, 0, 0) == BST_UNCHECKED))
147         return GDT_NONE;
148
149     MONTHCAL_CopyTime (&infoPtr->date, lprgSysTimeArray);
150
151     return GDT_VALID;
152 }
153
154
155 static BOOL
156 DATETIME_SetSystemTime (DATETIME_INFO *infoPtr, DWORD flag, const SYSTEMTIME *lprgSysTimeArray)
157 {
158     if (!lprgSysTimeArray) return 0;
159
160     TRACE("%04d/%02d/%02d %02d:%02d:%02d\n",
161           lprgSysTimeArray->wYear, lprgSysTimeArray->wMonth, lprgSysTimeArray->wDay,
162           lprgSysTimeArray->wHour, lprgSysTimeArray->wMinute, lprgSysTimeArray->wSecond);
163
164     if (flag == GDT_VALID) {
165       if (lprgSysTimeArray->wYear < 1601 || lprgSysTimeArray->wYear > 30827 ||
166           lprgSysTimeArray->wMonth < 1 || lprgSysTimeArray->wMonth > 12 ||
167           lprgSysTimeArray->wDayOfWeek > 6 ||
168           lprgSysTimeArray->wDay < 1 || lprgSysTimeArray->wDay > 31 ||
169           lprgSysTimeArray->wHour > 23 ||
170           lprgSysTimeArray->wMinute > 59 ||
171           lprgSysTimeArray->wSecond > 59 ||
172           lprgSysTimeArray->wMilliseconds > 999
173           )
174         return 0;
175
176         infoPtr->dateValid = TRUE;
177         MONTHCAL_CopyTime (lprgSysTimeArray, &infoPtr->date);
178         SendMessageW (infoPtr->hMonthCal, MCM_SETCURSEL, 0, (LPARAM)(&infoPtr->date));
179         SendMessageW (infoPtr->hwndCheckbut, BM_SETCHECK, BST_CHECKED, 0);
180     } else if ((infoPtr->dwStyle & DTS_SHOWNONE) && (flag == GDT_NONE)) {
181         infoPtr->dateValid = FALSE;
182         SendMessageW (infoPtr->hwndCheckbut, BM_SETCHECK, BST_UNCHECKED, 0);
183     }
184     else
185         return 0;
186
187     InvalidateRect(infoPtr->hwndSelf, NULL, TRUE);
188     return TRUE;
189 }
190
191
192 /***
193  * Split up a formattxt in actions.
194  * See ms documentation for the meaning of the letter codes/'specifiers'.
195  *
196  * Notes:
197  * *'dddddd' is handled as 'dddd' plus 'dd'.
198  * *unrecognized formats are strings (here given the type DT_STRING;
199  * start of the string is encoded in lower bits of DT_STRING.
200  * Therefore, 'string' ends finally up as '<show seconds>tring'.
201  *
202  */
203 static void
204 DATETIME_UseFormat (DATETIME_INFO *infoPtr, LPCWSTR formattxt)
205 {
206     unsigned int i;
207     int j, k, len;
208     BOOL inside_literal = FALSE; /* inside '...' */
209     int *nrFields = &infoPtr->nrFields;
210
211     *nrFields = 0;
212     infoPtr->fieldspec[*nrFields] = 0;
213     len = strlenW(allowedformatchars);
214     k = 0;
215
216     for (i = 0; formattxt[i]; i++)  {
217         TRACE ("\n%d %c:", i, formattxt[i]);
218         if (!inside_literal) {
219             for (j = 0; j < len; j++) {
220                 if (allowedformatchars[j]==formattxt[i]) {
221                     TRACE ("%c[%d,%x]", allowedformatchars[j], *nrFields, infoPtr->fieldspec[*nrFields]);
222                     if ((*nrFields==0) && (infoPtr->fieldspec[*nrFields]==0)) {
223                         infoPtr->fieldspec[*nrFields] = (j<<4) + 1;
224                         break;
225                     }
226                     if (infoPtr->fieldspec[*nrFields] >> 4 != j) {
227                         (*nrFields)++;
228                         infoPtr->fieldspec[*nrFields] = (j<<4) + 1;
229                         break;
230                     }
231                     if ((infoPtr->fieldspec[*nrFields] & 0x0f) == maxrepetition[j]) {
232                         (*nrFields)++;
233                         infoPtr->fieldspec[*nrFields] = (j<<4) + 1;
234                         break;
235                     }
236                     infoPtr->fieldspec[*nrFields]++;
237                     break;
238                 }   /* if allowedformatchar */
239             } /* for j */
240         }
241         else
242             j = len;
243
244         if (formattxt[i] == '\'')
245         {
246             inside_literal = !inside_literal;
247             continue;
248         }
249
250         /* char is not a specifier: handle char like a string */
251         if (j == len) {
252             if ((*nrFields==0) && (infoPtr->fieldspec[*nrFields]==0)) {
253                 infoPtr->fieldspec[*nrFields] = DT_STRING + k;
254                 infoPtr->buflen[*nrFields] = 0;
255             } else if ((infoPtr->fieldspec[*nrFields] & DT_STRING) != DT_STRING)  {
256                 (*nrFields)++;
257                 infoPtr->fieldspec[*nrFields] = DT_STRING + k;
258                 infoPtr->buflen[*nrFields] = 0;
259             }
260             infoPtr->textbuf[k] = formattxt[i];
261             k++;
262             infoPtr->buflen[*nrFields]++;
263         }   /* if j=len */
264
265         if (*nrFields == infoPtr->nrFieldsAllocated) {
266             FIXME ("out of memory; should reallocate. crash ahead.\n");
267         }
268     } /* for i */
269
270     TRACE("\n");
271
272     if (infoPtr->fieldspec[*nrFields] != 0) (*nrFields)++;
273 }
274
275
276 static BOOL
277 DATETIME_SetFormatW (DATETIME_INFO *infoPtr, LPCWSTR lpszFormat)
278 {
279     if (!lpszFormat) {
280         WCHAR format_buf[80];
281         DWORD format_item;
282
283         if (infoPtr->dwStyle & DTS_LONGDATEFORMAT)
284             format_item = LOCALE_SLONGDATE;
285         else if ((infoPtr->dwStyle & DTS_TIMEFORMAT) == DTS_TIMEFORMAT)
286             format_item = LOCALE_STIMEFORMAT;
287         else /* DTS_SHORTDATEFORMAT */
288             format_item = LOCALE_SSHORTDATE;
289         GetLocaleInfoW( GetSystemDefaultLCID(), format_item, format_buf, sizeof(format_buf)/sizeof(format_buf[0]));
290         lpszFormat = format_buf;
291     }
292
293     DATETIME_UseFormat (infoPtr, lpszFormat);
294     InvalidateRect (infoPtr->hwndSelf, NULL, TRUE);
295
296     return 1;
297 }
298
299
300 static BOOL
301 DATETIME_SetFormatA (DATETIME_INFO *infoPtr, LPCSTR lpszFormat)
302 {
303     if (lpszFormat) {
304         BOOL retval;
305         INT len = MultiByteToWideChar(CP_ACP, 0, lpszFormat, -1, NULL, 0);
306         LPWSTR wstr = Alloc(len * sizeof(WCHAR));
307         if (wstr) MultiByteToWideChar(CP_ACP, 0, lpszFormat, -1, wstr, len);
308         retval = DATETIME_SetFormatW (infoPtr, wstr);
309         Free (wstr);
310         return retval;
311     }
312     else
313         return DATETIME_SetFormatW (infoPtr, 0);
314
315 }
316
317
318 static void
319 DATETIME_ReturnTxt (const DATETIME_INFO *infoPtr, int count, LPWSTR result, int resultSize)
320 {
321     static const WCHAR fmt_dW[] = { '%', 'd', 0 };
322     static const WCHAR fmt__2dW[] = { '%', '.', '2', 'd', 0 };
323     static const WCHAR fmt__3sW[] = { '%', '.', '3', 's', 0 };
324     SYSTEMTIME date = infoPtr->date;
325     int spec;
326     WCHAR buffer[80];
327
328     *result=0;
329     TRACE ("%d,%d\n", infoPtr->nrFields, count);
330     if (count>infoPtr->nrFields || count < 0) {
331         WARN ("buffer overrun, have %d want %d\n", infoPtr->nrFields, count);
332         return;
333     }
334
335     if (!infoPtr->fieldspec) return;
336
337     spec = infoPtr->fieldspec[count];
338     if (spec & DT_STRING) {
339         int txtlen = infoPtr->buflen[count];
340
341         if (txtlen > resultSize)
342             txtlen = resultSize - 1;
343         memcpy (result, infoPtr->textbuf + (spec &~ DT_STRING), txtlen * sizeof(WCHAR));
344         result[txtlen] = 0;
345         TRACE ("arg%d=%x->[%s]\n", count, infoPtr->fieldspec[count], debugstr_w(result));
346         return;
347     }
348
349
350     switch (spec) {
351         case DT_END_FORMAT:
352             *result = 0;
353             break;
354         case ONEDIGITDAY:
355             wsprintfW (result, fmt_dW, date.wDay);
356             break;
357         case TWODIGITDAY:
358             wsprintfW (result, fmt__2dW, date.wDay);
359             break;
360         case THREECHARDAY:
361             GetLocaleInfoW(LOCALE_USER_DEFAULT, LOCALE_SABBREVDAYNAME1+(date.wDayOfWeek+6)%7, result, 4);
362             /*wsprintfW (result,"%.3s",days[date.wDayOfWeek]);*/
363             break;
364         case FULLDAY:
365             GetLocaleInfoW(LOCALE_USER_DEFAULT, LOCALE_SDAYNAME1+(date.wDayOfWeek+6)%7, result, resultSize);
366             break;
367         case ONEDIGIT12HOUR:
368             if (date.wHour == 0) {
369                 result[0] = '1';
370                 result[1] = '2';
371                 result[2] = 0;
372             }
373             else
374                 wsprintfW (result, fmt_dW, date.wHour - (date.wHour > 12 ? 12 : 0));
375             break;
376         case TWODIGIT12HOUR:
377             if (date.wHour == 0) {
378                 result[0] = '1';
379                 result[1] = '2';
380                 result[2] = 0;
381             }
382             else
383                 wsprintfW (result, fmt__2dW, date.wHour - (date.wHour > 12 ? 12 : 0));
384             break;
385         case ONEDIGIT24HOUR:
386             wsprintfW (result, fmt_dW, date.wHour);
387             break;
388         case TWODIGIT24HOUR:
389             wsprintfW (result, fmt__2dW, date.wHour);
390             break;
391         case ONEDIGITSECOND:
392             wsprintfW (result, fmt_dW, date.wSecond);
393             break;
394         case TWODIGITSECOND:
395             wsprintfW (result, fmt__2dW, date.wSecond);
396             break;
397         case ONEDIGITMINUTE:
398             wsprintfW (result, fmt_dW, date.wMinute);
399             break;
400         case TWODIGITMINUTE:
401             wsprintfW (result, fmt__2dW, date.wMinute);
402             break;
403         case ONEDIGITMONTH:
404             wsprintfW (result, fmt_dW, date.wMonth);
405             break;
406         case TWODIGITMONTH:
407             wsprintfW (result, fmt__2dW, date.wMonth);
408             break;
409         case THREECHARMONTH:
410             GetLocaleInfoW(GetSystemDefaultLCID(), LOCALE_SMONTHNAME1+date.wMonth -1, 
411                            buffer, sizeof(buffer)/sizeof(buffer[0]));
412             wsprintfW (result, fmt__3sW, buffer);
413             break;
414         case FULLMONTH:
415             GetLocaleInfoW(GetSystemDefaultLCID(),LOCALE_SMONTHNAME1+date.wMonth -1,
416                            result, resultSize);
417             break;
418         case ONELETTERAMPM:
419             result[0] = (date.wHour < 12 ? 'A' : 'P');
420             result[1] = 0;
421             break;
422         case TWOLETTERAMPM:
423             result[0] = (date.wHour < 12 ? 'A' : 'P');
424             result[1] = 'M';
425             result[2] = 0;
426             break;
427         case FORMATCALLBACK:
428             FIXME ("Not implemented\n");
429             result[0] = 'x';
430             result[1] = 0;
431             break;
432         case ONEDIGITYEAR:
433             wsprintfW (result, fmt_dW, date.wYear-10* (int) floor(date.wYear/10));
434             break;
435         case TWODIGITYEAR:
436             wsprintfW (result, fmt__2dW, date.wYear-100* (int) floor(date.wYear/100));
437             break;
438         case INVALIDFULLYEAR:
439         case FULLYEAR:
440             wsprintfW (result, fmt_dW, date.wYear);
441             break;
442     }
443
444     TRACE ("arg%d=%x->[%s]\n", count, infoPtr->fieldspec[count], debugstr_w(result));
445 }
446
447 /* Offsets of days in the week to the weekday of january 1 in a leap year. */
448 static const int DayOfWeekTable[] = {0, 3, 2, 5, 0, 3, 5, 1, 4, 6, 2, 4};
449
450 /* returns the day in the week(0 == sunday, 6 == saturday) */
451 /* day(1 == 1st, 2 == 2nd... etc), year is the  year value */
452 static int DATETIME_CalculateDayOfWeek(DWORD day, DWORD month, DWORD year)
453 {
454     year-=(month < 3);
455     
456     return((year + year/4 - year/100 + year/400 +
457          DayOfWeekTable[month-1] + day ) % 7);
458 }
459
460 static int wrap(int val, int delta, int minVal, int maxVal)
461 {
462     val += delta;
463     if (delta == INT_MIN || val < minVal) return maxVal;
464     if (delta == INT_MAX || val > maxVal) return minVal;
465     return val;
466 }
467
468 static void
469 DATETIME_IncreaseField (DATETIME_INFO *infoPtr, int number, int delta)
470 {
471     SYSTEMTIME *date = &infoPtr->date;
472
473     TRACE ("%d\n", number);
474     if ((number > infoPtr->nrFields) || (number < 0)) return;
475
476     if ((infoPtr->fieldspec[number] & DTHT_DATEFIELD) == 0) return;
477
478     switch (infoPtr->fieldspec[number]) {
479         case ONEDIGITYEAR:
480         case TWODIGITYEAR:
481         case FULLYEAR:
482             date->wYear = wrap(date->wYear, delta, 1752, 9999);
483             date->wDayOfWeek = DATETIME_CalculateDayOfWeek(date->wDay,date->wMonth,date->wYear);
484             break;
485         case ONEDIGITMONTH:
486         case TWODIGITMONTH:
487         case THREECHARMONTH:
488         case FULLMONTH:
489             date->wMonth = wrap(date->wMonth, delta, 1, 12);
490             date->wDayOfWeek = DATETIME_CalculateDayOfWeek(date->wDay,date->wMonth,date->wYear);
491             delta = 0;
492             /* fall through */
493         case ONEDIGITDAY:
494         case TWODIGITDAY:
495         case THREECHARDAY:
496         case FULLDAY:
497             date->wDay = wrap(date->wDay, delta, 1, MONTHCAL_MonthLength(date->wMonth, date->wYear));
498             date->wDayOfWeek = DATETIME_CalculateDayOfWeek(date->wDay,date->wMonth,date->wYear);
499             break;
500         case ONELETTERAMPM:
501         case TWOLETTERAMPM:
502             delta *= 12;
503             /* fall through */
504         case ONEDIGIT12HOUR:
505         case TWODIGIT12HOUR:
506         case ONEDIGIT24HOUR:
507         case TWODIGIT24HOUR:
508             date->wHour = wrap(date->wHour, delta, 0, 23);
509             break;
510         case ONEDIGITMINUTE:
511         case TWODIGITMINUTE:
512             date->wMinute = wrap(date->wMinute, delta, 0, 59);
513             break;
514         case ONEDIGITSECOND:
515         case TWODIGITSECOND:
516             date->wSecond = wrap(date->wSecond, delta, 0, 59);
517             break;
518         case FORMATCALLBACK:
519             FIXME ("Not implemented\n");
520             break;
521     }
522
523     /* FYI: On 1752/9/14 the calendar changed and England and the
524      * American colonies changed to the Gregorian calendar. This change
525      * involved having September 14th follow September 2nd. So no date
526      * algorithm works before that date.
527      */
528     if (10000 * date->wYear + 100 * date->wMonth + date->wDay < 17520914) {
529         date->wYear = 1752;
530         date->wMonth = 9;
531         date->wDay = 14;
532         date->wSecond = 0;
533         date->wMinute = 0;
534         date->wHour = 0;
535     }
536 }
537
538
539 static void
540 DATETIME_ReturnFieldWidth (const DATETIME_INFO *infoPtr, HDC hdc, int count, SHORT *fieldWidthPtr)
541 {
542     /* fields are a fixed width, determined by the largest possible string */
543     /* presumably, these widths should be language dependent */
544     static const WCHAR fld_d1W[] = { '2', 0 };
545     static const WCHAR fld_d2W[] = { '2', '2', 0 };
546     static const WCHAR fld_d4W[] = { '2', '2', '2', '2', 0 };
547     static const WCHAR fld_am1[] = { 'A', 0 };
548     static const WCHAR fld_am2[] = { 'A', 'M', 0 };
549     static const WCHAR fld_day[] = { 'W', 'e', 'd', 'n', 'e', 's', 'd', 'a', 'y', 0 };
550     static const WCHAR fld_day3[] = { 'W', 'e', 'd', 0 };
551     static const WCHAR fld_mon[] = { 'S', 'e', 'p', 't', 'e', 'm', 'b', 'e', 'r', 0 };
552     static const WCHAR fld_mon3[] = { 'D', 'e', 'c', 0 };
553     int spec;
554     WCHAR buffer[80];
555     LPCWSTR bufptr;
556     SIZE size;
557
558     TRACE ("%d,%d\n", infoPtr->nrFields, count);
559     if (count>infoPtr->nrFields || count < 0) {
560         WARN ("buffer overrun, have %d want %d\n", infoPtr->nrFields, count);
561         return;
562     }
563
564     if (!infoPtr->fieldspec) return;
565
566     spec = infoPtr->fieldspec[count];
567     if (spec & DT_STRING) {
568         int txtlen = infoPtr->buflen[count];
569
570         if (txtlen > 79)
571             txtlen = 79;
572         memcpy (buffer, infoPtr->textbuf + (spec &~ DT_STRING), txtlen * sizeof(WCHAR));
573         buffer[txtlen] = 0;
574         bufptr = buffer;
575     }
576     else {
577         switch (spec) {
578             case ONEDIGITDAY:
579             case ONEDIGIT12HOUR:
580             case ONEDIGIT24HOUR:
581             case ONEDIGITSECOND:
582             case ONEDIGITMINUTE:
583             case ONEDIGITMONTH:
584             case ONEDIGITYEAR:
585                 /* these seem to use a two byte field */
586             case TWODIGITDAY:
587             case TWODIGIT12HOUR:
588             case TWODIGIT24HOUR:
589             case TWODIGITSECOND:
590             case TWODIGITMINUTE:
591             case TWODIGITMONTH:
592             case TWODIGITYEAR:
593                 bufptr = fld_d2W;
594                 break;
595             case INVALIDFULLYEAR:
596             case FULLYEAR:
597                 bufptr = fld_d4W;
598                 break;
599             case THREECHARDAY:
600                 bufptr = fld_day3;
601                 break;
602             case FULLDAY:
603                 bufptr = fld_day;
604                 break;
605             case THREECHARMONTH:
606                 bufptr = fld_mon3;
607                 break;
608             case FULLMONTH:
609                 bufptr = fld_mon;
610                 break;
611             case ONELETTERAMPM:
612                 bufptr = fld_am1;
613                 break;
614             case TWOLETTERAMPM:
615                 bufptr = fld_am2;
616                 break;
617             default:
618                 bufptr = fld_d1W;
619                 break;
620         }
621     }
622     GetTextExtentPoint32W (hdc, bufptr, strlenW(bufptr), &size);
623     *fieldWidthPtr = size.cx;
624 }
625
626 static void 
627 DATETIME_Refresh (DATETIME_INFO *infoPtr, HDC hdc)
628 {
629     int i,prevright;
630     RECT *field;
631     RECT *rcDraw = &infoPtr->rcDraw;
632     RECT *calbutton = &infoPtr->calbutton;
633     RECT *checkbox = &infoPtr->checkbox;
634     SIZE size;
635     COLORREF oldTextColor;
636     SHORT fieldWidth = 0;
637
638     /* draw control edge */
639     TRACE("\n");
640
641     if (infoPtr->dateValid) {
642         HFONT oldFont = SelectObject (hdc, infoPtr->hFont);
643         INT oldBkMode = SetBkMode (hdc, TRANSPARENT);
644         WCHAR txt[80];
645
646         DATETIME_ReturnTxt (infoPtr, 0, txt, sizeof(txt)/sizeof(txt[0]));
647         GetTextExtentPoint32W (hdc, txt, strlenW(txt), &size);
648         rcDraw->bottom = size.cy + 2;
649
650         prevright = checkbox->right = ((infoPtr->dwStyle & DTS_SHOWNONE) ? 18 : 2);
651
652         for (i = 0; i < infoPtr->nrFields; i++) {
653             DATETIME_ReturnTxt (infoPtr, i, txt, sizeof(txt)/sizeof(txt[0]));
654             GetTextExtentPoint32W (hdc, txt, strlenW(txt), &size);
655             DATETIME_ReturnFieldWidth (infoPtr, hdc, i, &fieldWidth);
656             field = &infoPtr->fieldRect[i];
657             field->left  = prevright;
658             field->right = prevright + fieldWidth;
659             field->top   = rcDraw->top;
660             field->bottom = rcDraw->bottom;
661             prevright = field->right;
662
663             if (infoPtr->dwStyle & WS_DISABLED)
664                 oldTextColor = SetTextColor (hdc, comctl32_color.clrGrayText);
665             else if ((infoPtr->haveFocus) && (i == infoPtr->select)) {
666                 /* fill if focussed */
667                 HBRUSH hbr = CreateSolidBrush (comctl32_color.clrActiveCaption);
668                 FillRect(hdc, field, hbr);
669                 DeleteObject (hbr);
670                 oldTextColor = SetTextColor (hdc, comctl32_color.clrWindow);
671             }
672             else
673                 oldTextColor = SetTextColor (hdc, comctl32_color.clrWindowText);
674
675             /* draw the date text using the colour set above */
676             DrawTextW (hdc, txt, strlenW(txt), field, DT_RIGHT | DT_VCENTER | DT_SINGLELINE);
677             SetTextColor (hdc, oldTextColor);
678         }
679         SetBkMode (hdc, oldBkMode);
680         SelectObject (hdc, oldFont);
681     }
682
683     if (!(infoPtr->dwStyle & DTS_UPDOWN)) {
684         DrawFrameControl(hdc, calbutton, DFC_SCROLL,
685                          DFCS_SCROLLDOWN | (infoPtr->bCalDepressed ? DFCS_PUSHED : 0) |
686                          (infoPtr->dwStyle & WS_DISABLED ? DFCS_INACTIVE : 0) );
687     }
688 }
689
690
691 static INT
692 DATETIME_HitTest (const DATETIME_INFO *infoPtr, POINT pt)
693 {
694     int i;
695
696     TRACE ("%d, %d\n", pt.x, pt.y);
697
698     if (PtInRect (&infoPtr->calbutton, pt)) return DTHT_MCPOPUP;
699     if (PtInRect (&infoPtr->checkbox, pt)) return DTHT_CHECKBOX;
700
701     for (i=0; i < infoPtr->nrFields; i++) {
702         if (PtInRect (&infoPtr->fieldRect[i], pt)) return i;
703     }
704
705     return DTHT_NONE;
706 }
707
708
709 static LRESULT
710 DATETIME_LButtonDown (DATETIME_INFO *infoPtr, INT x, INT y)
711 {
712     POINT pt;
713     int old, new;
714
715     pt.x = x;
716     pt.y = y;
717     old = infoPtr->select;
718     new = DATETIME_HitTest (infoPtr, pt);
719
720     /* FIXME: might be conditions where we don't want to update infoPtr->select */
721     infoPtr->select = new;
722
723     SetFocus(infoPtr->hwndSelf);
724
725     if (infoPtr->select == DTHT_MCPOPUP) {
726         RECT rcMonthCal;
727         SendMessageW(infoPtr->hMonthCal, MCM_GETMINREQRECT, 0, (LPARAM)&rcMonthCal);
728
729         /* FIXME: button actually is only depressed during dropdown of the */
730         /* calendar control and when the mouse is over the button window */
731         infoPtr->bCalDepressed = TRUE;
732
733         /* recalculate the position of the monthcal popup */
734         if(infoPtr->dwStyle & DTS_RIGHTALIGN)
735             infoPtr->monthcal_pos.x = infoPtr->calbutton.left - 
736                 (rcMonthCal.right - rcMonthCal.left);
737         else
738             /* FIXME: this should be after the area reserved for the checkbox */
739             infoPtr->monthcal_pos.x = infoPtr->rcDraw.left;
740
741         infoPtr->monthcal_pos.y = infoPtr->rcClient.bottom;
742         ClientToScreen (infoPtr->hwndSelf, &(infoPtr->monthcal_pos));
743         SetWindowPos(infoPtr->hMonthCal, 0, infoPtr->monthcal_pos.x,
744             infoPtr->monthcal_pos.y, rcMonthCal.right - rcMonthCal.left,
745             rcMonthCal.bottom - rcMonthCal.top, 0);
746
747         if(IsWindowVisible(infoPtr->hMonthCal)) {
748             ShowWindow(infoPtr->hMonthCal, SW_HIDE);
749         } else {
750             const SYSTEMTIME *lprgSysTimeArray = &infoPtr->date;
751             TRACE("update calendar %04d/%02d/%02d\n", 
752             lprgSysTimeArray->wYear, lprgSysTimeArray->wMonth, lprgSysTimeArray->wDay);
753             SendMessageW(infoPtr->hMonthCal, MCM_SETCURSEL, 0, (LPARAM)(&infoPtr->date));
754
755             if (infoPtr->bDropdownEnabled)
756                 ShowWindow(infoPtr->hMonthCal, SW_SHOW);
757             infoPtr->bDropdownEnabled = TRUE;
758         }
759
760         TRACE ("dt:%p mc:%p mc parent:%p, desktop:%p\n",
761                infoPtr->hwndSelf, infoPtr->hMonthCal, infoPtr->hwndNotify, GetDesktopWindow ());
762         DATETIME_SendSimpleNotify (infoPtr, DTN_DROPDOWN);
763     }
764
765     InvalidateRect(infoPtr->hwndSelf, NULL, TRUE);
766
767     return 0;
768 }
769
770
771 static LRESULT
772 DATETIME_LButtonUp (DATETIME_INFO *infoPtr)
773 {
774     if(infoPtr->bCalDepressed) {
775         infoPtr->bCalDepressed = FALSE;
776         InvalidateRect(infoPtr->hwndSelf, &(infoPtr->calbutton), TRUE);
777     }
778
779     return 0;
780 }
781
782
783 static LRESULT
784 DATETIME_Paint (DATETIME_INFO *infoPtr, HDC hdc)
785 {
786     if (!hdc) {
787         PAINTSTRUCT ps;
788         hdc = BeginPaint (infoPtr->hwndSelf, &ps);
789         DATETIME_Refresh (infoPtr, hdc);
790         EndPaint (infoPtr->hwndSelf, &ps);
791     } else {
792         DATETIME_Refresh (infoPtr, hdc);
793     }
794
795     /* Not a click on the dropdown box, enabled it */
796     infoPtr->bDropdownEnabled = TRUE;
797
798     return 0;
799 }
800
801
802 static LRESULT
803 DATETIME_Button_Command (DATETIME_INFO *infoPtr, WPARAM wParam, LPARAM lParam)
804 {
805     if( HIWORD(wParam) == BN_CLICKED) {
806         DWORD state = SendMessageW((HWND)lParam, BM_GETCHECK, 0, 0);
807         infoPtr->dateValid = (state == BST_CHECKED);
808         InvalidateRect(infoPtr->hwndSelf, NULL, TRUE);
809     }
810     return 0;
811 }
812           
813         
814         
815 static LRESULT
816 DATETIME_Command (DATETIME_INFO *infoPtr, WPARAM wParam, LPARAM lParam)
817 {
818     TRACE("hwndbutton = %p\n", infoPtr->hwndCheckbut);
819     if(infoPtr->hwndCheckbut == (HWND)lParam)
820         return DATETIME_Button_Command(infoPtr, wParam, lParam);
821     return 0;
822 }
823
824
825 static LRESULT
826 DATETIME_Enable (DATETIME_INFO *infoPtr, BOOL bEnable)
827 {
828     TRACE("%p %s\n", infoPtr, bEnable ? "TRUE" : "FALSE");
829     if (bEnable)
830         infoPtr->dwStyle &= ~WS_DISABLED;
831     else
832         infoPtr->dwStyle |= WS_DISABLED;
833
834     InvalidateRect(infoPtr->hwndSelf, NULL, TRUE);
835
836     return 0;
837 }
838
839
840 static LRESULT
841 DATETIME_EraseBackground (const DATETIME_INFO *infoPtr, HDC hdc)
842 {
843     HBRUSH hBrush, hSolidBrush = NULL;
844     RECT   rc;
845
846     if (infoPtr->dwStyle & WS_DISABLED)
847         hBrush = hSolidBrush = CreateSolidBrush(comctl32_color.clrBtnFace);
848     else
849     {
850         hBrush = (HBRUSH)SendMessageW(infoPtr->hwndNotify, WM_CTLCOLOREDIT,
851                                       (WPARAM)hdc, (LPARAM)infoPtr->hwndSelf);
852         if (!hBrush)
853             hBrush = hSolidBrush = CreateSolidBrush(comctl32_color.clrWindow);
854     }
855
856     GetClientRect (infoPtr->hwndSelf, &rc);
857
858     FillRect (hdc, &rc, hBrush);
859
860     if (hSolidBrush)
861         DeleteObject(hSolidBrush);
862
863     return -1;
864 }
865
866
867 static LRESULT
868 DATETIME_Notify (DATETIME_INFO *infoPtr, LPNMHDR lpnmh)
869 {
870     TRACE ("Got notification %x from %p\n", lpnmh->code, lpnmh->hwndFrom);
871     TRACE ("info: %p %p %p\n", infoPtr->hwndSelf, infoPtr->hMonthCal, infoPtr->hUpdown);
872
873     if (lpnmh->code == MCN_SELECT) {
874         ShowWindow(infoPtr->hMonthCal, SW_HIDE);
875         infoPtr->dateValid = TRUE;
876         SendMessageW (infoPtr->hMonthCal, MCM_GETCURSEL, 0, (LPARAM)&infoPtr->date);
877         TRACE("got from calendar %04d/%02d/%02d day of week %d\n", 
878         infoPtr->date.wYear, infoPtr->date.wMonth, infoPtr->date.wDay, infoPtr->date.wDayOfWeek);
879         SendMessageW (infoPtr->hwndCheckbut, BM_SETCHECK, BST_CHECKED, 0);
880         InvalidateRect(infoPtr->hwndSelf, NULL, TRUE);
881         DATETIME_SendDateTimeChangeNotify (infoPtr);
882     }
883     if ((lpnmh->hwndFrom == infoPtr->hUpdown) && (lpnmh->code == UDN_DELTAPOS)) {
884         LPNMUPDOWN lpnmud = (LPNMUPDOWN)lpnmh;
885         TRACE("Delta pos %d\n", lpnmud->iDelta);
886         infoPtr->pendingUpdown = lpnmud->iDelta;
887     }
888     return 0;
889 }
890
891
892 static LRESULT
893 DATETIME_KeyDown (DATETIME_INFO *infoPtr, DWORD vkCode)
894 {
895     int fieldNum = infoPtr->select & DTHT_DATEFIELD;
896     int wrap = 0;
897
898     if (!(infoPtr->haveFocus)) return 0;
899     if ((fieldNum==0) && (infoPtr->select)) return 0;
900
901     if (infoPtr->select & FORMATCALLMASK) {
902         FIXME ("Callbacks not implemented yet\n");
903     }
904
905     if (vkCode >= '0' && vkCode <= '9') {
906         /* this is a somewhat simplified version of what Windows does */
907         SYSTEMTIME *date = &infoPtr->date;
908         switch (infoPtr->fieldspec[fieldNum]) {
909             case ONEDIGITYEAR:
910             case TWODIGITYEAR:
911                 date->wYear = date->wYear - (date->wYear%100) +
912                         (date->wYear%10)*10 + (vkCode-'0');
913                 date->wDayOfWeek = DATETIME_CalculateDayOfWeek(
914                         date->wDay,date->wMonth,date->wYear);
915                 DATETIME_SendDateTimeChangeNotify (infoPtr);
916                 break;
917             case INVALIDFULLYEAR:
918             case FULLYEAR:
919                 date->wYear = (date->wYear%1000)*10 + (vkCode-'0');
920                 date->wDayOfWeek = DATETIME_CalculateDayOfWeek(
921                         date->wDay,date->wMonth,date->wYear);
922                 DATETIME_SendDateTimeChangeNotify (infoPtr);
923                 break;
924             case ONEDIGITMONTH:
925             case TWODIGITMONTH:
926                 if ((date->wMonth%10) > 1 || (vkCode-'0') > 2)
927                     date->wMonth = vkCode-'0';
928                 else
929                     date->wMonth = (date->wMonth%10)*10+vkCode-'0';
930                 date->wDayOfWeek = DATETIME_CalculateDayOfWeek(
931                         date->wDay,date->wMonth,date->wYear);
932                 DATETIME_SendDateTimeChangeNotify (infoPtr);
933                 break;
934             case ONEDIGITDAY:
935             case TWODIGITDAY:
936                 /* probably better checking here would help */
937                 if ((date->wDay%10) >= 3 && (vkCode-'0') > 1)
938                     date->wDay = vkCode-'0';
939                 else
940                     date->wDay = (date->wDay%10)*10+vkCode-'0';
941                 date->wDayOfWeek = DATETIME_CalculateDayOfWeek(
942                         date->wDay,date->wMonth,date->wYear);
943                 DATETIME_SendDateTimeChangeNotify (infoPtr);
944                 break;
945             case ONEDIGIT12HOUR:
946             case TWODIGIT12HOUR:
947                 if ((date->wHour%10) > 1 || (vkCode-'0') > 2)
948                     date->wHour = vkCode-'0';
949                 else
950                     date->wHour = (date->wHour%10)*10+vkCode-'0';
951                 DATETIME_SendDateTimeChangeNotify (infoPtr);
952                 break;
953             case ONEDIGIT24HOUR:
954             case TWODIGIT24HOUR:
955                 if ((date->wHour%10) > 2)
956                     date->wHour = vkCode-'0';
957                 else if ((date->wHour%10) == 2 && (vkCode-'0') > 3)
958                     date->wHour = vkCode-'0';
959                 else
960                     date->wHour = (date->wHour%10)*10+vkCode-'0';
961                 DATETIME_SendDateTimeChangeNotify (infoPtr);
962                 break;
963             case ONEDIGITMINUTE:
964             case TWODIGITMINUTE:
965                 if ((date->wMinute%10) > 5)
966                     date->wMinute = vkCode-'0';
967                 else
968                     date->wMinute = (date->wMinute%10)*10+vkCode-'0';
969                 DATETIME_SendDateTimeChangeNotify (infoPtr);
970                 break;
971             case ONEDIGITSECOND:
972             case TWODIGITSECOND:
973                 if ((date->wSecond%10) > 5)
974                     date->wSecond = vkCode-'0';
975                 else
976                     date->wSecond = (date->wSecond%10)*10+vkCode-'0';
977                 DATETIME_SendDateTimeChangeNotify (infoPtr);
978                 break;
979         }
980     }
981     
982     switch (vkCode) {
983         case VK_ADD:
984         case VK_UP:
985             DATETIME_IncreaseField (infoPtr, fieldNum, 1);
986             DATETIME_SendDateTimeChangeNotify (infoPtr);
987             break;
988         case VK_SUBTRACT:
989         case VK_DOWN:
990             DATETIME_IncreaseField (infoPtr, fieldNum, -1);
991             DATETIME_SendDateTimeChangeNotify (infoPtr);
992             break;
993         case VK_HOME:
994             DATETIME_IncreaseField (infoPtr, fieldNum, INT_MIN);
995             DATETIME_SendDateTimeChangeNotify (infoPtr);
996             break;
997         case VK_END:
998             DATETIME_IncreaseField (infoPtr, fieldNum, INT_MAX);
999             DATETIME_SendDateTimeChangeNotify (infoPtr);
1000             break;
1001         case VK_LEFT:
1002             do {
1003                 if (infoPtr->select == 0) {
1004                     infoPtr->select = infoPtr->nrFields - 1;
1005                     wrap++;
1006                 } else {
1007                     infoPtr->select--;
1008                 }
1009             } while ((infoPtr->fieldspec[infoPtr->select] & DT_STRING) && (wrap<2));
1010             break;
1011         case VK_RIGHT:
1012             do {
1013                 infoPtr->select++;
1014                 if (infoPtr->select==infoPtr->nrFields) {
1015                     infoPtr->select = 0;
1016                     wrap++;
1017                 }
1018             } while ((infoPtr->fieldspec[infoPtr->select] & DT_STRING) && (wrap<2));
1019             break;
1020     }
1021
1022     InvalidateRect(infoPtr->hwndSelf, NULL, TRUE);
1023
1024     return 0;
1025 }
1026
1027
1028 static LRESULT
1029 DATETIME_VScroll (DATETIME_INFO *infoPtr, WORD wScroll)
1030 {
1031     int fieldNum = infoPtr->select & DTHT_DATEFIELD;
1032
1033     if ((SHORT)LOWORD(wScroll) != SB_THUMBPOSITION) return 0;
1034     if (!(infoPtr->haveFocus)) return 0;
1035     if ((fieldNum==0) && (infoPtr->select)) return 0;
1036
1037     if (infoPtr->pendingUpdown >= 0) {
1038         DATETIME_IncreaseField (infoPtr, fieldNum, 1);
1039         DATETIME_SendDateTimeChangeNotify (infoPtr);
1040     }
1041     else {
1042         DATETIME_IncreaseField (infoPtr, fieldNum, -1);
1043         DATETIME_SendDateTimeChangeNotify (infoPtr);
1044     }
1045
1046     InvalidateRect(infoPtr->hwndSelf, NULL, TRUE);
1047
1048     return 0;
1049 }
1050
1051
1052 static LRESULT
1053 DATETIME_KillFocus (DATETIME_INFO *infoPtr, HWND lostFocus)
1054 {
1055     TRACE("lost focus to %p\n", lostFocus);
1056
1057     if (infoPtr->haveFocus) {
1058         DATETIME_SendSimpleNotify (infoPtr, NM_KILLFOCUS);
1059         infoPtr->haveFocus = 0;
1060     }
1061
1062     InvalidateRect (infoPtr->hwndSelf, NULL, TRUE);
1063
1064     return 0;
1065 }
1066
1067
1068 static LRESULT
1069 DATETIME_NCCreate (HWND hwnd, const CREATESTRUCTW *lpcs)
1070 {
1071     DWORD dwExStyle = GetWindowLongW(hwnd, GWL_EXSTYLE);
1072     /* force control to have client edge */
1073     dwExStyle |= WS_EX_CLIENTEDGE;
1074     SetWindowLongW(hwnd, GWL_EXSTYLE, dwExStyle);
1075
1076     return DefWindowProcW(hwnd, WM_NCCREATE, 0, (LPARAM)lpcs);
1077 }
1078
1079
1080 static LRESULT
1081 DATETIME_SetFocus (DATETIME_INFO *infoPtr, HWND lostFocus)
1082 {
1083     TRACE("got focus from %p\n", lostFocus);
1084
1085     /* if monthcal is open and it loses focus, close monthcal */
1086     if (infoPtr->hMonthCal && (lostFocus == infoPtr->hMonthCal) &&
1087         IsWindowVisible(infoPtr->hMonthCal))
1088     {
1089         ShowWindow(infoPtr->hMonthCal, SW_HIDE);
1090         DATETIME_SendSimpleNotify(infoPtr, DTN_CLOSEUP);
1091         /* note: this get triggered even if monthcal loses focus to a dropdown
1092          * box click, which occurs without an intermediate WM_PAINT call
1093          */
1094         infoPtr->bDropdownEnabled = FALSE;
1095         return 0;
1096     }
1097
1098     if (infoPtr->haveFocus == 0) {
1099         DATETIME_SendSimpleNotify (infoPtr, NM_SETFOCUS);
1100         infoPtr->haveFocus = DTHT_GOTFOCUS;
1101     }
1102
1103     InvalidateRect(infoPtr->hwndSelf, NULL, FALSE);
1104
1105     return 0;
1106 }
1107
1108
1109 static BOOL
1110 DATETIME_SendDateTimeChangeNotify (const DATETIME_INFO *infoPtr)
1111 {
1112     NMDATETIMECHANGE dtdtc;
1113
1114     dtdtc.nmhdr.hwndFrom = infoPtr->hwndSelf;
1115     dtdtc.nmhdr.idFrom   = GetWindowLongPtrW(infoPtr->hwndSelf, GWLP_ID);
1116     dtdtc.nmhdr.code     = DTN_DATETIMECHANGE;
1117
1118     dtdtc.dwFlags = (infoPtr->dwStyle & DTS_SHOWNONE) ? GDT_NONE : GDT_VALID;
1119
1120     MONTHCAL_CopyTime (&infoPtr->date, &dtdtc.st);
1121     return (BOOL) SendMessageW (infoPtr->hwndNotify, WM_NOTIFY,
1122                                 dtdtc.nmhdr.idFrom, (LPARAM)&dtdtc);
1123 }
1124
1125
1126 static BOOL
1127 DATETIME_SendSimpleNotify (const DATETIME_INFO *infoPtr, UINT code)
1128 {
1129     NMHDR nmhdr;
1130
1131     TRACE("%x\n", code);
1132     nmhdr.hwndFrom = infoPtr->hwndSelf;
1133     nmhdr.idFrom   = GetWindowLongPtrW(infoPtr->hwndSelf, GWLP_ID);
1134     nmhdr.code     = code;
1135
1136     return (BOOL) SendMessageW (infoPtr->hwndNotify, WM_NOTIFY,
1137                                 nmhdr.idFrom, (LPARAM)&nmhdr);
1138 }
1139
1140 static LRESULT
1141 DATETIME_Size (DATETIME_INFO *infoPtr, INT width, INT height)
1142 {
1143     /* set size */
1144     infoPtr->rcClient.bottom = height;
1145     infoPtr->rcClient.right = width;
1146
1147     TRACE("Height=%d, Width=%d\n", infoPtr->rcClient.bottom, infoPtr->rcClient.right);
1148
1149     infoPtr->rcDraw = infoPtr->rcClient;
1150     
1151     if (infoPtr->dwStyle & DTS_UPDOWN) {
1152         SetWindowPos(infoPtr->hUpdown, NULL,
1153             infoPtr->rcClient.right-14, 0,
1154             15, infoPtr->rcClient.bottom - infoPtr->rcClient.top,
1155             SWP_NOACTIVATE | SWP_NOZORDER);
1156     }
1157     else {
1158         /* set the size of the button that drops the calendar down */
1159         /* FIXME: account for style that allows button on left side */
1160         infoPtr->calbutton.top   = infoPtr->rcDraw.top;
1161         infoPtr->calbutton.bottom= infoPtr->rcDraw.bottom;
1162         infoPtr->calbutton.left  = infoPtr->rcDraw.right-15;
1163         infoPtr->calbutton.right = infoPtr->rcDraw.right;
1164     }
1165
1166     /* set enable/disable button size for show none style being enabled */
1167     /* FIXME: these dimensions are completely incorrect */
1168     infoPtr->checkbox.top = infoPtr->rcDraw.top;
1169     infoPtr->checkbox.bottom = infoPtr->rcDraw.bottom;
1170     infoPtr->checkbox.left = infoPtr->rcDraw.left;
1171     infoPtr->checkbox.right = infoPtr->rcDraw.left + 10;
1172
1173     InvalidateRect(infoPtr->hwndSelf, NULL, FALSE);
1174
1175     return 0;
1176 }
1177
1178
1179 static LRESULT 
1180 DATETIME_StyleChanged(DATETIME_INFO *infoPtr, WPARAM wStyleType, const STYLESTRUCT *lpss)
1181 {
1182     static const WCHAR buttonW[] = { 'b', 'u', 't', 't', 'o', 'n', 0 };
1183
1184     TRACE("(styletype=%lx, styleOld=0x%08x, styleNew=0x%08x)\n",
1185           wStyleType, lpss->styleOld, lpss->styleNew);
1186
1187     if (wStyleType != GWL_STYLE) return 0;
1188   
1189     infoPtr->dwStyle = lpss->styleNew;
1190
1191     if ( !(lpss->styleOld & DTS_SHOWNONE) && (lpss->styleNew & DTS_SHOWNONE) ) {
1192         infoPtr->hwndCheckbut = CreateWindowExW (0, buttonW, 0, WS_CHILD | WS_VISIBLE | BS_AUTOCHECKBOX,
1193                                                  2, 2, 13, 13, infoPtr->hwndSelf, 0, 
1194                                                 (HINSTANCE)GetWindowLongPtrW (infoPtr->hwndSelf, GWLP_HINSTANCE), 0);
1195         SendMessageW (infoPtr->hwndCheckbut, BM_SETCHECK, 1, 0);
1196     }
1197     if ( (lpss->styleOld & DTS_SHOWNONE) && !(lpss->styleNew & DTS_SHOWNONE) ) {
1198         DestroyWindow(infoPtr->hwndCheckbut);
1199         infoPtr->hwndCheckbut = 0;
1200     }
1201     if ( !(lpss->styleOld & DTS_UPDOWN) && (lpss->styleNew & DTS_UPDOWN) ) {
1202         infoPtr->hUpdown = CreateUpDownControl (WS_CHILD | WS_BORDER | WS_VISIBLE, 120, 1, 20, 20, 
1203                                                 infoPtr->hwndSelf, 1, 0, 0, UD_MAXVAL, UD_MINVAL, 0);
1204     }
1205     if ( (lpss->styleOld & DTS_UPDOWN) && !(lpss->styleNew & DTS_UPDOWN) ) {
1206         DestroyWindow(infoPtr->hUpdown);
1207         infoPtr->hUpdown = 0;
1208     }
1209
1210     InvalidateRect(infoPtr->hwndSelf, NULL, TRUE);
1211     return 0;
1212 }
1213
1214
1215 static LRESULT
1216 DATETIME_SetFont (DATETIME_INFO *infoPtr, HFONT font, BOOL repaint)
1217 {
1218     infoPtr->hFont = font;
1219     if (repaint) InvalidateRect(infoPtr->hwndSelf, NULL, TRUE);
1220     return 0;
1221 }
1222
1223
1224 static LRESULT
1225 DATETIME_Create (HWND hwnd, const CREATESTRUCTW *lpcs)
1226 {
1227     static const WCHAR SysMonthCal32W[] = { 'S', 'y', 's', 'M', 'o', 'n', 't', 'h', 'C', 'a', 'l', '3', '2', 0 };
1228     DATETIME_INFO *infoPtr = (DATETIME_INFO *)Alloc (sizeof(DATETIME_INFO));
1229     STYLESTRUCT ss = { 0, lpcs->style };
1230
1231     if (!infoPtr) return -1;
1232
1233     infoPtr->hwndSelf = hwnd;
1234     infoPtr->dwStyle = lpcs->style;
1235
1236     infoPtr->nrFieldsAllocated = 32;
1237     infoPtr->fieldspec = (int *) Alloc (infoPtr->nrFieldsAllocated * sizeof(int));
1238     infoPtr->fieldRect = (RECT *) Alloc (infoPtr->nrFieldsAllocated * sizeof(RECT));
1239     infoPtr->buflen = (int *) Alloc (infoPtr->nrFieldsAllocated * sizeof(int));
1240     infoPtr->hwndNotify = lpcs->hwndParent;
1241     infoPtr->select = -1; /* initially, nothing is selected */
1242     infoPtr->bDropdownEnabled = TRUE;
1243
1244     DATETIME_StyleChanged(infoPtr, GWL_STYLE, &ss);
1245     DATETIME_SetFormatW (infoPtr, 0);
1246
1247     /* create the monthcal control */
1248     infoPtr->hMonthCal = CreateWindowExW (0, SysMonthCal32W, 0, WS_BORDER | WS_POPUP | WS_CLIPSIBLINGS, 
1249                                           0, 0, 0, 0, infoPtr->hwndSelf, 0, 0, 0);
1250
1251     /* initialize info structure */
1252     GetLocalTime (&infoPtr->date);
1253     infoPtr->dateValid = TRUE;
1254     infoPtr->hFont = GetStockObject(DEFAULT_GUI_FONT);
1255
1256     SetWindowLongPtrW (hwnd, 0, (DWORD_PTR)infoPtr);
1257
1258     return 0;
1259 }
1260
1261
1262
1263 static LRESULT
1264 DATETIME_Destroy (DATETIME_INFO *infoPtr)
1265 {
1266     if (infoPtr->hwndCheckbut)
1267         DestroyWindow(infoPtr->hwndCheckbut);
1268     if (infoPtr->hUpdown)
1269         DestroyWindow(infoPtr->hUpdown);
1270     if (infoPtr->hMonthCal) 
1271         DestroyWindow(infoPtr->hMonthCal);
1272     SetWindowLongPtrW( infoPtr->hwndSelf, 0, 0 ); /* clear infoPtr */
1273     Free (infoPtr);
1274     return 0;
1275 }
1276
1277
1278 static LRESULT WINAPI
1279 DATETIME_WindowProc (HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam)
1280 {
1281     DATETIME_INFO *infoPtr = ((DATETIME_INFO *)GetWindowLongPtrW (hwnd, 0));
1282     LRESULT ret;
1283
1284     TRACE ("%x, %lx, %lx\n", uMsg, wParam, lParam);
1285
1286     if (!infoPtr && (uMsg != WM_CREATE) && (uMsg != WM_NCCREATE))
1287         return DefWindowProcW( hwnd, uMsg, wParam, lParam );
1288
1289     switch (uMsg) {
1290
1291     case DTM_GETSYSTEMTIME:
1292         return DATETIME_GetSystemTime (infoPtr, (SYSTEMTIME *) lParam);
1293
1294     case DTM_SETSYSTEMTIME:
1295         return DATETIME_SetSystemTime (infoPtr, wParam, (SYSTEMTIME *) lParam);
1296
1297     case DTM_GETRANGE:
1298         ret = SendMessageW (infoPtr->hMonthCal, MCM_GETRANGE, wParam, lParam);
1299         return ret ? ret : 1; /* bug emulation */
1300
1301     case DTM_SETRANGE:
1302         return SendMessageW (infoPtr->hMonthCal, MCM_SETRANGE, wParam, lParam);
1303
1304     case DTM_SETFORMATA:
1305         return DATETIME_SetFormatA (infoPtr, (LPCSTR)lParam);
1306
1307     case DTM_SETFORMATW:
1308         return DATETIME_SetFormatW (infoPtr, (LPCWSTR)lParam);
1309
1310     case DTM_GETMONTHCAL:
1311         return (LRESULT)infoPtr->hMonthCal;
1312
1313     case DTM_SETMCCOLOR:
1314         return SendMessageW (infoPtr->hMonthCal, MCM_SETCOLOR, wParam, lParam);
1315
1316     case DTM_GETMCCOLOR:
1317         return SendMessageW (infoPtr->hMonthCal, MCM_GETCOLOR, wParam, 0);
1318
1319     case DTM_SETMCFONT:
1320         return SendMessageW (infoPtr->hMonthCal, WM_SETFONT, wParam, lParam);
1321
1322     case DTM_GETMCFONT:
1323         return SendMessageW (infoPtr->hMonthCal, WM_GETFONT, wParam, lParam);
1324
1325     case WM_NOTIFY:
1326         return DATETIME_Notify (infoPtr, (LPNMHDR)lParam);
1327
1328     case WM_ENABLE:
1329         return DATETIME_Enable (infoPtr, (BOOL)wParam);
1330
1331     case WM_ERASEBKGND:
1332         return DATETIME_EraseBackground (infoPtr, (HDC)wParam);
1333
1334     case WM_GETDLGCODE:
1335         return DLGC_WANTARROWS | DLGC_WANTCHARS;
1336
1337     case WM_PRINTCLIENT:
1338     case WM_PAINT:
1339         return DATETIME_Paint (infoPtr, (HDC)wParam);
1340
1341     case WM_KEYDOWN:
1342         return DATETIME_KeyDown (infoPtr, wParam);
1343
1344     case WM_KILLFOCUS:
1345         return DATETIME_KillFocus (infoPtr, (HWND)wParam);
1346
1347     case WM_NCCREATE:
1348         return DATETIME_NCCreate (hwnd, (LPCREATESTRUCTW)lParam);
1349
1350     case WM_SETFOCUS:
1351         return DATETIME_SetFocus (infoPtr, (HWND)wParam);
1352
1353     case WM_SIZE:
1354         return DATETIME_Size (infoPtr, (SHORT)LOWORD(lParam), (SHORT)HIWORD(lParam));
1355
1356     case WM_LBUTTONDOWN:
1357         return DATETIME_LButtonDown (infoPtr, (SHORT)LOWORD(lParam), (SHORT)HIWORD(lParam));
1358
1359     case WM_LBUTTONUP:
1360         return DATETIME_LButtonUp (infoPtr);
1361
1362     case WM_VSCROLL:
1363         return DATETIME_VScroll (infoPtr, (WORD)wParam);
1364
1365     case WM_CREATE:
1366         return DATETIME_Create (hwnd, (LPCREATESTRUCTW)lParam);
1367
1368     case WM_DESTROY:
1369         return DATETIME_Destroy (infoPtr);
1370
1371     case WM_COMMAND:
1372         return DATETIME_Command (infoPtr, wParam, lParam);
1373
1374     case WM_STYLECHANGED:
1375         return DATETIME_StyleChanged(infoPtr, wParam, (LPSTYLESTRUCT)lParam);
1376
1377     case WM_SETFONT:
1378         return DATETIME_SetFont(infoPtr, (HFONT)wParam, (BOOL)lParam);
1379
1380     case WM_GETFONT:
1381         return (LRESULT) infoPtr->hFont;
1382
1383     default:
1384         if ((uMsg >= WM_USER) && (uMsg < WM_APP) && !COMCTL32_IsReflectedMessage(uMsg))
1385                 ERR("unknown msg %04x wp=%08lx lp=%08lx\n",
1386                      uMsg, wParam, lParam);
1387         return DefWindowProcW (hwnd, uMsg, wParam, lParam);
1388     }
1389 }
1390
1391
1392 void
1393 DATETIME_Register (void)
1394 {
1395     WNDCLASSW wndClass;
1396
1397     ZeroMemory (&wndClass, sizeof(WNDCLASSW));
1398     wndClass.style         = CS_GLOBALCLASS;
1399     wndClass.lpfnWndProc   = DATETIME_WindowProc;
1400     wndClass.cbClsExtra    = 0;
1401     wndClass.cbWndExtra    = sizeof(DATETIME_INFO *);
1402     wndClass.hCursor       = LoadCursorW (0, (LPCWSTR)IDC_ARROW);
1403     wndClass.hbrBackground = (HBRUSH)(COLOR_WINDOW + 1);
1404     wndClass.lpszClassName = DATETIMEPICK_CLASSW;
1405
1406     RegisterClassW (&wndClass);
1407 }
1408
1409
1410 void
1411 DATETIME_Unregister (void)
1412 {
1413     UnregisterClassW (DATETIMEPICK_CLASSW, NULL);
1414 }