src/msw/combobox.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        src/msw/combobox.cpp
   3 // Purpose:     wxComboBox class
   4 // Author:      Julian Smart
   5 // Modified by:
   6 // Created:     01/02/97
   7 // RCS-ID:      $Id$
   8 // Copyright:   (c) Julian Smart
   9 // Licence:     wxWindows licence
  10 /////////////////////////////////////////////////////////////////////////////
  11
  12 // ============================================================================
  13 // declarations
  14 // ============================================================================
  15
  16 // ----------------------------------------------------------------------------
  17 // headers
  18 // ----------------------------------------------------------------------------
  19
  20 // For compilers that support precompilation, includes "wx.h".
  21 #include "wx/wxprec.h"
  22
  23 #ifdef __BORLANDC__
  24     #pragma hdrstop
  25 #endif
  26
  27 #if wxUSE_COMBOBOX
  28
  29 #include "wx/combobox.h"
  30
  31 #ifndef WX_PRECOMP
  32     #include "wx/msw/wrapcctl.h" // include <commctrl.h> "properly"
  33     #include "wx/settings.h"
  34     #include "wx/log.h"
  35     // for wxEVT_COMMAND_TEXT_ENTER
  36     #include "wx/textctrl.h"
  37     #include "wx/app.h"
  38     #include "wx/brush.h"
  39 #endif
  40
  41 #include "wx/clipbrd.h"
  42 #include "wx/dynlib.h"
  43 #include "wx/wupdlock.h"
  44 #include "wx/msw/private.h"
  45
  46 #if wxUSE_UXTHEME
  47     #include "wx/msw/uxtheme.h"
  48 #endif
  49
  50 #if wxUSE_TOOLTIPS
  51     #include "wx/tooltip.h"
  52 #endif // wxUSE_TOOLTIPS
  53
  54 // ----------------------------------------------------------------------------
  55 // wxWin macros
  56 // ----------------------------------------------------------------------------
  57
  58 BEGIN_EVENT_TABLE(wxComboBox, wxControl)
  59     EVT_MENU(wxID_CUT, wxComboBox::OnCut)
  60     EVT_MENU(wxID_COPY, wxComboBox::OnCopy)
  61     EVT_MENU(wxID_PASTE, wxComboBox::OnPaste)
  62     EVT_MENU(wxID_UNDO, wxComboBox::OnUndo)
  63     EVT_MENU(wxID_REDO, wxComboBox::OnRedo)
  64     EVT_MENU(wxID_CLEAR, wxComboBox::OnDelete)
  65     EVT_MENU(wxID_SELECTALL, wxComboBox::OnSelectAll)
  66
  67     EVT_UPDATE_UI(wxID_CUT, wxComboBox::OnUpdateCut)
  68     EVT_UPDATE_UI(wxID_COPY, wxComboBox::OnUpdateCopy)
  69     EVT_UPDATE_UI(wxID_PASTE, wxComboBox::OnUpdatePaste)
  70     EVT_UPDATE_UI(wxID_UNDO, wxComboBox::OnUpdateUndo)
  71     EVT_UPDATE_UI(wxID_REDO, wxComboBox::OnUpdateRedo)
  72     EVT_UPDATE_UI(wxID_CLEAR, wxComboBox::OnUpdateDelete)
  73     EVT_UPDATE_UI(wxID_SELECTALL, wxComboBox::OnUpdateSelectAll)
  74 END_EVENT_TABLE()
  75
  76 // ----------------------------------------------------------------------------
  77 // function prototypes
  78 // ----------------------------------------------------------------------------
  79
  80 LRESULT APIENTRY _EXPORT wxComboEditWndProc(HWND hWnd,
  81                                             UINT message,
  82                                             WPARAM wParam,
  83                                             LPARAM lParam);
  84
  85 // ---------------------------------------------------------------------------
  86 // global vars
  87 // ---------------------------------------------------------------------------
  88
  89 // the pointer to standard radio button wnd proc
  90 static WNDPROC gs_wndprocEdit = (WNDPROC)NULL;
  91
  92 // ============================================================================
  93 // implementation
  94 // ============================================================================
  95
  96 // ----------------------------------------------------------------------------
  97 // wnd proc for subclassed edit control
  98 // ----------------------------------------------------------------------------
  99
 100 LRESULT APIENTRY _EXPORT wxComboEditWndProc(HWND hWnd,
 101                                             UINT message,
 102                                             WPARAM wParam,
 103                                             LPARAM lParam)
 104 {
 105     HWND hwndCombo = ::GetParent(hWnd);
 106     wxWindow *win = wxFindWinFromHandle((WXHWND)hwndCombo);
 107
 108     switch ( message )
 109     {
 110         // forward some messages to the combobox to generate the appropriate
 111         // wxEvents from them
 112         case WM_KEYUP:
 113         case WM_KEYDOWN:
 114         case WM_CHAR:
 115         case WM_SYSCHAR:
 116         case WM_SYSKEYDOWN:
 117         case WM_SYSKEYUP:
 118         case WM_SETFOCUS:
 119         case WM_KILLFOCUS:
 120             {
 121                 wxComboBox *combo = wxDynamicCast(win, wxComboBox);
 122                 if ( !combo )
 123                 {
 124                     // we can get WM_KILLFOCUS while our parent is already half
 125                     // destroyed and hence doesn't look like a combobx any
 126                     // longer, check for it to avoid bogus assert failures
 127                     if ( !win->IsBeingDeleted() )
 128                     {
 129                         wxFAIL_MSG( wxT("should have combo as parent") );
 130                     }
 131                 }
 132                 else if ( combo->MSWProcessEditMsg(message, wParam, lParam) )
 133                 {
 134                     // handled by parent
 135                     return 0;
 136                 }
 137             }
 138             break;
 139
 140         case WM_GETDLGCODE:
 141             {
 142                 wxCHECK_MSG( win, 0, wxT("should have a parent") );
 143
 144                 if ( win->GetWindowStyle() & wxTE_PROCESS_ENTER )
 145                 {
 146                     // need to return a custom dlg code or we'll never get it
 147                     return DLGC_WANTMESSAGE;
 148                 }
 149             }
 150             break;
 151     }
 152
 153     return ::CallWindowProc(CASTWNDPROC gs_wndprocEdit, hWnd, message, wParam, lParam);
 154 }
 155
 156 // ----------------------------------------------------------------------------
 157 // wxComboBox callbacks
 158 // ----------------------------------------------------------------------------
 159
 160 WXLRESULT wxComboBox::MSWWindowProc(WXUINT nMsg, WXWPARAM wParam, WXLPARAM lParam)
 161 {
 162     // TODO: handle WM_CTLCOLOR messages from our EDIT control to be able to
 163     //       set its colour correctly (to be the same as our own one)
 164
 165     switch ( nMsg )
 166     {
 167         case WM_SIZE:
 168         // wxStaticBox can generate this message, when modifying the control's style.
 169         // This causes the content of the combobox to be selected, for some reason.
 170         case WM_STYLECHANGED:
 171             {
 172                 // combobox selection sometimes spontaneously changes when its
 173                 // size changes, restore it to the old value if necessary
 174                 if ( !GetEditHWNDIfAvailable() )
 175                     break;
 176
 177                 long fromOld, toOld;
 178                 GetSelection(&fromOld, &toOld);
 179
 180                 // if an editable combobox has a not empty text not from the
 181                 // list, it tries to autocomplete it from the list when it is
 182                 // resized, but we don't want this to happen as it doesn't seem
 183                 // to make any sense, so we forcefully restore the old text
 184                 wxString textOld;
 185                 if ( !HasFlag(wxCB_READONLY) && GetCurrentSelection() == -1 )
 186                     textOld = GetValue();
 187
 188                 // eliminate flickering during following hacks
 189                 wxWindowUpdateLocker lock(this);
 190
 191                 WXLRESULT result = wxChoice::MSWWindowProc(nMsg, wParam, lParam);
 192
 193                 if ( !textOld.empty() && GetValue() != textOld )
 194                     SetLabel(textOld);
 195
 196                 long fromNew, toNew;
 197                 GetSelection(&fromNew, &toNew);
 198
 199                 if ( fromOld != fromNew || toOld != toNew )
 200                 {
 201                     SetSelection(fromOld, toOld);
 202                 }
 203
 204                 return result;
 205             }
 206     }
 207
 208     return wxChoice::MSWWindowProc(nMsg, wParam, lParam);
 209 }
 210
 211 bool wxComboBox::MSWProcessEditMsg(WXUINT msg, WXWPARAM wParam, WXLPARAM lParam)
 212 {
 213     switch ( msg )
 214     {
 215         case WM_CHAR:
 216             // for compatibility with wxTextCtrl, generate a special message
 217             // when Enter is pressed
 218             if ( wParam == VK_RETURN )
 219             {
 220                 if (SendMessage(GetHwnd(), CB_GETDROPPEDSTATE, 0, 0))
 221                     return false;
 222
 223                 wxCommandEvent event(wxEVT_COMMAND_TEXT_ENTER, m_windowId);
 224
 225                 const int sel = GetSelection();
 226                 event.SetInt(sel);
 227                 event.SetString(GetValue());
 228                 InitCommandEventWithItems(event, sel);
 229
 230                 if ( ProcessCommand(event) )
 231                 {
 232                     // don't let the event through to the native control
 233                     // because it doesn't need it and may generate an annoying
 234                     // beep if it gets it
 235                     return true;
 236                 }
 237             }
 238             // fall through
 239
 240         case WM_SYSCHAR:
 241             return HandleChar(wParam, lParam);
 242
 243         case WM_SYSKEYDOWN:
 244         case WM_KEYDOWN:
 245             return HandleKeyDown(wParam, lParam);
 246
 247         case WM_SYSKEYUP:
 248         case WM_KEYUP:
 249             return HandleKeyUp(wParam, lParam);
 250
 251         case WM_SETFOCUS:
 252             return HandleSetFocus((WXHWND)wParam);
 253
 254         case WM_KILLFOCUS:
 255             return HandleKillFocus((WXHWND)wParam);
 256
 257         case WM_CUT:
 258         case WM_COPY:
 259         case WM_PASTE:
 260             return HandleClipboardEvent(msg);
 261     }
 262
 263     return false;
 264 }
 265
 266 bool wxComboBox::MSWCommand(WXUINT param, WXWORD id)
 267 {
 268     int sel = -1;
 269     wxString value;
 270
 271     switch ( param )
 272     {
 273         case CBN_DROPDOWN:
 274             // remember the last selection, just as wxChoice does
 275             m_lastAcceptedSelection = GetCurrentSelection();
 276             if ( m_lastAcceptedSelection == -1 )
 277             {
 278                 // but unlike with wxChoice we may have no selection but still
 279                 // have some text and we should avoid erasing it if the drop
 280                 // down is cancelled (see #8474)
 281                 m_lastAcceptedSelection = wxID_NONE;
 282             }
 283             {
 284                 wxCommandEvent event(wxEVT_COMMAND_COMBOBOX_DROPDOWN, GetId());
 285                 event.SetEventObject(this);
 286                 ProcessCommand(event);
 287             }
 288             break;
 289         case CBN_CLOSEUP:
 290             {
 291                 wxCommandEvent event(wxEVT_COMMAND_COMBOBOX_CLOSEUP, GetId());
 292                 event.SetEventObject(this);
 293                 ProcessCommand(event);
 294             }
 295             break;
 296         case CBN_SELENDOK:
 297 #ifndef __SMARTPHONE__
 298             // we need to reset this to prevent the selection from being undone
 299             // by wxChoice, see wxChoice::MSWCommand() and comments there
 300             m_lastAcceptedSelection = wxID_NONE;
 301 #endif
 302
 303             // set these variables so that they could be also fixed in
 304             // CBN_EDITCHANGE below
 305             sel = GetSelection();
 306             value = GetStringSelection();
 307
 308             // this string is going to become the new combobox value soon but
 309             // we need it to be done right now, otherwise the event handler
 310             // could get a wrong value when it calls our GetValue()
 311             ::SetWindowText(GetHwnd(), value.t_str());
 312
 313             {
 314                 wxCommandEvent event(wxEVT_COMMAND_COMBOBOX_SELECTED, GetId());
 315                 event.SetInt(sel);
 316                 event.SetString(value);
 317                 InitCommandEventWithItems(event, sel);
 318
 319                 ProcessCommand(event);
 320             }
 321
 322             // fall through: for compability with wxGTK, also send the text
 323             // update event when the selection changes (this also seems more
 324             // logical as the text does change)
 325
 326         case CBN_EDITCHANGE:
 327             if ( m_allowTextEvents )
 328             {
 329                 wxCommandEvent event(wxEVT_COMMAND_TEXT_UPDATED, GetId());
 330
 331                 // if sel != -1, value was already initialized above
 332                 if ( sel == -1 )
 333                 {
 334                     value = wxGetWindowText(GetHwnd());
 335                 }
 336
 337                 event.SetString(value);
 338                 InitCommandEventWithItems(event, sel);
 339
 340                 ProcessCommand(event);
 341             }
 342             break;
 343
 344         default:
 345             return wxChoice::MSWCommand(param, id);
 346     }
 347
 348     // skip wxChoice version as it would generate its own events for
 349     // CBN_SELENDOK and also interfere with our handling of CBN_DROPDOWN
 350     return true;
 351 }
 352
 353 bool wxComboBox::MSWShouldPreProcessMessage(WXMSG *pMsg)
 354 {
 355     // prevent command accelerators from stealing editing
 356     // hotkeys when we have the focus
 357     if (wxIsCtrlDown())
 358     {
 359         WPARAM vkey = pMsg->wParam;
 360
 361         switch (vkey)
 362         {
 363             case 'C':
 364             case 'V':
 365             case 'X':
 366             case VK_INSERT:
 367             case VK_DELETE:
 368             case VK_HOME:
 369             case VK_END:
 370                 return false;
 371         }
 372     }
 373
 374     return wxChoice::MSWShouldPreProcessMessage(pMsg);
 375 }
 376
 377 WXHWND wxComboBox::GetEditHWNDIfAvailable() const
 378 {
 379 #if wxUSE_DYNLIB_CLASS
 380 #if defined(WINVER) && WINVER >= 0x0500
 381     typedef BOOL (WINAPI *GetComboBoxInfo_t)(HWND, COMBOBOXINFO*);
 382     static GetComboBoxInfo_t s_pfnGetComboBoxInfo = NULL;
 383     static bool s_triedToLoad = false;
 384     if ( !s_triedToLoad )
 385     {
 386         s_triedToLoad = true;
 387         wxLoadedDLL dllUser32("user32.dll");
 388         wxDL_INIT_FUNC(s_pfn, GetComboBoxInfo, dllUser32);
 389     }
 390
 391     if ( s_pfnGetComboBoxInfo )
 392     {
 393         WinStruct<COMBOBOXINFO> info;
 394         (*s_pfnGetComboBoxInfo)(GetHwnd(), &info);
 395         return info.hwndItem;
 396     }
 397 #endif // WINVER >= 0x0500
 398 #endif // wxUSE_DYNLIB_CLASS
 399
 400     if (HasFlag(wxCB_SIMPLE))
 401     {
 402         POINT pt;
 403         pt.x = pt.y = 4;
 404         return (WXHWND) ::ChildWindowFromPoint(GetHwnd(), pt);
 405     }
 406
 407     // notice that a slightly safer alternative could be to use FindWindowEx()
 408     // but it's not available under WinCE so just take the first child for now
 409     // to keep one version of the code for all platforms and fix it later if
 410     // problems are discovered
 411
 412     // we assume that the only child of the combobox is the edit window
 413     return (WXHWND)::GetWindow(GetHwnd(), GW_CHILD);
 414 }
 415
 416 WXHWND wxComboBox::GetEditHWND() const
 417 {
 418     // this function should not be called for wxCB_READONLY controls, it is
 419     // the callers responsibility to check this
 420     wxASSERT_MSG( !HasFlag(wxCB_READONLY),
 421                   wxT("read-only combobox doesn't have any edit control") );
 422
 423     WXHWND hWndEdit = GetEditHWNDIfAvailable();
 424     wxASSERT_MSG( hWndEdit, wxT("combobox without edit control?") );
 425
 426     return hWndEdit;
 427 }
 428
 429 wxWindow *wxComboBox::GetEditableWindow()
 430 {
 431     wxASSERT_MSG( !HasFlag(wxCB_READONLY),
 432                   wxT("read-only combobox doesn't have any edit control") );
 433
 434     return this;
 435 }
 436
 437 // ----------------------------------------------------------------------------
 438 // wxComboBox creation
 439 // ----------------------------------------------------------------------------
 440
 441 bool wxComboBox::Create(wxWindow *parent, wxWindowID id,
 442                         const wxString& value,
 443                         const wxPoint& pos,
 444                         const wxSize& size,
 445                         int n, const wxString choices[],
 446                         long style,
 447                         const wxValidator& validator,
 448                         const wxString& name)
 449 {
 450     // pretend that wxComboBox is hidden while it is positioned and resized and
 451     // show it only right before leaving this method because otherwise there is
 452     // some noticeable flicker while the control rearranges itself
 453     m_isShown = false;
 454
 455     if ( !CreateAndInit(parent, id, pos, size, n, choices, style,
 456                         validator, name) )
 457         return false;
 458
 459     // we shouldn't call SetValue() for an empty string because this would
 460     // (correctly) result in an assert with a read only combobox and is useless
 461     // for the other ones anyhow
 462     if ( !value.empty() )
 463         SetValue(value);
 464
 465     // a (not read only) combobox is, in fact, 2 controls: the combobox itself
 466     // and an edit control inside it and if we want to catch events from this
 467     // edit control, we must subclass it as well
 468     if ( !(style & wxCB_READONLY) )
 469     {
 470         gs_wndprocEdit = wxSetWindowProc((HWND)GetEditHWND(), wxComboEditWndProc);
 471     }
 472
 473     // and finally, show the control
 474     Show(true);
 475
 476     return true;
 477 }
 478
 479 bool wxComboBox::Create(wxWindow *parent, wxWindowID id,
 480                         const wxString& value,
 481                         const wxPoint& pos,
 482                         const wxSize& size,
 483                         const wxArrayString& choices,
 484                         long style,
 485                         const wxValidator& validator,
 486                         const wxString& name)
 487 {
 488     wxCArrayString chs(choices);
 489     return Create(parent, id, value, pos, size, chs.GetCount(),
 490                   chs.GetStrings(), style, validator, name);
 491 }
 492
 493 WXDWORD wxComboBox::MSWGetStyle(long style, WXDWORD *exstyle) const
 494 {
 495     // we never have an external border
 496     WXDWORD msStyle = wxChoice::MSWGetStyle
 497                       (
 498                         (style & ~wxBORDER_MASK) | wxBORDER_NONE, exstyle
 499                       );
 500
 501     // usually WS_TABSTOP is added by wxControl::MSWGetStyle() but as we're
 502     // created hidden (see Create() above), it is not done for us but we still
 503     // want to have this style
 504     msStyle |= WS_TABSTOP;
 505
 506     // remove the style always added by wxChoice
 507     msStyle &= ~CBS_DROPDOWNLIST;
 508
 509     if ( style & wxCB_READONLY )
 510         msStyle |= CBS_DROPDOWNLIST;
 511 #ifndef __WXWINCE__
 512     else if ( style & wxCB_SIMPLE )
 513         msStyle |= CBS_SIMPLE; // A list (shown always) and edit control
 514 #endif
 515     else
 516         msStyle |= CBS_DROPDOWN;
 517
 518     // there is no reason to not always use CBS_AUTOHSCROLL, so do use it
 519     msStyle |= CBS_AUTOHSCROLL;
 520
 521     // NB: we used to also add CBS_NOINTEGRALHEIGHT here but why?
 522
 523     return msStyle;
 524 }
 525
 526 // ----------------------------------------------------------------------------
 527 // wxComboBox text control-like methods
 528 // ----------------------------------------------------------------------------
 529
 530 wxString wxComboBox::GetValue() const
 531 {
 532     return HasFlag(wxCB_READONLY) ? GetStringSelection()
 533                                   : wxTextEntry::GetValue();
 534 }
 535
 536 void wxComboBox::SetValue(const wxString& value)
 537 {
 538     if ( HasFlag(wxCB_READONLY) )
 539         SetStringSelection(value);
 540     else
 541         wxTextEntry::SetValue(value);
 542 }
 543
 544 void wxComboBox::Clear()
 545 {
 546     wxChoice::Clear();
 547     if ( !HasFlag(wxCB_READONLY) )
 548         wxTextEntry::Clear();
 549 }
 550
 551 void wxComboBox::GetSelection(long *from, long *to) const
 552 {
 553     if ( !HasFlag(wxCB_READONLY) )
 554     {
 555         wxTextEntry::GetSelection(from, to);
 556     }
 557     else // text selection doesn't make sense for read only comboboxes
 558     {
 559         if ( from )
 560             *from = -1;
 561         if ( to )
 562             *to = -1;
 563     }
 564 }
 565
 566 bool wxComboBox::IsEditable() const
 567 {
 568     return !HasFlag(wxCB_READONLY) && wxTextEntry::IsEditable();
 569 }
 570
 571 // ----------------------------------------------------------------------------
 572 // standard event handling
 573 // ----------------------------------------------------------------------------
 574
 575 void wxComboBox::OnCut(wxCommandEvent& WXUNUSED(event))
 576 {
 577     Cut();
 578 }
 579
 580 void wxComboBox::OnCopy(wxCommandEvent& WXUNUSED(event))
 581 {
 582     Copy();
 583 }
 584
 585 void wxComboBox::OnPaste(wxCommandEvent& WXUNUSED(event))
 586 {
 587     Paste();
 588 }
 589
 590 void wxComboBox::OnUndo(wxCommandEvent& WXUNUSED(event))
 591 {
 592     Undo();
 593 }
 594
 595 void wxComboBox::OnRedo(wxCommandEvent& WXUNUSED(event))
 596 {
 597     Redo();
 598 }
 599
 600 void wxComboBox::OnDelete(wxCommandEvent& WXUNUSED(event))
 601 {
 602     RemoveSelection();
 603 }
 604
 605 void wxComboBox::OnSelectAll(wxCommandEvent& WXUNUSED(event))
 606 {
 607     SelectAll();
 608 }
 609
 610 void wxComboBox::OnUpdateCut(wxUpdateUIEvent& event)
 611 {
 612     event.Enable( CanCut() );
 613 }
 614
 615 void wxComboBox::OnUpdateCopy(wxUpdateUIEvent& event)
 616 {
 617     event.Enable( CanCopy() );
 618 }
 619
 620 void wxComboBox::OnUpdatePaste(wxUpdateUIEvent& event)
 621 {
 622     event.Enable( CanPaste() );
 623 }
 624
 625 void wxComboBox::OnUpdateUndo(wxUpdateUIEvent& event)
 626 {
 627     event.Enable( IsEditable() && CanUndo() );
 628 }
 629
 630 void wxComboBox::OnUpdateRedo(wxUpdateUIEvent& event)
 631 {
 632     event.Enable( IsEditable() && CanRedo() );
 633 }
 634
 635 void wxComboBox::OnUpdateDelete(wxUpdateUIEvent& event)
 636 {
 637     event.Enable(IsEditable() && HasSelection());
 638 }
 639
 640 void wxComboBox::OnUpdateSelectAll(wxUpdateUIEvent& event)
 641 {
 642     event.Enable(IsEditable() && !wxTextEntry::IsEmpty());
 643 }
 644
 645 #if wxUSE_TOOLTIPS
 646
 647 void wxComboBox::DoSetToolTip(wxToolTip *tip)
 648 {
 649     wxChoice::DoSetToolTip(tip);
 650
 651     if ( tip && !HasFlag(wxCB_READONLY) )
 652         tip->AddOtherWindow(GetEditHWND());
 653 }
 654
 655 #endif // wxUSE_TOOLTIPS
 656
 657 #if wxUSE_UXTHEME
 658
 659 bool wxComboBox::SetHint(const wxString& hintOrig)
 660 {
 661     wxString hint(hintOrig);
 662     if ( wxUxThemeEngine::GetIfActive() )
 663     {
 664         // under XP (but not Vista) there is a bug in cue banners
 665         // implementation for combobox edit control: the first character is
 666         // partially chopped off, so prepend a space to make it fully visible
 667         hint.insert(0, " ");
 668     }
 669
 670     return wxTextEntry::SetHint(hint);
 671 }
 672
 673 #endif // wxUSE_UXTHEME
 674
 675 #endif // wxUSE_COMBOBOX