]> git.saurik.com Git - wxWidgets.git/blame - src/msw/calctrl.cpp
Don't hide/show wxActiveXContainer when resizing it.
[wxWidgets.git] / src / msw / calctrl.cpp
CommitLineData
51317496
VZ
1/////////////////////////////////////////////////////////////////////////////
2// Name: src/msw/calctrl.cpp
3// Purpose: wxCalendarCtrl implementation
4// Author: Vadim Zeitlin
5// Created: 2008-04-04
aa7ee888 6// RCS-ID: $Id$
51317496
VZ
7// Copyright: (C) 2008 Vadim Zeitlin <vadim@wxwidgets.org>
8// Licence: wxWindows licence
9/////////////////////////////////////////////////////////////////////////////
10
11// ============================================================================
12// declarations
13// ============================================================================
14
15// ----------------------------------------------------------------------------
16// headers
17// ----------------------------------------------------------------------------
18
19#include "wx/wxprec.h"
20
21#ifdef __BORLANDC__
22 #pragma hdrstop
23#endif
24
25#if wxUSE_CALENDARCTRL
26
27#ifndef WX_PRECOMP
28 #include "wx/msw/wrapwin.h"
29 #include "wx/msw/wrapcctl.h" // include <commctrl.h> "properly"
aa7ee888 30 #include "wx/msw/private.h"
51317496
VZ
31#endif
32
33#include "wx/calctrl.h"
34
35#include "wx/msw/private/datecontrols.h"
36
18547275
VZ
37// ----------------------------------------------------------------------------
38// constants
39// ----------------------------------------------------------------------------
40
41namespace
42{
43
44// values of week days used by the native control
45enum
46{
47 MonthCal_Monday,
48 MonthCal_Tuesday,
49 MonthCal_Wednesday,
50 MonthCal_Thursday,
51 MonthCal_Friday,
52 MonthCal_Saturday,
53 MonthCal_Sunday
54};
55
56} // anonymous namespace
57
51317496
VZ
58// ============================================================================
59// implementation
60// ============================================================================
61
62// ----------------------------------------------------------------------------
63// wxCalendarCtrl creation
64// ----------------------------------------------------------------------------
65
6d9b6716
VZ
66void wxCalendarCtrl::Init()
67{
68 m_marks =
69 m_holidays = 0;
70}
71
51317496
VZ
72bool
73wxCalendarCtrl::Create(wxWindow *parent,
74 wxWindowID id,
75 const wxDateTime& dt,
76 const wxPoint& pos,
77 const wxSize& size,
78 long style,
79 const wxString& name)
80{
81 if ( !wxMSWDateControls::CheckInitialization() )
82 return false;
83
d6f04127
VZ
84 // we need the arrows for the navigation
85 style |= wxWANTS_CHARS;
86
51317496
VZ
87 // initialize the base class
88 if ( !CreateControl(parent, id, pos, size, style, wxDefaultValidator, name) )
89 return false;
90
b3ed7020
VZ
91 // create the native control: this is a bit tricky as we want to receive
92 // double click events but the MONTHCAL_CLASS doesn't use CS_DBLCLKS style
93 // and so we create our own copy of it which does
94 static ClassRegistrar s_clsMonthCal;
95 if ( !s_clsMonthCal.IsInitialized() )
96 {
97 // get a copy of standard class and modify it
98 WNDCLASS wc;
99 if ( ::GetClassInfo(NULL, MONTHCAL_CLASS, &wc) )
100 {
101 wc.lpszClassName = wxT("_wx_SysMonthCtl32");
102 wc.style |= CS_DBLCLKS;
103 s_clsMonthCal.Register(wc);
104 }
105 else
106 {
9a83f860 107 wxLogLastError(wxT("GetClassInfoEx(SysMonthCal32)"));
b3ed7020
VZ
108 }
109 }
110
111 const wxChar * const clsname = s_clsMonthCal.IsRegistered()
112 ? s_clsMonthCal.GetName().wx_str()
113 : MONTHCAL_CLASS;
114
115 if ( !MSWCreateControl(clsname, wxEmptyString, pos, size) )
51317496
VZ
116 return false;
117
03647350 118 // initialize the control
db0b0942
VZ
119 UpdateFirstDayOfWeek();
120
51317496
VZ
121 SetDate(dt.IsValid() ? dt : wxDateTime::Today());
122
6d9b6716
VZ
123 if ( SetHolidayAttrs() )
124 UpdateMarks();
82c6027b 125
3ccd1b49
VZ
126 Connect(wxEVT_LEFT_DOWN,
127 wxMouseEventHandler(wxCalendarCtrl::MSWOnClick));
82c6027b 128 Connect(wxEVT_LEFT_DCLICK,
b3ed7020
VZ
129 wxMouseEventHandler(wxCalendarCtrl::MSWOnDoubleClick));
130
51317496
VZ
131 return true;
132}
133
134WXDWORD wxCalendarCtrl::MSWGetStyle(long style, WXDWORD *exstyle) const
135{
136 WXDWORD styleMSW = wxCalendarCtrlBase::MSWGetStyle(style, exstyle);
137
bf9b73bb
VZ
138 // right now we don't support all native styles but we should add wx styles
139 // corresponding to MCS_NOTODAY and MCS_NOTODAYCIRCLE probably (TODO)
51317496
VZ
140
141 // for compatibility with the other versions, just turn off today display
142 // unconditionally for now
143 styleMSW |= MCS_NOTODAY;
144
82c6027b
VZ
145 // we also need this style for Mark() to work
146 styleMSW |= MCS_DAYSTATE;
147
bf9b73bb
VZ
148 if ( style & wxCAL_SHOW_WEEK_NUMBERS )
149 styleMSW |= MCS_WEEKNUMBERS;
150
51317496
VZ
151 return styleMSW;
152}
153
db0b0942
VZ
154void wxCalendarCtrl::SetWindowStyleFlag(long style)
155{
156 const bool hadMondayFirst = HasFlag(wxCAL_MONDAY_FIRST);
157
158 wxCalendarCtrlBase::SetWindowStyleFlag(style);
159
160 if ( HasFlag(wxCAL_MONDAY_FIRST) != hadMondayFirst )
161 UpdateFirstDayOfWeek();
162}
51317496
VZ
163
164// ----------------------------------------------------------------------------
165// wxCalendarCtrl geometry
166// ----------------------------------------------------------------------------
167
db0b0942 168// TODO: handle WM_WININICHANGE
51317496
VZ
169wxSize wxCalendarCtrl::DoGetBestSize() const
170{
171 RECT rc;
172 if ( !GetHwnd() || !MonthCal_GetMinReqRect(GetHwnd(), &rc) )
173 {
174 return wxCalendarCtrlBase::DoGetBestSize();
175 }
176
177 const wxSize best = wxRectFromRECT(rc).GetSize() + GetWindowBorderSize();
178 CacheBestSize(best);
179 return best;
180}
181
ee22a3a2
VZ
182wxCalendarHitTestResult
183wxCalendarCtrl::HitTest(const wxPoint& pos,
184 wxDateTime *date,
185 wxDateTime::WeekDay *wd)
186{
187 WinStruct<MCHITTESTINFO> hti;
f9d2e19d
VZ
188
189 // Vista and later SDKs add a few extra fields to MCHITTESTINFO which are
190 // not supported by the previous versions, as we don't use them anyhow we
191 // should pretend that we always use the old struct format to make the call
192 // below work on pre-Vista systems (see #11057)
193#ifdef MCHITTESTINFO_V1_SIZE
194 hti.cbSize = MCHITTESTINFO_V1_SIZE;
195#endif
196
ee22a3a2
VZ
197 hti.pt.x = pos.x;
198 hti.pt.y = pos.y;
199 switch ( MonthCal_HitTest(GetHwnd(), &hti) )
200 {
201 default:
202 case MCHT_CALENDARWEEKNUM:
203 wxFAIL_MSG( "unexpected" );
204 // fall through
205
206 case MCHT_NOWHERE:
207 case MCHT_CALENDARBK:
208 case MCHT_TITLEBK:
209 case MCHT_TITLEMONTH:
210 case MCHT_TITLEYEAR:
211 return wxCAL_HITTEST_NOWHERE;
212
213 case MCHT_CALENDARDATE:
214 if ( date )
10acc3ef 215 date->SetFromMSWSysDate(hti.st);
ee22a3a2
VZ
216 return wxCAL_HITTEST_DAY;
217
218 case MCHT_CALENDARDAY:
219 if ( wd )
220 {
1b88c4e4
VZ
221 int day = hti.st.wDayOfWeek;
222
223 // the native control returns incorrect day of the week when
224 // the first day isn't Monday, i.e. the first column is always
225 // "Monday" even if its label is "Sunday", compensate for it
226 const int first = LOWORD(MonthCal_GetFirstDayOfWeek(GetHwnd()));
227 if ( first == MonthCal_Monday )
228 {
229 // as MonthCal_Monday is 0 while wxDateTime::Mon is 1,
230 // normally we need to do this to transform from MSW
231 // convention to wx one
232 day++;
233 day %= 7;
234 }
235 //else: but when the first day is MonthCal_Sunday, the native
236 // control still returns 0 (i.e. MonthCal_Monday) for the
237 // first column which looks like a bug in it but to work
238 // around it it's enough to not apply the correction above
239
240 *wd = static_cast<wxDateTime::WeekDay>(day);
ee22a3a2
VZ
241 }
242 return wxCAL_HITTEST_HEADER;
243
244 case MCHT_TITLEBTNNEXT:
245 return wxCAL_HITTEST_INCMONTH;
246
247 case MCHT_TITLEBTNPREV:
248 return wxCAL_HITTEST_DECMONTH;
249
250 case MCHT_CALENDARDATENEXT:
251 case MCHT_CALENDARDATEPREV:
252 return wxCAL_HITTEST_SURROUNDING_WEEK;
253 }
254}
255
51317496
VZ
256// ----------------------------------------------------------------------------
257// wxCalendarCtrl operations
258// ----------------------------------------------------------------------------
259
260bool wxCalendarCtrl::SetDate(const wxDateTime& dt)
261{
262 wxCHECK_MSG( dt.IsValid(), false, "invalid date" );
6331afb0 263
51317496 264 SYSTEMTIME st;
10acc3ef 265 dt.GetAsMSWSysDate(&st);
51317496
VZ
266 if ( !MonthCal_SetCurSel(GetHwnd(), &st) )
267 {
9a83f860 268 wxLogDebug(wxT("DateTime_SetSystemtime() failed"));
51317496
VZ
269
270 return false;
271 }
272
10acc3ef 273 m_date = dt.GetDateOnly();
a4fcd589 274
51317496
VZ
275 return true;
276}
277
278wxDateTime wxCalendarCtrl::GetDate() const
279{
4b6a582b 280#if wxDEBUG_LEVEL
51317496 281 SYSTEMTIME st;
10acc3ef 282
51317496 283 if ( !MonthCal_GetCurSel(GetHwnd(), &st) )
a4fcd589
VZ
284 {
285 wxASSERT_MSG( !m_date.IsValid(), "mismatch between data and control" );
286
51317496 287 return wxDefaultDateTime;
a4fcd589 288 }
51317496 289
10acc3ef
VZ
290 wxDateTime dt;
291 dt.SetFromMSWSysDate(st);
a4fcd589 292
6331afb0
VZ
293 // Windows XP and earlier didn't include the time component into the
294 // returned date but Windows 7 does, so we can't compare the full objects
295 // in the same way under all the Windows versions, just compare their date
296 // parts
10acc3ef 297 wxASSERT_MSG( dt.IsSameDate(m_date), "mismatch between data and control" );
4b6a582b 298#endif // wxDEBUG_LEVEL
a4fcd589
VZ
299
300 return m_date;
51317496
VZ
301}
302
303bool wxCalendarCtrl::SetDateRange(const wxDateTime& dt1, const wxDateTime& dt2)
304{
305 SYSTEMTIME st[2];
306
307 DWORD flags = 0;
308 if ( dt1.IsValid() )
309 {
154014d6 310 dt1.GetAsMSWSysTime(st + 0);
51317496
VZ
311 flags |= GDTR_MIN;
312 }
313
314 if ( dt2.IsValid() )
315 {
154014d6 316 dt2.GetAsMSWSysTime(st + 1);
51317496
VZ
317 flags |= GDTR_MAX;
318 }
319
320 if ( !MonthCal_SetRange(GetHwnd(), flags, st) )
321 {
9a83f860 322 wxLogDebug(wxT("MonthCal_SetRange() failed"));
51317496
VZ
323 }
324
325 return flags != 0;
326}
327
328bool wxCalendarCtrl::GetDateRange(wxDateTime *dt1, wxDateTime *dt2) const
329{
330 SYSTEMTIME st[2];
331
332 DWORD flags = MonthCal_GetRange(GetHwnd(), st);
333 if ( dt1 )
334 {
335 if ( flags & GDTR_MIN )
10acc3ef 336 dt1->SetFromMSWSysDate(st[0]);
51317496
VZ
337 else
338 *dt1 = wxDefaultDateTime;
339 }
340
341 if ( dt2 )
342 {
343 if ( flags & GDTR_MAX )
10acc3ef 344 dt2->SetFromMSWSysDate(st[1]);
51317496
VZ
345 else
346 *dt2 = wxDefaultDateTime;
347 }
348
349 return flags != 0;
350}
351
352// ----------------------------------------------------------------------------
353// other wxCalendarCtrl operations
354// ----------------------------------------------------------------------------
355
356bool wxCalendarCtrl::EnableMonthChange(bool enable)
357{
7ec5c42e
VZ
358 if ( !wxCalendarCtrlBase::EnableMonthChange(enable) )
359 return false;
360
361 wxDateTime dtStart, dtEnd;
362 if ( !enable )
363 {
364 dtStart = GetDate();
365 dtStart.SetDay(1);
51317496 366
7ec5c42e
VZ
367 dtEnd = dtStart.GetLastMonthDay();
368 }
369 //else: leave them invalid to remove the restriction
370
371 SetDateRange(dtStart, dtEnd);
372
373 return true;
51317496
VZ
374}
375
376void wxCalendarCtrl::Mark(size_t day, bool mark)
377{
82c6027b
VZ
378 wxCHECK_RET( day > 0 && day < 32, "invalid day" );
379
380 int mask = 1 << (day - 1);
381 if ( mark )
382 m_marks |= mask;
383 else
384 m_marks &= ~mask;
385
386 // calling Refresh() here is not enough to change the day appearance
387 UpdateMarks();
388}
389
6d9b6716
VZ
390void wxCalendarCtrl::SetHoliday(size_t day)
391{
392 wxCHECK_RET( day > 0 && day < 32, "invalid day" );
393
394 m_holidays |= 1 << (day - 1);
395}
396
82c6027b
VZ
397void wxCalendarCtrl::UpdateMarks()
398{
52980340
VZ
399 // we show only one full month but there can be some days from the month
400 // before it and from the one after it so days from 3 different months can
401 // be partially shown
402 MONTHDAYSTATE states[3] = { 0 };
9573840b 403 const DWORD nMonths = MonthCal_GetMonthRange(GetHwnd(), GMR_DAYSTATE, NULL);
82c6027b 404
52980340
VZ
405 // although in principle the calendar might not show any days from the
406 // preceding months, it seems like it always does, consider e.g. Feb 2010
407 // which starts on Monday and ends on Sunday and so could fit on 4 lines
408 // without showing any subsequent months -- the standard control still
409 // shows it on 6 lines and the number of visible months is still 3
9573840b
VZ
410 //
411 // OTOH Windows 7 control can show all 12 months or even years or decades
412 // in its window if you "zoom out" of it by double clicking on free areas
413 // so the return value can be (much, in case of decades view) greater than
414 // 3 but in this case marks are not visible anyhow so simply ignore it
415 if ( nMonths < WXSIZEOF(states) )
416 {
417 wxFAIL_MSG("unexpectedly few months shown in the control");
418 }
419 else if ( nMonths == WXSIZEOF(states) )
82c6027b 420 {
9573840b
VZ
421 // the fully visible month is the one in the middle
422 states[1] = m_marks | m_holidays;
423
424 if ( !MonthCal_SetDayState(GetHwnd(), nMonths, states) )
425 {
426 wxLogLastError(wxT("MonthCal_SetDayState"));
427 }
82c6027b 428 }
9573840b 429 //else: not a month view at all
51317496
VZ
430}
431
db0b0942
VZ
432void wxCalendarCtrl::UpdateFirstDayOfWeek()
433{
18547275
VZ
434 MonthCal_SetFirstDayOfWeek(GetHwnd(),
435 HasFlag(wxCAL_MONDAY_FIRST) ? MonthCal_Monday
436 : MonthCal_Sunday);
db0b0942
VZ
437}
438
51317496
VZ
439// ----------------------------------------------------------------------------
440// wxCalendarCtrl events
441// ----------------------------------------------------------------------------
442
443bool wxCalendarCtrl::MSWOnNotify(int idCtrl, WXLPARAM lParam, WXLPARAM *result)
444{
445 NMHDR* hdr = (NMHDR *)lParam;
446 switch ( hdr->code )
447 {
a4fcd589 448 case MCN_SELCHANGE:
a4fcd589 449 {
82c6027b
VZ
450 // we need to update m_date first, before calling the user code
451 // which expects GetDate() to return the new date
452 const wxDateTime dateOld = m_date;
453 const NMSELCHANGE * const sch = (NMSELCHANGE *)lParam;
10acc3ef 454 m_date.SetFromMSWSysDate(sch->stSelStart);
82c6027b
VZ
455
456 // changing the year or the month results in a second dummy
457 // MCN_SELCHANGE event on this system which doesn't really
458 // change anything -- filter it out
459 if ( m_date != dateOld )
460 {
6d9b6716
VZ
461 if ( GenerateAllChangeEvents(dateOld) )
462 {
463 // month changed, need to update the holidays if we use
464 // them
465 if ( SetHolidayAttrs() )
466 UpdateMarks();
467 }
82c6027b
VZ
468 }
469 }
470 break;
a4fcd589 471
82c6027b
VZ
472 case MCN_GETDAYSTATE:
473 {
474 const NMDAYSTATE * const ds = (NMDAYSTATE *)lParam;
475 for ( int i = 0; i < ds->cDayState; i++ )
476 {
6d9b6716 477 ds->prgDayState[i] = m_marks | m_holidays;
82c6027b 478 }
a4fcd589 479 }
82c6027b
VZ
480 break;
481
482 default:
483 return wxCalendarCtrlBase::MSWOnNotify(idCtrl, lParam, result);
51317496
VZ
484 }
485
82c6027b
VZ
486 *result = 0;
487 return true;
51317496
VZ
488}
489
b3ed7020
VZ
490void wxCalendarCtrl::MSWOnDoubleClick(wxMouseEvent& event)
491{
492 if ( HitTest(event.GetPosition()) == wxCAL_HITTEST_DAY )
493 {
494 if ( GenerateEvent(wxEVT_CALENDAR_DOUBLECLICKED) )
495 return; // skip event.Skip() below
496 }
497
498 event.Skip();
499}
500
3ccd1b49
VZ
501void wxCalendarCtrl::MSWOnClick(wxMouseEvent& event)
502{
503 // for some reason, the control doesn't get focus on its own when the user
504 // clicks in it
505 SetFocus();
506
507 event.Skip();
508}
509
51317496 510#endif // wxUSE_CALENDARCTRL