]> git.saurik.com Git - wxWidgets.git/blob - src/msw/choice.cpp
fix wxExecute() return code checks and removed not working code to open URLs in new...
[wxWidgets.git] / src / msw / choice.cpp
1 /////////////////////////////////////////////////////////////////////////////
2 // Name: choice.cpp
3 // Purpose: wxChoice
4 // Author: Julian Smart
5 // Modified by: Vadim Zeitlin to derive from wxChoiceBase
6 // Created: 04/01/98
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_CHOICE && !(defined(__SMARTPHONE__) && defined(__WXWINCE__))
28
29 #ifndef WX_PRECOMP
30 #include "wx/choice.h"
31 #include "wx/utils.h"
32 #include "wx/log.h"
33 #include "wx/brush.h"
34 #include "wx/settings.h"
35 #endif
36
37 #include "wx/msw/private.h"
38
39 #if wxUSE_EXTENDED_RTTI
40 WX_DEFINE_FLAGS( wxChoiceStyle )
41
42 wxBEGIN_FLAGS( wxChoiceStyle )
43 // new style border flags, we put them first to
44 // use them for streaming out
45 wxFLAGS_MEMBER(wxBORDER_SIMPLE)
46 wxFLAGS_MEMBER(wxBORDER_SUNKEN)
47 wxFLAGS_MEMBER(wxBORDER_DOUBLE)
48 wxFLAGS_MEMBER(wxBORDER_RAISED)
49 wxFLAGS_MEMBER(wxBORDER_STATIC)
50 wxFLAGS_MEMBER(wxBORDER_NONE)
51
52 // old style border flags
53 wxFLAGS_MEMBER(wxSIMPLE_BORDER)
54 wxFLAGS_MEMBER(wxSUNKEN_BORDER)
55 wxFLAGS_MEMBER(wxDOUBLE_BORDER)
56 wxFLAGS_MEMBER(wxRAISED_BORDER)
57 wxFLAGS_MEMBER(wxSTATIC_BORDER)
58 wxFLAGS_MEMBER(wxBORDER)
59
60 // standard window styles
61 wxFLAGS_MEMBER(wxTAB_TRAVERSAL)
62 wxFLAGS_MEMBER(wxCLIP_CHILDREN)
63 wxFLAGS_MEMBER(wxTRANSPARENT_WINDOW)
64 wxFLAGS_MEMBER(wxWANTS_CHARS)
65 wxFLAGS_MEMBER(wxFULL_REPAINT_ON_RESIZE)
66 wxFLAGS_MEMBER(wxALWAYS_SHOW_SB )
67 wxFLAGS_MEMBER(wxVSCROLL)
68 wxFLAGS_MEMBER(wxHSCROLL)
69
70 wxEND_FLAGS( wxChoiceStyle )
71
72 IMPLEMENT_DYNAMIC_CLASS_XTI(wxChoice, wxControl,"wx/choice.h")
73
74 wxBEGIN_PROPERTIES_TABLE(wxChoice)
75 wxEVENT_PROPERTY( Select , wxEVT_COMMAND_CHOICE_SELECTED , wxCommandEvent )
76
77 wxPROPERTY( Font , wxFont , SetFont , GetFont , EMPTY_MACROVALUE , 0 /*flags*/ , wxT("Helpstring") , wxT("group"))
78 wxPROPERTY_COLLECTION( Choices , wxArrayString , wxString , AppendString , GetStrings , 0 /*flags*/ , wxT("Helpstring") , wxT("group"))
79 wxPROPERTY( Selection ,int, SetSelection, GetSelection, EMPTY_MACROVALUE , 0 /*flags*/ , wxT("Helpstring") , wxT("group"))
80 wxPROPERTY_FLAGS( WindowStyle , wxChoiceStyle , long , SetWindowStyleFlag , GetWindowStyleFlag , EMPTY_MACROVALUE , 0 /*flags*/ , wxT("Helpstring") , wxT("group")) // style
81 wxEND_PROPERTIES_TABLE()
82
83 wxBEGIN_HANDLERS_TABLE(wxChoice)
84 wxEND_HANDLERS_TABLE()
85
86 wxCONSTRUCTOR_4( wxChoice , wxWindow* , Parent , wxWindowID , Id , wxPoint , Position , wxSize , Size )
87 #else
88 IMPLEMENT_DYNAMIC_CLASS(wxChoice, wxControl)
89 #endif
90 /*
91 TODO PROPERTIES
92 selection (long)
93 content (list)
94 item
95 */
96
97 // ============================================================================
98 // implementation
99 // ============================================================================
100
101 // ----------------------------------------------------------------------------
102 // creation
103 // ----------------------------------------------------------------------------
104
105 bool wxChoice::Create(wxWindow *parent,
106 wxWindowID id,
107 const wxPoint& pos,
108 const wxSize& size,
109 int n, const wxString choices[],
110 long style,
111 const wxValidator& validator,
112 const wxString& name)
113 {
114 // Experience shows that wxChoice vs. wxComboBox distinction confuses
115 // quite a few people - try to help them
116 wxASSERT_MSG( !(style & wxCB_DROPDOWN) &&
117 !(style & wxCB_READONLY) &&
118 !(style & wxCB_SIMPLE),
119 _T("this style flag is ignored by wxChoice, you ")
120 _T("probably want to use a wxComboBox") );
121
122 return CreateAndInit(parent, id, pos, size, n, choices, style,
123 validator, name);
124 }
125
126 bool wxChoice::CreateAndInit(wxWindow *parent,
127 wxWindowID id,
128 const wxPoint& pos,
129 const wxSize& size,
130 int n, const wxString choices[],
131 long style,
132 const wxValidator& validator,
133 const wxString& name)
134 {
135 // initialize wxControl
136 if ( !CreateControl(parent, id, pos, size, style, validator, name) )
137 return false;
138
139 // now create the real HWND
140 if ( !MSWCreateControl(wxT("COMBOBOX"), wxEmptyString, pos, size) )
141 return false;
142
143
144 // choice/combobox normally has "white" (depends on colour scheme, of
145 // course) background rather than inheriting the parent's background
146 SetBackgroundColour(wxSystemSettings::GetColour(wxSYS_COLOUR_WINDOW));
147
148 // initialize the controls contents
149 for ( int i = 0; i < n; i++ )
150 {
151 Append(choices[i]);
152 }
153
154 // and now we may finally size the control properly (if needed)
155 SetBestSize(size);
156
157 return true;
158 }
159
160 bool wxChoice::Create(wxWindow *parent,
161 wxWindowID id,
162 const wxPoint& pos,
163 const wxSize& size,
164 const wxArrayString& choices,
165 long style,
166 const wxValidator& validator,
167 const wxString& name)
168 {
169 wxCArrayString chs(choices);
170 return Create(parent, id, pos, size, chs.GetCount(), chs.GetStrings(),
171 style, validator, name);
172 }
173
174 bool wxChoice::MSWShouldPreProcessMessage(WXMSG *pMsg)
175 {
176 MSG *msg = (MSG *) pMsg;
177
178 // if the dropdown list is visible, don't preprocess certain keys
179 if ( msg->message == WM_KEYDOWN
180 && (msg->wParam == VK_ESCAPE || msg->wParam == VK_RETURN) )
181 {
182 if (::SendMessage(GetHwndOf(this), CB_GETDROPPEDSTATE, 0, 0))
183 {
184 return false;
185 }
186 }
187
188 return wxControl::MSWShouldPreProcessMessage(pMsg);
189 }
190
191 WXDWORD wxChoice::MSWGetStyle(long style, WXDWORD *exstyle) const
192 {
193 // we never have an external border
194 WXDWORD msStyle = wxControl::MSWGetStyle
195 (
196 (style & ~wxBORDER_MASK) | wxBORDER_NONE, exstyle
197 );
198
199 // WS_CLIPSIBLINGS is useful with wxChoice and doesn't seem to result in
200 // any problems
201 msStyle |= WS_CLIPSIBLINGS;
202
203 // wxChoice-specific styles
204 msStyle |= CBS_DROPDOWNLIST | WS_HSCROLL | WS_VSCROLL;
205 if ( style & wxCB_SORT )
206 msStyle |= CBS_SORT;
207
208 return msStyle;
209 }
210
211 wxChoice::~wxChoice()
212 {
213 Free();
214 }
215
216 // ----------------------------------------------------------------------------
217 // adding/deleting items to/from the list
218 // ----------------------------------------------------------------------------
219
220 int wxChoice::DoAppend(const wxString& item)
221 {
222 int n = (int)SendMessage(GetHwnd(), CB_ADDSTRING, 0, (LPARAM)item.c_str());
223 if ( n == CB_ERR )
224 {
225 wxLogLastError(wxT("SendMessage(CB_ADDSTRING)"));
226 }
227 else // ok
228 {
229 // we need to refresh our size in order to have enough space for the
230 // newly added items
231 if ( !IsFrozen() )
232 UpdateVisibleHeight();
233 }
234
235 InvalidateBestSize();
236 return n;
237 }
238
239 int wxChoice::DoInsert(const wxString& item, int pos)
240 {
241 wxCHECK_MSG(!(GetWindowStyle() & wxCB_SORT), -1, wxT("can't insert into sorted list"));
242 wxCHECK_MSG((pos>=0) && (pos<=GetCount()), -1, wxT("invalid index"));
243
244 int n = (int)SendMessage(GetHwnd(), CB_INSERTSTRING, pos, (LPARAM)item.c_str());
245 if ( n == CB_ERR )
246 {
247 wxLogLastError(wxT("SendMessage(CB_INSERTSTRING)"));
248 }
249 else // ok
250 {
251 if ( !IsFrozen() )
252 UpdateVisibleHeight();
253 }
254
255 InvalidateBestSize();
256 return n;
257 }
258
259 void wxChoice::Delete(int n)
260 {
261 wxCHECK_RET( n < GetCount(), wxT("invalid item index in wxChoice::Delete") );
262
263 if ( HasClientObjectData() )
264 {
265 delete GetClientObject(n);
266 }
267
268 SendMessage(GetHwnd(), CB_DELETESTRING, n, 0);
269
270 if ( !IsFrozen() )
271 UpdateVisibleHeight();
272
273 InvalidateBestSize();
274 }
275
276 void wxChoice::Clear()
277 {
278 Free();
279
280 SendMessage(GetHwnd(), CB_RESETCONTENT, 0, 0);
281
282 if ( !IsFrozen() )
283 UpdateVisibleHeight();
284
285 InvalidateBestSize();
286 }
287
288 void wxChoice::Free()
289 {
290 if ( HasClientObjectData() )
291 {
292 size_t count = GetCount();
293 for ( size_t n = 0; n < count; n++ )
294 {
295 delete GetClientObject(n);
296 }
297 }
298 }
299
300 // ----------------------------------------------------------------------------
301 // selection
302 // ----------------------------------------------------------------------------
303
304 int wxChoice::GetSelection() const
305 {
306 // if m_lastAcceptedSelection is set, it means that the dropdown is
307 // currently shown and that we want to use the last "permanent" selection
308 // instead of whatever is under the mouse pointer currently
309 //
310 // otherwise, get the selection from the control
311 return m_lastAcceptedSelection == wxID_NONE ? GetCurrentSelection()
312 : m_lastAcceptedSelection;
313 }
314
315 int wxChoice::GetCurrentSelection() const
316 {
317 return (int)SendMessage(GetHwnd(), CB_GETCURSEL, 0, 0);
318 }
319
320 void wxChoice::SetSelection(int n)
321 {
322 SendMessage(GetHwnd(), CB_SETCURSEL, n, 0);
323 }
324
325 // ----------------------------------------------------------------------------
326 // string list functions
327 // ----------------------------------------------------------------------------
328
329 int wxChoice::GetCount() const
330 {
331 return (int)SendMessage(GetHwnd(), CB_GETCOUNT, 0, 0);
332 }
333
334 int wxChoice::FindString(const wxString& s) const
335 {
336 #if defined(__WATCOMC__) && defined(__WIN386__)
337 // For some reason, Watcom in WIN386 mode crashes in the CB_FINDSTRINGEXACT message.
338 // wxChoice::Do it the long way instead.
339 int count = GetCount();
340 for ( int i = 0; i < count; i++ )
341 {
342 // as CB_FINDSTRINGEXACT is case insensitive, be case insensitive too
343 if ( GetString(i).IsSameAs(s, false) )
344 return i;
345 }
346
347 return wxNOT_FOUND;
348 #else // !Watcom
349 //TODO: Evidently some MSW versions (all?) don't like empty strings
350 //passed to SendMessage, so we have to do it ourselves in that case
351 if ( s.empty() )
352 {
353 int count = GetCount();
354 for ( int i = 0; i < count; i++ )
355 {
356 if ( GetString(i).empty() )
357 return i;
358 }
359
360 return wxNOT_FOUND;
361 }
362 else
363 {
364 int pos = (int)SendMessage(GetHwnd(), CB_FINDSTRINGEXACT,
365 (WPARAM)-1, (LPARAM)s.c_str());
366
367 return pos == LB_ERR ? wxNOT_FOUND : pos;
368 }
369 #endif // Watcom/!Watcom
370 }
371
372 void wxChoice::SetString(int n, const wxString& s)
373 {
374 wxCHECK_RET( n >= 0 && n < GetCount(),
375 wxT("invalid item index in wxChoice::SetString") );
376
377 // we have to delete and add back the string as there is no way to change a
378 // string in place
379
380 // we need to preserve the client data
381 void *data;
382 if ( m_clientDataItemsType != wxClientData_None )
383 {
384 data = DoGetItemClientData(n);
385 }
386 else // no client data
387 {
388 data = NULL;
389 }
390
391 ::SendMessage(GetHwnd(), CB_DELETESTRING, n, 0);
392 ::SendMessage(GetHwnd(), CB_INSERTSTRING, n, (LPARAM)s.c_str() );
393
394 if ( data )
395 {
396 DoSetItemClientData(n, data);
397 }
398 //else: it's already NULL by default
399
400 InvalidateBestSize();
401 }
402
403 wxString wxChoice::GetString(int n) const
404 {
405 int len = (int)::SendMessage(GetHwnd(), CB_GETLBTEXTLEN, n, 0);
406
407 wxString str;
408 if ( len != CB_ERR && len > 0 )
409 {
410 if ( ::SendMessage
411 (
412 GetHwnd(),
413 CB_GETLBTEXT,
414 n,
415 (LPARAM)(wxChar *)wxStringBuffer(str, len)
416 ) == CB_ERR )
417 {
418 wxLogLastError(wxT("SendMessage(CB_GETLBTEXT)"));
419 }
420 }
421
422 return str;
423 }
424
425 // ----------------------------------------------------------------------------
426 // client data
427 // ----------------------------------------------------------------------------
428
429 void wxChoice::DoSetItemClientData( int n, void* clientData )
430 {
431 if ( ::SendMessage(GetHwnd(), CB_SETITEMDATA,
432 n, (LPARAM)clientData) == CB_ERR )
433 {
434 wxLogLastError(wxT("CB_SETITEMDATA"));
435 }
436 }
437
438 void* wxChoice::DoGetItemClientData( int n ) const
439 {
440 LPARAM rc = SendMessage(GetHwnd(), CB_GETITEMDATA, n, 0);
441 if ( rc == CB_ERR )
442 {
443 wxLogLastError(wxT("CB_GETITEMDATA"));
444
445 // unfortunately, there is no way to return an error code to the user
446 rc = (LPARAM) NULL;
447 }
448
449 return (void *)rc;
450 }
451
452 void wxChoice::DoSetItemClientObject( int n, wxClientData* clientData )
453 {
454 DoSetItemClientData(n, clientData);
455 }
456
457 wxClientData* wxChoice::DoGetItemClientObject( int n ) const
458 {
459 return (wxClientData *)DoGetItemClientData(n);
460 }
461
462 // ----------------------------------------------------------------------------
463 // wxMSW specific helpers
464 // ----------------------------------------------------------------------------
465
466 void wxChoice::UpdateVisibleHeight()
467 {
468 // be careful to not change the width here
469 DoSetSize(wxDefaultCoord, wxDefaultCoord, wxDefaultCoord, GetSize().y, wxSIZE_USE_EXISTING);
470 }
471
472 void wxChoice::DoMoveWindow(int x, int y, int width, int height)
473 {
474 // here is why this is necessary: if the width is negative, the combobox
475 // window proc makes the window of the size width*height instead of
476 // interpreting height in the usual manner (meaning the height of the drop
477 // down list - usually the height specified in the call to MoveWindow()
478 // will not change the height of combo box per se)
479 //
480 // this behaviour is not documented anywhere, but this is just how it is
481 // here (NT 4.4) and, anyhow, the check shouldn't hurt - however without
482 // the check, constraints/sizers using combos may break the height
483 // constraint will have not at all the same value as expected
484 if ( width < 0 )
485 return;
486
487 wxControl::DoMoveWindow(x, y, width, height);
488 }
489
490 void wxChoice::DoGetSize(int *w, int *h) const
491 {
492 // this is weird: sometimes, the height returned by Windows is clearly the
493 // total height of the control including the drop down list -- but only
494 // sometimes, and normally it isn't... I have no idea about what to do with
495 // this
496 wxControl::DoGetSize(w, h);
497 }
498
499 void wxChoice::DoSetSize(int x, int y,
500 int width, int height,
501 int sizeFlags)
502 {
503 int heightOrig = height;
504
505 // the height which we must pass to Windows should be the total height of
506 // the control including the drop down list while the height given to us
507 // is, of course, just the height of the permanently visible part of it
508 if ( height != wxDefaultCoord )
509 {
510 // don't make the drop down list too tall, arbitrarily limit it to 40
511 // items max and also don't leave it empty
512 size_t nItems = GetCount();
513 if ( !nItems )
514 nItems = 9;
515 else if ( nItems > 24 )
516 nItems = 24;
517
518 // add space for the drop down list
519 const int hItem = SendMessage(GetHwnd(), CB_GETITEMHEIGHT, 0, 0);
520 height += hItem*(nItems + 1);
521 }
522 else
523 {
524 // We cannot pass wxDefaultCoord as height to wxControl. wxControl uses
525 // wxGetWindowRect() to determine the current height of the combobox,
526 // and then again sets the combobox's height to that value. Unfortunately,
527 // wxGetWindowRect doesn't include the dropdown list's height (at least
528 // on Win2K), so this would result in a combobox with dropdown height of
529 // 1 pixel. We have to determine the default height ourselves and call
530 // wxControl with that value instead.
531 int w, h;
532 RECT r;
533 DoGetSize(&w, &h);
534 if (::SendMessage(GetHwnd(), CB_GETDROPPEDCONTROLRECT, 0, (LPARAM) &r) != 0)
535 {
536 height = h + r.bottom - r.top;
537 }
538 }
539
540 wxControl::DoSetSize(x, y, width, height, sizeFlags);
541
542 // I'm commenting this out since the code appears to make choices
543 // and comboxes too high when they have associated sizers. I'm sure this
544 // is not the end of the story, which is why I'm leaving it #if'ed out for
545 // now. JACS.
546 #if 0
547 // if the height specified for the visible part of the control is
548 // different from the current one, we need to change it separately
549 // as it is not affected by normal WM_SETSIZE
550 if ( height != wxDefaultCoord )
551 {
552 const int delta = heightOrig - GetSize().y;
553 if ( delta )
554 {
555 int h = ::SendMessage(GetHwnd(), CB_GETITEMHEIGHT, (WPARAM)-1, 0);
556 SendMessage(GetHwnd(), CB_SETITEMHEIGHT, (WPARAM)-1, h + delta);
557 }
558 }
559 #else
560 wxUnusedVar(heightOrig);
561 #endif
562 }
563
564 wxSize wxChoice::DoGetBestSize() const
565 {
566 // find the widest string
567 int wChoice = 0;
568 const size_t nItems = GetCount();
569 for ( size_t i = 0; i < nItems; i++ )
570 {
571 int wLine;
572 GetTextExtent(GetString(i), &wLine, NULL);
573 if ( wLine > wChoice )
574 wChoice = wLine;
575 }
576
577 // give it some reasonable default value if there are no strings in the
578 // list
579 if ( wChoice == 0 )
580 wChoice = 100;
581
582 // the combobox should be slightly larger than the widest string
583 wChoice += 5*GetCharWidth();
584
585 wxSize best(wChoice, EDIT_HEIGHT_FROM_CHAR_HEIGHT(GetCharHeight()));
586 CacheBestSize(best);
587 return best;
588 }
589
590 WXLRESULT wxChoice::MSWWindowProc(WXUINT nMsg, WXWPARAM wParam, WXLPARAM lParam)
591 {
592 switch ( nMsg )
593 {
594 case WM_LBUTTONUP:
595 {
596 int x = (int)LOWORD(lParam);
597 int y = (int)HIWORD(lParam);
598
599 // Ok, this is truly weird, but if a panel with a wxChoice
600 // loses the focus, then you get a *fake* WM_LBUTTONUP message
601 // with x = 65535 and y = 65535. Filter out this nonsense.
602 //
603 // VZ: I'd like to know how to reproduce this please...
604 if ( x == 65535 && y == 65535 )
605 return 0;
606 }
607 break;
608
609 // we have to handle both: one for the normal case and the other
610 // for readonly
611 case WM_CTLCOLOREDIT:
612 case WM_CTLCOLORLISTBOX:
613 case WM_CTLCOLORSTATIC:
614 {
615 WXHDC hdc;
616 WXHWND hwnd;
617 UnpackCtlColor(wParam, lParam, &hdc, &hwnd);
618
619 WXHBRUSH hbr = MSWControlColor((WXHDC)hdc, hwnd);
620 if ( hbr )
621 return (WXLRESULT)hbr;
622 //else: fall through to default window proc
623 }
624 }
625
626 return wxWindow::MSWWindowProc(nMsg, wParam, lParam);
627 }
628
629 bool wxChoice::MSWCommand(WXUINT param, WXWORD WXUNUSED(id))
630 {
631 switch ( param )
632 {
633 case CBN_DROPDOWN:
634 // we don't want to track selection using CB_GETCURSEL while the
635 // dropdown is opened
636 m_lastAcceptedSelection = GetCurrentSelection();
637 break;
638
639 case CBN_CLOSEUP:
640 // it should be safe to use CB_GETCURSEL again
641 m_lastAcceptedSelection = wxID_NONE;
642 break;
643
644 case CBN_SELCHANGE:
645 {
646 const int n = GetSelection();
647
648 wxCommandEvent event(wxEVT_COMMAND_CHOICE_SELECTED, m_windowId);
649 event.SetInt(n);
650 event.SetEventObject(this);
651
652 if ( n > -1 )
653 {
654 event.SetString(GetStringSelection());
655 if ( HasClientObjectData() )
656 event.SetClientObject( GetClientObject(n) );
657 else if ( HasClientUntypedData() )
658 event.SetClientData( GetClientData(n) );
659 }
660
661 ProcessCommand(event);
662 }
663 return true;
664 }
665
666 return false;
667 }
668
669 WXHBRUSH wxChoice::MSWControlColor(WXHDC hDC, WXHWND hWnd)
670 {
671 if ( !IsEnabled() )
672 return MSWControlColorDisabled(hDC);
673
674 return wxChoiceBase::MSWControlColor(hDC, hWnd);
675 }
676
677 #endif // wxUSE_CHOICE && !(__SMARTPHONE__ && __WXWINCE__)
678