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.
39 #include "wine/debug.h"
41 WINE_DEFAULT_DEBUG_CHANNEL(datetime
);
50 RECT rcClient
; /* rect around the edge of the window */
51 RECT rcDraw
; /* rect inside of the border */
52 RECT checkbox
; /* checkbox allowing the control to be enabled/disabled */
53 RECT calbutton
; /* button that toggles the dropdown of the monthcal control */
54 BOOL bCalDepressed
; /* TRUE = cal button is depressed */
57 int nrFieldsAllocated
;
65 } DATETIME_INFO
, *LPDATETIME_INFO
;
68 extern int MONTHCAL_MonthLength(int month
, int year
);
70 /* this list of defines is closely related to `allowedformatchars' defined
71 * in datetime.c; the high nibble indicates the `base type' of the format
73 * Do not change without first reading DATETIME_UseFormat.
77 #define DT_END_FORMAT 0
78 #define ONEDIGITDAY 0x01
79 #define TWODIGITDAY 0x02
80 #define THREECHARDAY 0x03
82 #define ONEDIGIT12HOUR 0x11
83 #define TWODIGIT12HOUR 0x12
84 #define ONEDIGIT24HOUR 0x21
85 #define TWODIGIT24HOUR 0x22
86 #define ONEDIGITMINUTE 0x31
87 #define TWODIGITMINUTE 0x32
88 #define ONEDIGITMONTH 0x41
89 #define TWODIGITMONTH 0x42
90 #define THREECHARMONTH 0x43
91 #define FULLMONTH 0x44
92 #define ONEDIGITSECOND 0x51
93 #define TWODIGITSECOND 0x52
94 #define ONELETTERAMPM 0x61
95 #define TWOLETTERAMPM 0x62
96 #define ONEDIGITYEAR 0x71
97 #define TWODIGITYEAR 0x72
98 #define INVALIDFULLYEAR 0x73 /* FIXME - yyy is not valid - we'll treat it as yyyy */
100 #define FORMATCALLBACK 0x81 /* -> maximum of 0x80 callbacks possible */
101 #define FORMATCALLMASK 0x80
102 #define DT_STRING 0x0100
104 #define DTHT_DATEFIELD 0xff /* for hit-testing */
107 #define DTHT_CHECKBOX 0x200 /* these should end at '00' , to make */
108 #define DTHT_MCPOPUP 0x300 /* & DTHT_DATEFIELD 0 when DATETIME_KeyDown */
109 #define DTHT_GOTFOCUS 0x400 /* tests for date-fields */
111 #define DATETIME_GetInfoPtr(hwnd) ((DATETIME_INFO *)GetWindowLongA (hwnd, 0))
113 static BOOL
DATETIME_SendSimpleNotify (HWND hwnd
, UINT code
);
114 static BOOL
DATETIME_SendDateTimeChangeNotify (HWND hwnd
);
115 extern void MONTHCAL_CopyTime(const SYSTEMTIME
*from
, SYSTEMTIME
*to
);
116 static const char *allowedformatchars
= {"dhHmMstyX'"};
117 static const int maxrepetition
[] = {4,2,2,2,4,2,2,4,-1,-1};
121 DATETIME_GetSystemTime (HWND hwnd
, WPARAM wParam
, LPARAM lParam
)
123 DATETIME_INFO
*infoPtr
= DATETIME_GetInfoPtr (hwnd
);
124 DWORD dwStyle
= GetWindowLongA (hwnd
, GWL_STYLE
);
125 SYSTEMTIME
*lprgSysTimeArray
=(SYSTEMTIME
*) lParam
;
127 TRACE("%04x %08lx\n",wParam
,lParam
);
128 if (!lParam
) return GDT_NONE
;
130 if ((dwStyle
& DTS_SHOWNONE
) &&
131 (SendMessageA (infoPtr
->hwndCheckbut
, BM_GETCHECK
, 0, 0) == BST_UNCHECKED
))
134 MONTHCAL_CopyTime (&infoPtr
->date
, lprgSysTimeArray
);
141 DATETIME_SetSystemTime (HWND hwnd
, WPARAM wParam
, LPARAM lParam
)
143 DATETIME_INFO
*infoPtr
= DATETIME_GetInfoPtr (hwnd
);
144 SYSTEMTIME
*lprgSysTimeArray
=(SYSTEMTIME
*) lParam
;
146 TRACE("%p %04x %08lx\n",hwnd
, wParam
, lParam
);
147 if (!lParam
) return 0;
149 TRACE("%04d/%02d/%02d %02d:%02d:%02d)\n",
150 lprgSysTimeArray
->wYear
, lprgSysTimeArray
->wMonth
, lprgSysTimeArray
->wDay
,
151 lprgSysTimeArray
->wHour
, lprgSysTimeArray
->wMinute
, lprgSysTimeArray
->wSecond
);
153 if (wParam
==GDT_VALID
) {
154 infoPtr
->dateValid
= TRUE
;
155 MONTHCAL_CopyTime (lprgSysTimeArray
, &infoPtr
->date
);
156 SendMessageA (infoPtr
->hwndCheckbut
, BM_SETCHECK
, BST_CHECKED
, 0);
157 } else if (wParam
==GDT_NONE
) {
158 infoPtr
->dateValid
= FALSE
;
159 SendMessageA (infoPtr
->hwndCheckbut
, BM_SETCHECK
, BST_UNCHECKED
, 0);
161 InvalidateRect(hwnd
, NULL
, TRUE
);
167 DATETIME_GetRange (HWND hwnd
, LPARAM lParam
)
169 DATETIME_INFO
*infoPtr
= DATETIME_GetInfoPtr (hwnd
);
172 TRACE("%08lx\n", lParam
);
173 ret
= SendMessageA (infoPtr
->hMonthCal
, MCM_GETRANGE
, 0, lParam
);
174 if (!ret
) ret
= 1; /* bug emulation... */
179 DATETIME_SetRange (HWND hwnd
, WPARAM wParam
, LPARAM lParam
)
181 DATETIME_INFO
*infoPtr
= DATETIME_GetInfoPtr (hwnd
);
183 TRACE("%04x %08lx\n",wParam
,lParam
);
185 return SendMessageA (infoPtr
->hMonthCal
, MCM_SETRANGE
, wParam
, lParam
);
189 DATETIME_GetMonthCalColor (HWND hwnd
, WPARAM wParam
)
191 DATETIME_INFO
*infoPtr
= DATETIME_GetInfoPtr (hwnd
);
193 TRACE("%04x\n",wParam
);
194 return SendMessageA (infoPtr
->hMonthCal
, MCM_GETCOLOR
, wParam
, 0);
199 DATETIME_SetMonthCalColor (HWND hwnd
, WPARAM wParam
, LPARAM lParam
)
201 DATETIME_INFO
*infoPtr
= DATETIME_GetInfoPtr (hwnd
);
203 TRACE("%04x %08lx\n",wParam
,lParam
);
204 return SendMessageA (infoPtr
->hMonthCal
, MCM_SETCOLOR
, wParam
, lParam
);
208 /* FIXME: need to get way to force font into monthcal structure */
210 DATETIME_GetMonthCal (HWND hwnd
)
212 DATETIME_INFO
*infoPtr
= DATETIME_GetInfoPtr (hwnd
);
215 return (LRESULT
)infoPtr
->hMonthCal
;
220 /* FIXME: need to get way to force font into monthcal structure */
223 DATETIME_GetMonthCalFont (HWND hwnd
)
232 DATETIME_SetMonthCalFont (HWND hwnd
, WPARAM wParam
, LPARAM lParam
)
235 TRACE("%04x %08lx\n",wParam
,lParam
);
241 Split up a formattxt in actions.
242 See ms documentation for the meaning of the letter codes/'specifiers'.
245 *'dddddd' is handled as 'dddd' plus 'dd'.
246 *unrecognized formats are strings (here given the type DT_STRING;
247 start of the string is encoded in lower bits of DT_STRING.
248 Therefore, 'string' ends finally up as '<show seconds>tring'.
254 DATETIME_UseFormat (DATETIME_INFO
*infoPtr
, const char *formattxt
)
257 int *nrFields
=& infoPtr
->nrFields
;
259 TRACE ("%s\n",formattxt
);
263 infoPtr
->fieldspec
[*nrFields
]=0;
264 len
=strlen(allowedformatchars
);
267 for (i
=0; i
<strlen (formattxt
); i
++) {
268 TRACE ("\n%d %c:",i
, formattxt
[i
]);
269 for (j
=0; j
<len
; j
++) {
270 if (allowedformatchars
[j
]==formattxt
[i
]) {
271 TRACE ("%c[%d,%x]",allowedformatchars
[j
], *nrFields
,
272 infoPtr
->fieldspec
[*nrFields
]);
273 if ((*nrFields
==0) && (infoPtr
->fieldspec
[*nrFields
]==0)) {
274 infoPtr
->fieldspec
[*nrFields
]=(j
<<4) +1;
277 if (infoPtr
->fieldspec
[*nrFields
]>>4!=j
) {
279 infoPtr
->fieldspec
[*nrFields
]=(j
<<4) +1;
282 if ((infoPtr
->fieldspec
[*nrFields
] & 0x0f)==maxrepetition
[j
]) {
284 infoPtr
->fieldspec
[*nrFields
]=(j
<<4) +1;
287 infoPtr
->fieldspec
[*nrFields
]++;
289 } /* if allowedformatchar */
293 /* char is not a specifier: handle char like a string */
295 if ((*nrFields
==0) && (infoPtr
->fieldspec
[*nrFields
]==0)) {
296 infoPtr
->fieldspec
[*nrFields
]=DT_STRING
+k
;
297 infoPtr
->buflen
[*nrFields
]=0;
299 if ((infoPtr
->fieldspec
[*nrFields
] & DT_STRING
)!=DT_STRING
) {
301 infoPtr
->fieldspec
[*nrFields
]=DT_STRING
+k
;
302 infoPtr
->buflen
[*nrFields
]=0;
304 infoPtr
->textbuf
[k
]=formattxt
[i
];
306 infoPtr
->buflen
[*nrFields
]++;
309 if (*nrFields
==infoPtr
->nrFieldsAllocated
) {
310 FIXME ("out of memory; should reallocate. crash ahead.\n");
317 if (infoPtr
->fieldspec
[*nrFields
]!=0) (*nrFields
)++;
322 DATETIME_SetFormat (HWND hwnd
, WPARAM wParam
, LPARAM lParam
)
324 DATETIME_INFO
*infoPtr
= DATETIME_GetInfoPtr (hwnd
);
328 TRACE("%04x %08lx\n",wParam
,lParam
);
330 DWORD dwStyle
= GetWindowLongA (hwnd
, GWL_STYLE
);
332 if (dwStyle
& DTS_LONGDATEFORMAT
)
333 format_item
=LOCALE_SLONGDATE
;
334 else if (dwStyle
& DTS_TIMEFORMAT
)
335 format_item
=LOCALE_STIMEFORMAT
;
336 else /* DTS_SHORTDATEFORMAT */
337 format_item
=LOCALE_SSHORTDATE
;
338 GetLocaleInfoA( GetSystemDefaultLCID(), format_item
,format_buf
,sizeof(format_buf
));
339 DATETIME_UseFormat (infoPtr
, format_buf
);
342 DATETIME_UseFormat (infoPtr
, (char *) lParam
);
344 return infoPtr
->nrFields
;
349 DATETIME_SetFormatW (HWND hwnd
, WPARAM wParam
, LPARAM lParam
)
352 TRACE("%04x %08lx\n",wParam
,lParam
);
356 int len
= WideCharToMultiByte( CP_ACP
, 0, (LPWSTR
)lParam
, -1, NULL
, 0, NULL
, NULL
);
358 buf
= (LPSTR
) COMCTL32_Alloc (len
);
359 WideCharToMultiByte( CP_ACP
, 0, (LPWSTR
)lParam
, -1, buf
, len
, NULL
, NULL
);
360 retval
=DATETIME_SetFormat (hwnd
, 0, (LPARAM
) buf
);
365 return DATETIME_SetFormat (hwnd
, 0, 0);
371 DATETIME_ReturnTxt (DATETIME_INFO
*infoPtr
, int count
, char *result
, int resultSize
)
373 SYSTEMTIME date
= infoPtr
->date
;
378 TRACE ("%d,%d\n", infoPtr
->nrFields
, count
);
379 if ((count
>infoPtr
->nrFields
) || (count
<0)) {
380 WARN ("buffer overrun, have %d want %d\n", infoPtr
->nrFields
, count
);
384 if (!infoPtr
->fieldspec
) return;
386 spec
=infoPtr
->fieldspec
[count
];
387 if (spec
& DT_STRING
) {
388 int txtlen
=infoPtr
->buflen
[count
];
390 if (txtlen
> resultSize
)
391 txtlen
= resultSize
- 1;
392 memcpy (result
, infoPtr
->textbuf
+ (spec
&~ DT_STRING
), txtlen
);
394 TRACE ("arg%d=%x->[%s]\n",count
,infoPtr
->fieldspec
[count
],result
);
404 sprintf (result
,"%d",date
.wDay
);
407 sprintf (result
,"%.2d",date
.wDay
);
410 GetLocaleInfoA( LOCALE_USER_DEFAULT
, LOCALE_SABBREVDAYNAME1
+(date
.wDayOfWeek
+6)%7,
412 /*sprintf (result,"%.3s",days[date.wDayOfWeek]);*/
415 GetLocaleInfoA( LOCALE_USER_DEFAULT
,LOCALE_SDAYNAME1
+ (date
.wDayOfWeek
+6)%7,
420 sprintf (result
,"%d",date
.wHour
-12);
422 sprintf (result
,"%d",date
.wHour
);
426 sprintf (result
,"%.2d",date
.wHour
-12);
428 sprintf (result
,"%.2d",date
.wHour
);
431 sprintf (result
,"%d",date
.wHour
);
434 sprintf (result
,"%.2d",date
.wHour
);
437 sprintf (result
,"%d",date
.wSecond
);
440 sprintf (result
,"%.2d",date
.wSecond
);
443 sprintf (result
,"%d",date
.wMinute
);
446 sprintf (result
,"%.2d",date
.wMinute
);
449 sprintf (result
,"%d",date
.wMonth
);
452 sprintf (result
,"%.2d",date
.wMonth
);
455 GetLocaleInfoA( GetSystemDefaultLCID(),LOCALE_SMONTHNAME1
+date
.wMonth
-1,
456 buffer
,sizeof(buffer
));
457 sprintf (result
,"%.3s",buffer
);
460 GetLocaleInfoA( GetSystemDefaultLCID(),LOCALE_SMONTHNAME1
+date
.wMonth
-1,
471 strcpy (result
,"AM");
473 strcpy (result
,"PM");
476 FIXME ("Not implemented\n");
477 strcpy (result
,"xxx");
480 sprintf (result
,"%d",date
.wYear
-10* (int) floor(date
.wYear
/10));
483 sprintf (result
,"%.2d",date
.wYear
-100* (int) floor(date
.wYear
/100));
485 case INVALIDFULLYEAR
:
487 sprintf (result
,"%d",date
.wYear
);
491 TRACE ("arg%d=%x->[%s]\n",count
,infoPtr
->fieldspec
[count
],result
);
496 DATETIME_IncreaseField (DATETIME_INFO
*infoPtr
, int number
)
498 SYSTEMTIME
*date
= &infoPtr
->date
;
501 TRACE ("%d\n",number
);
502 if ((number
>infoPtr
->nrFields
) || (number
<0)) return;
504 spec
=infoPtr
->fieldspec
[number
];
505 if ((spec
& DTHT_DATEFIELD
)==0) return;
513 if (date
->wDay
>MONTHCAL_MonthLength(date
->wMonth
,date
->wYear
))
521 if (date
->wHour
>23) date
->wHour
=0;
526 if (date
->wSecond
>59) date
->wSecond
=0;
531 if (date
->wMinute
>59) date
->wMinute
=0;
538 if (date
->wMonth
>12) date
->wMonth
=1;
539 if (date
->wDay
>MONTHCAL_MonthLength(date
->wMonth
,date
->wYear
))
540 date
->wDay
=MONTHCAL_MonthLength(date
->wMonth
,date
->wYear
);
545 if (date
->wHour
>23) date
->wHour
-=24;
548 FIXME ("Not implemented\n");
561 DATETIME_DecreaseField (DATETIME_INFO
*infoPtr
, int number
)
563 SYSTEMTIME
*date
= & infoPtr
->date
;
566 TRACE ("%d\n",number
);
567 if ((number
>infoPtr
->nrFields
) || (number
<0)) return;
569 spec
= infoPtr
->fieldspec
[number
];
570 if ((spec
& DTHT_DATEFIELD
)==0) return;
581 date
->wDay
=MONTHCAL_MonthLength(date
->wMonth
,date
->wYear
);
614 if (date
->wDay
>MONTHCAL_MonthLength(date
->wMonth
,date
->wYear
))
615 date
->wDay
=MONTHCAL_MonthLength(date
->wMonth
,date
->wYear
);
625 FIXME ("Not implemented\n");
638 DATETIME_ResetFieldDown (DATETIME_INFO
*infoPtr
, int number
)
640 SYSTEMTIME
*date
= &infoPtr
->date
;
643 TRACE ("%d\n",number
);
644 if ((number
>infoPtr
->nrFields
) || (number
<0)) return;
646 spec
= infoPtr
->fieldspec
[number
];
647 if ((spec
& DTHT_DATEFIELD
)==0) return;
679 FIXME ("Not implemented\n");
683 /* FYI: On 1752/9/14 the calendar changed and England and the
684 * American colonies changed to the Gregorian calendar. This change
685 * involved having September 14th follow September 2nd. So no date
686 * algorithm works before that date.
692 date
->wDay
= 14; /* overactive ms-programmers..*/
702 DATETIME_ResetFieldUp (DATETIME_INFO
*infoPtr
, int number
)
704 SYSTEMTIME
*date
= & infoPtr
->date
;
707 TRACE("%d \n",number
);
708 if ((number
>infoPtr
->nrFields
) || (number
<0)) return;
710 spec
=infoPtr
->fieldspec
[number
];
711 if ((spec
& DTHT_DATEFIELD
)==0) return;
718 date
->wDay
=MONTHCAL_MonthLength(date
->wMonth
,date
->wYear
);
742 FIXME ("Not implemented\n");
747 date
->wYear
=9999; /* Y10K problem? naaah. */
754 static void DATETIME_Refresh (HWND hwnd
, HDC hdc
)
757 DATETIME_INFO
*infoPtr
= DATETIME_GetInfoPtr (hwnd
);
760 DWORD dwStyle
= GetWindowLongA (hwnd
, GWL_STYLE
);
761 RECT
*rcDraw
= &infoPtr
->rcDraw
;
762 RECT
*rcClient
= &infoPtr
->rcClient
;
763 RECT
*calbutton
= &infoPtr
->calbutton
;
764 RECT
*checkbox
= &infoPtr
->checkbox
;
767 COLORREF oldBk
, oldTextColor
;
769 /* draw control edge */
771 hbr
= CreateSolidBrush(RGB(255, 255, 255));
772 FillRect(hdc
, rcClient
, hbr
);
773 DrawEdge(hdc
, rcClient
, EDGE_SUNKEN
, BF_RECT
);
776 if (infoPtr
->dateValid
) {
779 oldFont
= SelectObject (hdc
, infoPtr
->hFont
);
781 DATETIME_ReturnTxt (infoPtr
, 0, txt
, sizeof(txt
));
782 GetTextExtentPoint32A (hdc
, txt
, strlen (txt
), &size
);
783 rcDraw
->bottom
= size
.cy
+2;
785 if (dwStyle
& DTS_SHOWNONE
) checkbox
->right
= 18;
787 prevright
= checkbox
->right
;
789 for (i
=0; i
<infoPtr
->nrFields
; i
++) {
790 DATETIME_ReturnTxt (infoPtr
, i
, txt
, sizeof(txt
));
791 GetTextExtentPoint32A (hdc
, txt
, strlen (txt
), &size
);
792 field
= & infoPtr
->fieldRect
[i
];
793 field
->left
= prevright
;
794 field
->right
= prevright
+size
.cx
;
795 field
->top
= rcDraw
->top
;
796 field
->bottom
= rcDraw
->bottom
;
797 prevright
= field
->right
;
799 if ((infoPtr
->haveFocus
) && (i
==infoPtr
->select
)) {
800 hbr
= CreateSolidBrush (GetSysColor (COLOR_ACTIVECAPTION
));
801 FillRect(hdc
, field
, hbr
);
802 oldBk
= SetBkColor (hdc
, GetSysColor(COLOR_ACTIVECAPTION
));
803 oldTextColor
= SetTextColor (hdc
, GetSysColor(COLOR_WINDOW
));
805 DrawTextA ( hdc
, txt
, strlen(txt
), field
,
806 DT_RIGHT
| DT_VCENTER
| DT_SINGLELINE
);
807 SetBkColor (hdc
, oldBk
);
808 SetTextColor (hdc
, oldTextColor
);
811 DrawTextA ( hdc
, txt
, strlen(txt
), field
,
812 DT_RIGHT
| DT_VCENTER
| DT_SINGLELINE
);
815 SelectObject (hdc
, oldFont
);
818 if (!(dwStyle
& DTS_UPDOWN
)) {
819 DrawFrameControl(hdc
, calbutton
, DFC_SCROLL
,
820 DFCS_SCROLLDOWN
| (infoPtr
->bCalDepressed
? DFCS_PUSHED
: 0) |
821 (dwStyle
& WS_DISABLED
? DFCS_INACTIVE
: 0) );
827 DATETIME_HitTest (HWND hwnd
, DATETIME_INFO
*infoPtr
, POINT pt
)
831 TRACE ("%ld, %ld\n",pt
.x
,pt
.y
);
834 if (PtInRect (&infoPtr
->calbutton
, pt
))
835 {retval
= DTHT_MCPOPUP
; TRACE("Hit in calbutton(DTHT_MCPOPUP)\n"); goto done
; }
836 if (PtInRect (&infoPtr
->checkbox
, pt
))
837 {retval
= DTHT_CHECKBOX
; TRACE("Hit in checkbox(DTHT_CHECKBOX)\n"); goto done
; }
839 for (i
=0; i
<infoPtr
->nrFields
; i
++) {
840 if (PtInRect (&infoPtr
->fieldRect
[i
], pt
)) {
842 TRACE("Hit in date text in field %d\n", i
);
853 DATETIME_LButtonDown (HWND hwnd
, WPARAM wParam
, LPARAM lParam
)
855 DATETIME_INFO
*infoPtr
= DATETIME_GetInfoPtr (hwnd
);
856 DWORD dwStyle
= GetWindowLongA (hwnd
, GWL_STYLE
);
862 old
= infoPtr
->select
;
863 pt
.x
= (INT
)LOWORD(lParam
);
864 pt
.y
= (INT
)HIWORD(lParam
);
866 new = DATETIME_HitTest (hwnd
, infoPtr
, pt
);
868 /* FIXME: might be conditions where we don't want to update infoPtr->select */
869 infoPtr
->select
= new;
871 if (infoPtr
->select
!= old
) {
872 infoPtr
->haveFocus
= DTHT_GOTFOCUS
;
875 if (infoPtr
->select
== DTHT_MCPOPUP
) {
876 /* FIXME: button actually is only depressed during dropdown of the */
877 /* calendar control and when the mouse is over the button window */
878 infoPtr
->bCalDepressed
= TRUE
;
880 /* recalculate the position of the monthcal popup */
881 if(dwStyle
& DTS_RIGHTALIGN
)
882 infoPtr
->monthcal_pos
.x
= infoPtr
->rcClient
.right
- ((infoPtr
->calbutton
.right
-
883 infoPtr
->calbutton
.left
) + 145);
885 infoPtr
->monthcal_pos
.x
= 8;
887 infoPtr
->monthcal_pos
.y
= infoPtr
->rcClient
.bottom
;
888 ClientToScreen (hwnd
, &(infoPtr
->monthcal_pos
));
889 SetWindowPos(infoPtr
->hMonthCal
, 0, infoPtr
->monthcal_pos
.x
,
890 infoPtr
->monthcal_pos
.y
, 145, 150, 0);
892 if(IsWindowVisible(infoPtr
->hMonthCal
))
893 ShowWindow(infoPtr
->hMonthCal
, SW_HIDE
);
895 ShowWindow(infoPtr
->hMonthCal
, SW_SHOW
);
897 TRACE ("dt:%p mc:%p mc parent:%p, desktop:%p, mcpp:%p\n",
898 hwnd
,infoPtr
->hMonthCal
,
899 GetParent (infoPtr
->hMonthCal
),
901 GetParent (GetParent (infoPtr
->hMonthCal
)));
902 DATETIME_SendSimpleNotify (hwnd
, DTN_DROPDOWN
);
905 InvalidateRect(hwnd
, NULL
, FALSE
);
912 DATETIME_LButtonUp (HWND hwnd
, WPARAM wParam
, LPARAM lParam
)
914 DATETIME_INFO
*infoPtr
= DATETIME_GetInfoPtr (hwnd
);
918 if(infoPtr
->bCalDepressed
== TRUE
) {
919 infoPtr
->bCalDepressed
= FALSE
;
920 InvalidateRect(hwnd
, &(infoPtr
->calbutton
), TRUE
);
928 DATETIME_Paint (HWND hwnd
, WPARAM wParam
)
933 hdc
= wParam
==0 ? BeginPaint (hwnd
, &ps
) : (HDC
)wParam
;
934 DATETIME_Refresh (hwnd
, hdc
);
936 EndPaint (hwnd
, &ps
);
942 DATETIME_Button_Command (HWND hwnd
, WPARAM wParam
, LPARAM lParam
)
944 DATETIME_INFO
*infoPtr
= DATETIME_GetInfoPtr(hwnd
);
946 switch(HIWORD(wParam
)) {
949 DWORD state
= SendMessageA((HWND
)lParam
, BM_GETCHECK
, 0, 0);
950 if(state
== BST_CHECKED
)
951 infoPtr
->dateValid
= TRUE
;
953 infoPtr
->dateValid
= FALSE
;
954 InvalidateRect(hwnd
, NULL
, TRUE
);
965 DATETIME_Command (HWND hwnd
, WPARAM wParam
, LPARAM lParam
)
967 DATETIME_INFO
*infoPtr
= DATETIME_GetInfoPtr(hwnd
);
969 TRACE("%08x %08lx\n", wParam
, lParam
);
970 TRACE("hwndbutton = %p\n", infoPtr
->hwndCheckbut
);
971 if(infoPtr
->hwndCheckbut
== (HWND
)lParam
)
972 return DATETIME_Button_Command(hwnd
, wParam
, lParam
);
977 DATETIME_ParentNotify (HWND hwnd
, WPARAM wParam
, LPARAM lParam
)
979 DATETIME_INFO
*infoPtr
= DATETIME_GetInfoPtr (hwnd
);
980 LPNMHDR lpnmh
= (LPNMHDR
) lParam
;
982 TRACE ("%x,%lx\n",wParam
, lParam
);
983 TRACE ("Got notification %x from %p\n", lpnmh
->code
, lpnmh
->hwndFrom
);
984 TRACE ("info: %p %p %p\n",hwnd
,infoPtr
->hMonthCal
,infoPtr
->hUpdown
);
990 DATETIME_Notify (HWND hwnd
, WPARAM wParam
, LPARAM lParam
)
993 DATETIME_INFO
*infoPtr
= DATETIME_GetInfoPtr (hwnd
);
994 LPNMHDR lpnmh
= (LPNMHDR
) lParam
;
996 TRACE ("%x,%lx\n",wParam
, lParam
);
997 TRACE ("Got notification %x from %p\n", lpnmh
->code
, lpnmh
->hwndFrom
);
998 TRACE ("info: %p %p %p\n",hwnd
,infoPtr
->hMonthCal
,infoPtr
->hUpdown
);
1004 DATETIME_KeyDown (HWND hwnd
, WPARAM wParam
, LPARAM lParam
)
1006 DATETIME_INFO
*infoPtr
= DATETIME_GetInfoPtr (hwnd
);
1007 int FieldNum
,wrap
=0;
1009 TRACE("%x %lx %x\n",wParam
, lParam
, infoPtr
->select
);
1011 FieldNum
= infoPtr
->select
& DTHT_DATEFIELD
;
1013 if (!(infoPtr
->haveFocus
)) return 0;
1014 if ((FieldNum
==0) && (infoPtr
->select
)) return 0;
1016 if (infoPtr
->select
& FORMATCALLMASK
) {
1017 FIXME ("Callbacks not implemented yet\n");
1023 DATETIME_IncreaseField (infoPtr
,FieldNum
);
1024 DATETIME_SendDateTimeChangeNotify (hwnd
);
1028 DATETIME_DecreaseField (infoPtr
,FieldNum
);
1029 DATETIME_SendDateTimeChangeNotify (hwnd
);
1032 DATETIME_ResetFieldDown (infoPtr
,FieldNum
);
1033 DATETIME_SendDateTimeChangeNotify (hwnd
);
1036 DATETIME_ResetFieldUp(infoPtr
,FieldNum
);
1037 DATETIME_SendDateTimeChangeNotify (hwnd
);
1041 if (infoPtr
->select
==0) {
1042 infoPtr
->select
= infoPtr
->nrFields
- 1;
1047 while ((infoPtr
->fieldspec
[infoPtr
->select
] & DT_STRING
) && (wrap
<2));
1052 if (infoPtr
->select
==infoPtr
->nrFields
) {
1053 infoPtr
->select
= 0;
1057 while ((infoPtr
->fieldspec
[infoPtr
->select
] & DT_STRING
) && (wrap
<2));
1061 InvalidateRect(hwnd
, NULL
, FALSE
);
1068 DATETIME_KillFocus (HWND hwnd
, WPARAM wParam
, LPARAM lParam
)
1070 DATETIME_INFO
*infoPtr
= DATETIME_GetInfoPtr (hwnd
);
1074 if (infoPtr
->haveFocus
) {
1075 DATETIME_SendSimpleNotify (hwnd
, NM_KILLFOCUS
);
1076 infoPtr
->haveFocus
= 0;
1079 InvalidateRect (hwnd
, NULL
, TRUE
);
1086 DATETIME_SetFocus (HWND hwnd
, WPARAM wParam
, LPARAM lParam
)
1088 DATETIME_INFO
*infoPtr
= DATETIME_GetInfoPtr (hwnd
);
1092 if (infoPtr
->haveFocus
==0) {
1093 DATETIME_SendSimpleNotify (hwnd
, NM_SETFOCUS
);
1094 infoPtr
->haveFocus
= DTHT_GOTFOCUS
;
1097 InvalidateRect(hwnd
, NULL
, FALSE
);
1104 DATETIME_SendDateTimeChangeNotify (HWND hwnd
)
1107 DATETIME_INFO
*infoPtr
= DATETIME_GetInfoPtr (hwnd
);
1108 NMDATETIMECHANGE dtdtc
;
1111 dtdtc
.nmhdr
.hwndFrom
= hwnd
;
1112 dtdtc
.nmhdr
.idFrom
= GetWindowLongA( hwnd
, GWL_ID
);
1113 dtdtc
.nmhdr
.code
= DTN_DATETIMECHANGE
;
1115 if ((GetWindowLongA (hwnd
, GWL_STYLE
) & DTS_SHOWNONE
))
1116 dtdtc
.dwFlags
= GDT_NONE
;
1118 dtdtc
.dwFlags
= GDT_VALID
;
1120 MONTHCAL_CopyTime (&infoPtr
->date
, &dtdtc
.st
);
1121 return (BOOL
) SendMessageA (GetParent (hwnd
), WM_NOTIFY
,
1122 (WPARAM
)dtdtc
.nmhdr
.idFrom
, (LPARAM
)&dtdtc
);
1127 DATETIME_SendSimpleNotify (HWND hwnd
, UINT code
)
1132 nmhdr
.hwndFrom
= hwnd
;
1133 nmhdr
.idFrom
= GetWindowLongA( hwnd
, GWL_ID
);
1136 return (BOOL
) SendMessageA (GetParent (hwnd
), WM_NOTIFY
,
1137 (WPARAM
)nmhdr
.idFrom
, (LPARAM
)&nmhdr
);
1141 DATETIME_Size (HWND hwnd
, WPARAM wParam
, LPARAM lParam
)
1143 DATETIME_INFO
*infoPtr
= DATETIME_GetInfoPtr(hwnd
);
1144 DWORD dwStyle
= GetWindowLongA(hwnd
, GWL_STYLE
);
1147 infoPtr
->rcClient
.bottom
= HIWORD(lParam
);
1148 infoPtr
->rcClient
.right
= LOWORD(lParam
);
1150 TRACE("Height=%ld, Width=%ld\n", infoPtr
->rcClient
.bottom
, infoPtr
->rcClient
.right
);
1152 /* use DrawEdge to adjust the size of rcEdge to get rcDraw */
1153 memcpy((&infoPtr
->rcDraw
), (&infoPtr
->rcClient
), sizeof(infoPtr
->rcDraw
));
1155 DrawEdge(NULL
, &(infoPtr
->rcDraw
), EDGE_SUNKEN
, BF_RECT
| BF_ADJUST
);
1157 /* set the size of the button that drops the calendar down */
1158 /* FIXME: account for style that allows button on left side */
1159 infoPtr
->calbutton
.top
= infoPtr
->rcDraw
.top
;
1160 infoPtr
->calbutton
.bottom
= infoPtr
->rcDraw
.bottom
;
1161 infoPtr
->calbutton
.left
= infoPtr
->rcDraw
.right
-15;
1162 infoPtr
->calbutton
.right
= infoPtr
->rcDraw
.right
;
1164 /* set enable/disable button size for show none style being enabled */
1165 /* FIXME: these dimensions are completely incorrect */
1166 infoPtr
->checkbox
.top
= infoPtr
->rcDraw
.top
;
1167 infoPtr
->checkbox
.bottom
= infoPtr
->rcDraw
.bottom
;
1168 infoPtr
->checkbox
.left
= infoPtr
->rcDraw
.left
;
1169 infoPtr
->checkbox
.right
= infoPtr
->rcDraw
.left
+ 10;
1171 /* update the position of the monthcal control */
1172 if(dwStyle
& DTS_RIGHTALIGN
)
1173 infoPtr
->monthcal_pos
.x
= infoPtr
->rcClient
.right
- ((infoPtr
->calbutton
.right
-
1174 infoPtr
->calbutton
.left
) + 145);
1176 infoPtr
->monthcal_pos
.x
= 8;
1178 infoPtr
->monthcal_pos
.y
= infoPtr
->rcClient
.bottom
;
1179 ClientToScreen (hwnd
, &(infoPtr
->monthcal_pos
));
1180 SetWindowPos(infoPtr
->hMonthCal
, 0, infoPtr
->monthcal_pos
.x
,
1181 infoPtr
->monthcal_pos
.y
,
1184 InvalidateRect(hwnd
, NULL
, FALSE
);
1191 DATETIME_Create (HWND hwnd
, WPARAM wParam
, LPARAM lParam
)
1193 DATETIME_INFO
*infoPtr
;
1194 DWORD dwStyle
= GetWindowLongA (hwnd
, GWL_STYLE
);
1196 /* allocate memory for info structure */
1197 TRACE("%04x %08lx\n",wParam
,lParam
);
1198 infoPtr
= (DATETIME_INFO
*)COMCTL32_Alloc (sizeof(DATETIME_INFO
));
1199 if (infoPtr
== NULL
) {
1200 ERR("could not allocate info memory!\n");
1204 SetWindowLongA (hwnd
, 0, (DWORD
)infoPtr
);
1206 if (dwStyle
& DTS_SHOWNONE
) {
1207 infoPtr
->hwndCheckbut
=CreateWindowExA (0,"button", 0,
1208 WS_CHILD
| WS_VISIBLE
| BS_AUTOCHECKBOX
,
1211 0, (HINSTANCE
)GetWindowLongA (hwnd
, GWL_HINSTANCE
), 0);
1212 SendMessageA (infoPtr
->hwndCheckbut
, BM_SETCHECK
, 1, 0);
1215 if (dwStyle
& DTS_UPDOWN
) {
1216 infoPtr
->hUpdown
=CreateUpDownControl (
1217 WS_CHILD
| WS_BORDER
| WS_VISIBLE
,
1220 UD_MAXVAL
, UD_MINVAL
, 0);
1223 infoPtr
->fieldspec
= (int *) COMCTL32_Alloc (32*sizeof(int));
1224 infoPtr
->fieldRect
= (RECT
*) COMCTL32_Alloc (32*sizeof(RECT
));
1225 infoPtr
->buflen
= (int *) COMCTL32_Alloc (32*sizeof(int));
1226 infoPtr
->nrFieldsAllocated
= 32;
1228 DATETIME_SetFormat (hwnd
, 0, 0);
1230 /* create the monthcal control */
1231 infoPtr
->hMonthCal
= CreateWindowExA (0,"SysMonthCal32", 0,
1232 WS_BORDER
| WS_POPUP
| WS_CLIPSIBLINGS
,
1237 /* initialize info structure */
1238 GetSystemTime (&infoPtr
->date
);
1239 infoPtr
->dateValid
= TRUE
;
1240 infoPtr
->hFont
= GetStockObject(DEFAULT_GUI_FONT
);
1246 DATETIME_Destroy (HWND hwnd
, WPARAM wParam
, LPARAM lParam
)
1248 DATETIME_INFO
*infoPtr
= DATETIME_GetInfoPtr (hwnd
);
1251 COMCTL32_Free (infoPtr
);
1252 SetWindowLongA( hwnd
, 0, 0 );
1257 static LRESULT WINAPI
1258 DATETIME_WindowProc (HWND hwnd
, UINT uMsg
, WPARAM wParam
, LPARAM lParam
)
1260 if (!DATETIME_GetInfoPtr(hwnd
) && (uMsg
!= WM_CREATE
))
1261 return DefWindowProcA( hwnd
, uMsg
, wParam
, lParam
);
1266 case DTM_GETSYSTEMTIME
:
1267 return DATETIME_GetSystemTime (hwnd
, wParam
, lParam
);
1269 case DTM_SETSYSTEMTIME
:
1270 return DATETIME_SetSystemTime (hwnd
, wParam
, lParam
);
1273 return DATETIME_GetRange(hwnd
, lParam
);
1276 return DATETIME_SetRange(hwnd
, wParam
, lParam
);
1278 case DTM_SETFORMATA
:
1279 return DATETIME_SetFormat (hwnd
, wParam
, lParam
);
1281 case DTM_SETFORMATW
:
1282 return DATETIME_SetFormatW (hwnd
, wParam
, lParam
);
1284 case DTM_SETMCCOLOR
:
1285 return DATETIME_SetMonthCalColor (hwnd
, wParam
, lParam
);
1287 case DTM_GETMCCOLOR
:
1288 return DATETIME_GetMonthCalColor (hwnd
, wParam
);
1290 case DTM_GETMONTHCAL
:
1291 return DATETIME_GetMonthCal (hwnd
);
1294 return DATETIME_SetMonthCalFont (hwnd
, wParam
, lParam
);
1297 return DATETIME_GetMonthCalFont (hwnd
);
1299 case WM_PARENTNOTIFY
:
1300 return DATETIME_ParentNotify (hwnd
, wParam
, lParam
);
1303 return DATETIME_Notify (hwnd
, wParam
, lParam
);
1306 return DLGC_WANTARROWS
| DLGC_WANTCHARS
;
1309 return DATETIME_Paint (hwnd
, wParam
);
1312 return DATETIME_KeyDown (hwnd
, wParam
, lParam
);
1315 return DATETIME_KillFocus (hwnd
, wParam
, lParam
);
1318 return DATETIME_SetFocus (hwnd
, wParam
, lParam
);
1321 return DATETIME_Size (hwnd
, wParam
, lParam
);
1323 case WM_LBUTTONDOWN
:
1324 return DATETIME_LButtonDown (hwnd
, wParam
, lParam
);
1327 return DATETIME_LButtonUp (hwnd
, wParam
, lParam
);
1330 return DATETIME_Create (hwnd
, wParam
, lParam
);
1333 return DATETIME_Destroy (hwnd
, wParam
, lParam
);
1336 return DATETIME_Command (hwnd
, wParam
, lParam
);
1339 if ((uMsg
>= WM_USER
) && (uMsg
< WM_APP
))
1340 ERR("unknown msg %04x wp=%08x lp=%08lx\n",
1341 uMsg
, wParam
, lParam
);
1342 return DefWindowProcA (hwnd
, uMsg
, wParam
, lParam
);
1349 DATETIME_Register (void)
1354 ZeroMemory (&wndClass
, sizeof(WNDCLASSA
));
1355 wndClass
.style
= CS_GLOBALCLASS
;
1356 wndClass
.lpfnWndProc
= (WNDPROC
)DATETIME_WindowProc
;
1357 wndClass
.cbClsExtra
= 0;
1358 wndClass
.cbWndExtra
= sizeof(DATETIME_INFO
*);
1359 wndClass
.hCursor
= LoadCursorA (0, (LPSTR
)IDC_ARROW
);
1360 wndClass
.hbrBackground
= (HBRUSH
)(COLOR_WINDOW
+ 1);
1361 wndClass
.lpszClassName
= DATETIMEPICK_CLASSA
;
1363 RegisterClassA (&wndClass
);
1368 DATETIME_Unregister (void)
1371 UnregisterClassA (DATETIMEPICK_CLASSA
, NULL
);