1 /////////////////////////////////////////////////////////////////////////////
4 // Author: Julian Smart
5 // Modified by: Vadim Zeitlin to derive from wxChoiceBase
8 // Copyright: (c) Julian Smart
9 // Licence: wxWindows licence
10 /////////////////////////////////////////////////////////////////////////////
12 // ============================================================================
14 // ============================================================================
16 // ----------------------------------------------------------------------------
18 // ----------------------------------------------------------------------------
20 #if defined(__GNUG__) && !defined(NO_GCC_PRAGMA)
21 #pragma implementation "choice.h"
24 // For compilers that support precompilation, includes "wx.h".
25 #include "wx/wxprec.h"
34 #include "wx/choice.h"
38 #include "wx/settings.h"
41 #include "wx/msw/private.h"
43 #if wxUSE_EXTENDED_RTTI
44 WX_DEFINE_FLAGS( wxChoiceStyle
)
46 wxBEGIN_FLAGS( wxChoiceStyle
)
47 // new style border flags, we put them first to
48 // use them for streaming out
49 wxFLAGS_MEMBER(wxBORDER_SIMPLE
)
50 wxFLAGS_MEMBER(wxBORDER_SUNKEN
)
51 wxFLAGS_MEMBER(wxBORDER_DOUBLE
)
52 wxFLAGS_MEMBER(wxBORDER_RAISED
)
53 wxFLAGS_MEMBER(wxBORDER_STATIC
)
54 wxFLAGS_MEMBER(wxBORDER_NONE
)
56 // old style border flags
57 wxFLAGS_MEMBER(wxSIMPLE_BORDER
)
58 wxFLAGS_MEMBER(wxSUNKEN_BORDER
)
59 wxFLAGS_MEMBER(wxDOUBLE_BORDER
)
60 wxFLAGS_MEMBER(wxRAISED_BORDER
)
61 wxFLAGS_MEMBER(wxSTATIC_BORDER
)
62 wxFLAGS_MEMBER(wxBORDER
)
64 // standard window styles
65 wxFLAGS_MEMBER(wxTAB_TRAVERSAL
)
66 wxFLAGS_MEMBER(wxCLIP_CHILDREN
)
67 wxFLAGS_MEMBER(wxTRANSPARENT_WINDOW
)
68 wxFLAGS_MEMBER(wxWANTS_CHARS
)
69 wxFLAGS_MEMBER(wxFULL_REPAINT_ON_RESIZE
)
70 wxFLAGS_MEMBER(wxALWAYS_SHOW_SB
)
71 wxFLAGS_MEMBER(wxVSCROLL
)
72 wxFLAGS_MEMBER(wxHSCROLL
)
74 wxEND_FLAGS( wxChoiceStyle
)
76 IMPLEMENT_DYNAMIC_CLASS_XTI(wxChoice
, wxControl
,"wx/choice.h")
78 wxBEGIN_PROPERTIES_TABLE(wxChoice
)
79 wxEVENT_PROPERTY( Select
, wxEVT_COMMAND_CHOICE_SELECTED
, wxCommandEvent
)
81 wxPROPERTY( Font
, wxFont
, SetFont
, GetFont
, EMPTY_MACROVALUE
, 0 /*flags*/ , wxT("Helpstring") , wxT("group"))
82 wxPROPERTY_COLLECTION( Choices
, wxArrayString
, wxString
, AppendString
, GetStrings
, 0 /*flags*/ , wxT("Helpstring") , wxT("group"))
83 wxPROPERTY( Selection
,int, SetSelection
, GetSelection
, EMPTY_MACROVALUE
, 0 /*flags*/ , wxT("Helpstring") , wxT("group"))
84 wxPROPERTY_FLAGS( WindowStyle
, wxChoiceStyle
, long , SetWindowStyleFlag
, GetWindowStyleFlag
, EMPTY_MACROVALUE
, 0 /*flags*/ , wxT("Helpstring") , wxT("group")) // style
85 wxEND_PROPERTIES_TABLE()
87 wxBEGIN_HANDLERS_TABLE(wxChoice
)
88 wxEND_HANDLERS_TABLE()
90 wxCONSTRUCTOR_4( wxChoice
, wxWindow
* , Parent
, wxWindowID
, Id
, wxPoint
, Position
, wxSize
, Size
)
92 IMPLEMENT_DYNAMIC_CLASS(wxChoice
, wxControl
)
101 // ============================================================================
103 // ============================================================================
105 // ----------------------------------------------------------------------------
107 // ----------------------------------------------------------------------------
109 bool wxChoice
::Create(wxWindow
*parent
,
113 int n
, const wxString choices
[],
115 const wxValidator
& validator
,
116 const wxString
& name
)
118 // Experience shows that wxChoice vs. wxComboBox distinction confuses
119 // quite a few people - try to help them
120 wxASSERT_MSG( !(style
& wxCB_DROPDOWN
) &&
121 !(style
& wxCB_READONLY
) &&
122 !(style
& wxCB_SIMPLE
),
123 _T("this style flag is ignored by wxChoice, you ")
124 _T("probably want to use a wxComboBox") );
126 return CreateAndInit(parent
, id
, pos
, size
, n
, choices
, style
,
130 bool wxChoice
::CreateAndInit(wxWindow
*parent
,
133 const wxSize
& sizeOrig
,
134 int n
, const wxString choices
[],
136 const wxValidator
& validator
,
137 const wxString
& name
)
139 // this is a bit hackish but we want to prevent MSWCreateControl() from
140 // calling SetBestSize() (which it would do if any of the size components
141 // is not given) because it wouldn't calculate it correctly if we have any
142 // strings as they're not yet added to the control when it is called
144 // so: if we have any strings, we fudge the size parameter so that
145 // SetBestSize() is not called by MSWCreateControl() but then we do call it
147 bool autoSize
= false;
148 wxSize size
= sizeOrig
;
163 // initialize wxControl
164 if ( !CreateControl(parent
, id
, pos
, size
, style
, validator
, name
) )
167 // now create the real HWND
168 if ( !MSWCreateControl(wxT("COMBOBOX"), _T(""), pos
, size
) )
172 // choice/combobox normally has "white" (depends on colour scheme, of
173 // course) background rather than inheriting the parent's background
174 SetBackgroundColour(wxSystemSettings
::GetColour(wxSYS_COLOUR_WINDOW
));
176 // initialize the controls contents
177 for ( int i
= 0; i
< n
; i
++ )
182 // and now we may finally size the control properly (if needed)
185 // we do the same thing as SetBestSize() but we need sizeBest here
186 wxSize sizeBest
= DoGetBestSize();
188 sizeBest
.x
= sizeOrig
.x
;
190 sizeBest
.y
= sizeOrig
.y
;
194 // this is our true initial size, not the (1, 1) we had during
195 // CreateControl() call above: this is especially important if we're
196 // added to a sizer as we don't want to be shrunk to nothing by it
197 m_initialSize
= sizeBest
;
203 bool wxChoice
::Create(wxWindow
*parent
,
207 const wxArrayString
& choices
,
209 const wxValidator
& validator
,
210 const wxString
& name
)
212 wxCArrayString
chs(choices
);
213 return Create(parent
, id
, pos
, size
, chs
.GetCount(), chs
.GetStrings(),
214 style
, validator
, name
);
217 WXDWORD wxChoice
::MSWGetStyle(long style
, WXDWORD
*exstyle
) const
219 // we never have an external border
220 WXDWORD msStyle
= wxControl
::MSWGetStyle
222 (style
& ~wxBORDER_MASK
) | wxBORDER_NONE
, exstyle
225 // WS_CLIPSIBLINGS is useful with wxChoice and doesn't seem to result in
227 msStyle
|= WS_CLIPSIBLINGS
;
229 // wxChoice-specific styles
230 msStyle
|= CBS_DROPDOWNLIST
| WS_HSCROLL
| WS_VSCROLL
;
231 if ( style
& wxCB_SORT
)
237 wxChoice
::~wxChoice()
242 // ----------------------------------------------------------------------------
243 // adding/deleting items to/from the list
244 // ----------------------------------------------------------------------------
246 int wxChoice
::DoAppend(const wxString
& item
)
248 int n
= (int)SendMessage(GetHwnd(), CB_ADDSTRING
, 0, (LPARAM
)item
.c_str());
251 wxLogLastError(wxT("SendMessage(CB_ADDSTRING)"));
255 // we need to refresh our size in order to have enough space for the
257 UpdateVisibleHeight();
263 int wxChoice
::DoInsert(const wxString
& item
, int pos
)
265 wxCHECK_MSG(!(GetWindowStyle() & wxCB_SORT
), -1, wxT("can't insert into sorted list"));
266 wxCHECK_MSG((pos
>=0) && (pos
<=GetCount()), -1, wxT("invalid index"));
268 int n
= (int)SendMessage(GetHwnd(), CB_INSERTSTRING
, pos
, (LPARAM
)item
.c_str());
271 wxLogLastError(wxT("SendMessage(CB_INSERTSTRING)"));
275 UpdateVisibleHeight();
281 void wxChoice
::Delete(int n
)
283 wxCHECK_RET( n
< GetCount(), wxT("invalid item index in wxChoice::Delete") );
285 if ( HasClientObjectData() )
287 delete GetClientObject(n
);
290 SendMessage(GetHwnd(), CB_DELETESTRING
, n
, 0);
292 UpdateVisibleHeight();
295 void wxChoice
::Clear()
299 SendMessage(GetHwnd(), CB_RESETCONTENT
, 0, 0);
301 UpdateVisibleHeight();
304 void wxChoice
::Free()
306 if ( HasClientObjectData() )
308 size_t count
= GetCount();
309 for ( size_t n
= 0; n
< count
; n
++ )
311 delete GetClientObject(n
);
316 // ----------------------------------------------------------------------------
318 // ----------------------------------------------------------------------------
320 int wxChoice
::GetSelection() const
322 return (int)SendMessage(GetHwnd(), CB_GETCURSEL
, 0, 0);
325 void wxChoice
::SetSelection(int n
)
327 SendMessage(GetHwnd(), CB_SETCURSEL
, n
, 0);
330 // ----------------------------------------------------------------------------
331 // string list functions
332 // ----------------------------------------------------------------------------
334 int wxChoice
::GetCount() const
336 return (int)SendMessage(GetHwnd(), CB_GETCOUNT
, 0, 0);
339 int wxChoice
::FindString(const wxString
& s
) const
341 #if defined(__WATCOMC__) && defined(__WIN386__)
342 // For some reason, Watcom in WIN386 mode crashes in the CB_FINDSTRINGEXACT message.
343 // wxChoice::Do it the long way instead.
344 int count
= GetCount();
345 for ( int i
= 0; i
< count
; i
++ )
347 // as CB_FINDSTRINGEXACT is case insensitive, be case insensitive too
348 if ( GetString(i
).IsSameAs(s
, FALSE
) )
354 int pos
= (int)SendMessage(GetHwnd(), CB_FINDSTRINGEXACT
,
355 (WPARAM
)-1, (LPARAM
)s
.c_str());
357 return pos
== LB_ERR ? wxNOT_FOUND
: pos
;
358 #endif // Watcom/!Watcom
361 void wxChoice
::SetString(int n
, const wxString
& s
)
363 wxCHECK_RET( n
>= 0 && n
< GetCount(),
364 wxT("invalid item index in wxChoice::SetString") );
366 // we have to delete and add back the string as there is no way to change a
369 // we need to preserve the client data
371 if ( m_clientDataItemsType
!= wxClientData_None
)
373 data
= DoGetItemClientData(n
);
375 else // no client data
380 ::SendMessage(GetHwnd(), CB_DELETESTRING
, n
, 0);
381 ::SendMessage(GetHwnd(), CB_INSERTSTRING
, n
, (LPARAM
)s
.c_str() );
385 DoSetItemClientData(n
, data
);
387 //else: it's already NULL by default
390 wxString wxChoice
::GetString(int n
) const
392 int len
= (int)::SendMessage(GetHwnd(), CB_GETLBTEXTLEN
, n
, 0);
395 if ( len
!= CB_ERR
&& len
> 0 )
402 (LPARAM
)(wxChar
*)wxStringBuffer(str
, len
)
405 wxLogLastError(wxT("SendMessage(CB_GETLBTEXT)"));
412 // ----------------------------------------------------------------------------
414 // ----------------------------------------------------------------------------
416 void wxChoice
::DoSetItemClientData( int n
, void* clientData
)
418 if ( ::SendMessage(GetHwnd(), CB_SETITEMDATA
,
419 n
, (LPARAM
)clientData
) == CB_ERR
)
421 wxLogLastError(wxT("CB_SETITEMDATA"));
425 void* wxChoice
::DoGetItemClientData( int n
) const
427 LPARAM rc
= SendMessage(GetHwnd(), CB_GETITEMDATA
, n
, 0);
430 wxLogLastError(wxT("CB_GETITEMDATA"));
432 // unfortunately, there is no way to return an error code to the user
439 void wxChoice
::DoSetItemClientObject( int n
, wxClientData
* clientData
)
441 DoSetItemClientData(n
, clientData
);
444 wxClientData
* wxChoice
::DoGetItemClientObject( int n
) const
446 return (wxClientData
*)DoGetItemClientData(n
);
449 // ----------------------------------------------------------------------------
450 // wxMSW specific helpers
451 // ----------------------------------------------------------------------------
453 void wxChoice
::UpdateVisibleHeight()
455 // be careful to not change the width here
456 DoSetSize(-1, -1, -1, GetSize().y
, wxSIZE_USE_EXISTING
);
459 void wxChoice
::DoMoveWindow(int x
, int y
, int width
, int height
)
461 // here is why this is necessary: if the width is negative, the combobox
462 // window proc makes the window of the size width*height instead of
463 // interpreting height in the usual manner (meaning the height of the drop
464 // down list - usually the height specified in the call to MoveWindow()
465 // will not change the height of combo box per se)
467 // this behaviour is not documented anywhere, but this is just how it is
468 // here (NT 4.4) and, anyhow, the check shouldn't hurt - however without
469 // the check, constraints/sizers using combos may break the height
470 // constraint will have not at all the same value as expected
474 wxControl
::DoMoveWindow(x
, y
, width
, height
);
477 void wxChoice
::DoGetSize(int *w
, int *h
) const
479 // this is weird: sometimes, the height returned by Windows is clearly the
480 // total height of the control including the drop down list -- but only
481 // sometimes, and normally it isn't... I have no idea about what to do with
483 wxControl
::DoGetSize(w
, h
);
486 void wxChoice
::DoSetSize(int x
, int y
,
487 int width
, int height
,
490 int heightOrig
= height
;
492 // the height which we must pass to Windows should be the total height of
493 // the control including the drop down list while the height given to us
494 // is, of course, just the height of the permanently visible part of it
497 // don't make the drop down list too tall, arbitrarily limit it to 40
498 // items max and also don't leave it empty
499 size_t nItems
= GetCount();
502 else if ( nItems
> 39 )
505 // add space for the drop down list
506 const int hItem
= SendMessage(GetHwnd(), CB_GETITEMHEIGHT
, 0, 0);
507 height
+= hItem
*(nItems
+ 1);
510 wxControl
::DoSetSize(x
, y
, width
, height
, sizeFlags
);
512 // if the height specified for the visible part of the control is
513 // different from the current one, we need to change it separately
514 // as it is not affected by normal WM_SETSIZE
517 const int delta
= heightOrig
- GetSize().y
;
520 int h
= ::SendMessage(GetHwnd(), CB_GETITEMHEIGHT
, (WPARAM
)-1, 0);
521 SendMessage(GetHwnd(), CB_SETITEMHEIGHT
, (WPARAM
)-1, h
+ delta
);
526 wxSize wxChoice
::DoGetBestSize() const
528 // find the widest string
530 const size_t nItems
= GetCount();
531 for ( size_t i
= 0; i
< nItems
; i
++ )
534 GetTextExtent(GetString(i
), &wLine
, NULL
);
535 if ( wLine
> wChoice
)
539 // give it some reasonable default value if there are no strings in the
544 // the combobox should be slightly larger than the widest string
545 wChoice
+= 5*GetCharWidth();
547 return wxSize(wChoice
, EDIT_HEIGHT_FROM_CHAR_HEIGHT(GetCharHeight()));
550 WXLRESULT wxChoice
::MSWWindowProc(WXUINT nMsg
, WXWPARAM wParam
, WXLPARAM lParam
)
552 if ( nMsg
== WM_LBUTTONUP
)
554 int x
= (int)LOWORD(lParam
);
555 int y
= (int)HIWORD(lParam
);
557 // Ok, this is truly weird, but if a panel with a wxChoice loses the
558 // focus, then you get a *fake* WM_LBUTTONUP message with x = 65535 and
559 // y = 65535. Filter out this nonsense.
561 // VZ: I'd like to know how to reproduce this please...
562 if ( x
== 65535 && y
== 65535 )
566 return wxWindow
::MSWWindowProc(nMsg
, wParam
, lParam
);
569 bool wxChoice
::MSWCommand(WXUINT param
, WXWORD
WXUNUSED(id
))
571 if ( param
!= CBN_SELCHANGE
)
573 // "selection changed" is the only event we're after
577 int n
= GetSelection();
580 wxCommandEvent
event(wxEVT_COMMAND_CHOICE_SELECTED
, m_windowId
);
582 event
.SetEventObject(this);
583 event
.SetString(GetStringSelection());
584 if ( HasClientObjectData() )
585 event
.SetClientObject( GetClientObject(n
) );
586 else if ( HasClientUntypedData() )
587 event
.SetClientData( GetClientData(n
) );
588 ProcessCommand(event
);
594 WXHBRUSH wxChoice
::OnCtlColor(WXHDC pDC
, WXHWND
WXUNUSED(pWnd
), WXUINT
WXUNUSED(nCtlColor
),
595 WXUINT
WXUNUSED(message
),
596 WXWPARAM
WXUNUSED(wParam
),
597 WXLPARAM
WXUNUSED(lParam
)
601 wxColour colBack
= GetBackgroundColour();
604 colBack
= wxSystemSettings
::GetColour(wxSYS_COLOUR_3DFACE
);
606 ::SetBkColor(hdc
, wxColourToRGB(colBack
));
607 ::SetTextColor(hdc
, wxColourToRGB(GetForegroundColour()));
609 wxBrush
*brush
= wxTheBrushList
->FindOrCreateBrush(colBack
, wxSOLID
);
611 return (WXHBRUSH
)brush
->GetResourceHandle();
614 #endif // wxUSE_CHOICE