2 * Date and time picker control
4 * Copyright 1998, 1999 Eric Kohl
5 * Copyright 1999, 2000 Alex Priem <alexp@sci.kun.nl>
6 * Copyright 2000 Chris Morgan <cmorgan@wpi.edu>
8 * This library is free software; you can redistribute it and/or
9 * modify it under the terms of the GNU Lesser General Public
10 * License as published by the Free Software Foundation; either
11 * version 2.1 of the License, or (at your option) any later version.
13 * This library is distributed in the hope that it will be useful,
14 * but WITHOUT ANY WARRANTY; without even the implied warranty of
15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
16 * Lesser General Public License for more details.
18 * You should have received a copy of the GNU Lesser General Public
19 * License along with this library; if not, write to the Free Software
20 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
24 * - All notifications.
40 #include "wine/debug.h"
42 WINE_DEFAULT_DEBUG_CHANNEL(datetime
);
52 RECT rcClient
; /* rect around the edge of the window */
53 RECT rcDraw
; /* rect inside of the border */
54 RECT checkbox
; /* checkbox allowing the control to be enabled/disabled */
55 RECT calbutton
; /* button that toggles the dropdown of the monthcal control */
56 BOOL bCalDepressed
; /* TRUE = cal button is depressed */
59 int nrFieldsAllocated
;
67 } DATETIME_INFO
, *LPDATETIME_INFO
;
70 extern int MONTHCAL_MonthLength(int month
, int year
);
72 /* this list of defines is closely related to `allowedformatchars' defined
73 * in datetime.c; the high nibble indicates the `base type' of the format
75 * Do not change without first reading DATETIME_UseFormat.
79 #define DT_END_FORMAT 0
80 #define ONEDIGITDAY 0x01
81 #define TWODIGITDAY 0x02
82 #define THREECHARDAY 0x03
84 #define ONEDIGIT12HOUR 0x11
85 #define TWODIGIT12HOUR 0x12
86 #define ONEDIGIT24HOUR 0x21
87 #define TWODIGIT24HOUR 0x22
88 #define ONEDIGITMINUTE 0x31
89 #define TWODIGITMINUTE 0x32
90 #define ONEDIGITMONTH 0x41
91 #define TWODIGITMONTH 0x42
92 #define THREECHARMONTH 0x43
93 #define FULLMONTH 0x44
94 #define ONEDIGITSECOND 0x51
95 #define TWODIGITSECOND 0x52
96 #define ONELETTERAMPM 0x61
97 #define TWOLETTERAMPM 0x62
98 #define ONEDIGITYEAR 0x71
99 #define TWODIGITYEAR 0x72
100 #define INVALIDFULLYEAR 0x73 /* FIXME - yyy is not valid - we'll treat it as yyyy */
101 #define FULLYEAR 0x74
102 #define FORMATCALLBACK 0x81 /* -> maximum of 0x80 callbacks possible */
103 #define FORMATCALLMASK 0x80
104 #define DT_STRING 0x0100
106 #define DTHT_DATEFIELD 0xff /* for hit-testing */
109 #define DTHT_CHECKBOX 0x200 /* these should end at '00' , to make */
110 #define DTHT_MCPOPUP 0x300 /* & DTHT_DATEFIELD 0 when DATETIME_KeyDown */
111 #define DTHT_GOTFOCUS 0x400 /* tests for date-fields */
113 #define DATETIME_GetInfoPtr(hwnd) ((DATETIME_INFO *)GetWindowLongA (hwnd, 0))
115 static BOOL
DATETIME_SendSimpleNotify (HWND hwnd
, UINT code
);
116 static BOOL
DATETIME_SendDateTimeChangeNotify (HWND hwnd
);
117 extern void MONTHCAL_CopyTime(const SYSTEMTIME
*from
, SYSTEMTIME
*to
);
118 static const char *allowedformatchars
= {"dhHmMstyX'"};
119 static const int maxrepetition
[] = {4,2,2,2,4,2,2,4,-1,-1};
123 DATETIME_GetSystemTime (HWND hwnd
, WPARAM wParam
, LPARAM lParam
)
125 DATETIME_INFO
*infoPtr
= DATETIME_GetInfoPtr (hwnd
);
126 DWORD dwStyle
= GetWindowLongA (hwnd
, GWL_STYLE
);
127 SYSTEMTIME
*lprgSysTimeArray
=(SYSTEMTIME
*) lParam
;
129 TRACE("%04x %08lx\n",wParam
,lParam
);
130 if (!lParam
) return GDT_NONE
;
132 if ((dwStyle
& DTS_SHOWNONE
) &&
133 (SendMessageA (infoPtr
->hwndCheckbut
, BM_GETCHECK
, 0, 0) == BST_UNCHECKED
))
136 MONTHCAL_CopyTime (&infoPtr
->date
, lprgSysTimeArray
);
143 DATETIME_SetSystemTime (HWND hwnd
, WPARAM wParam
, LPARAM lParam
)
145 DATETIME_INFO
*infoPtr
= DATETIME_GetInfoPtr (hwnd
);
146 SYSTEMTIME
*lprgSysTimeArray
=(SYSTEMTIME
*) lParam
;
148 TRACE("%p %04x %08lx\n",hwnd
, wParam
, lParam
);
149 if (!lParam
) return 0;
151 TRACE("%04d/%02d/%02d %02d:%02d:%02d\n",
152 lprgSysTimeArray
->wYear
, lprgSysTimeArray
->wMonth
, lprgSysTimeArray
->wDay
,
153 lprgSysTimeArray
->wHour
, lprgSysTimeArray
->wMinute
, lprgSysTimeArray
->wSecond
);
155 if (wParam
==GDT_VALID
) {
156 infoPtr
->dateValid
= TRUE
;
157 MONTHCAL_CopyTime (lprgSysTimeArray
, &infoPtr
->date
);
158 SendMessageA(infoPtr
->hMonthCal
, MCM_SETCURSEL
, 0, (LPARAM
)(&infoPtr
->date
));
159 SendMessageA (infoPtr
->hwndCheckbut
, BM_SETCHECK
, BST_CHECKED
, 0);
160 } else if (wParam
==GDT_NONE
) {
161 infoPtr
->dateValid
= FALSE
;
162 SendMessageA (infoPtr
->hwndCheckbut
, BM_SETCHECK
, BST_UNCHECKED
, 0);
164 InvalidateRect(hwnd
, NULL
, TRUE
);
170 DATETIME_GetRange (HWND hwnd
, LPARAM lParam
)
172 DATETIME_INFO
*infoPtr
= DATETIME_GetInfoPtr (hwnd
);
175 TRACE("%08lx\n", lParam
);
176 ret
= SendMessageA (infoPtr
->hMonthCal
, MCM_GETRANGE
, 0, lParam
);
177 if (!ret
) ret
= 1; /* bug emulation... */
182 DATETIME_SetRange (HWND hwnd
, WPARAM wParam
, LPARAM lParam
)
184 DATETIME_INFO
*infoPtr
= DATETIME_GetInfoPtr (hwnd
);
186 TRACE("%04x %08lx\n",wParam
,lParam
);
188 return SendMessageA (infoPtr
->hMonthCal
, MCM_SETRANGE
, wParam
, lParam
);
192 DATETIME_GetMonthCalColor (HWND hwnd
, WPARAM wParam
)
194 DATETIME_INFO
*infoPtr
= DATETIME_GetInfoPtr (hwnd
);
196 TRACE("%04x\n",wParam
);
197 return SendMessageA (infoPtr
->hMonthCal
, MCM_GETCOLOR
, wParam
, 0);
202 DATETIME_SetMonthCalColor (HWND hwnd
, WPARAM wParam
, LPARAM lParam
)
204 DATETIME_INFO
*infoPtr
= DATETIME_GetInfoPtr (hwnd
);
206 TRACE("%04x %08lx\n",wParam
,lParam
);
207 return SendMessageA (infoPtr
->hMonthCal
, MCM_SETCOLOR
, wParam
, lParam
);
211 /* FIXME: need to get way to force font into monthcal structure */
213 DATETIME_GetMonthCal (HWND hwnd
)
215 DATETIME_INFO
*infoPtr
= DATETIME_GetInfoPtr (hwnd
);
218 return (LRESULT
)infoPtr
->hMonthCal
;
223 /* FIXME: need to get way to force font into monthcal structure */
226 DATETIME_GetMonthCalFont (HWND hwnd
)
235 DATETIME_SetMonthCalFont (HWND hwnd
, WPARAM wParam
, LPARAM lParam
)
238 TRACE("%04x %08lx\n",wParam
,lParam
);
244 Split up a formattxt in actions.
245 See ms documentation for the meaning of the letter codes/'specifiers'.
248 *'dddddd' is handled as 'dddd' plus 'dd'.
249 *unrecognized formats are strings (here given the type DT_STRING;
250 start of the string is encoded in lower bits of DT_STRING.
251 Therefore, 'string' ends finally up as '<show seconds>tring'.
257 DATETIME_UseFormat (DATETIME_INFO
*infoPtr
, const char *formattxt
)
260 int *nrFields
=& infoPtr
->nrFields
;
262 TRACE ("%s\n",formattxt
);
266 infoPtr
->fieldspec
[*nrFields
]=0;
267 len
=strlen(allowedformatchars
);
270 for (i
=0; i
<strlen (formattxt
); i
++) {
271 TRACE ("\n%d %c:",i
, formattxt
[i
]);
272 for (j
=0; j
<len
; j
++) {
273 if (allowedformatchars
[j
]==formattxt
[i
]) {
274 TRACE ("%c[%d,%x]",allowedformatchars
[j
], *nrFields
,
275 infoPtr
->fieldspec
[*nrFields
]);
276 if ((*nrFields
==0) && (infoPtr
->fieldspec
[*nrFields
]==0)) {
277 infoPtr
->fieldspec
[*nrFields
]=(j
<<4) +1;
280 if (infoPtr
->fieldspec
[*nrFields
]>>4!=j
) {
282 infoPtr
->fieldspec
[*nrFields
]=(j
<<4) +1;
285 if ((infoPtr
->fieldspec
[*nrFields
] & 0x0f)==maxrepetition
[j
]) {
287 infoPtr
->fieldspec
[*nrFields
]=(j
<<4) +1;
290 infoPtr
->fieldspec
[*nrFields
]++;
292 } /* if allowedformatchar */
296 /* char is not a specifier: handle char like a string */
298 if ((*nrFields
==0) && (infoPtr
->fieldspec
[*nrFields
]==0)) {
299 infoPtr
->fieldspec
[*nrFields
]=DT_STRING
+k
;
300 infoPtr
->buflen
[*nrFields
]=0;
302 if ((infoPtr
->fieldspec
[*nrFields
] & DT_STRING
)!=DT_STRING
) {
304 infoPtr
->fieldspec
[*nrFields
]=DT_STRING
+k
;
305 infoPtr
->buflen
[*nrFields
]=0;
307 infoPtr
->textbuf
[k
]=formattxt
[i
];
309 infoPtr
->buflen
[*nrFields
]++;
312 if (*nrFields
==infoPtr
->nrFieldsAllocated
) {
313 FIXME ("out of memory; should reallocate. crash ahead.\n");
320 if (infoPtr
->fieldspec
[*nrFields
]!=0) (*nrFields
)++;
325 DATETIME_SetFormat (HWND hwnd
, WPARAM wParam
, LPARAM lParam
)
327 DATETIME_INFO
*infoPtr
= DATETIME_GetInfoPtr (hwnd
);
331 TRACE("%04x %08lx\n",wParam
,lParam
);
333 DWORD dwStyle
= GetWindowLongA (hwnd
, GWL_STYLE
);
335 if (dwStyle
& DTS_LONGDATEFORMAT
)
336 format_item
=LOCALE_SLONGDATE
;
337 else if (dwStyle
& DTS_TIMEFORMAT
)
338 format_item
=LOCALE_STIMEFORMAT
;
339 else /* DTS_SHORTDATEFORMAT */
340 format_item
=LOCALE_SSHORTDATE
;
341 GetLocaleInfoA( GetSystemDefaultLCID(), format_item
,format_buf
,sizeof(format_buf
));
342 DATETIME_UseFormat (infoPtr
, format_buf
);
345 DATETIME_UseFormat (infoPtr
, (char *) lParam
);
347 return infoPtr
->nrFields
;
352 DATETIME_SetFormatW (HWND hwnd
, WPARAM wParam
, LPARAM lParam
)
355 TRACE("%04x %08lx\n",wParam
,lParam
);
359 int len
= WideCharToMultiByte( CP_ACP
, 0, (LPWSTR
)lParam
, -1, NULL
, 0, NULL
, NULL
);
361 buf
= (LPSTR
) Alloc (len
);
362 WideCharToMultiByte( CP_ACP
, 0, (LPWSTR
)lParam
, -1, buf
, len
, NULL
, NULL
);
363 retval
=DATETIME_SetFormat (hwnd
, 0, (LPARAM
) buf
);
368 return DATETIME_SetFormat (hwnd
, 0, 0);
374 DATETIME_ReturnTxt (DATETIME_INFO
*infoPtr
, int count
, char *result
, int resultSize
)
376 SYSTEMTIME date
= infoPtr
->date
;
381 TRACE ("%d,%d\n", infoPtr
->nrFields
, count
);
382 if ((count
>infoPtr
->nrFields
) || (count
<0)) {
383 WARN ("buffer overrun, have %d want %d\n", infoPtr
->nrFields
, count
);
387 if (!infoPtr
->fieldspec
) return;
389 spec
=infoPtr
->fieldspec
[count
];
390 if (spec
& DT_STRING
) {
391 int txtlen
=infoPtr
->buflen
[count
];
393 if (txtlen
> resultSize
)
394 txtlen
= resultSize
- 1;
395 memcpy (result
, infoPtr
->textbuf
+ (spec
&~ DT_STRING
), txtlen
);
397 TRACE ("arg%d=%x->[%s]\n",count
,infoPtr
->fieldspec
[count
],result
);
407 sprintf (result
,"%d",date
.wDay
);
410 sprintf (result
,"%.2d",date
.wDay
);
413 GetLocaleInfoA( LOCALE_USER_DEFAULT
, LOCALE_SABBREVDAYNAME1
+(date
.wDayOfWeek
+6)%7,
415 /*sprintf (result,"%.3s",days[date.wDayOfWeek]);*/
418 GetLocaleInfoA( LOCALE_USER_DEFAULT
,LOCALE_SDAYNAME1
+ (date
.wDayOfWeek
+6)%7,
423 sprintf (result
,"%d",date
.wHour
-12);
425 sprintf (result
,"%d",date
.wHour
);
429 sprintf (result
,"%.2d",date
.wHour
-12);
431 sprintf (result
,"%.2d",date
.wHour
);
434 sprintf (result
,"%d",date
.wHour
);
437 sprintf (result
,"%.2d",date
.wHour
);
440 sprintf (result
,"%d",date
.wSecond
);
443 sprintf (result
,"%.2d",date
.wSecond
);
446 sprintf (result
,"%d",date
.wMinute
);
449 sprintf (result
,"%.2d",date
.wMinute
);
452 sprintf (result
,"%d",date
.wMonth
);
455 sprintf (result
,"%.2d",date
.wMonth
);
458 GetLocaleInfoA( GetSystemDefaultLCID(),LOCALE_SMONTHNAME1
+date
.wMonth
-1,
459 buffer
,sizeof(buffer
));
460 sprintf (result
,"%.3s",buffer
);
463 GetLocaleInfoA( GetSystemDefaultLCID(),LOCALE_SMONTHNAME1
+date
.wMonth
-1,
474 strcpy (result
,"AM");
476 strcpy (result
,"PM");
479 FIXME ("Not implemented\n");
480 strcpy (result
,"xxx");
483 sprintf (result
,"%d",date
.wYear
-10* (int) floor(date
.wYear
/10));
486 sprintf (result
,"%.2d",date
.wYear
-100* (int) floor(date
.wYear
/100));
488 case INVALIDFULLYEAR
:
490 sprintf (result
,"%d",date
.wYear
);
494 TRACE ("arg%d=%x->[%s]\n",count
,infoPtr
->fieldspec
[count
],result
);
499 DATETIME_IncreaseField (DATETIME_INFO
*infoPtr
, int number
)
501 SYSTEMTIME
*date
= &infoPtr
->date
;
504 TRACE ("%d\n",number
);
505 if ((number
>infoPtr
->nrFields
) || (number
<0)) return;
507 spec
=infoPtr
->fieldspec
[number
];
508 if ((spec
& DTHT_DATEFIELD
)==0) return;
516 if (date
->wDay
>MONTHCAL_MonthLength(date
->wMonth
,date
->wYear
))
524 if (date
->wHour
>23) date
->wHour
=0;
529 if (date
->wSecond
>59) date
->wSecond
=0;
534 if (date
->wMinute
>59) date
->wMinute
=0;
541 if (date
->wMonth
>12) date
->wMonth
=1;
542 if (date
->wDay
>MONTHCAL_MonthLength(date
->wMonth
,date
->wYear
))
543 date
->wDay
=MONTHCAL_MonthLength(date
->wMonth
,date
->wYear
);
548 if (date
->wHour
>23) date
->wHour
-=24;
551 FIXME ("Not implemented\n");
564 DATETIME_DecreaseField (DATETIME_INFO
*infoPtr
, int number
)
566 SYSTEMTIME
*date
= & infoPtr
->date
;
569 TRACE ("%d\n",number
);
570 if ((number
>infoPtr
->nrFields
) || (number
<0)) return;
572 spec
= infoPtr
->fieldspec
[number
];
573 if ((spec
& DTHT_DATEFIELD
)==0) return;
584 date
->wDay
=MONTHCAL_MonthLength(date
->wMonth
,date
->wYear
);
617 if (date
->wDay
>MONTHCAL_MonthLength(date
->wMonth
,date
->wYear
))
618 date
->wDay
=MONTHCAL_MonthLength(date
->wMonth
,date
->wYear
);
628 FIXME ("Not implemented\n");
641 DATETIME_ResetFieldDown (DATETIME_INFO
*infoPtr
, int number
)
643 SYSTEMTIME
*date
= &infoPtr
->date
;
646 TRACE ("%d\n",number
);
647 if ((number
>infoPtr
->nrFields
) || (number
<0)) return;
649 spec
= infoPtr
->fieldspec
[number
];
650 if ((spec
& DTHT_DATEFIELD
)==0) return;
682 FIXME ("Not implemented\n");
686 /* FYI: On 1752/9/14 the calendar changed and England and the
687 * American colonies changed to the Gregorian calendar. This change
688 * involved having September 14th follow September 2nd. So no date
689 * algorithm works before that date.
695 date
->wDay
= 14; /* overactive ms-programmers..*/
705 DATETIME_ResetFieldUp (DATETIME_INFO
*infoPtr
, int number
)
707 SYSTEMTIME
*date
= & infoPtr
->date
;
710 TRACE("%d \n",number
);
711 if ((number
>infoPtr
->nrFields
) || (number
<0)) return;
713 spec
=infoPtr
->fieldspec
[number
];
714 if ((spec
& DTHT_DATEFIELD
)==0) return;
721 date
->wDay
=MONTHCAL_MonthLength(date
->wMonth
,date
->wYear
);
745 FIXME ("Not implemented\n");
750 date
->wYear
=9999; /* Y10K problem? naaah. */
757 static void DATETIME_Refresh (HWND hwnd
, HDC hdc
)
760 DATETIME_INFO
*infoPtr
= DATETIME_GetInfoPtr (hwnd
);
763 DWORD dwStyle
= GetWindowLongA (hwnd
, GWL_STYLE
);
764 RECT
*rcDraw
= &infoPtr
->rcDraw
;
765 RECT
*rcClient
= &infoPtr
->rcClient
;
766 RECT
*calbutton
= &infoPtr
->calbutton
;
767 RECT
*checkbox
= &infoPtr
->checkbox
;
770 COLORREF oldBk
, oldTextColor
;
772 /* draw control edge */
774 hbr
= CreateSolidBrush(RGB(255, 255, 255));
775 FillRect(hdc
, rcClient
, hbr
);
776 DrawEdge(hdc
, rcClient
, EDGE_SUNKEN
, BF_RECT
);
779 if (infoPtr
->dateValid
) {
782 oldFont
= SelectObject (hdc
, infoPtr
->hFont
);
784 DATETIME_ReturnTxt (infoPtr
, 0, txt
, sizeof(txt
));
785 GetTextExtentPoint32A (hdc
, txt
, strlen (txt
), &size
);
786 rcDraw
->bottom
= size
.cy
+2;
788 if (dwStyle
& DTS_SHOWNONE
)
789 checkbox
->right
= 18;
792 prevright
= checkbox
->right
;
794 for (i
=0; i
<infoPtr
->nrFields
; i
++) {
795 DATETIME_ReturnTxt (infoPtr
, i
, txt
, sizeof(txt
));
796 GetTextExtentPoint32A (hdc
, txt
, strlen (txt
), &size
);
797 field
= & infoPtr
->fieldRect
[i
];
798 field
->left
= prevright
;
799 field
->right
= prevright
+size
.cx
;
800 field
->top
= rcDraw
->top
;
801 field
->bottom
= rcDraw
->bottom
;
802 prevright
= field
->right
;
804 if ((infoPtr
->haveFocus
) && (i
==infoPtr
->select
)) {
805 hbr
= CreateSolidBrush (GetSysColor (COLOR_ACTIVECAPTION
));
806 FillRect(hdc
, field
, hbr
);
807 oldBk
= SetBkColor (hdc
, GetSysColor(COLOR_ACTIVECAPTION
));
808 oldTextColor
= SetTextColor (hdc
, GetSysColor(COLOR_WINDOW
));
810 DrawTextA ( hdc
, txt
, strlen(txt
), field
,
811 DT_RIGHT
| DT_VCENTER
| DT_SINGLELINE
);
812 SetBkColor (hdc
, oldBk
);
813 SetTextColor (hdc
, oldTextColor
);
816 DrawTextA ( hdc
, txt
, strlen(txt
), field
,
817 DT_RIGHT
| DT_VCENTER
| DT_SINGLELINE
);
820 SelectObject (hdc
, oldFont
);
823 if (!(dwStyle
& DTS_UPDOWN
)) {
824 DrawFrameControl(hdc
, calbutton
, DFC_SCROLL
,
825 DFCS_SCROLLDOWN
| (infoPtr
->bCalDepressed
? DFCS_PUSHED
: 0) |
826 (dwStyle
& WS_DISABLED
? DFCS_INACTIVE
: 0) );
832 DATETIME_HitTest (HWND hwnd
, DATETIME_INFO
*infoPtr
, POINT pt
)
836 TRACE ("%ld, %ld\n",pt
.x
,pt
.y
);
839 if (PtInRect (&infoPtr
->calbutton
, pt
))
840 {retval
= DTHT_MCPOPUP
; TRACE("Hit in calbutton(DTHT_MCPOPUP)\n"); goto done
; }
841 if (PtInRect (&infoPtr
->checkbox
, pt
))
842 {retval
= DTHT_CHECKBOX
; TRACE("Hit in checkbox(DTHT_CHECKBOX)\n"); goto done
; }
844 for (i
=0; i
<infoPtr
->nrFields
; i
++) {
845 if (PtInRect (&infoPtr
->fieldRect
[i
], pt
)) {
847 TRACE("Hit in date text in field %d\n", i
);
858 DATETIME_LButtonDown (HWND hwnd
, WPARAM wParam
, LPARAM lParam
)
860 DATETIME_INFO
*infoPtr
= DATETIME_GetInfoPtr (hwnd
);
861 DWORD dwStyle
= GetWindowLongA (hwnd
, GWL_STYLE
);
867 old
= infoPtr
->select
;
868 pt
.x
= (INT
)LOWORD(lParam
);
869 pt
.y
= (INT
)HIWORD(lParam
);
871 new = DATETIME_HitTest (hwnd
, infoPtr
, pt
);
873 /* FIXME: might be conditions where we don't want to update infoPtr->select */
874 infoPtr
->select
= new;
876 if (infoPtr
->select
!= old
) {
877 infoPtr
->haveFocus
= DTHT_GOTFOCUS
;
880 if (infoPtr
->select
== DTHT_MCPOPUP
) {
881 /* FIXME: button actually is only depressed during dropdown of the */
882 /* calendar control and when the mouse is over the button window */
883 infoPtr
->bCalDepressed
= TRUE
;
885 /* recalculate the position of the monthcal popup */
886 if(dwStyle
& DTS_RIGHTALIGN
)
887 infoPtr
->monthcal_pos
.x
= infoPtr
->rcClient
.right
- ((infoPtr
->calbutton
.right
-
888 infoPtr
->calbutton
.left
) + 200);
890 infoPtr
->monthcal_pos
.x
= 8;
892 infoPtr
->monthcal_pos
.y
= infoPtr
->rcClient
.bottom
;
893 ClientToScreen (hwnd
, &(infoPtr
->monthcal_pos
));
894 /* FIXME My Windoze has cx=about 200, but it probably depends on font size etc */
895 SetWindowPos(infoPtr
->hMonthCal
, 0, infoPtr
->monthcal_pos
.x
,
896 infoPtr
->monthcal_pos
.y
, 200, 150, 0);
898 if(IsWindowVisible(infoPtr
->hMonthCal
))
899 ShowWindow(infoPtr
->hMonthCal
, SW_HIDE
);
901 SYSTEMTIME
*lprgSysTimeArray
= &infoPtr
->date
;
902 TRACE("update calendar %04d/%02d/%02d\n",
903 lprgSysTimeArray
->wYear
, lprgSysTimeArray
->wMonth
, lprgSysTimeArray
->wDay
);
904 SendMessageA(infoPtr
->hMonthCal
, MCM_SETCURSEL
, 0, (LPARAM
)(&infoPtr
->date
));
905 ShowWindow(infoPtr
->hMonthCal
, SW_SHOW
);
908 TRACE ("dt:%p mc:%p mc parent:%p, desktop:%p\n",
909 hwnd
, infoPtr
->hMonthCal
, infoPtr
->hwndNotify
, GetDesktopWindow ());
910 DATETIME_SendSimpleNotify (hwnd
, DTN_DROPDOWN
);
913 InvalidateRect(hwnd
, NULL
, FALSE
);
920 DATETIME_LButtonUp (HWND hwnd
, WPARAM wParam
, LPARAM lParam
)
922 DATETIME_INFO
*infoPtr
= DATETIME_GetInfoPtr (hwnd
);
926 if(infoPtr
->bCalDepressed
== TRUE
) {
927 infoPtr
->bCalDepressed
= FALSE
;
928 InvalidateRect(hwnd
, &(infoPtr
->calbutton
), TRUE
);
936 DATETIME_Paint (HWND hwnd
, WPARAM wParam
)
941 hdc
= wParam
==0 ? BeginPaint (hwnd
, &ps
) : (HDC
)wParam
;
942 DATETIME_Refresh (hwnd
, hdc
);
944 EndPaint (hwnd
, &ps
);
950 DATETIME_Button_Command (HWND hwnd
, WPARAM wParam
, LPARAM lParam
)
952 DATETIME_INFO
*infoPtr
= DATETIME_GetInfoPtr(hwnd
);
954 switch(HIWORD(wParam
)) {
957 DWORD state
= SendMessageA((HWND
)lParam
, BM_GETCHECK
, 0, 0);
958 if(state
== BST_CHECKED
)
959 infoPtr
->dateValid
= TRUE
;
961 infoPtr
->dateValid
= FALSE
;
962 InvalidateRect(hwnd
, NULL
, TRUE
);
973 DATETIME_Command (HWND hwnd
, WPARAM wParam
, LPARAM lParam
)
975 DATETIME_INFO
*infoPtr
= DATETIME_GetInfoPtr(hwnd
);
977 TRACE("%08x %08lx\n", wParam
, lParam
);
978 TRACE("hwndbutton = %p\n", infoPtr
->hwndCheckbut
);
979 if(infoPtr
->hwndCheckbut
== (HWND
)lParam
)
980 return DATETIME_Button_Command(hwnd
, wParam
, lParam
);
985 DATETIME_ParentNotify (HWND hwnd
, WPARAM wParam
, LPARAM lParam
)
987 DATETIME_INFO
*infoPtr
= DATETIME_GetInfoPtr (hwnd
);
988 LPNMHDR lpnmh
= (LPNMHDR
) lParam
;
990 TRACE ("%x,%lx\n",wParam
, lParam
);
991 TRACE ("Got notification %x from %p\n", lpnmh
->code
, lpnmh
->hwndFrom
);
992 TRACE ("info: %p %p %p\n",hwnd
,infoPtr
->hMonthCal
,infoPtr
->hUpdown
);
998 DATETIME_Notify (HWND hwnd
, WPARAM wParam
, LPARAM lParam
)
1001 DATETIME_INFO
*infoPtr
= DATETIME_GetInfoPtr (hwnd
);
1002 LPNMHDR lpnmh
= (LPNMHDR
) lParam
;
1004 TRACE ("%x,%lx\n",wParam
, lParam
);
1005 TRACE ("Got notification %x from %p\n", lpnmh
->code
, lpnmh
->hwndFrom
);
1006 TRACE ("info: %p %p %p\n",hwnd
,infoPtr
->hMonthCal
,infoPtr
->hUpdown
);
1008 if (lpnmh
->code
==MCN_SELECT
) {
1009 ShowWindow(infoPtr
->hMonthCal
, SW_HIDE
);
1010 infoPtr
->dateValid
= TRUE
;
1011 SendMessageA (infoPtr
->hMonthCal
, MCM_GETCURSEL
, 0, (LPARAM
)&infoPtr
->date
);
1012 TRACE("got from calendar %04d/%02d/%02d\n",
1013 infoPtr
->date
.wYear
, infoPtr
->date
.wMonth
, infoPtr
->date
.wDay
);
1014 SendMessageA (infoPtr
->hwndCheckbut
, BM_SETCHECK
, BST_CHECKED
, 0);
1015 InvalidateRect(hwnd
, NULL
, TRUE
);
1016 DATETIME_SendDateTimeChangeNotify (hwnd
);
1023 DATETIME_KeyDown (HWND hwnd
, WPARAM wParam
, LPARAM lParam
)
1025 DATETIME_INFO
*infoPtr
= DATETIME_GetInfoPtr (hwnd
);
1026 int FieldNum
,wrap
=0;
1028 TRACE("%x %lx %x\n",wParam
, lParam
, infoPtr
->select
);
1030 FieldNum
= infoPtr
->select
& DTHT_DATEFIELD
;
1032 if (!(infoPtr
->haveFocus
)) return 0;
1033 if ((FieldNum
==0) && (infoPtr
->select
)) return 0;
1035 if (infoPtr
->select
& FORMATCALLMASK
) {
1036 FIXME ("Callbacks not implemented yet\n");
1042 DATETIME_IncreaseField (infoPtr
,FieldNum
);
1043 DATETIME_SendDateTimeChangeNotify (hwnd
);
1047 DATETIME_DecreaseField (infoPtr
,FieldNum
);
1048 DATETIME_SendDateTimeChangeNotify (hwnd
);
1051 DATETIME_ResetFieldDown (infoPtr
,FieldNum
);
1052 DATETIME_SendDateTimeChangeNotify (hwnd
);
1055 DATETIME_ResetFieldUp(infoPtr
,FieldNum
);
1056 DATETIME_SendDateTimeChangeNotify (hwnd
);
1060 if (infoPtr
->select
==0) {
1061 infoPtr
->select
= infoPtr
->nrFields
- 1;
1066 while ((infoPtr
->fieldspec
[infoPtr
->select
] & DT_STRING
) && (wrap
<2));
1071 if (infoPtr
->select
==infoPtr
->nrFields
) {
1072 infoPtr
->select
= 0;
1076 while ((infoPtr
->fieldspec
[infoPtr
->select
] & DT_STRING
) && (wrap
<2));
1080 InvalidateRect(hwnd
, NULL
, FALSE
);
1087 DATETIME_KillFocus (HWND hwnd
, WPARAM wParam
, LPARAM lParam
)
1089 DATETIME_INFO
*infoPtr
= DATETIME_GetInfoPtr (hwnd
);
1093 if (infoPtr
->haveFocus
) {
1094 DATETIME_SendSimpleNotify (hwnd
, NM_KILLFOCUS
);
1095 infoPtr
->haveFocus
= 0;
1098 InvalidateRect (hwnd
, NULL
, TRUE
);
1105 DATETIME_SetFocus (HWND hwnd
, WPARAM wParam
, LPARAM lParam
)
1107 DATETIME_INFO
*infoPtr
= DATETIME_GetInfoPtr (hwnd
);
1111 if (infoPtr
->haveFocus
==0) {
1112 DATETIME_SendSimpleNotify (hwnd
, NM_SETFOCUS
);
1113 infoPtr
->haveFocus
= DTHT_GOTFOCUS
;
1116 InvalidateRect(hwnd
, NULL
, FALSE
);
1123 DATETIME_SendDateTimeChangeNotify (HWND hwnd
)
1126 DATETIME_INFO
*infoPtr
= DATETIME_GetInfoPtr (hwnd
);
1127 NMDATETIMECHANGE dtdtc
;
1130 dtdtc
.nmhdr
.hwndFrom
= hwnd
;
1131 dtdtc
.nmhdr
.idFrom
= GetWindowLongA( hwnd
, GWL_ID
);
1132 dtdtc
.nmhdr
.code
= DTN_DATETIMECHANGE
;
1134 if ((GetWindowLongA (hwnd
, GWL_STYLE
) & DTS_SHOWNONE
))
1135 dtdtc
.dwFlags
= GDT_NONE
;
1137 dtdtc
.dwFlags
= GDT_VALID
;
1139 MONTHCAL_CopyTime (&infoPtr
->date
, &dtdtc
.st
);
1140 return (BOOL
) SendMessageA (infoPtr
->hwndNotify
, WM_NOTIFY
,
1141 (WPARAM
)dtdtc
.nmhdr
.idFrom
, (LPARAM
)&dtdtc
);
1146 DATETIME_SendSimpleNotify (HWND hwnd
, UINT code
)
1148 DATETIME_INFO
*infoPtr
= DATETIME_GetInfoPtr (hwnd
);
1152 nmhdr
.hwndFrom
= hwnd
;
1153 nmhdr
.idFrom
= GetWindowLongA( hwnd
, GWL_ID
);
1156 return (BOOL
) SendMessageA (infoPtr
->hwndNotify
, WM_NOTIFY
,
1157 (WPARAM
)nmhdr
.idFrom
, (LPARAM
)&nmhdr
);
1161 DATETIME_Size (HWND hwnd
, WPARAM wParam
, LPARAM lParam
)
1163 DATETIME_INFO
*infoPtr
= DATETIME_GetInfoPtr(hwnd
);
1164 DWORD dwStyle
= GetWindowLongA(hwnd
, GWL_STYLE
);
1167 infoPtr
->rcClient
.bottom
= HIWORD(lParam
);
1168 infoPtr
->rcClient
.right
= LOWORD(lParam
);
1170 TRACE("Height=%ld, Width=%ld\n", infoPtr
->rcClient
.bottom
, infoPtr
->rcClient
.right
);
1172 /* use DrawEdge to adjust the size of rcEdge to get rcDraw */
1173 memcpy((&infoPtr
->rcDraw
), (&infoPtr
->rcClient
), sizeof(infoPtr
->rcDraw
));
1175 DrawEdge(NULL
, &(infoPtr
->rcDraw
), EDGE_SUNKEN
, BF_RECT
| BF_ADJUST
);
1177 /* set the size of the button that drops the calendar down */
1178 /* FIXME: account for style that allows button on left side */
1179 infoPtr
->calbutton
.top
= infoPtr
->rcDraw
.top
;
1180 infoPtr
->calbutton
.bottom
= infoPtr
->rcDraw
.bottom
;
1181 infoPtr
->calbutton
.left
= infoPtr
->rcDraw
.right
-15;
1182 infoPtr
->calbutton
.right
= infoPtr
->rcDraw
.right
;
1184 /* set enable/disable button size for show none style being enabled */
1185 /* FIXME: these dimensions are completely incorrect */
1186 infoPtr
->checkbox
.top
= infoPtr
->rcDraw
.top
;
1187 infoPtr
->checkbox
.bottom
= infoPtr
->rcDraw
.bottom
;
1188 infoPtr
->checkbox
.left
= infoPtr
->rcDraw
.left
;
1189 infoPtr
->checkbox
.right
= infoPtr
->rcDraw
.left
+ 10;
1191 /* update the position of the monthcal control */
1192 if(dwStyle
& DTS_RIGHTALIGN
)
1193 infoPtr
->monthcal_pos
.x
= infoPtr
->rcClient
.right
- ((infoPtr
->calbutton
.right
-
1194 infoPtr
->calbutton
.left
) + 145);
1196 infoPtr
->monthcal_pos
.x
= 8;
1198 infoPtr
->monthcal_pos
.y
= infoPtr
->rcClient
.bottom
;
1199 ClientToScreen (hwnd
, &(infoPtr
->monthcal_pos
));
1200 SetWindowPos(infoPtr
->hMonthCal
, 0, infoPtr
->monthcal_pos
.x
,
1201 infoPtr
->monthcal_pos
.y
,
1204 InvalidateRect(hwnd
, NULL
, FALSE
);
1211 DATETIME_Create (HWND hwnd
, WPARAM wParam
, LPARAM lParam
)
1213 DATETIME_INFO
*infoPtr
;
1214 DWORD dwStyle
= GetWindowLongA (hwnd
, GWL_STYLE
);
1216 /* allocate memory for info structure */
1217 TRACE("%04x %08lx\n",wParam
,lParam
);
1218 infoPtr
= (DATETIME_INFO
*)Alloc (sizeof(DATETIME_INFO
));
1219 if (infoPtr
== NULL
) {
1220 ERR("could not allocate info memory!\n");
1224 SetWindowLongA (hwnd
, 0, (DWORD
)infoPtr
);
1226 if (dwStyle
& DTS_SHOWNONE
) {
1227 infoPtr
->hwndCheckbut
=CreateWindowExA (0,"button", 0,
1228 WS_CHILD
| WS_VISIBLE
| BS_AUTOCHECKBOX
,
1231 0, (HINSTANCE
)GetWindowLongA (hwnd
, GWL_HINSTANCE
), 0);
1232 SendMessageA (infoPtr
->hwndCheckbut
, BM_SETCHECK
, 1, 0);
1235 if (dwStyle
& DTS_UPDOWN
) {
1236 infoPtr
->hUpdown
=CreateUpDownControl (
1237 WS_CHILD
| WS_BORDER
| WS_VISIBLE
,
1240 UD_MAXVAL
, UD_MINVAL
, 0);
1243 infoPtr
->fieldspec
= (int *) Alloc (32*sizeof(int));
1244 infoPtr
->fieldRect
= (RECT
*) Alloc (32*sizeof(RECT
));
1245 infoPtr
->buflen
= (int *) Alloc (32*sizeof(int));
1246 infoPtr
->nrFieldsAllocated
= 32;
1247 infoPtr
->hwndNotify
= ((LPCREATESTRUCTA
)lParam
)->hwndParent
;
1249 DATETIME_SetFormat (hwnd
, 0, 0);
1251 /* create the monthcal control */
1252 infoPtr
->hMonthCal
= CreateWindowExA (0,"SysMonthCal32", 0,
1253 WS_BORDER
| WS_POPUP
| WS_CLIPSIBLINGS
,
1258 /* initialize info structure */
1259 GetSystemTime (&infoPtr
->date
);
1260 infoPtr
->dateValid
= TRUE
;
1261 infoPtr
->hFont
= GetStockObject(DEFAULT_GUI_FONT
);
1267 DATETIME_Destroy (HWND hwnd
, WPARAM wParam
, LPARAM lParam
)
1269 DATETIME_INFO
*infoPtr
= DATETIME_GetInfoPtr (hwnd
);
1272 if (infoPtr
->hMonthCal
) {
1273 /* FIXME I don't completely understand why doesn't it
1274 * happen automatically, WS_POPUP maybe? */
1275 DestroyWindow(infoPtr
->hMonthCal
);
1276 infoPtr
->hMonthCal
= NULL
;
1279 SetWindowLongA( hwnd
, 0, 0 ); /* clear infoPtr */
1284 static LRESULT WINAPI
1285 DATETIME_WindowProc (HWND hwnd
, UINT uMsg
, WPARAM wParam
, LPARAM lParam
)
1287 if (!DATETIME_GetInfoPtr(hwnd
) && (uMsg
!= WM_CREATE
))
1288 return DefWindowProcA( hwnd
, uMsg
, wParam
, lParam
);
1293 case DTM_GETSYSTEMTIME
:
1294 return DATETIME_GetSystemTime (hwnd
, wParam
, lParam
);
1296 case DTM_SETSYSTEMTIME
:
1297 return DATETIME_SetSystemTime (hwnd
, wParam
, lParam
);
1300 return DATETIME_GetRange(hwnd
, lParam
);
1303 return DATETIME_SetRange(hwnd
, wParam
, lParam
);
1305 case DTM_SETFORMATA
:
1306 return DATETIME_SetFormat (hwnd
, wParam
, lParam
);
1308 case DTM_SETFORMATW
:
1309 return DATETIME_SetFormatW (hwnd
, wParam
, lParam
);
1311 case DTM_SETMCCOLOR
:
1312 return DATETIME_SetMonthCalColor (hwnd
, wParam
, lParam
);
1314 case DTM_GETMCCOLOR
:
1315 return DATETIME_GetMonthCalColor (hwnd
, wParam
);
1317 case DTM_GETMONTHCAL
:
1318 return DATETIME_GetMonthCal (hwnd
);
1321 return DATETIME_SetMonthCalFont (hwnd
, wParam
, lParam
);
1324 return DATETIME_GetMonthCalFont (hwnd
);
1326 case WM_PARENTNOTIFY
:
1327 return DATETIME_ParentNotify (hwnd
, wParam
, lParam
);
1330 return DATETIME_Notify (hwnd
, wParam
, lParam
);
1333 return DLGC_WANTARROWS
| DLGC_WANTCHARS
;
1336 return DATETIME_Paint (hwnd
, wParam
);
1339 return DATETIME_KeyDown (hwnd
, wParam
, lParam
);
1342 return DATETIME_KillFocus (hwnd
, wParam
, lParam
);
1345 return DATETIME_SetFocus (hwnd
, wParam
, lParam
);
1348 return DATETIME_Size (hwnd
, wParam
, lParam
);
1350 case WM_LBUTTONDOWN
:
1351 return DATETIME_LButtonDown (hwnd
, wParam
, lParam
);
1354 return DATETIME_LButtonUp (hwnd
, wParam
, lParam
);
1357 return DATETIME_Create (hwnd
, wParam
, lParam
);
1360 return DATETIME_Destroy (hwnd
, wParam
, lParam
);
1363 return DATETIME_Command (hwnd
, wParam
, lParam
);
1366 if ((uMsg
>= WM_USER
) && (uMsg
< WM_APP
))
1367 ERR("unknown msg %04x wp=%08x lp=%08lx\n",
1368 uMsg
, wParam
, lParam
);
1369 return DefWindowProcA (hwnd
, uMsg
, wParam
, lParam
);
1376 DATETIME_Register (void)
1381 ZeroMemory (&wndClass
, sizeof(WNDCLASSA
));
1382 wndClass
.style
= CS_GLOBALCLASS
;
1383 wndClass
.lpfnWndProc
= (WNDPROC
)DATETIME_WindowProc
;
1384 wndClass
.cbClsExtra
= 0;
1385 wndClass
.cbWndExtra
= sizeof(DATETIME_INFO
*);
1386 wndClass
.hCursor
= LoadCursorA (0, (LPSTR
)IDC_ARROW
);
1387 wndClass
.hbrBackground
= (HBRUSH
)(COLOR_WINDOW
+ 1);
1388 wndClass
.lpszClassName
= DATETIMEPICK_CLASSA
;
1390 RegisterClassA (&wndClass
);
1395 DATETIME_Unregister (void)
1398 UnregisterClassA (DATETIMEPICK_CLASSA
, NULL
);