- fix the "int format, HANDLE arg" type of warnings for comctl32
[wine/multimedia.git] / dlls / comctl32 / datetime.c
blob5464b9cb9992ee9f3a0f14d6edc81d648da5ef30
1 /*
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
22 * TODO:
23 * - All messages.
24 * - All notifications.
28 #include <math.h>
29 #include <string.h>
30 #include <stdio.h>
32 #include "winbase.h"
33 #include "wingdi.h"
34 #include "commctrl.h"
35 #include "wine/debug.h"
37 WINE_DEFAULT_DEBUG_CHANNEL(datetime);
39 typedef struct
41 HWND hMonthCal;
42 HWND hUpdown;
43 SYSTEMTIME date;
44 BOOL dateValid;
45 HWND hwndCheckbut;
46 RECT rcClient; /* rect around the edge of the window */
47 RECT rcDraw; /* rect inside of the border */
48 RECT checkbox; /* checkbox allowing the control to be enabled/disabled */
49 RECT calbutton; /* button that toggles the dropdown of the monthcal control */
50 BOOL bCalDepressed; /* TRUE = cal button is depressed */
51 int select;
52 HFONT hFont;
53 int nrFieldsAllocated;
54 int nrFields;
55 int haveFocus;
56 int *fieldspec;
57 RECT *fieldRect;
58 int *buflen;
59 char textbuf[256];
60 POINT monthcal_pos;
61 } DATETIME_INFO, *LPDATETIME_INFO;
63 /* in monthcal.c */
64 extern int MONTHCAL_MonthLength(int month, int year);
66 /* this list of defines is closely related to `allowedformatchars' defined
67 * in datetime.c; the high nibble indicates the `base type' of the format
68 * specifier.
69 * Do not change without first reading DATETIME_UseFormat.
73 #define DT_END_FORMAT 0
74 #define ONEDIGITDAY 0x01
75 #define TWODIGITDAY 0x02
76 #define THREECHARDAY 0x03
77 #define FULLDAY 0x04
78 #define ONEDIGIT12HOUR 0x11
79 #define TWODIGIT12HOUR 0x12
80 #define ONEDIGIT24HOUR 0x21
81 #define TWODIGIT24HOUR 0x22
82 #define ONEDIGITMINUTE 0x31
83 #define TWODIGITMINUTE 0x32
84 #define ONEDIGITMONTH 0x41
85 #define TWODIGITMONTH 0x42
86 #define THREECHARMONTH 0x43
87 #define FULLMONTH 0x44
88 #define ONEDIGITSECOND 0x51
89 #define TWODIGITSECOND 0x52
90 #define ONELETTERAMPM 0x61
91 #define TWOLETTERAMPM 0x62
92 #define ONEDIGITYEAR 0x71
93 #define TWODIGITYEAR 0x72
94 #define FULLYEAR 0x73
95 #define FORMATCALLBACK 0x81 /* -> maximum of 0x80 callbacks possible */
96 #define FORMATCALLMASK 0x80
97 #define DT_STRING 0x0100
99 #define DTHT_DATEFIELD 0xff /* for hit-testing */
101 #define DTHT_NONE 0
102 #define DTHT_CHECKBOX 0x200 /* these should end at '00' , to make */
103 #define DTHT_MCPOPUP 0x300 /* & DTHT_DATEFIELD 0 when DATETIME_KeyDown */
104 #define DTHT_GOTFOCUS 0x400 /* tests for date-fields */
106 #define DATETIME_GetInfoPtr(hwnd) ((DATETIME_INFO *)GetWindowLongA (hwnd, 0))
108 static BOOL DATETIME_SendSimpleNotify (HWND hwnd, UINT code);
109 static BOOL DATETIME_SendDateTimeChangeNotify (HWND hwnd);
110 extern void MONTHCAL_CopyTime(const SYSTEMTIME *from, SYSTEMTIME *to);
111 static const char *allowedformatchars = {"dhHmMstyX'"};
112 static const int maxrepetition [] = {4,2,2,2,4,2,2,3,-1,-1};
115 static LRESULT
116 DATETIME_GetSystemTime (HWND hwnd, WPARAM wParam, LPARAM lParam )
118 DATETIME_INFO *infoPtr = DATETIME_GetInfoPtr (hwnd);
119 DWORD dwStyle = GetWindowLongA (hwnd, GWL_STYLE);
120 SYSTEMTIME *lprgSysTimeArray=(SYSTEMTIME *) lParam;
122 TRACE("%04x %08lx\n",wParam,lParam);
123 if (!lParam) return GDT_NONE;
125 if ((dwStyle & DTS_SHOWNONE) &&
126 (SendMessageA (infoPtr->hwndCheckbut, BM_GETCHECK, 0, 0)))
127 return GDT_NONE;
129 MONTHCAL_CopyTime (&infoPtr->date, lprgSysTimeArray);
131 return GDT_VALID;
135 static LRESULT
136 DATETIME_SetSystemTime (HWND hwnd, WPARAM wParam, LPARAM lParam )
138 DATETIME_INFO *infoPtr = DATETIME_GetInfoPtr (hwnd);
139 SYSTEMTIME *lprgSysTimeArray=(SYSTEMTIME *) lParam;
141 TRACE("%04x %08lx\n",wParam,lParam);
142 if (!lParam) return 0;
144 if (lParam==GDT_VALID)
145 MONTHCAL_CopyTime (lprgSysTimeArray, &infoPtr->date);
146 if (lParam==GDT_NONE) {
147 infoPtr->dateValid=FALSE;
148 SendMessageA (infoPtr->hwndCheckbut, BM_SETCHECK, 0, 0);
150 return 1;
154 static LRESULT
155 DATETIME_GetRange (HWND hwnd, LPARAM lParam )
157 DATETIME_INFO *infoPtr = DATETIME_GetInfoPtr (hwnd);
158 LRESULT ret;
160 TRACE("%08lx\n", lParam);
161 ret = SendMessageA (infoPtr->hMonthCal, MCM_GETRANGE, 0, lParam);
162 if (!ret) ret = 1; /* bug emulation... */
163 return ret;
166 static LRESULT
167 DATETIME_SetRange (HWND hwnd, WPARAM wParam, LPARAM lParam )
169 DATETIME_INFO *infoPtr = DATETIME_GetInfoPtr (hwnd);
171 TRACE("%04x %08lx\n",wParam,lParam);
173 return SendMessageA (infoPtr->hMonthCal, MCM_SETRANGE, wParam, lParam);
176 static LRESULT
177 DATETIME_GetMonthCalColor (HWND hwnd, WPARAM wParam)
179 DATETIME_INFO *infoPtr = DATETIME_GetInfoPtr (hwnd);
181 TRACE("%04x\n",wParam);
182 return SendMessageA (infoPtr->hMonthCal, MCM_GETCOLOR, wParam, 0);
186 static LRESULT
187 DATETIME_SetMonthCalColor (HWND hwnd, WPARAM wParam, LPARAM lParam)
189 DATETIME_INFO *infoPtr = DATETIME_GetInfoPtr (hwnd);
191 TRACE("%04x %08lx\n",wParam,lParam);
192 return SendMessageA (infoPtr->hMonthCal, MCM_SETCOLOR, wParam, lParam);
196 /* FIXME: need to get way to force font into monthcal structure */
197 static LRESULT
198 DATETIME_GetMonthCal (HWND hwnd)
200 DATETIME_INFO *infoPtr = DATETIME_GetInfoPtr (hwnd);
202 TRACE("\n");
203 return (LRESULT)infoPtr->hMonthCal;
208 /* FIXME: need to get way to force font into monthcal structure */
210 static LRESULT
211 DATETIME_GetMonthCalFont (HWND hwnd)
214 TRACE("\n");
215 return 0;
219 static LRESULT
220 DATETIME_SetMonthCalFont (HWND hwnd, WPARAM wParam, LPARAM lParam)
223 TRACE("%04x %08lx\n",wParam,lParam);
224 return 0;
229 Split up a formattxt in actions.
230 See ms documentation for the meaning of the letter codes/'specifiers'.
232 Notes:
233 *'dddddd' is handled as 'dddd' plus 'dd'.
234 *unrecognized formats are strings (here given the type DT_STRING;
235 start of the string is encoded in lower bits of DT_STRING.
236 Therefore, 'string' ends finally up as '<show seconds>tring'.
241 static void
242 DATETIME_UseFormat (DATETIME_INFO *infoPtr, const char *formattxt)
244 int i,j,k,len;
245 int *nrFields=& infoPtr->nrFields;
247 TRACE ("%s\n",formattxt);
250 *nrFields=0;
251 infoPtr->fieldspec[*nrFields]=0;
252 len=strlen(allowedformatchars);
253 k=0;
255 for (i=0; i<strlen (formattxt); i++) {
256 TRACE ("\n%d %c:",i, formattxt[i]);
257 for (j=0; j<len; j++) {
258 if (allowedformatchars[j]==formattxt[i]) {
259 TRACE ("%c[%d,%x]",allowedformatchars[j], *nrFields,
260 infoPtr->fieldspec[*nrFields]);
261 if ((*nrFields==0) && (infoPtr->fieldspec[*nrFields]==0)) {
262 infoPtr->fieldspec[*nrFields]=(j<<4) +1;
263 break;
265 if (infoPtr->fieldspec[*nrFields]>>4!=j) {
266 (*nrFields)++;
267 infoPtr->fieldspec[*nrFields]=(j<<4) +1;
268 break;
270 if ((infoPtr->fieldspec[*nrFields] & 0x0f)==maxrepetition[j]) {
271 (*nrFields)++;
272 infoPtr->fieldspec[*nrFields]=(j<<4) +1;
273 break;
275 infoPtr->fieldspec[*nrFields]++;
276 break;
277 } /* if allowedformatchar */
278 } /* for j */
281 /* char is not a specifier: handle char like a string */
282 if (j==len) {
283 if ((*nrFields==0) && (infoPtr->fieldspec[*nrFields]==0)) {
284 infoPtr->fieldspec[*nrFields]=DT_STRING+k;
285 infoPtr->buflen[*nrFields]=0;
286 } else
287 if ((infoPtr->fieldspec[*nrFields] & DT_STRING)!=DT_STRING) {
288 (*nrFields)++;
289 infoPtr->fieldspec[*nrFields]=DT_STRING+k;
290 infoPtr->buflen[*nrFields]=0;
292 infoPtr->textbuf[k]=formattxt[i];
293 k++;
294 infoPtr->buflen[*nrFields]++;
295 } /* if j=len */
297 if (*nrFields==infoPtr->nrFieldsAllocated) {
298 FIXME ("out of memory; should reallocate. crash ahead.\n");
301 } /* for i */
303 TRACE("\n");
305 if (infoPtr->fieldspec[*nrFields]!=0) (*nrFields)++;
309 static LRESULT
310 DATETIME_SetFormat (HWND hwnd, WPARAM wParam, LPARAM lParam)
312 DATETIME_INFO *infoPtr= DATETIME_GetInfoPtr (hwnd);
313 char format_buf[80];
314 DWORD format_item;
316 TRACE("%04x %08lx\n",wParam,lParam);
317 if (!lParam) {
318 DWORD dwStyle = GetWindowLongA (hwnd, GWL_STYLE);
320 if (dwStyle & DTS_LONGDATEFORMAT)
321 format_item=LOCALE_SLONGDATE;
322 else if (dwStyle & DTS_TIMEFORMAT)
323 format_item=LOCALE_STIMEFORMAT;
324 else /* DTS_SHORTDATEFORMAT */
325 format_item=LOCALE_SSHORTDATE;
326 GetLocaleInfoA( GetSystemDefaultLCID(), format_item,format_buf,sizeof(format_buf));
327 DATETIME_UseFormat (infoPtr, format_buf);
329 else
330 DATETIME_UseFormat (infoPtr, (char *) lParam);
332 return infoPtr->nrFields;
336 static LRESULT
337 DATETIME_SetFormatW (HWND hwnd, WPARAM wParam, LPARAM lParam)
340 TRACE("%04x %08lx\n",wParam,lParam);
341 if (lParam) {
342 LPSTR buf;
343 int retval;
344 int len = WideCharToMultiByte( CP_ACP, 0, (LPWSTR)lParam, -1, NULL, 0, NULL, NULL );
346 buf = (LPSTR) COMCTL32_Alloc (len);
347 WideCharToMultiByte( CP_ACP, 0, (LPWSTR)lParam, -1, buf, len, NULL, NULL );
348 retval=DATETIME_SetFormat (hwnd, 0, (LPARAM) buf);
349 COMCTL32_Free (buf);
350 return retval;
352 else
353 return DATETIME_SetFormat (hwnd, 0, 0);
358 static void
359 DATETIME_ReturnTxt (DATETIME_INFO *infoPtr, int count, char *result)
361 SYSTEMTIME date = infoPtr->date;
362 int spec;
363 char buffer[80];
365 *result=0;
366 TRACE ("%d,%d\n", infoPtr->nrFields, count);
367 if ((count>infoPtr->nrFields) || (count<0)) {
368 WARN ("buffer overrun, have %d want %d\n", infoPtr->nrFields, count);
369 return;
372 if (!infoPtr->fieldspec) return;
374 spec=infoPtr->fieldspec[count];
375 if (spec & DT_STRING) {
376 int txtlen=infoPtr->buflen[count];
378 strncpy (result, infoPtr->textbuf + (spec &~ DT_STRING), txtlen);
379 result[txtlen]=0;
380 TRACE ("arg%d=%x->[%s]\n",count,infoPtr->fieldspec[count],result);
381 return;
385 switch (spec) {
386 case DT_END_FORMAT:
387 *result=0;
388 break;
389 case ONEDIGITDAY:
390 sprintf (result,"%d",date.wDay);
391 break;
392 case TWODIGITDAY:
393 sprintf (result,"%.2d",date.wDay);
394 break;
395 case THREECHARDAY:
396 GetLocaleInfoA( LOCALE_USER_DEFAULT, LOCALE_SABBREVDAYNAME1+(date.wDayOfWeek+6)%7,
397 result,4);
398 /*sprintf (result,"%.3s",days[date.wDayOfWeek]);*/
399 break;
400 case FULLDAY:
401 GetLocaleInfoA( LOCALE_USER_DEFAULT,LOCALE_SDAYNAME1+ (date.wDayOfWeek+6)%7,
402 buffer,sizeof(buffer));
403 strcpy (result,buffer);
404 break;
405 case ONEDIGIT12HOUR:
406 if (date.wHour>12)
407 sprintf (result,"%d",date.wHour-12);
408 else
409 sprintf (result,"%d",date.wHour);
410 break;
411 case TWODIGIT12HOUR:
412 if (date.wHour>12)
413 sprintf (result,"%.2d",date.wHour-12);
414 else
415 sprintf (result,"%.2d",date.wHour);
416 break;
417 case ONEDIGIT24HOUR:
418 sprintf (result,"%d",date.wHour);
419 break;
420 case TWODIGIT24HOUR:
421 sprintf (result,"%.2d",date.wHour);
422 break;
423 case ONEDIGITSECOND:
424 sprintf (result,"%d",date.wSecond);
425 break;
426 case TWODIGITSECOND:
427 sprintf (result,"%.2d",date.wSecond);
428 break;
429 case ONEDIGITMINUTE:
430 sprintf (result,"%d",date.wMinute);
431 break;
432 case TWODIGITMINUTE:
433 sprintf (result,"%.2d",date.wMinute);
434 break;
435 case ONEDIGITMONTH:
436 sprintf (result,"%d",date.wMonth);
437 break;
438 case TWODIGITMONTH:
439 sprintf (result,"%.2d",date.wMonth);
440 break;
441 case THREECHARMONTH:
442 GetLocaleInfoA( GetSystemDefaultLCID(),LOCALE_SMONTHNAME1+date.wMonth -1,
443 buffer,sizeof(buffer));
444 sprintf (result,"%.3s",buffer);
445 break;
446 case FULLMONTH:
447 GetLocaleInfoA( GetSystemDefaultLCID(),LOCALE_SMONTHNAME1+date.wMonth -1,
448 result,sizeof(result));
449 break;
450 case ONELETTERAMPM:
451 if (date.wHour<12)
452 strcpy (result,"A");
453 else
454 strcpy (result,"P");
455 break;
456 case TWOLETTERAMPM:
457 if (date.wHour<12)
458 strcpy (result,"AM");
459 else
460 strcpy (result,"PM");
461 break;
462 case FORMATCALLBACK:
463 FIXME ("Not implemented\n");
464 strcpy (result,"xxx");
465 break;
466 case ONEDIGITYEAR:
467 sprintf (result,"%d",date.wYear-10* (int) floor(date.wYear/10));
468 break;
469 case TWODIGITYEAR:
470 sprintf (result,"%.2d",date.wYear-100* (int) floor(date.wYear/100));
471 break;
472 case FULLYEAR:
473 sprintf (result,"%d",date.wYear);
474 break;
477 TRACE ("arg%d=%x->[%s]\n",count,infoPtr->fieldspec[count],result);
481 static void
482 DATETIME_IncreaseField (DATETIME_INFO *infoPtr, int number)
484 SYSTEMTIME *date = &infoPtr->date;
485 int spec;
487 TRACE ("%d\n",number);
488 if ((number>infoPtr->nrFields) || (number<0)) return;
490 spec=infoPtr->fieldspec[number];
491 if ((spec & DTHT_DATEFIELD)==0) return;
493 switch (spec) {
494 case ONEDIGITDAY:
495 case TWODIGITDAY:
496 case THREECHARDAY:
497 case FULLDAY:
498 date->wDay++;
499 if (date->wDay>MONTHCAL_MonthLength(date->wMonth,date->wYear))
500 date->wDay=1;
501 break;
502 case ONEDIGIT12HOUR:
503 case TWODIGIT12HOUR:
504 case ONEDIGIT24HOUR:
505 case TWODIGIT24HOUR:
506 date->wHour++;
507 if (date->wHour>23) date->wHour=0;
508 break;
509 case ONEDIGITSECOND:
510 case TWODIGITSECOND:
511 date->wSecond++;
512 if (date->wSecond>59) date->wSecond=0;
513 break;
514 case ONEDIGITMINUTE:
515 case TWODIGITMINUTE:
516 date->wMinute++;
517 if (date->wMinute>59) date->wMinute=0;
518 break;
519 case ONEDIGITMONTH:
520 case TWODIGITMONTH:
521 case THREECHARMONTH:
522 case FULLMONTH:
523 date->wMonth++;
524 if (date->wMonth>12) date->wMonth=1;
525 if (date->wDay>MONTHCAL_MonthLength(date->wMonth,date->wYear))
526 date->wDay=MONTHCAL_MonthLength(date->wMonth,date->wYear);
527 break;
528 case ONELETTERAMPM:
529 case TWOLETTERAMPM:
530 date->wHour+=12;
531 if (date->wHour>23) date->wHour-=24;
532 break;
533 case FORMATCALLBACK:
534 FIXME ("Not implemented\n");
535 break;
536 case ONEDIGITYEAR:
537 case TWODIGITYEAR:
538 case FULLYEAR:
539 date->wYear++;
540 break;
546 static void
547 DATETIME_DecreaseField (DATETIME_INFO *infoPtr, int number)
549 SYSTEMTIME *date = & infoPtr->date;
550 int spec;
552 TRACE ("%d\n",number);
553 if ((number>infoPtr->nrFields) || (number<0)) return;
555 spec = infoPtr->fieldspec[number];
556 if ((spec & DTHT_DATEFIELD)==0) return;
558 TRACE ("%x\n",spec);
560 switch (spec) {
561 case ONEDIGITDAY:
562 case TWODIGITDAY:
563 case THREECHARDAY:
564 case FULLDAY:
565 date->wDay--;
566 if (date->wDay<1)
567 date->wDay=MONTHCAL_MonthLength(date->wMonth,date->wYear);
568 break;
569 case ONEDIGIT12HOUR:
570 case TWODIGIT12HOUR:
571 case ONEDIGIT24HOUR:
572 case TWODIGIT24HOUR:
573 if (date->wHour)
574 date->wHour--;
575 else
576 date->wHour=23;
577 break;
578 case ONEDIGITSECOND:
579 case TWODIGITSECOND:
580 if (date->wHour)
581 date->wSecond--;
582 else
583 date->wHour=59;
584 break;
585 case ONEDIGITMINUTE:
586 case TWODIGITMINUTE:
587 if (date->wMinute)
588 date->wMinute--;
589 else
590 date->wMinute=59;
591 break;
592 case ONEDIGITMONTH:
593 case TWODIGITMONTH:
594 case THREECHARMONTH:
595 case FULLMONTH:
596 if (date->wMonth>1)
597 date->wMonth--;
598 else
599 date->wMonth=12;
600 if (date->wDay>MONTHCAL_MonthLength(date->wMonth,date->wYear))
601 date->wDay=MONTHCAL_MonthLength(date->wMonth,date->wYear);
602 break;
603 case ONELETTERAMPM:
604 case TWOLETTERAMPM:
605 if (date->wHour<12)
606 date->wHour+=12;
607 else
608 date->wHour-=12;
609 break;
610 case FORMATCALLBACK:
611 FIXME ("Not implemented\n");
612 break;
613 case ONEDIGITYEAR:
614 case TWODIGITYEAR:
615 case FULLYEAR:
616 date->wYear--;
617 break;
623 static void
624 DATETIME_ResetFieldDown (DATETIME_INFO *infoPtr, int number)
626 SYSTEMTIME *date = &infoPtr->date;
627 int spec;
629 TRACE ("%d\n",number);
630 if ((number>infoPtr->nrFields) || (number<0)) return;
632 spec = infoPtr->fieldspec[number];
633 if ((spec & DTHT_DATEFIELD)==0) return;
636 switch (spec) {
637 case ONEDIGITDAY:
638 case TWODIGITDAY:
639 case THREECHARDAY:
640 case FULLDAY:
641 date->wDay = 1;
642 break;
643 case ONEDIGIT12HOUR:
644 case TWODIGIT12HOUR:
645 case ONEDIGIT24HOUR:
646 case TWODIGIT24HOUR:
647 case ONELETTERAMPM:
648 case TWOLETTERAMPM:
649 date->wHour = 0;
650 break;
651 case ONEDIGITSECOND:
652 case TWODIGITSECOND:
653 date->wSecond = 0;
654 break;
655 case ONEDIGITMINUTE:
656 case TWODIGITMINUTE:
657 date->wMinute = 0;
658 break;
659 case ONEDIGITMONTH:
660 case TWODIGITMONTH:
661 case THREECHARMONTH:
662 case FULLMONTH:
663 date->wMonth = 1;
664 case FORMATCALLBACK:
665 FIXME ("Not implemented\n");
666 break;
667 case ONEDIGITYEAR:
668 case TWODIGITYEAR:
669 /* FYI: On 1752/9/14 the calendar changed and England and the
670 * American colonies changed to the Gregorian calendar. This change
671 * involved having September 14th follow September 2nd. So no date
672 * algorithm works before that date.
674 case FULLYEAR:
675 date->wSecond = 0;
676 date->wMinute = 0;
677 date->wHour = 0;
678 date->wDay = 14; /* overactive ms-programmers..*/
679 date->wMonth = 9;
680 date->wYear = 1752;
681 break;
687 static void
688 DATETIME_ResetFieldUp (DATETIME_INFO *infoPtr, int number)
690 SYSTEMTIME *date = & infoPtr->date;
691 int spec;
693 TRACE("%d \n",number);
694 if ((number>infoPtr->nrFields) || (number<0)) return;
696 spec=infoPtr->fieldspec[number];
697 if ((spec & DTHT_DATEFIELD)==0) return;
699 switch (spec) {
700 case ONEDIGITDAY:
701 case TWODIGITDAY:
702 case THREECHARDAY:
703 case FULLDAY:
704 date->wDay=MONTHCAL_MonthLength(date->wMonth,date->wYear);
705 break;
706 case ONEDIGIT12HOUR:
707 case TWODIGIT12HOUR:
708 case ONEDIGIT24HOUR:
709 case TWODIGIT24HOUR:
710 case ONELETTERAMPM:
711 case TWOLETTERAMPM:
712 date->wHour=23;
713 break;
714 case ONEDIGITSECOND:
715 case TWODIGITSECOND:
716 date->wSecond=59;
717 break;
718 case ONEDIGITMINUTE:
719 case TWODIGITMINUTE:
720 date->wMinute=59;
721 break;
722 case ONEDIGITMONTH:
723 case TWODIGITMONTH:
724 case THREECHARMONTH:
725 case FULLMONTH:
726 date->wMonth=12;
727 case FORMATCALLBACK:
728 FIXME ("Not implemented\n");
729 break;
730 case ONEDIGITYEAR:
731 case TWODIGITYEAR:
732 case FULLYEAR:
733 date->wYear=9999; /* Y10K problem? naaah. */
734 break;
740 static void DATETIME_Refresh (HWND hwnd, HDC hdc)
743 DATETIME_INFO *infoPtr = DATETIME_GetInfoPtr (hwnd);
744 int i,prevright;
745 RECT *field;
746 DWORD dwStyle = GetWindowLongA (hwnd, GWL_STYLE);
747 RECT *rcDraw = &infoPtr->rcDraw;
748 RECT *rcClient = &infoPtr->rcClient;
749 RECT *calbutton = &infoPtr->calbutton;
750 RECT *checkbox = &infoPtr->checkbox;
751 HBRUSH hbr;
752 SIZE size;
753 COLORREF oldBk, oldTextColor;
755 /* draw control edge */
756 TRACE("\n");
757 hbr = CreateSolidBrush(RGB(255, 255, 255));
758 FillRect(hdc, rcClient, hbr);
759 DrawEdge(hdc, rcClient, EDGE_SUNKEN, BF_RECT);
760 DeleteObject(hbr);
762 if (infoPtr->dateValid) {
763 char txt[80];
764 HFONT oldFont;
765 oldFont = SelectObject (hdc, infoPtr->hFont);
767 DATETIME_ReturnTxt (infoPtr, 0, txt);
768 GetTextExtentPoint32A (hdc, txt, strlen (txt), &size);
769 rcDraw->bottom = size.cy+2;
771 if (dwStyle & DTS_SHOWNONE) checkbox->right = 18;
773 prevright = checkbox->right;
775 for (i=0; i<infoPtr->nrFields; i++) {
776 DATETIME_ReturnTxt (infoPtr, i, txt);
777 GetTextExtentPoint32A (hdc, txt, strlen (txt), &size);
778 field = & infoPtr->fieldRect[i];
779 field->left = prevright;
780 field->right = prevright+size.cx;
781 field->top = rcDraw->top;
782 field->bottom = rcDraw->bottom;
783 prevright = field->right;
785 if ((infoPtr->haveFocus) && (i==infoPtr->select)) {
786 hbr = CreateSolidBrush (GetSysColor (COLOR_ACTIVECAPTION));
787 FillRect(hdc, field, hbr);
788 oldBk = SetBkColor (hdc, GetSysColor(COLOR_ACTIVECAPTION));
789 oldTextColor = SetTextColor (hdc, GetSysColor(COLOR_WINDOW));
790 DeleteObject (hbr);
791 DrawTextA ( hdc, txt, strlen(txt), field,
792 DT_RIGHT | DT_VCENTER | DT_SINGLELINE );
793 SetBkColor (hdc, oldBk);
794 SetTextColor (hdc, oldTextColor);
796 else
797 DrawTextA ( hdc, txt, strlen(txt), field,
798 DT_RIGHT | DT_VCENTER | DT_SINGLELINE );
801 SelectObject (hdc, oldFont);
804 if (!(dwStyle & DTS_UPDOWN)) {
805 DrawFrameControl(hdc, calbutton, DFC_SCROLL,
806 DFCS_SCROLLDOWN | (infoPtr->bCalDepressed ? DFCS_PUSHED : 0) |
807 (dwStyle & WS_DISABLED ? DFCS_INACTIVE : 0) );
812 static LRESULT
813 DATETIME_HitTest (HWND hwnd, DATETIME_INFO *infoPtr, POINT pt)
815 int i, retval;
817 TRACE ("%ld, %ld\n",pt.x,pt.y);
819 retval = DTHT_NONE;
820 if (PtInRect (&infoPtr->calbutton, pt))
821 {retval = DTHT_MCPOPUP; TRACE("Hit in calbutton(DTHT_MCPOPUP)\n"); goto done; }
822 if (PtInRect (&infoPtr->checkbox, pt))
823 {retval = DTHT_CHECKBOX; TRACE("Hit in checkbox(DTHT_CHECKBOX)\n"); goto done; }
825 for (i=0; i<infoPtr->nrFields; i++) {
826 if (PtInRect (&infoPtr->fieldRect[i], pt)) {
827 retval = i;
828 TRACE("Hit in date text in field %d\n", i);
829 break;
833 done:
834 return retval;
838 static LRESULT
839 DATETIME_LButtonDown (HWND hwnd, WPARAM wParam, LPARAM lParam)
841 DATETIME_INFO *infoPtr = DATETIME_GetInfoPtr (hwnd);
842 DWORD dwStyle = GetWindowLongA (hwnd, GWL_STYLE);
843 int old, new;
844 POINT pt;
846 TRACE ("\n");
848 old = infoPtr->select;
849 pt.x = (INT)LOWORD(lParam);
850 pt.y = (INT)HIWORD(lParam);
852 new = DATETIME_HitTest (hwnd, infoPtr, pt);
854 /* FIXME: might be conditions where we don't want to update infoPtr->select */
855 infoPtr->select = new;
857 if (infoPtr->select != old) {
858 infoPtr->haveFocus = DTHT_GOTFOCUS;
861 if (infoPtr->select == DTHT_MCPOPUP) {
862 /* FIXME: button actually is only depressed during dropdown of the */
863 /* calendar control and when the mouse is over the button window */
864 infoPtr->bCalDepressed = TRUE;
866 /* recalculate the position of the monthcal popup */
867 if(dwStyle & DTS_RIGHTALIGN)
868 infoPtr->monthcal_pos.x = infoPtr->rcClient.right - ((infoPtr->calbutton.right -
869 infoPtr->calbutton.left) + 145);
870 else
871 infoPtr->monthcal_pos.x = 8;
873 infoPtr->monthcal_pos.y = infoPtr->rcClient.bottom;
874 ClientToScreen (hwnd, &(infoPtr->monthcal_pos));
875 SetWindowPos(infoPtr->hMonthCal, 0, infoPtr->monthcal_pos.x,
876 infoPtr->monthcal_pos.y, 145, 150, 0);
878 if(IsWindowVisible(infoPtr->hMonthCal))
879 ShowWindow(infoPtr->hMonthCal, SW_HIDE);
880 else
881 ShowWindow(infoPtr->hMonthCal, SW_SHOW);
883 TRACE ("dt:%p mc:%p mc parent:%p, desktop:%p, mcpp:%p\n",
884 hwnd,infoPtr->hMonthCal,
885 GetParent (infoPtr->hMonthCal),
886 GetDesktopWindow (),
887 GetParent (GetParent (infoPtr->hMonthCal)));
888 DATETIME_SendSimpleNotify (hwnd, DTN_DROPDOWN);
891 InvalidateRect(hwnd, NULL, FALSE);
893 return 0;
897 static LRESULT
898 DATETIME_LButtonUp (HWND hwnd, WPARAM wParam, LPARAM lParam)
900 DATETIME_INFO *infoPtr = DATETIME_GetInfoPtr (hwnd);
902 TRACE("\n");
904 if(infoPtr->bCalDepressed == TRUE) {
905 infoPtr->bCalDepressed = FALSE;
906 InvalidateRect(hwnd, &(infoPtr->calbutton), TRUE);
909 return 0;
913 static LRESULT
914 DATETIME_Paint (HWND hwnd, WPARAM wParam)
916 HDC hdc;
917 PAINTSTRUCT ps;
919 hdc = wParam==0 ? BeginPaint (hwnd, &ps) : (HDC)wParam;
920 DATETIME_Refresh (hwnd, hdc);
921 if(!wParam)
922 EndPaint (hwnd, &ps);
923 return 0;
927 static LRESULT
928 DATETIME_ParentNotify (HWND hwnd, WPARAM wParam, LPARAM lParam)
930 DATETIME_INFO *infoPtr = DATETIME_GetInfoPtr (hwnd);
931 LPNMHDR lpnmh = (LPNMHDR) lParam;
933 TRACE ("%x,%lx\n",wParam, lParam);
934 TRACE ("Got notification %x from %p\n", lpnmh->code, lpnmh->hwndFrom);
935 TRACE ("info: %p %p %p\n",hwnd,infoPtr->hMonthCal,infoPtr->hUpdown);
936 return 0;
940 static LRESULT
941 DATETIME_Notify (HWND hwnd, WPARAM wParam, LPARAM lParam)
944 DATETIME_INFO *infoPtr = DATETIME_GetInfoPtr (hwnd);
945 LPNMHDR lpnmh = (LPNMHDR) lParam;
947 TRACE ("%x,%lx\n",wParam, lParam);
948 TRACE ("Got notification %x from %p\n", lpnmh->code, lpnmh->hwndFrom);
949 TRACE ("info: %p %p %p\n",hwnd,infoPtr->hMonthCal,infoPtr->hUpdown);
950 return 0;
954 static LRESULT
955 DATETIME_KeyDown (HWND hwnd, WPARAM wParam, LPARAM lParam)
957 DATETIME_INFO *infoPtr = DATETIME_GetInfoPtr (hwnd);
958 int FieldNum,wrap=0;
960 TRACE("%x %lx %x\n",wParam, lParam, infoPtr->select);
962 FieldNum = infoPtr->select & DTHT_DATEFIELD;
964 if (!(infoPtr->haveFocus)) return 0;
965 if ((FieldNum==0) && (infoPtr->select)) return 0;
967 if (infoPtr->select & FORMATCALLMASK) {
968 FIXME ("Callbacks not implemented yet\n");
971 switch (wParam) {
972 case VK_ADD:
973 case VK_UP:
974 DATETIME_IncreaseField (infoPtr,FieldNum);
975 DATETIME_SendDateTimeChangeNotify (hwnd);
976 break;
977 case VK_SUBTRACT:
978 case VK_DOWN:
979 DATETIME_DecreaseField (infoPtr,FieldNum);
980 DATETIME_SendDateTimeChangeNotify (hwnd);
981 break;
982 case VK_HOME:
983 DATETIME_ResetFieldDown (infoPtr,FieldNum);
984 DATETIME_SendDateTimeChangeNotify (hwnd);
985 break;
986 case VK_END:
987 DATETIME_ResetFieldUp(infoPtr,FieldNum);
988 DATETIME_SendDateTimeChangeNotify (hwnd);
989 break;
990 case VK_LEFT:
991 do {
992 if (infoPtr->select==0) {
993 infoPtr->select = infoPtr->nrFields - 1;
994 wrap++;
995 } else
996 infoPtr->select--;
998 while ((infoPtr->fieldspec[infoPtr->select] & DT_STRING) && (wrap<2));
999 break;
1000 case VK_RIGHT:
1001 do {
1002 infoPtr->select++;
1003 if (infoPtr->select==infoPtr->nrFields) {
1004 infoPtr->select = 0;
1005 wrap++;
1008 while ((infoPtr->fieldspec[infoPtr->select] & DT_STRING) && (wrap<2));
1009 break;
1012 InvalidateRect(hwnd, NULL, FALSE);
1014 return 0;
1018 static LRESULT
1019 DATETIME_KillFocus (HWND hwnd, WPARAM wParam, LPARAM lParam)
1021 DATETIME_INFO *infoPtr = DATETIME_GetInfoPtr (hwnd);
1023 TRACE ("\n");
1025 if (infoPtr->haveFocus) {
1026 DATETIME_SendSimpleNotify (hwnd, NM_KILLFOCUS);
1027 infoPtr->haveFocus = 0;
1030 InvalidateRect (hwnd, NULL, TRUE);
1032 return 0;
1036 static LRESULT
1037 DATETIME_SetFocus (HWND hwnd, WPARAM wParam, LPARAM lParam)
1039 DATETIME_INFO *infoPtr = DATETIME_GetInfoPtr (hwnd);
1041 TRACE ("\n");
1043 if (infoPtr->haveFocus==0) {
1044 DATETIME_SendSimpleNotify (hwnd, NM_SETFOCUS);
1045 infoPtr->haveFocus = DTHT_GOTFOCUS;
1048 InvalidateRect(hwnd, NULL, FALSE);
1050 return 0;
1054 static BOOL
1055 DATETIME_SendDateTimeChangeNotify (HWND hwnd)
1058 DATETIME_INFO *infoPtr = DATETIME_GetInfoPtr (hwnd);
1059 NMDATETIMECHANGE dtdtc;
1061 TRACE ("\n");
1062 dtdtc.nmhdr.hwndFrom = hwnd;
1063 dtdtc.nmhdr.idFrom = GetWindowLongA( hwnd, GWL_ID);
1064 dtdtc.nmhdr.code = DTN_DATETIMECHANGE;
1066 if ((GetWindowLongA (hwnd, GWL_STYLE) & DTS_SHOWNONE))
1067 dtdtc.dwFlags = GDT_NONE;
1068 else
1069 dtdtc.dwFlags = GDT_VALID;
1071 MONTHCAL_CopyTime (&infoPtr->date, &dtdtc.st);
1072 return (BOOL) SendMessageA (GetParent (hwnd), WM_NOTIFY,
1073 (WPARAM)dtdtc.nmhdr.idFrom, (LPARAM)&dtdtc);
1077 static BOOL
1078 DATETIME_SendSimpleNotify (HWND hwnd, UINT code)
1080 NMHDR nmhdr;
1082 TRACE("%x\n",code);
1083 nmhdr.hwndFrom = hwnd;
1084 nmhdr.idFrom = GetWindowLongA( hwnd, GWL_ID);
1085 nmhdr.code = code;
1087 return (BOOL) SendMessageA (GetParent (hwnd), WM_NOTIFY,
1088 (WPARAM)nmhdr.idFrom, (LPARAM)&nmhdr);
1091 static LRESULT
1092 DATETIME_Size (HWND hwnd, WPARAM wParam, LPARAM lParam)
1094 DATETIME_INFO *infoPtr = DATETIME_GetInfoPtr(hwnd);
1095 DWORD dwStyle = GetWindowLongA(hwnd, GWL_STYLE);
1097 /* set size */
1098 infoPtr->rcClient.bottom = HIWORD(lParam);
1099 infoPtr->rcClient.right = LOWORD(lParam);
1101 TRACE("Height=%d, Width=%d\n", infoPtr->rcClient.bottom, infoPtr->rcClient.right);
1103 /* use DrawEdge to adjust the size of rcEdge to get rcDraw */
1104 memcpy((&infoPtr->rcDraw), (&infoPtr->rcClient), sizeof(infoPtr->rcDraw));
1106 DrawEdge((HDC)NULL, &(infoPtr->rcDraw), EDGE_SUNKEN, BF_RECT | BF_ADJUST);
1108 /* set the size of the button that drops the calendar down */
1109 /* FIXME: account for style that allows button on left side */
1110 infoPtr->calbutton.top = infoPtr->rcDraw.top;
1111 infoPtr->calbutton.bottom= infoPtr->rcDraw.bottom;
1112 infoPtr->calbutton.left = infoPtr->rcDraw.right-15;
1113 infoPtr->calbutton.right = infoPtr->rcDraw.right;
1115 /* set enable/disable button size for show none style being enabled */
1116 /* FIXME: these dimensions are completely incorrect */
1117 infoPtr->checkbox.top = infoPtr->rcDraw.top;
1118 infoPtr->checkbox.bottom = infoPtr->rcDraw.bottom;
1119 infoPtr->checkbox.left = infoPtr->rcDraw.left;
1120 infoPtr->checkbox.right = infoPtr->rcDraw.left + 10;
1122 /* update the position of the monthcal control */
1123 if(dwStyle & DTS_RIGHTALIGN)
1124 infoPtr->monthcal_pos.x = infoPtr->rcClient.right - ((infoPtr->calbutton.right -
1125 infoPtr->calbutton.left) + 145);
1126 else
1127 infoPtr->monthcal_pos.x = 8;
1129 infoPtr->monthcal_pos.y = infoPtr->rcClient.bottom;
1130 ClientToScreen (hwnd, &(infoPtr->monthcal_pos));
1131 SetWindowPos(infoPtr->hMonthCal, 0, infoPtr->monthcal_pos.x,
1132 infoPtr->monthcal_pos.y,
1133 145, 150, 0);
1135 InvalidateRect(hwnd, NULL, FALSE);
1137 return 0;
1141 static LRESULT
1142 DATETIME_Create (HWND hwnd, WPARAM wParam, LPARAM lParam)
1144 DATETIME_INFO *infoPtr;
1145 DWORD dwStyle = GetWindowLongA (hwnd, GWL_STYLE);
1147 /* allocate memory for info structure */
1148 TRACE("%04x %08lx\n",wParam,lParam);
1149 infoPtr = (DATETIME_INFO *)COMCTL32_Alloc (sizeof(DATETIME_INFO));
1150 if (infoPtr == NULL) {
1151 ERR("could not allocate info memory!\n");
1152 return 0;
1155 SetWindowLongA (hwnd, 0, (DWORD)infoPtr);
1157 if (dwStyle & DTS_SHOWNONE) {
1158 infoPtr->hwndCheckbut=CreateWindowExA (0,"button", 0,
1159 WS_CHILD | WS_VISIBLE | BS_AUTOCHECKBOX,
1160 2,2,13,13,
1161 hwnd,
1162 0, (HINSTANCE)GetWindowLongA (hwnd, GWL_HINSTANCE), 0);
1163 SendMessageA (infoPtr->hwndCheckbut, BM_SETCHECK, 1, 0);
1166 if (dwStyle & DTS_UPDOWN) {
1167 infoPtr->hUpdown=CreateUpDownControl (
1168 WS_CHILD | WS_BORDER | WS_VISIBLE,
1169 120,1,20,20,
1170 hwnd,1,0,0,
1171 UD_MAXVAL, UD_MINVAL, 0);
1174 infoPtr->fieldspec = (int *) COMCTL32_Alloc (32*sizeof(int));
1175 infoPtr->fieldRect = (RECT *) COMCTL32_Alloc (32*sizeof(RECT));
1176 infoPtr->buflen = (int *) COMCTL32_Alloc (32*sizeof(int));
1177 infoPtr->nrFieldsAllocated = 32;
1179 DATETIME_SetFormat (hwnd, 0, 0);
1181 /* create the monthcal control */
1182 infoPtr->hMonthCal = CreateWindowExA (0,"SysMonthCal32", 0,
1183 WS_BORDER | WS_POPUP | WS_CLIPSIBLINGS,
1184 0, 0, 0, 0,
1185 GetParent(hwnd),
1186 0, 0, 0);
1188 /* initialize info structure */
1189 GetSystemTime (&infoPtr->date);
1190 infoPtr->dateValid = TRUE;
1191 infoPtr->hFont = GetStockObject(DEFAULT_GUI_FONT);
1192 return 0;
1196 static LRESULT
1197 DATETIME_Destroy (HWND hwnd, WPARAM wParam, LPARAM lParam)
1199 DATETIME_INFO *infoPtr = DATETIME_GetInfoPtr (hwnd);
1201 TRACE("\n");
1202 COMCTL32_Free (infoPtr);
1203 SetWindowLongA( hwnd, 0, 0 );
1204 return 0;
1208 static LRESULT WINAPI
1209 DATETIME_WindowProc (HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam)
1211 if (!DATETIME_GetInfoPtr(hwnd) && (uMsg != WM_CREATE))
1212 return DefWindowProcA( hwnd, uMsg, wParam, lParam );
1214 switch (uMsg)
1217 case DTM_GETSYSTEMTIME:
1218 return DATETIME_GetSystemTime (hwnd, wParam, lParam);
1220 case DTM_SETSYSTEMTIME:
1221 return DATETIME_SetSystemTime (hwnd, wParam, lParam);
1223 case DTM_GETRANGE:
1224 return DATETIME_GetRange(hwnd, lParam);
1226 case DTM_SETRANGE:
1227 return DATETIME_SetRange(hwnd, wParam, lParam);
1229 case DTM_SETFORMATA:
1230 return DATETIME_SetFormat (hwnd, wParam, lParam);
1232 case DTM_SETFORMATW:
1233 return DATETIME_SetFormatW (hwnd, wParam, lParam);
1235 case DTM_SETMCCOLOR:
1236 return DATETIME_SetMonthCalColor (hwnd, wParam, lParam);
1238 case DTM_GETMCCOLOR:
1239 return DATETIME_GetMonthCalColor (hwnd, wParam);
1241 case DTM_GETMONTHCAL:
1242 return DATETIME_GetMonthCal (hwnd);
1244 case DTM_SETMCFONT:
1245 return DATETIME_SetMonthCalFont (hwnd, wParam, lParam);
1247 case DTM_GETMCFONT:
1248 return DATETIME_GetMonthCalFont (hwnd);
1250 case WM_PARENTNOTIFY:
1251 return DATETIME_ParentNotify (hwnd, wParam, lParam);
1253 case WM_NOTIFY:
1254 return DATETIME_Notify (hwnd, wParam, lParam);
1256 case WM_GETDLGCODE:
1257 return DLGC_WANTARROWS | DLGC_WANTCHARS;
1259 case WM_PAINT:
1260 return DATETIME_Paint (hwnd, wParam);
1262 case WM_KEYDOWN:
1263 return DATETIME_KeyDown (hwnd, wParam, lParam);
1265 case WM_KILLFOCUS:
1266 return DATETIME_KillFocus (hwnd, wParam, lParam);
1268 case WM_SETFOCUS:
1269 return DATETIME_SetFocus (hwnd, wParam, lParam);
1271 case WM_SIZE:
1272 return DATETIME_Size (hwnd, wParam, lParam);
1274 case WM_LBUTTONDOWN:
1275 return DATETIME_LButtonDown (hwnd, wParam, lParam);
1277 case WM_LBUTTONUP:
1278 return DATETIME_LButtonUp (hwnd, wParam, lParam);
1280 case WM_CREATE:
1281 return DATETIME_Create (hwnd, wParam, lParam);
1283 case WM_DESTROY:
1284 return DATETIME_Destroy (hwnd, wParam, lParam);
1286 default:
1287 if ((uMsg >= WM_USER) && (uMsg < WM_APP))
1288 ERR("unknown msg %04x wp=%08x lp=%08lx\n",
1289 uMsg, wParam, lParam);
1290 return DefWindowProcA (hwnd, uMsg, wParam, lParam);
1292 return 0;
1296 VOID
1297 DATETIME_Register (void)
1299 WNDCLASSA wndClass;
1301 TRACE("\n");
1302 ZeroMemory (&wndClass, sizeof(WNDCLASSA));
1303 wndClass.style = CS_GLOBALCLASS;
1304 wndClass.lpfnWndProc = (WNDPROC)DATETIME_WindowProc;
1305 wndClass.cbClsExtra = 0;
1306 wndClass.cbWndExtra = sizeof(DATETIME_INFO *);
1307 wndClass.hCursor = LoadCursorA (0, IDC_ARROWA);
1308 wndClass.hbrBackground = (HBRUSH)(COLOR_WINDOW + 1);
1309 wndClass.lpszClassName = DATETIMEPICK_CLASSA;
1311 RegisterClassA (&wndClass);
1315 VOID
1316 DATETIME_Unregister (void)
1318 TRACE("\n");
1319 UnregisterClassA (DATETIMEPICK_CLASSA, (HINSTANCE)NULL);