Call wxThread::Create() from Run() automatically.
[wxWidgets.git] / src / msw / notebook.cpp
1 ///////////////////////////////////////////////////////////////////////////////
2 // Name: src/msw/notebook.cpp
3 // Purpose: implementation of wxNotebook
4 // Author: Vadim Zeitlin
5 // Modified by:
6 // Created: 11.06.98
7 // RCS-ID: $Id$
8 // Copyright: (c) 1998 Vadim Zeitlin <zeitlin@dptmaths.ens-cachan.fr>
9 // Licence: wxWindows licence
10 ///////////////////////////////////////////////////////////////////////////////
11
12 // For compilers that support precompilation, includes "wx.h".
13 #include "wx/wxprec.h"
14
15 #ifdef __BORLANDC__
16 #pragma hdrstop
17 #endif
18
19 #if wxUSE_NOTEBOOK
20
21 #include "wx/notebook.h"
22
23 #ifndef WX_PRECOMP
24 #include "wx/msw/wrapcctl.h" // include <commctrl.h> "properly"
25 #include "wx/string.h"
26 #include "wx/dc.h"
27 #include "wx/log.h"
28 #include "wx/event.h"
29 #include "wx/app.h"
30 #include "wx/dcclient.h"
31 #include "wx/dcmemory.h"
32 #include "wx/control.h"
33 #include "wx/panel.h"
34 #endif // WX_PRECOMP
35
36 #include "wx/imaglist.h"
37 #include "wx/sysopt.h"
38
39 #include "wx/msw/private.h"
40 #include "wx/msw/dc.h"
41
42 #include <windowsx.h>
43 #include "wx/msw/winundef.h"
44
45 #if wxUSE_UXTHEME
46 #include "wx/msw/uxtheme.h"
47 #endif
48
49 // ----------------------------------------------------------------------------
50 // macros
51 // ----------------------------------------------------------------------------
52
53 // check that the page index is valid
54 #define IS_VALID_PAGE(nPage) ((nPage) < GetPageCount())
55
56 // you can set USE_NOTEBOOK_ANTIFLICKER to 0 for desktop Windows versions too
57 // to disable code whih results in flicker-less notebook redrawing at the
58 // expense of some extra GDI resource consumption
59 #ifdef __WXWINCE__
60 // notebooks are never resized under CE anyhow
61 #define USE_NOTEBOOK_ANTIFLICKER 0
62 #else
63 #define USE_NOTEBOOK_ANTIFLICKER 1
64 #endif
65
66 // ----------------------------------------------------------------------------
67 // constants
68 // ----------------------------------------------------------------------------
69
70 // This is a work-around for missing defines in gcc-2.95 headers
71 #ifndef TCS_RIGHT
72 #define TCS_RIGHT 0x0002
73 #endif
74
75 #ifndef TCS_VERTICAL
76 #define TCS_VERTICAL 0x0080
77 #endif
78
79 #ifndef TCS_BOTTOM
80 #define TCS_BOTTOM TCS_RIGHT
81 #endif
82
83 // ----------------------------------------------------------------------------
84 // global variables
85 // ----------------------------------------------------------------------------
86
87 #if USE_NOTEBOOK_ANTIFLICKER
88
89 // the pointer to standard spin button wnd proc
90 static WXFARPROC gs_wndprocNotebookSpinBtn = (WXFARPROC)NULL;
91
92 // the pointer to standard tab control wnd proc
93 static WXFARPROC gs_wndprocNotebook = (WXFARPROC)NULL;
94
95 LRESULT APIENTRY _EXPORT wxNotebookWndProc(HWND hwnd,
96 UINT message,
97 WPARAM wParam,
98 LPARAM lParam);
99
100 #endif // USE_NOTEBOOK_ANTIFLICKER
101
102 // ----------------------------------------------------------------------------
103 // global functions
104 // ----------------------------------------------------------------------------
105
106 static bool HasTroubleWithNonTopTabs()
107 {
108 const int verComCtl32 = wxApp::GetComCtl32Version();
109
110 // 600 is XP, 616 is Vista -- and both have a problem with tabs not on top
111 // (but don't just test for >= 600 as Microsoft might decide to fix it in
112 // later versions, who knows...)
113 return verComCtl32 >= 600 && verComCtl32 <= 616;
114 }
115
116 // ----------------------------------------------------------------------------
117 // event table
118 // ----------------------------------------------------------------------------
119
120 BEGIN_EVENT_TABLE(wxNotebook, wxBookCtrlBase)
121 EVT_SIZE(wxNotebook::OnSize)
122 EVT_NAVIGATION_KEY(wxNotebook::OnNavigationKey)
123
124 #if USE_NOTEBOOK_ANTIFLICKER
125 EVT_ERASE_BACKGROUND(wxNotebook::OnEraseBackground)
126 EVT_PAINT(wxNotebook::OnPaint)
127 #endif // USE_NOTEBOOK_ANTIFLICKER
128 END_EVENT_TABLE()
129
130 // ============================================================================
131 // implementation
132 // ============================================================================
133
134 // ----------------------------------------------------------------------------
135 // wxNotebook construction
136 // ----------------------------------------------------------------------------
137
138 // common part of all ctors
139 void wxNotebook::Init()
140 {
141 #if wxUSE_UXTHEME
142 m_hbrBackground = NULL;
143 #endif // wxUSE_UXTHEME
144
145 #if USE_NOTEBOOK_ANTIFLICKER
146 m_hasSubclassedUpdown = false;
147 m_doneUpdateHack = false;
148 #endif // USE_NOTEBOOK_ANTIFLICKER
149 }
150
151 // default for dynamic class
152 wxNotebook::wxNotebook()
153 {
154 Init();
155 }
156
157 // the same arguments as for wxControl
158 wxNotebook::wxNotebook(wxWindow *parent,
159 wxWindowID id,
160 const wxPoint& pos,
161 const wxSize& size,
162 long style,
163 const wxString& name)
164 {
165 Init();
166
167 Create(parent, id, pos, size, style, name);
168 }
169
170 // Create() function
171 bool wxNotebook::Create(wxWindow *parent,
172 wxWindowID id,
173 const wxPoint& pos,
174 const wxSize& size,
175 long style,
176 const wxString& name)
177 {
178 if ( (style & wxBK_ALIGN_MASK) == wxBK_DEFAULT )
179 {
180 #if defined(__POCKETPC__)
181 style |= wxBK_BOTTOM | wxNB_FLAT;
182 #else
183 style |= wxBK_TOP;
184 #endif
185 }
186
187 #ifdef __WXWINCE__
188 // Not sure why, but without this style, there is no border
189 // around the notebook tabs.
190 if (style & wxNB_FLAT)
191 style |= wxBORDER_SUNKEN;
192 #endif
193
194 #if !wxUSE_UXTHEME
195 // ComCtl32 notebook tabs simply don't work unless they're on top if we
196 // have uxtheme, we can work around it later (after control creation), but
197 // if we have been compiled without uxtheme support, we have to clear those
198 // styles
199 if ( HasTroubleWithNonTopTabs() )
200 {
201 style &= ~(wxBK_BOTTOM | wxBK_LEFT | wxBK_RIGHT);
202 }
203 #endif //wxUSE_UXTHEME
204
205 #if defined(__WINE__) && wxUSE_UNICODE
206 LPCTSTR className = L"SysTabControl32";
207 #else
208 LPCTSTR className = WC_TABCONTROL;
209 #endif
210
211 #if USE_NOTEBOOK_ANTIFLICKER
212 // SysTabCtl32 class has natively CS_HREDRAW and CS_VREDRAW enabled and it
213 // causes horrible flicker when resizing notebook, so get rid of it by
214 // using a class without these styles (but otherwise identical to it)
215 if ( !HasFlag(wxFULL_REPAINT_ON_RESIZE) )
216 {
217 static ClassRegistrar s_clsNotebook;
218 if ( !s_clsNotebook.IsInitialized() )
219 {
220 // get a copy of standard class and modify it
221 WNDCLASS wc;
222
223 if ( ::GetClassInfo(NULL, WC_TABCONTROL, &wc) )
224 {
225 gs_wndprocNotebook =
226 reinterpret_cast<WXFARPROC>(wc.lpfnWndProc);
227 wc.lpszClassName = wxT("_wx_SysTabCtl32");
228 wc.style &= ~(CS_HREDRAW | CS_VREDRAW);
229 wc.hInstance = wxGetInstance();
230 wc.lpfnWndProc = wxNotebookWndProc;
231 s_clsNotebook.Register(wc);
232 }
233 else
234 {
235 wxLogLastError(wxT("GetClassInfoEx(SysTabCtl32)"));
236 }
237 }
238
239 // use our custom class if available but fall back to the standard
240 // notebook if we failed to register it
241 if ( s_clsNotebook.IsRegistered() )
242 {
243 // it's ok to use c_str() here as the static s_clsNotebook object
244 // has sufficiently long lifetime
245 className = s_clsNotebook.GetName().c_str();
246 }
247 }
248 #endif // USE_NOTEBOOK_ANTIFLICKER
249
250 if ( !CreateControl(parent, id, pos, size, style | wxTAB_TRAVERSAL,
251 wxDefaultValidator, name) )
252 return false;
253
254 if ( !MSWCreateControl(className, wxEmptyString, pos, size) )
255 return false;
256
257 #if wxUSE_UXTHEME
258 if ( HasFlag(wxNB_NOPAGETHEME) ||
259 wxSystemOptions::IsFalse(wxT("msw.notebook.themed-background")) )
260 {
261 SetBackgroundColour(GetThemeBackgroundColour());
262 }
263 else // use themed background by default
264 {
265 // create backing store
266 UpdateBgBrush();
267 }
268
269 // comctl32.dll 6.0 doesn't support non-top tabs with visual styles (the
270 // control is simply not rendered correctly), so we disable themes
271 // if possible, otherwise we simply clear the styles.
272 if ( HasTroubleWithNonTopTabs() &&
273 (style & (wxBK_BOTTOM | wxBK_LEFT | wxBK_RIGHT)) )
274 {
275 // check if we use themes at all -- if we don't, we're still okay
276 if ( wxUxThemeEngine::GetIfActive() )
277 {
278 wxUxThemeEngine::GetIfActive()->SetWindowTheme(GetHwnd(), L"", L"");
279
280 // correct the background color for the new non-themed control
281 SetBackgroundColour(GetThemeBackgroundColour());
282 }
283 }
284 #endif // wxUSE_UXTHEME
285
286 // Undocumented hack to get flat notebook style
287 // In fact, we should probably only do this in some
288 // curcumstances, i.e. if we know we will have a border
289 // at the bottom (the tab control doesn't draw it itself)
290 #if defined(__POCKETPC__) || defined(__SMARTPHONE__)
291 if (HasFlag(wxNB_FLAT))
292 {
293 SendMessage(GetHwnd(), CCM_SETVERSION, COMCTL32_VERSION, 0);
294 if (!m_hasBgCol)
295 SetBackgroundColour(*wxWHITE);
296 }
297 #endif
298 return true;
299 }
300
301 WXDWORD wxNotebook::MSWGetStyle(long style, WXDWORD *exstyle) const
302 {
303 WXDWORD tabStyle = wxControl::MSWGetStyle(style, exstyle);
304
305 tabStyle |= WS_TABSTOP | TCS_TABS;
306
307 if ( style & wxNB_MULTILINE )
308 tabStyle |= TCS_MULTILINE;
309 if ( style & wxNB_FIXEDWIDTH )
310 tabStyle |= TCS_FIXEDWIDTH;
311
312 if ( style & wxBK_BOTTOM )
313 tabStyle |= TCS_RIGHT;
314 else if ( style & wxBK_LEFT )
315 tabStyle |= TCS_VERTICAL;
316 else if ( style & wxBK_RIGHT )
317 tabStyle |= TCS_VERTICAL | TCS_RIGHT;
318
319 return tabStyle;
320 }
321
322 wxNotebook::~wxNotebook()
323 {
324 #if wxUSE_UXTHEME
325 if ( m_hbrBackground )
326 ::DeleteObject((HBRUSH)m_hbrBackground);
327 #endif // wxUSE_UXTHEME
328 }
329
330 // ----------------------------------------------------------------------------
331 // wxNotebook accessors
332 // ----------------------------------------------------------------------------
333
334 size_t wxNotebook::GetPageCount() const
335 {
336 // consistency check
337 wxASSERT( (int)m_pages.Count() == TabCtrl_GetItemCount(GetHwnd()) );
338
339 return m_pages.Count();
340 }
341
342 int wxNotebook::GetRowCount() const
343 {
344 return TabCtrl_GetRowCount(GetHwnd());
345 }
346
347 int wxNotebook::SetSelection(size_t nPage)
348 {
349 wxCHECK_MSG( IS_VALID_PAGE(nPage), wxNOT_FOUND, wxT("notebook page out of range") );
350
351 if ( m_selection == wxNOT_FOUND || nPage != (size_t)m_selection )
352 {
353 if ( SendPageChangingEvent(nPage) )
354 {
355 // program allows the page change
356 const int selectionOld = m_selection;
357
358 UpdateSelection(nPage);
359
360 TabCtrl_SetCurSel(GetHwnd(), nPage);
361
362 SendPageChangedEvent(selectionOld, nPage);
363 }
364 }
365
366 return m_selection;
367 }
368
369 void wxNotebook::UpdateSelection(int selNew)
370 {
371 if ( m_selection != wxNOT_FOUND )
372 m_pages[m_selection]->Show(false);
373
374 if ( selNew != wxNOT_FOUND )
375 {
376 wxNotebookPage *pPage = m_pages[selNew];
377 pPage->Show(true);
378
379 // In addition to showing the page, we also want to give focus to it to
380 // make it possible to work with it from keyboard easily. However there
381 // are two exceptions: first, don't touch the focus at all if the
382 // notebook itself is not currently shown.
383 if ( ::IsWindowVisible(GetHwnd()) )
384 {
385 // And second, don't give focus away if the tab control itself has
386 // it, as this is how the native property sheets behave: if you
387 // explicitly click on the tab label giving it focus, it will
388 // remain after switching to another page. But if the focus was
389 // inside the notebook page, it switches to the new page.
390 if ( !HasFocus() )
391 pPage->SetFocus();
392 }
393 }
394
395 m_selection = selNew;
396 }
397
398 int wxNotebook::ChangeSelection(size_t nPage)
399 {
400 wxCHECK_MSG( IS_VALID_PAGE(nPage), wxNOT_FOUND, wxT("notebook page out of range") );
401
402 const int selOld = m_selection;
403
404 if ( m_selection == wxNOT_FOUND || nPage != (size_t)m_selection )
405 {
406 TabCtrl_SetCurSel(GetHwnd(), nPage);
407
408 UpdateSelection(nPage);
409 }
410
411 return selOld;
412 }
413
414 bool wxNotebook::SetPageText(size_t nPage, const wxString& strText)
415 {
416 wxCHECK_MSG( IS_VALID_PAGE(nPage), false, wxT("notebook page out of range") );
417
418 TC_ITEM tcItem;
419 tcItem.mask = TCIF_TEXT;
420 tcItem.pszText = wxMSW_CONV_LPTSTR(strText);
421
422 if ( !HasFlag(wxNB_MULTILINE) )
423 return TabCtrl_SetItem(GetHwnd(), nPage, &tcItem) != 0;
424
425 // multiline - we need to set new page size if a line is added or removed
426 int rows = GetRowCount();
427 bool ret = TabCtrl_SetItem(GetHwnd(), nPage, &tcItem) != 0;
428
429 if ( ret && rows != GetRowCount() )
430 {
431 const wxRect r = GetPageSize();
432 const size_t count = m_pages.Count();
433 for ( size_t page = 0; page < count; page++ )
434 m_pages[page]->SetSize(r);
435 }
436
437 return ret;
438 }
439
440 wxString wxNotebook::GetPageText(size_t nPage) const
441 {
442 wxCHECK_MSG( IS_VALID_PAGE(nPage), wxEmptyString, wxT("notebook page out of range") );
443
444 wxChar buf[256];
445 TC_ITEM tcItem;
446 tcItem.mask = TCIF_TEXT;
447 tcItem.pszText = buf;
448 tcItem.cchTextMax = WXSIZEOF(buf);
449
450 wxString str;
451 if ( TabCtrl_GetItem(GetHwnd(), nPage, &tcItem) )
452 str = tcItem.pszText;
453
454 return str;
455 }
456
457 int wxNotebook::GetPageImage(size_t nPage) const
458 {
459 wxCHECK_MSG( IS_VALID_PAGE(nPage), wxNOT_FOUND, wxT("notebook page out of range") );
460
461 TC_ITEM tcItem;
462 tcItem.mask = TCIF_IMAGE;
463
464 return TabCtrl_GetItem(GetHwnd(), nPage, &tcItem) ? tcItem.iImage
465 : wxNOT_FOUND;
466 }
467
468 bool wxNotebook::SetPageImage(size_t nPage, int nImage)
469 {
470 wxCHECK_MSG( IS_VALID_PAGE(nPage), false, wxT("notebook page out of range") );
471
472 TC_ITEM tcItem;
473 tcItem.mask = TCIF_IMAGE;
474 tcItem.iImage = nImage;
475
476 return TabCtrl_SetItem(GetHwnd(), nPage, &tcItem) != 0;
477 }
478
479 void wxNotebook::SetImageList(wxImageList* imageList)
480 {
481 wxNotebookBase::SetImageList(imageList);
482
483 if ( imageList )
484 {
485 (void) TabCtrl_SetImageList(GetHwnd(), GetHimagelistOf(imageList));
486 }
487 }
488
489 // ----------------------------------------------------------------------------
490 // wxNotebook size settings
491 // ----------------------------------------------------------------------------
492
493 wxRect wxNotebook::GetPageSize() const
494 {
495 wxRect r;
496
497 RECT rc;
498 ::GetClientRect(GetHwnd(), &rc);
499
500 // This check is to work around a bug in TabCtrl_AdjustRect which will
501 // cause a crash on win2k or on XP with themes disabled if either
502 // wxNB_MULTILINE is used or tabs are placed on a side, if the rectangle
503 // is too small.
504 //
505 // The value of 20 is chosen arbitrarily but seems to work
506 if ( rc.right > 20 && rc.bottom > 20 )
507 {
508 TabCtrl_AdjustRect(GetHwnd(), false, &rc);
509
510 wxCopyRECTToRect(rc, r);
511 }
512
513 return r;
514 }
515
516 void wxNotebook::SetPageSize(const wxSize& size)
517 {
518 // transform the page size into the notebook size
519 RECT rc;
520 rc.left =
521 rc.top = 0;
522 rc.right = size.x;
523 rc.bottom = size.y;
524
525 TabCtrl_AdjustRect(GetHwnd(), true, &rc);
526
527 // and now set it
528 SetSize(rc.right - rc.left, rc.bottom - rc.top);
529 }
530
531 void wxNotebook::SetPadding(const wxSize& padding)
532 {
533 TabCtrl_SetPadding(GetHwnd(), padding.x, padding.y);
534 }
535
536 // Windows-only at present. Also, you must use the wxNB_FIXEDWIDTH
537 // style.
538 void wxNotebook::SetTabSize(const wxSize& sz)
539 {
540 ::SendMessage(GetHwnd(), TCM_SETITEMSIZE, 0, MAKELPARAM(sz.x, sz.y));
541 }
542
543 wxSize wxNotebook::CalcSizeFromPage(const wxSize& sizePage) const
544 {
545 // we can't use TabCtrl_AdjustRect here because it only works for wxNB_TOP
546 wxSize sizeTotal = sizePage;
547
548 wxSize tabSize;
549 if ( GetPageCount() > 0 )
550 {
551 RECT rect;
552 TabCtrl_GetItemRect(GetHwnd(), 0, &rect);
553 tabSize.x = rect.right - rect.left;
554 tabSize.y = rect.bottom - rect.top;
555 }
556
557 const int rows = GetRowCount();
558
559 // add an extra margin in both directions
560 const int MARGIN = 8;
561 if ( IsVertical() )
562 {
563 sizeTotal.x += MARGIN;
564 sizeTotal.y += tabSize.y * rows + MARGIN;
565 }
566 else // horizontal layout
567 {
568 sizeTotal.x += tabSize.x * rows + MARGIN;
569 sizeTotal.y += MARGIN;
570 }
571
572 return sizeTotal;
573 }
574
575 void wxNotebook::AdjustPageSize(wxNotebookPage *page)
576 {
577 wxCHECK_RET( page, wxT("NULL page in wxNotebook::AdjustPageSize") );
578
579 const wxRect r = GetPageSize();
580 if ( !r.IsEmpty() )
581 {
582 page->SetSize(r);
583 }
584 }
585
586 // ----------------------------------------------------------------------------
587 // wxNotebook operations
588 // ----------------------------------------------------------------------------
589
590 // remove one page from the notebook, without deleting
591 wxNotebookPage *wxNotebook::DoRemovePage(size_t nPage)
592 {
593 wxNotebookPage *pageRemoved = wxNotebookBase::DoRemovePage(nPage);
594 if ( !pageRemoved )
595 return NULL;
596
597 // hide the removed page to maintain the invariant that only the
598 // selected page is visible and others are hidden:
599 pageRemoved->Show(false);
600
601 TabCtrl_DeleteItem(GetHwnd(), nPage);
602
603 if ( m_pages.IsEmpty() )
604 {
605 // no selection any more, the notebook becamse empty
606 m_selection = wxNOT_FOUND;
607 }
608 else // notebook still not empty
609 {
610 int selNew = TabCtrl_GetCurSel(GetHwnd());
611 if ( selNew != wxNOT_FOUND )
612 {
613 // No selection change, just refresh the current selection.
614 // Because it could be that the slection index changed
615 // we need to update it.
616 // Note: this does not mean the selection it self changed.
617 m_selection = selNew;
618 m_pages[m_selection]->Refresh();
619 }
620 else if (int(nPage) == m_selection)
621 {
622 // The selection was deleted.
623
624 // Determine new selection.
625 if (m_selection == int(GetPageCount()))
626 selNew = m_selection - 1;
627 else
628 selNew = m_selection;
629
630 // m_selection must be always valid so reset it before calling
631 // SetSelection()
632 m_selection = wxNOT_FOUND;
633 SetSelection(selNew);
634 }
635 else
636 {
637 wxFAIL; // Windows did not behave ok.
638 }
639 }
640
641 return pageRemoved;
642 }
643
644 // remove all pages
645 bool wxNotebook::DeleteAllPages()
646 {
647 size_t nPageCount = GetPageCount();
648 size_t nPage;
649 for ( nPage = 0; nPage < nPageCount; nPage++ )
650 delete m_pages[nPage];
651
652 m_pages.Clear();
653
654 TabCtrl_DeleteAllItems(GetHwnd());
655
656 m_selection = wxNOT_FOUND;
657
658 InvalidateBestSize();
659 return true;
660 }
661
662 // same as AddPage() but does it at given position
663 bool wxNotebook::InsertPage(size_t nPage,
664 wxNotebookPage *pPage,
665 const wxString& strText,
666 bool bSelect,
667 int imageId)
668 {
669 wxCHECK_MSG( pPage != NULL, false, wxT("NULL page in wxNotebook::InsertPage") );
670 wxCHECK_MSG( IS_VALID_PAGE(nPage) || nPage == GetPageCount(), false,
671 wxT("invalid index in wxNotebook::InsertPage") );
672
673 wxASSERT_MSG( pPage->GetParent() == this,
674 wxT("notebook pages must have notebook as parent") );
675
676 // add a new tab to the control
677 // ----------------------------
678
679 // init all fields to 0
680 TC_ITEM tcItem;
681 wxZeroMemory(tcItem);
682
683 // set the image, if any
684 if ( imageId != -1 )
685 {
686 tcItem.mask |= TCIF_IMAGE;
687 tcItem.iImage = imageId;
688 }
689
690 // and the text
691 if ( !strText.empty() )
692 {
693 tcItem.mask |= TCIF_TEXT;
694 tcItem.pszText = wxMSW_CONV_LPTSTR(strText);
695 }
696
697 // hide the page: unless it is selected, it shouldn't be shown (and if it
698 // is selected it will be shown later)
699 HWND hwnd = GetWinHwnd(pPage);
700 SetWindowLong(hwnd, GWL_STYLE, GetWindowLong(hwnd, GWL_STYLE) & ~WS_VISIBLE);
701
702 // this updates internal flag too -- otherwise it would get out of sync
703 // with the real state
704 pPage->Show(false);
705
706
707 // fit the notebook page to the tab control's display area: this should be
708 // done before adding it to the notebook or TabCtrl_InsertItem() will
709 // change the notebooks size itself!
710 AdjustPageSize(pPage);
711
712 // finally do insert it
713 if ( TabCtrl_InsertItem(GetHwnd(), nPage, &tcItem) == -1 )
714 {
715 wxLogError(wxT("Can't create the notebook page '%s'."), strText.c_str());
716
717 return false;
718 }
719
720 // need to update the bg brush when the first page is added
721 // so the first panel gets the correct themed background
722 if ( m_pages.empty() )
723 {
724 #if wxUSE_UXTHEME
725 UpdateBgBrush();
726 #endif // wxUSE_UXTHEME
727 }
728
729 // succeeded: save the pointer to the page
730 m_pages.Insert(pPage, nPage);
731
732 // we may need to adjust the size again if the notebook size changed:
733 // normally this only happens for the first page we add (the tabs which
734 // hadn't been there before are now shown) but for a multiline notebook it
735 // can happen for any page at all as a new row could have been started
736 if ( m_pages.GetCount() == 1 || HasFlag(wxNB_MULTILINE) )
737 {
738 AdjustPageSize(pPage);
739
740 // Additionally, force the layout of the notebook itself by posting a
741 // size event to it. If we don't do it, notebooks with pages on the
742 // left or the right side may fail to account for the fact that they
743 // are now big enough to fit all all of their pages on one row and
744 // still reserve space for the second row of tabs, see #1792.
745 const wxSize s = GetSize();
746 ::PostMessage(GetHwnd(), WM_SIZE, SIZE_RESTORED, MAKELPARAM(s.x, s.y));
747 }
748
749 // now deal with the selection
750 // ---------------------------
751
752 // if the inserted page is before the selected one, we must update the
753 // index of the selected page
754 if ( int(nPage) <= m_selection )
755 {
756 // one extra page added
757 m_selection++;
758 }
759
760 DoSetSelectionAfterInsertion(nPage, bSelect);
761
762 InvalidateBestSize();
763
764 return true;
765 }
766
767 int wxNotebook::HitTest(const wxPoint& pt, long *flags) const
768 {
769 TC_HITTESTINFO hitTestInfo;
770 hitTestInfo.pt.x = pt.x;
771 hitTestInfo.pt.y = pt.y;
772 int item = TabCtrl_HitTest(GetHwnd(), &hitTestInfo);
773
774 if ( flags )
775 {
776 *flags = 0;
777
778 if ((hitTestInfo.flags & TCHT_NOWHERE) == TCHT_NOWHERE)
779 *flags |= wxBK_HITTEST_NOWHERE;
780 if ((hitTestInfo.flags & TCHT_ONITEM) == TCHT_ONITEM)
781 *flags |= wxBK_HITTEST_ONITEM;
782 if ((hitTestInfo.flags & TCHT_ONITEMICON) == TCHT_ONITEMICON)
783 *flags |= wxBK_HITTEST_ONICON;
784 if ((hitTestInfo.flags & TCHT_ONITEMLABEL) == TCHT_ONITEMLABEL)
785 *flags |= wxBK_HITTEST_ONLABEL;
786 if ( item == wxNOT_FOUND && GetPageSize().Contains(pt) )
787 *flags |= wxBK_HITTEST_ONPAGE;
788 }
789
790 return item;
791 }
792
793 // ----------------------------------------------------------------------------
794 // flicker-less notebook redraw
795 // ----------------------------------------------------------------------------
796
797 #if USE_NOTEBOOK_ANTIFLICKER
798
799 // wnd proc for the spin button
800 LRESULT APIENTRY _EXPORT wxNotebookSpinBtnWndProc(HWND hwnd,
801 UINT message,
802 WPARAM wParam,
803 LPARAM lParam)
804 {
805 if ( message == WM_ERASEBKGND )
806 return 0;
807
808 return ::CallWindowProc(CASTWNDPROC gs_wndprocNotebookSpinBtn,
809 hwnd, message, wParam, lParam);
810 }
811
812 LRESULT APIENTRY _EXPORT wxNotebookWndProc(HWND hwnd,
813 UINT message,
814 WPARAM wParam,
815 LPARAM lParam)
816 {
817 return ::CallWindowProc(CASTWNDPROC gs_wndprocNotebook,
818 hwnd, message, wParam, lParam);
819 }
820
821 void wxNotebook::OnEraseBackground(wxEraseEvent& WXUNUSED(event))
822 {
823 // do nothing here
824 }
825
826 void wxNotebook::OnPaint(wxPaintEvent& WXUNUSED(event))
827 {
828 wxPaintDC dc(this);
829 wxMemoryDC memdc;
830 RECT rc;
831 ::GetClientRect(GetHwnd(), &rc);
832 wxBitmap bmp(rc.right, rc.bottom);
833 memdc.SelectObject(bmp);
834
835 const wxLayoutDirection dir = dc.GetLayoutDirection();
836 memdc.SetLayoutDirection(dir);
837
838 // if there is no special brush just use the solid background colour
839 #if wxUSE_UXTHEME
840 HBRUSH hbr = (HBRUSH)m_hbrBackground;
841 #else
842 HBRUSH hbr = 0;
843 #endif
844 wxBrush brush;
845 if ( !hbr )
846 {
847 brush = wxBrush(GetBackgroundColour());
848 hbr = GetHbrushOf(brush);
849 }
850
851 wxMSWDCImpl *impl = (wxMSWDCImpl*) memdc.GetImpl();
852
853 ::FillRect(GetHdcOf(*impl), &rc, hbr);
854
855 MSWDefWindowProc(WM_PAINT, (WPARAM)(impl->GetHDC()), 0);
856
857 // For some reason in RTL mode, source offset has to be -1, otherwise the
858 // right border (physical) remains unpainted.
859 const wxCoord ofs = dir == wxLayout_RightToLeft ? -1 : 0;
860 dc.Blit(ofs, 0, rc.right, rc.bottom, &memdc, ofs, 0);
861 }
862
863 #endif // USE_NOTEBOOK_ANTIFLICKER
864
865 // ----------------------------------------------------------------------------
866 // wxNotebook callbacks
867 // ----------------------------------------------------------------------------
868
869 void wxNotebook::OnSize(wxSizeEvent& event)
870 {
871 if ( GetPageCount() == 0 )
872 {
873 // Prevents droppings on resize, but does cause some flicker
874 // when there are no pages.
875 Refresh();
876 event.Skip();
877 return;
878 }
879 #ifndef __WXWINCE__
880 else
881 {
882 // Without this, we can sometimes get droppings at the edges
883 // of a notebook, for example a notebook in a splitter window.
884 // This needs to be reconciled with the RefreshRect calls
885 // at the end of this function, which weren't enough to prevent
886 // the droppings.
887
888 wxSize sz = GetClientSize();
889
890 // Refresh right side
891 wxRect rect(sz.x-4, 0, 4, sz.y);
892 RefreshRect(rect);
893
894 // Refresh bottom side
895 rect = wxRect(0, sz.y-4, sz.x, 4);
896 RefreshRect(rect);
897
898 // Refresh left side
899 rect = wxRect(0, 0, 4, sz.y);
900 RefreshRect(rect);
901 }
902 #endif // !__WXWINCE__
903
904 // fit all the notebook pages to the tab control's display area
905
906 RECT rc;
907 rc.left = rc.top = 0;
908 GetSize((int *)&rc.right, (int *)&rc.bottom);
909
910 // save the total size, we'll use it below
911 int widthNbook = rc.right - rc.left,
912 heightNbook = rc.bottom - rc.top;
913
914 // there seems to be a bug in the implementation of TabCtrl_AdjustRect(): it
915 // returns completely false values for multiline tab controls after the tabs
916 // are added but before getting the first WM_SIZE (off by ~50 pixels, see
917 //
918 // http://sf.net/tracker/index.php?func=detail&aid=645323&group_id=9863&atid=109863
919 //
920 // and the only work around I could find was this ugly hack... without it
921 // simply toggling the "multiline" checkbox in the notebook sample resulted
922 // in a noticeable page displacement
923 if ( HasFlag(wxNB_MULTILINE) )
924 {
925 // avoid an infinite recursion: we get another notification too!
926 static bool s_isInOnSize = false;
927
928 if ( !s_isInOnSize )
929 {
930 s_isInOnSize = true;
931 SendMessage(GetHwnd(), WM_SIZE, SIZE_RESTORED,
932 MAKELPARAM(rc.right, rc.bottom));
933 s_isInOnSize = false;
934 }
935
936 // The best size depends on the number of rows of tabs, which can
937 // change when the notepad is resized.
938 InvalidateBestSize();
939 }
940
941 #if wxUSE_UXTHEME
942 // background bitmap size has changed, update the brush using it too
943 UpdateBgBrush();
944 #endif // wxUSE_UXTHEME
945
946 TabCtrl_AdjustRect(GetHwnd(), false, &rc);
947
948 int width = rc.right - rc.left,
949 height = rc.bottom - rc.top;
950 size_t nCount = m_pages.Count();
951 for ( size_t nPage = 0; nPage < nCount; nPage++ ) {
952 wxNotebookPage *pPage = m_pages[nPage];
953 pPage->SetSize(rc.left, rc.top, width, height);
954 }
955
956
957 // unless we had already repainted everything, we now need to refresh
958 if ( !HasFlag(wxFULL_REPAINT_ON_RESIZE) )
959 {
960 // invalidate areas not covered by pages
961 RefreshRect(wxRect(0, 0, widthNbook, rc.top), false);
962 RefreshRect(wxRect(0, rc.top, rc.left, height), false);
963 RefreshRect(wxRect(0, rc.bottom, widthNbook, heightNbook - rc.bottom),
964 false);
965 RefreshRect(wxRect(rc.right, rc.top, widthNbook - rc.right, height),
966 false);
967 }
968
969 #if USE_NOTEBOOK_ANTIFLICKER
970 // subclass the spin control used by the notebook to scroll pages to
971 // prevent it from flickering on resize
972 if ( !m_hasSubclassedUpdown )
973 {
974 // iterate over all child windows to find spin button
975 for ( HWND child = ::GetWindow(GetHwnd(), GW_CHILD);
976 child;
977 child = ::GetWindow(child, GW_HWNDNEXT) )
978 {
979 wxWindow *childWindow = wxFindWinFromHandle((WXHWND)child);
980
981 // see if it exists, if no wxWindow found then assume it's the spin
982 // btn
983 if ( !childWindow )
984 {
985 // subclass the spin button to override WM_ERASEBKGND
986 if ( !gs_wndprocNotebookSpinBtn )
987 gs_wndprocNotebookSpinBtn = (WXFARPROC)wxGetWindowProc(child);
988
989 wxSetWindowProc(child, wxNotebookSpinBtnWndProc);
990 m_hasSubclassedUpdown = true;
991 break;
992 }
993 }
994 }
995
996 // Probably because of the games we play above to avoid flicker sometimes
997 // the text controls inside notebook pages are not shown correctly (they
998 // don't have their borders) when the notebook is shown for the first time.
999 // It's not really clear why does this happen and maybe the bug is in
1000 // wxTextCtrl itself and not here but updating the page when it's about to
1001 // be shown doesn't cost much and works around the problem so do it here
1002 // for now.
1003 if ( !m_doneUpdateHack && IsShownOnScreen() )
1004 {
1005 m_doneUpdateHack = true;
1006 wxWindow* const page = GetCurrentPage();
1007 if ( page )
1008 page->Update();
1009 }
1010 #endif // USE_NOTEBOOK_ANTIFLICKER
1011
1012 event.Skip();
1013 }
1014
1015 void wxNotebook::OnNavigationKey(wxNavigationKeyEvent& event)
1016 {
1017 if ( event.IsWindowChange() ) {
1018 // change pages
1019 AdvanceSelection(event.GetDirection());
1020 }
1021 else {
1022 // we get this event in 3 cases
1023 //
1024 // a) one of our pages might have generated it because the user TABbed
1025 // out from it in which case we should propagate the event upwards and
1026 // our parent will take care of setting the focus to prev/next sibling
1027 //
1028 // or
1029 //
1030 // b) the parent panel wants to give the focus to us so that we
1031 // forward it to our selected page. We can't deal with this in
1032 // OnSetFocus() because we don't know which direction the focus came
1033 // from in this case and so can't choose between setting the focus to
1034 // first or last panel child
1035 //
1036 // or
1037 //
1038 // c) we ourselves (see MSWTranslateMessage) generated the event
1039 //
1040 wxWindow * const parent = GetParent();
1041
1042 // the wxObject* casts are required to avoid MinGW GCC 2.95.3 ICE
1043 const bool isFromParent = event.GetEventObject() == (wxObject*) parent;
1044 const bool isFromSelf = event.GetEventObject() == (wxObject*) this;
1045 const bool isForward = event.GetDirection();
1046
1047 if ( isFromSelf && !isForward )
1048 {
1049 // focus is currently on notebook tab and should leave
1050 // it backwards (Shift-TAB)
1051 event.SetCurrentFocus(this);
1052 parent->HandleWindowEvent(event);
1053 }
1054 else if ( isFromParent || isFromSelf )
1055 {
1056 // no, it doesn't come from child, case (b) or (c): forward to a
1057 // page but only if entering notebook page (i.e. direction is
1058 // backwards (Shift-TAB) comething from out-of-notebook, or
1059 // direction is forward (TAB) from ourselves),
1060 if ( m_selection != wxNOT_FOUND &&
1061 (!event.GetDirection() || isFromSelf) )
1062 {
1063 // so that the page knows that the event comes from it's parent
1064 // and is being propagated downwards
1065 event.SetEventObject(this);
1066
1067 wxWindow *page = m_pages[m_selection];
1068 if ( !page->HandleWindowEvent(event) )
1069 {
1070 page->SetFocus();
1071 }
1072 //else: page manages focus inside it itself
1073 }
1074 else // otherwise set the focus to the notebook itself
1075 {
1076 SetFocus();
1077 }
1078 }
1079 else
1080 {
1081 // it comes from our child, case (a), pass to the parent, but only
1082 // if the direction is forwards. Otherwise set the focus to the
1083 // notebook itself. The notebook is always the 'first' control of a
1084 // page.
1085 if ( !isForward )
1086 {
1087 SetFocus();
1088 }
1089 else if ( parent )
1090 {
1091 event.SetCurrentFocus(this);
1092 parent->HandleWindowEvent(event);
1093 }
1094 }
1095 }
1096 }
1097
1098 #if wxUSE_UXTHEME
1099
1100 bool wxNotebook::DoDrawBackground(WXHDC hDC, wxWindow *child)
1101 {
1102 wxUxThemeHandle theme(child ? child : this, L"TAB");
1103 if ( !theme )
1104 return false;
1105
1106 // get the notebook client rect (we're not interested in drawing tabs
1107 // themselves)
1108 wxRect r = GetPageSize();
1109 if ( r.IsEmpty() )
1110 return false;
1111
1112 RECT rc;
1113 wxCopyRectToRECT(r, rc);
1114
1115 // map rect to the coords of the window we're drawing in
1116 if ( child )
1117 ::MapWindowPoints(GetHwnd(), GetHwndOf(child), (POINT *)&rc, 2);
1118
1119 // we have the content area (page size), but we need to draw all of the
1120 // background for it to be aligned correctly
1121 wxUxThemeEngine::Get()->GetThemeBackgroundExtent
1122 (
1123 theme,
1124 (HDC) hDC,
1125 9 /* TABP_PANE */,
1126 0,
1127 &rc,
1128 &rc
1129 );
1130 wxUxThemeEngine::Get()->DrawThemeBackground
1131 (
1132 theme,
1133 (HDC) hDC,
1134 9 /* TABP_PANE */,
1135 0,
1136 &rc,
1137 NULL
1138 );
1139
1140 return true;
1141 }
1142
1143 WXHBRUSH wxNotebook::QueryBgBitmap()
1144 {
1145 wxRect r = GetPageSize();
1146 if ( r.IsEmpty() )
1147 return 0;
1148
1149 WindowHDC hDC(GetHwnd());
1150 MemoryHDC hDCMem(hDC);
1151 CompatibleBitmap hBmp(hDC, r.x + r.width, r.y + r.height);
1152
1153 SelectInHDC selectBmp(hDCMem, hBmp);
1154
1155 if ( !DoDrawBackground((WXHDC)(HDC)hDCMem) )
1156 return 0;
1157
1158 return (WXHBRUSH)::CreatePatternBrush(hBmp);
1159 }
1160
1161 void wxNotebook::UpdateBgBrush()
1162 {
1163 if ( m_hbrBackground )
1164 ::DeleteObject((HBRUSH)m_hbrBackground);
1165
1166 if ( !m_hasBgCol && wxUxThemeEngine::GetIfActive() )
1167 {
1168 m_hbrBackground = QueryBgBitmap();
1169 }
1170 else // no themes or we've got user-defined solid colour
1171 {
1172 m_hbrBackground = NULL;
1173 }
1174 }
1175
1176 bool wxNotebook::MSWPrintChild(WXHDC hDC, wxWindow *child)
1177 {
1178 // solid background colour overrides themed background drawing
1179 if ( !UseBgCol() && DoDrawBackground(hDC, child) )
1180 return true;
1181
1182 // If we're using a solid colour (for example if we've switched off
1183 // theming for this notebook), paint it
1184 if (UseBgCol())
1185 {
1186 wxRect r = GetPageSize();
1187 if ( r.IsEmpty() )
1188 return false;
1189
1190 RECT rc;
1191 wxCopyRectToRECT(r, rc);
1192
1193 // map rect to the coords of the window we're drawing in
1194 if ( child )
1195 ::MapWindowPoints(GetHwnd(), GetHwndOf(child), (POINT *)&rc, 2);
1196
1197 wxBrush brush(GetBackgroundColour());
1198 HBRUSH hbr = GetHbrushOf(brush);
1199
1200 ::FillRect((HDC) hDC, &rc, hbr);
1201
1202 return true;
1203 }
1204
1205 return wxNotebookBase::MSWPrintChild(hDC, child);
1206 }
1207
1208 #endif // wxUSE_UXTHEME
1209
1210 // Windows only: attempts to get colour for UX theme page background
1211 wxColour wxNotebook::GetThemeBackgroundColour() const
1212 {
1213 #if wxUSE_UXTHEME
1214 if (wxUxThemeEngine::Get())
1215 {
1216 wxUxThemeHandle hTheme((wxNotebook*) this, L"TAB");
1217 if (hTheme)
1218 {
1219 // This is total guesswork.
1220 // See PlatformSDK\Include\Tmschema.h for values.
1221 // JACS: can also use 9 (TABP_PANE)
1222 COLORREF themeColor;
1223 bool success = (S_OK == wxUxThemeEngine::Get()->GetThemeColor(
1224 hTheme,
1225 10 /* TABP_BODY */,
1226 1 /* NORMAL */,
1227 3821 /* FILLCOLORHINT */,
1228 &themeColor));
1229 if (!success)
1230 return GetBackgroundColour();
1231
1232 /*
1233 [DS] Workaround for WindowBlinds:
1234 Some themes return a near black theme color using FILLCOLORHINT,
1235 this makes notebook pages have an ugly black background and makes
1236 text (usually black) unreadable. Retry again with FILLCOLOR.
1237
1238 This workaround potentially breaks appearance of some themes,
1239 but in practice it already fixes some themes.
1240 */
1241 if (themeColor == 1)
1242 {
1243 wxUxThemeEngine::Get()->GetThemeColor(
1244 hTheme,
1245 10 /* TABP_BODY */,
1246 1 /* NORMAL */,
1247 3802 /* FILLCOLOR */,
1248 &themeColor);
1249 }
1250
1251 wxColour colour = wxRGBToColour(themeColor);
1252
1253 // Under Vista, the tab background colour is reported incorrectly.
1254 // So for the default theme at least, hard-code the colour to something
1255 // that will blend in.
1256
1257 static int s_AeroStatus = -1;
1258 if (s_AeroStatus == -1)
1259 {
1260 WCHAR szwThemeFile[1024];
1261 WCHAR szwThemeColor[256];
1262 if (S_OK == wxUxThemeEngine::Get()->GetCurrentThemeName(szwThemeFile, 1024, szwThemeColor, 256, NULL, 0))
1263 {
1264 wxString themeFile(szwThemeFile), themeColor(szwThemeColor);
1265 if (themeFile.Find(wxT("Aero")) != -1 && themeColor == wxT("NormalColor"))
1266 s_AeroStatus = 1;
1267 else
1268 s_AeroStatus = 0;
1269 }
1270 else
1271 s_AeroStatus = 0;
1272 }
1273
1274 if (s_AeroStatus == 1)
1275 colour = wxColour(255, 255, 255);
1276
1277 return colour;
1278 }
1279 }
1280 #endif // wxUSE_UXTHEME
1281
1282 return GetBackgroundColour();
1283 }
1284
1285 // ----------------------------------------------------------------------------
1286 // wxNotebook base class virtuals
1287 // ----------------------------------------------------------------------------
1288
1289 #if wxUSE_CONSTRAINTS
1290
1291 // override these 2 functions to do nothing: everything is done in OnSize
1292
1293 void wxNotebook::SetConstraintSizes(bool WXUNUSED(recurse))
1294 {
1295 // don't set the sizes of the pages - their correct size is not yet known
1296 wxControl::SetConstraintSizes(false);
1297 }
1298
1299 bool wxNotebook::DoPhase(int WXUNUSED(nPhase))
1300 {
1301 return true;
1302 }
1303
1304 #endif // wxUSE_CONSTRAINTS
1305
1306 // ----------------------------------------------------------------------------
1307 // wxNotebook Windows message handlers
1308 // ----------------------------------------------------------------------------
1309
1310 bool wxNotebook::MSWOnScroll(int orientation, WXWORD nSBCode,
1311 WXWORD pos, WXHWND control)
1312 {
1313 // don't generate EVT_SCROLLWIN events for the WM_SCROLLs coming from the
1314 // up-down control
1315 if ( control )
1316 return false;
1317
1318 return wxNotebookBase::MSWOnScroll(orientation, nSBCode, pos, control);
1319 }
1320
1321 bool wxNotebook::MSWOnNotify(int idCtrl, WXLPARAM lParam, WXLPARAM* result)
1322 {
1323 wxBookCtrlEvent event(wxEVT_NULL, m_windowId);
1324
1325 NMHDR* hdr = (NMHDR *)lParam;
1326 switch ( hdr->code ) {
1327 case TCN_SELCHANGE:
1328 event.SetEventType(wxEVT_NOTEBOOK_PAGE_CHANGED);
1329 break;
1330
1331 case TCN_SELCHANGING:
1332 event.SetEventType(wxEVT_NOTEBOOK_PAGE_CHANGING);
1333 break;
1334
1335 default:
1336 return wxControl::MSWOnNotify(idCtrl, lParam, result);
1337 }
1338
1339 event.SetSelection(TabCtrl_GetCurSel(GetHwnd()));
1340 event.SetOldSelection(m_selection);
1341 event.SetEventObject(this);
1342 event.SetInt(idCtrl);
1343
1344 // Change the selection before generating the event as its handler should
1345 // already see the new page selected.
1346 if ( hdr->code == TCN_SELCHANGE )
1347 UpdateSelection(event.GetSelection());
1348
1349 bool processed = HandleWindowEvent(event);
1350 *result = !event.IsAllowed();
1351 return processed;
1352 }
1353
1354 #endif // wxUSE_NOTEBOOK