]> git.saurik.com Git - wxWidgets.git/blame - src/msw/combobox.cpp
IRIX compilation fix: don't redeclare usleep() if HAVE_USLEEP is defined
[wxWidgets.git] / src / msw / combobox.cpp
CommitLineData
2bda0e17 1/////////////////////////////////////////////////////////////////////////////
f6bcfd97 2// Name: msw/combobox.cpp
2bda0e17
KB
3// Purpose: wxComboBox class
4// Author: Julian Smart
5// Modified by:
6// Created: 01/02/97
7// RCS-ID: $Id$
6c9a19aa 8// Copyright: (c) Julian Smart
65571936 9// Licence: wxWindows licence
2bda0e17
KB
10/////////////////////////////////////////////////////////////////////////////
11
f6bcfd97
BP
12// ============================================================================
13// declarations
14// ============================================================================
15
16// ----------------------------------------------------------------------------
17// headers
18// ----------------------------------------------------------------------------
19
14f355c2 20#if defined(__GNUG__) && !defined(NO_GCC_PRAGMA)
2bda0e17
KB
21#pragma implementation "combobox.h"
22#endif
23
24// For compilers that support precompilation, includes "wx.h".
25#include "wx/wxprec.h"
26
27#ifdef __BORLANDC__
fddfd9e1 28 #pragma hdrstop
2bda0e17
KB
29#endif
30
af79c52d
VZ
31#if wxUSE_COMBOBOX
32
2bda0e17 33#ifndef WX_PRECOMP
fddfd9e1
VZ
34 #include "wx/settings.h"
35 #include "wx/log.h"
2b5f62a0
VZ
36 // for wxEVT_COMMAND_TEXT_ENTER
37 #include "wx/textctrl.h"
2bda0e17
KB
38#endif
39
350a44d9 40#include "wx/app.h"
2bda0e17 41#include "wx/combobox.h"
f6bcfd97 42#include "wx/brush.h"
2bda0e17
KB
43#include "wx/clipbrd.h"
44#include "wx/msw/private.h"
45
f6bcfd97 46#if wxUSE_TOOLTIPS
ae090fdb 47 #if !defined(__GNUWIN32_OLD__) || defined(__CYGWIN10__)
f6bcfd97
BP
48 #include <commctrl.h>
49 #endif
50 #include "wx/tooltip.h"
51#endif // wxUSE_TOOLTIPS
52
53// ----------------------------------------------------------------------------
54// wxWin macros
55// ----------------------------------------------------------------------------
56
6a89f9ee 57#if wxUSE_EXTENDED_RTTI
bc9fb572
JS
58WX_DEFINE_FLAGS( wxComboBoxStyle )
59
3ff066a4 60wxBEGIN_FLAGS( wxComboBoxStyle )
bc9fb572
JS
61 // new style border flags, we put them first to
62 // use them for streaming out
3ff066a4
SC
63 wxFLAGS_MEMBER(wxBORDER_SIMPLE)
64 wxFLAGS_MEMBER(wxBORDER_SUNKEN)
65 wxFLAGS_MEMBER(wxBORDER_DOUBLE)
66 wxFLAGS_MEMBER(wxBORDER_RAISED)
67 wxFLAGS_MEMBER(wxBORDER_STATIC)
68 wxFLAGS_MEMBER(wxBORDER_NONE)
02b7b6b0 69
bc9fb572 70 // old style border flags
3ff066a4
SC
71 wxFLAGS_MEMBER(wxSIMPLE_BORDER)
72 wxFLAGS_MEMBER(wxSUNKEN_BORDER)
73 wxFLAGS_MEMBER(wxDOUBLE_BORDER)
74 wxFLAGS_MEMBER(wxRAISED_BORDER)
75 wxFLAGS_MEMBER(wxSTATIC_BORDER)
cb0afb26 76 wxFLAGS_MEMBER(wxBORDER)
bc9fb572
JS
77
78 // standard window styles
3ff066a4
SC
79 wxFLAGS_MEMBER(wxTAB_TRAVERSAL)
80 wxFLAGS_MEMBER(wxCLIP_CHILDREN)
81 wxFLAGS_MEMBER(wxTRANSPARENT_WINDOW)
82 wxFLAGS_MEMBER(wxWANTS_CHARS)
cb0afb26 83 wxFLAGS_MEMBER(wxFULL_REPAINT_ON_RESIZE)
3ff066a4
SC
84 wxFLAGS_MEMBER(wxALWAYS_SHOW_SB )
85 wxFLAGS_MEMBER(wxVSCROLL)
86 wxFLAGS_MEMBER(wxHSCROLL)
87
88 wxFLAGS_MEMBER(wxCB_SIMPLE)
89 wxFLAGS_MEMBER(wxCB_SORT)
90 wxFLAGS_MEMBER(wxCB_READONLY)
91 wxFLAGS_MEMBER(wxCB_DROPDOWN)
92
93wxEND_FLAGS( wxComboBoxStyle )
bc9fb572 94
6a89f9ee
SC
95IMPLEMENT_DYNAMIC_CLASS_XTI(wxComboBox, wxControl,"wx/combobox.h")
96
3ff066a4 97wxBEGIN_PROPERTIES_TABLE(wxComboBox)
02b7b6b0 98 wxEVENT_PROPERTY( Select , wxEVT_COMMAND_COMBOBOX_SELECTED , wxCommandEvent )
3ff066a4 99 wxEVENT_PROPERTY( TextEnter , wxEVT_COMMAND_TEXT_ENTER , wxCommandEvent )
c5ca409b 100
6a89f9ee 101 // TODO DELEGATES
02b7b6b0 102 wxPROPERTY( Font , wxFont , SetFont , GetFont , EMPTY_MACROVALUE , 0 /*flags*/ , wxT("Helpstring") , wxT("group"))
3ff066a4 103 wxPROPERTY_COLLECTION( Choices , wxArrayString , wxString , AppendString , GetStrings , 0 /*flags*/ , wxT("Helpstring") , wxT("group"))
02b7b6b0
WS
104 wxPROPERTY( Value ,wxString, SetValue, GetValue, EMPTY_MACROVALUE , 0 /*flags*/ , wxT("Helpstring") , wxT("group"))
105 wxPROPERTY( Selection ,int, SetSelection, GetSelection, EMPTY_MACROVALUE , 0 /*flags*/ , wxT("Helpstring") , wxT("group"))
af498247 106 wxPROPERTY_FLAGS( WindowStyle , wxComboBoxStyle , long , SetWindowStyleFlag , GetWindowStyleFlag , EMPTY_MACROVALUE , 0 /*flags*/ , wxT("Helpstring") , wxT("group")) // style
3ff066a4 107wxEND_PROPERTIES_TABLE()
6a89f9ee 108
3ff066a4
SC
109wxBEGIN_HANDLERS_TABLE(wxComboBox)
110wxEND_HANDLERS_TABLE()
2bda0e17 111
3ff066a4 112wxCONSTRUCTOR_5( wxComboBox , wxWindow* , Parent , wxWindowID , Id , wxString , Value , wxPoint , Position , wxSize , Size )
bb8d428f 113
6a89f9ee 114#else
bb8d428f 115
6a89f9ee 116IMPLEMENT_DYNAMIC_CLASS(wxComboBox, wxControl)
150e31d2 117
bb8d428f
WS
118#endif
119
150e31d2
JS
120BEGIN_EVENT_TABLE(wxComboBox, wxControl)
121 EVT_MENU(wxID_CUT, wxComboBox::OnCut)
122 EVT_MENU(wxID_COPY, wxComboBox::OnCopy)
123 EVT_MENU(wxID_PASTE, wxComboBox::OnPaste)
124 EVT_MENU(wxID_UNDO, wxComboBox::OnUndo)
125 EVT_MENU(wxID_REDO, wxComboBox::OnRedo)
126 EVT_MENU(wxID_CLEAR, wxComboBox::OnDelete)
127 EVT_MENU(wxID_SELECTALL, wxComboBox::OnSelectAll)
128
129 EVT_UPDATE_UI(wxID_CUT, wxComboBox::OnUpdateCut)
130 EVT_UPDATE_UI(wxID_COPY, wxComboBox::OnUpdateCopy)
131 EVT_UPDATE_UI(wxID_PASTE, wxComboBox::OnUpdatePaste)
132 EVT_UPDATE_UI(wxID_UNDO, wxComboBox::OnUpdateUndo)
133 EVT_UPDATE_UI(wxID_REDO, wxComboBox::OnUpdateRedo)
134 EVT_UPDATE_UI(wxID_CLEAR, wxComboBox::OnUpdateDelete)
135 EVT_UPDATE_UI(wxID_SELECTALL, wxComboBox::OnUpdateSelectAll)
136END_EVENT_TABLE()
137
f6bcfd97
BP
138// ----------------------------------------------------------------------------
139// function prototypes
140// ----------------------------------------------------------------------------
141
142LRESULT APIENTRY _EXPORT wxComboEditWndProc(HWND hWnd,
143 UINT message,
144 WPARAM wParam,
145 LPARAM lParam);
146
147// ---------------------------------------------------------------------------
148// global vars
149// ---------------------------------------------------------------------------
150
151// the pointer to standard radio button wnd proc
975b6bcf 152static WNDPROC gs_wndprocEdit = (WNDPROC)NULL;
f6bcfd97
BP
153
154// ============================================================================
155// implementation
156// ============================================================================
157
158// ----------------------------------------------------------------------------
159// wnd proc for subclassed edit control
160// ----------------------------------------------------------------------------
161
162LRESULT APIENTRY _EXPORT wxComboEditWndProc(HWND hWnd,
163 UINT message,
164 WPARAM wParam,
165 LPARAM lParam)
166{
167 HWND hwndCombo = ::GetParent(hWnd);
168 wxWindow *win = wxFindWinFromHandle((WXHWND)hwndCombo);
169
170 switch ( message )
171 {
53c3a78b
VZ
172 // forward some messages to the combobox to generate the appropriate
173 // wxEvents from them
f6bcfd97
BP
174 case WM_KEYUP:
175 case WM_KEYDOWN:
176 case WM_CHAR:
53c3a78b
VZ
177 case WM_SETFOCUS:
178 case WM_KILLFOCUS:
f6bcfd97
BP
179 {
180 wxComboBox *combo = wxDynamicCast(win, wxComboBox);
64b39766
VZ
181 if ( !combo )
182 {
183 // we can get WM_KILLFOCUS while our parent is already half
184 // destroyed and hence doesn't look like a combobx any
185 // longer, check for it to avoid bogus assert failures
186 if ( !win->IsBeingDeleted() )
187 {
188 wxFAIL_MSG( _T("should have combo as parent") );
189 }
190 }
191 else if ( combo->MSWProcessEditMsg(message, wParam, lParam) )
192 {
193 // handled by parent
f6bcfd97 194 return 0;
64b39766 195 }
f6bcfd97
BP
196 }
197 break;
198
f6bcfd97
BP
199 case WM_GETDLGCODE:
200 {
201 wxCHECK_MSG( win, 0, _T("should have a parent") );
202
203 if ( win->GetWindowStyle() & wxPROCESS_ENTER )
204 {
205 // need to return a custom dlg code or we'll never get it
206 return DLGC_WANTMESSAGE;
207 }
208 }
209 break;
f6bcfd97
BP
210
211 // deal with tooltips here
ae090fdb 212#if wxUSE_TOOLTIPS && defined(TTN_NEEDTEXT)
f6bcfd97
BP
213 case WM_NOTIFY:
214 {
215 wxCHECK_MSG( win, 0, _T("should have a parent") );
216
217 NMHDR* hdr = (NMHDR *)lParam;
2b5f62a0 218 if ( hdr->code == TTN_NEEDTEXT )
f6bcfd97
BP
219 {
220 wxToolTip *tooltip = win->GetToolTip();
221 if ( tooltip )
222 {
223 TOOLTIPTEXT *ttt = (TOOLTIPTEXT *)lParam;
224 ttt->lpszText = (wxChar *)tooltip->GetTip().c_str();
225 }
226
227 // processed
228 return 0;
229 }
230 }
231 break;
232#endif // wxUSE_TOOLTIPS
233 }
234
235 return ::CallWindowProc(CASTWNDPROC gs_wndprocEdit, hWnd, message, wParam, lParam);
236}
237
f6bcfd97 238// ----------------------------------------------------------------------------
3a7d5f7c 239// wxComboBox callbacks
f6bcfd97
BP
240// ----------------------------------------------------------------------------
241
c140b7e7 242WXLRESULT wxComboBox::MSWWindowProc(WXUINT nMsg, WXWPARAM wParam, WXLPARAM lParam)
3a7d5f7c
VZ
243{
244 // handle WM_CTLCOLOR messages from our EDIT control to be able to set its
245 // colour correctly (to be the same as our own one)
246 switch ( nMsg )
247 {
1b135c93
RD
248 case CB_SETCURSEL:
249 // Selection was set with SetSelection. Update the value too.
bee67147 250 if ((int)wParam > GetCount())
1b135c93
RD
251 m_value = wxEmptyString;
252 else
253 m_value = GetString(wParam);
884a37ae 254 m_selectionOld = -1;
1b135c93 255 break;
3a7d5f7c
VZ
256 }
257
258 return wxChoice::MSWWindowProc(nMsg, wParam, lParam);
259}
260
f6bcfd97
BP
261bool wxComboBox::MSWProcessEditMsg(WXUINT msg, WXWPARAM wParam, WXLPARAM lParam)
262{
263 switch ( msg )
264 {
265 case WM_CHAR:
2b5f62a0
VZ
266 // for compatibility with wxTextCtrl, generate a special message
267 // when Enter is pressed
268 if ( wParam == VK_RETURN )
269 {
270 wxCommandEvent event(wxEVT_COMMAND_TEXT_ENTER, m_windowId);
271 InitCommandEvent(event);
272 event.SetString(GetValue());
273 event.SetInt(GetSelection());
ffb1629f
VZ
274 if ( ProcessCommand(event) )
275 {
276 // don't let the event through to the native control
277 // because it doesn't need it and may generate an annoying
278 // beep if it gets it
279 return true;
280 }
2b5f62a0
VZ
281 }
282
02b7b6b0 283 return HandleChar(wParam, lParam, true /* isASCII */);
889f0b7c 284
f6bcfd97
BP
285 case WM_KEYDOWN:
286 return HandleKeyDown(wParam, lParam);
287
288 case WM_KEYUP:
289 return HandleKeyUp(wParam, lParam);
53c3a78b
VZ
290
291 case WM_SETFOCUS:
292 return HandleSetFocus((WXHWND)wParam);
293
294 case WM_KILLFOCUS:
295 return HandleKillFocus((WXHWND)wParam);
f6bcfd97
BP
296 }
297
02b7b6b0 298 return false;
f6bcfd97
BP
299}
300
debe6624 301bool wxComboBox::MSWCommand(WXUINT param, WXWORD WXUNUSED(id))
2bda0e17 302{
fddfd9e1
VZ
303 wxString value;
304 int sel = -1;
cd0b1709 305 switch ( param )
8c1c5302 306 {
cd0b1709 307 case CBN_SELCHANGE:
fddfd9e1 308 sel = GetSelection();
13bcc348
VZ
309
310 // somehow we get 2 CBN_SELCHANGE events with the same index when
311 // the user selects an item in the combobox -- ignore duplicates
312 if ( sel > -1 && sel != m_selectionOld )
cd0b1709 313 {
13bcc348
VZ
314 m_selectionOld = sel;
315
316 // GetValue() would still return the old value from here but
317 // according to the docs we should return the new value if the
318 // user calls it in his event handler, so update internal
319 // m_value
320 m_value = GetString(sel);
fddfd9e1 321
cd0b1709 322 wxCommandEvent event(wxEVT_COMMAND_COMBOBOX_SELECTED, GetId());
fddfd9e1 323 event.SetInt(sel);
cd0b1709 324 event.SetEventObject(this);
13bcc348 325 event.SetString(m_value);
cd0b1709
VZ
326 ProcessCommand(event);
327 }
13bcc348 328 else // no valid selection
fddfd9e1 329 {
13bcc348
VZ
330 m_selectionOld = sel;
331
332 // hence no EVT_TEXT neither
fddfd9e1
VZ
333 break;
334 }
335
336 // fall through: for compability with wxGTK, also send the text
337 // update event when the selection changes (this also seems more
338 // logical as the text does change)
29006414 339
cd0b1709
VZ
340 case CBN_EDITCHANGE:
341 {
7ba166dd 342 wxCommandEvent event(wxEVT_COMMAND_TEXT_UPDATED, GetId());
3adc70bf 343
fddfd9e1
VZ
344 // if sel != -1, value was initialized above (and we can't use
345 // GetValue() here as it would return the old selection and we
346 // want the new one)
7ba166dd 347 if ( sel == -1 )
3adc70bf 348 {
9a6bc656 349 m_value = wxGetWindowText(GetHwnd());
3adc70bf
VZ
350 }
351 else // we're synthesizing text updated event from sel change
352 {
13bcc348
VZ
353 // We need to retrieve the current selection because the
354 // user may have changed it in the previous handler (for
355 // CBN_SELCHANGE above).
28764ac9
JS
356 sel = GetSelection();
357 if ( sel > -1 )
358 {
13bcc348 359 m_value = GetString(sel);
28764ac9 360 }
3adc70bf
VZ
361 }
362
13bcc348 363 event.SetString(m_value);
cd0b1709 364 event.SetEventObject(this);
0ef2ebba 365 ProcessCommand(event);
cd0b1709
VZ
366 }
367 break;
368 }
29006414 369
cd0b1709 370 // there is no return value for the CBN_ notifications, so always return
02b7b6b0
WS
371 // false from here to pass the message to DefWindowProc()
372 return false;
2bda0e17
KB
373}
374
f6bcfd97
BP
375WXHWND wxComboBox::GetEditHWND() const
376{
377 // this function should not be called for wxCB_READONLY controls, it is
378 // the callers responsability to check this
379 wxASSERT_MSG( !(GetWindowStyle() & wxCB_READONLY),
380 _T("read-only combobox doesn't have any edit control") );
381
382 POINT pt;
383 pt.x = pt.y = 4;
384 HWND hwndEdit = ::ChildWindowFromPoint(GetHwnd(), pt);
385 if ( !hwndEdit || hwndEdit == GetHwnd() )
386 {
387 wxFAIL_MSG(_T("not read only combobox without edit control?"));
388 }
389
390 return (WXHWND)hwndEdit;
391}
392
71e57cd6
VZ
393// ----------------------------------------------------------------------------
394// wxComboBox creation
395// ----------------------------------------------------------------------------
396
debe6624 397bool wxComboBox::Create(wxWindow *parent, wxWindowID id,
c085e333
VZ
398 const wxString& value,
399 const wxPoint& pos,
400 const wxSize& size,
401 int n, const wxString choices[],
402 long style,
403 const wxValidator& validator,
404 const wxString& name)
2bda0e17 405{
bdf5c30d
VZ
406 // pretend that wxComboBox is hidden while it is positioned and resized and
407 // show it only right before leaving this method because otherwise there is
408 // some noticeable flicker while the control rearranges itself
02b7b6b0 409 m_isShown = false;
bdf5c30d 410
71e57cd6
VZ
411 if ( !CreateAndInit(parent, id, pos, size, n, choices, style,
412 validator, name) )
02b7b6b0 413 return false;
f6bcfd97 414
6341d824
VZ
415 // we shouldn't call SetValue() for an empty string because this would
416 // (correctly) result in an assert with a read only combobox and is useless
417 // for the other ones anyhow
418 if ( !value.empty() )
b9b8a2b5 419 SetValue(value);
db34b147 420
f6bcfd97
BP
421 // a (not read only) combobox is, in fact, 2 controls: the combobox itself
422 // and an edit control inside it and if we want to catch events from this
423 // edit control, we must subclass it as well
424 if ( !(style & wxCB_READONLY) )
425 {
975b6bcf
VZ
426 gs_wndprocEdit = wxSetWindowProc((HWND)GetEditHWND(),
427 wxComboEditWndProc);
f6bcfd97 428 }
2bda0e17 429
bdf5c30d 430 // and finally, show the control
02b7b6b0 431 Show(true);
bdf5c30d 432
02b7b6b0 433 return true;
2bda0e17
KB
434}
435
584ad2a3
MB
436bool wxComboBox::Create(wxWindow *parent, wxWindowID id,
437 const wxString& value,
438 const wxPoint& pos,
439 const wxSize& size,
440 const wxArrayString& choices,
441 long style,
442 const wxValidator& validator,
443 const wxString& name)
444{
445 wxCArrayString chs(choices);
446 return Create(parent, id, value, pos, size, chs.GetCount(),
447 chs.GetStrings(), style, validator, name);
448}
449
71e57cd6
VZ
450WXDWORD wxComboBox::MSWGetStyle(long style, WXDWORD *exstyle) const
451{
452 // we never have an external border
453 WXDWORD msStyle = wxChoice::MSWGetStyle
454 (
455 (style & ~wxBORDER_MASK) | wxBORDER_NONE, exstyle
456 );
457
458 // remove the style always added by wxChoice
459 msStyle &= ~CBS_DROPDOWNLIST;
460
461 if ( style & wxCB_READONLY )
462 msStyle |= CBS_DROPDOWNLIST;
463#ifndef __WXWINCE__
464 else if ( style & wxCB_SIMPLE )
465 msStyle |= CBS_SIMPLE; // A list (shown always) and edit control
466#endif
467 else
468 msStyle |= CBS_DROPDOWN;
469
470 // there is no reason to not always use CBS_AUTOHSCROLL, so do use it
471 msStyle |= CBS_AUTOHSCROLL;
472
473 // NB: we used to also add CBS_NOINTEGRALHEIGHT here but why?
474
475 return msStyle;
476}
477
478// ----------------------------------------------------------------------------
479// wxComboBox text control-like methods
480// ----------------------------------------------------------------------------
481
2bda0e17
KB
482void wxComboBox::SetValue(const wxString& value)
483{
2b5f62a0
VZ
484 if ( HasFlag(wxCB_READONLY) )
485 SetStringSelection(value);
b38f3ff3 486 else
2b5f62a0 487 SetWindowText(GetHwnd(), value.c_str());
13bcc348 488
9a6bc656 489 m_value = value;
13bcc348 490 m_selectionOld = GetSelection();
2bda0e17
KB
491}
492
493// Clipboard operations
1c4a764c 494void wxComboBox::Copy()
2bda0e17 495{
150e31d2 496 SendMessage(GetHwnd(), WM_COPY, 0, 0L);
2bda0e17
KB
497}
498
1c4a764c 499void wxComboBox::Cut()
2bda0e17 500{
150e31d2 501 SendMessage(GetHwnd(), WM_CUT, 0, 0L);
2bda0e17
KB
502}
503
1c4a764c 504void wxComboBox::Paste()
2bda0e17 505{
150e31d2
JS
506 SendMessage(GetHwnd(), WM_PASTE, 0, 0L);
507}
508
509void wxComboBox::Undo()
510{
511 if (CanUndo())
512 {
513 HWND hEditWnd = (HWND) GetEditHWND() ;
514 if ( hEditWnd )
515 ::SendMessage(hEditWnd, EM_UNDO, 0, 0);
516 }
517}
518
519void wxComboBox::Redo()
520{
521 if (CanUndo())
522 {
523 // Same as Undo, since Undo undoes the undo, i.e. a redo.
524 HWND hEditWnd = (HWND) GetEditHWND() ;
525 if ( hEditWnd )
526 ::SendMessage(hEditWnd, EM_UNDO, 0, 0);
527 }
528}
529
530void wxComboBox::SelectAll()
531{
532 SetSelection(0, GetLastPosition());
533}
534
535bool wxComboBox::CanUndo() const
536{
537 HWND hEditWnd = (HWND) GetEditHWND() ;
538 if ( hEditWnd )
539 return ::SendMessage(hEditWnd, EM_CANUNDO, 0, 0) != 0;
540 else
541 return false;
542}
543
544bool wxComboBox::CanRedo() const
545{
546 HWND hEditWnd = (HWND) GetEditHWND() ;
547 if ( hEditWnd )
548 return ::SendMessage(hEditWnd, EM_CANUNDO, 0, 0) != 0;
549 else
550 return false;
551}
552
553bool wxComboBox::HasSelection() const
554{
555 long from, to;
556 GetSelection(&from, &to);
557 return from != to;
558}
559
560bool wxComboBox::CanCopy() const
561{
562 // Can copy if there's a selection
563 return HasSelection();
564}
565
566bool wxComboBox::CanCut() const
567{
568 return CanCopy() && IsEditable();
569}
570
571bool wxComboBox::CanPaste() const
572{
573 if ( !IsEditable() )
574 return false;
575
576 // Standard edit control: check for straight text on clipboard
577 if ( !::OpenClipboard(GetHwndOf(wxTheApp->GetTopWindow())) )
578 return false;
579
580 bool isTextAvailable = ::IsClipboardFormatAvailable(CF_TEXT) != 0;
581 ::CloseClipboard();
582
583 return isTextAvailable;
584}
585
586bool wxComboBox::IsEditable() const
587{
588 return !HasFlag(wxCB_READONLY);
2bda0e17
KB
589}
590
33ac7e6f 591void wxComboBox::SetEditable(bool WXUNUSED(editable))
2bda0e17
KB
592{
593 // Can't implement in MSW?
4438caf4 594// HWND hWnd = GetHwnd();
2bda0e17
KB
595// SendMessage(hWnd, EM_SETREADONLY, (WPARAM)!editable, (LPARAM)0L);
596}
597
debe6624 598void wxComboBox::SetInsertionPoint(long pos)
2bda0e17 599{
6d14cac7
VZ
600 if ( GetWindowStyle() & wxCB_READONLY )
601 return;
602
2bda0e17 603#ifdef __WIN32__
6d14cac7
VZ
604 HWND hWnd = GetHwnd();
605 ::SendMessage(hWnd, CB_SETEDITSEL, 0, MAKELPARAM(pos, pos));
606 HWND hEditWnd = (HWND) GetEditHWND() ;
607 if ( hEditWnd )
608 {
609 // Scroll insertion point into view
610 SendMessage(hEditWnd, EM_SCROLLCARET, (WPARAM)0, (LPARAM)0);
611 // Why is this necessary? (Copied from wxTextCtrl::SetInsertionPoint)
fda7962d 612 SendMessage(hEditWnd, EM_REPLACESEL, 0, (LPARAM) wxEmptyString);
6d14cac7
VZ
613 }
614#endif // __WIN32__
2bda0e17
KB
615}
616
1c4a764c 617void wxComboBox::SetInsertionPointEnd()
2bda0e17 618{
6d14cac7
VZ
619 // setting insertion point doesn't make sense for read only comboboxes
620 if ( !(GetWindowStyle() & wxCB_READONLY) )
621 {
622 long pos = GetLastPosition();
623 SetInsertionPoint(pos);
624 }
2bda0e17
KB
625}
626
1c4a764c 627long wxComboBox::GetInsertionPoint() const
2bda0e17 628{
f7703477
JS
629#ifdef __WIN32__
630 DWORD Pos=(DWORD)SendMessage(GetHwnd(), CB_GETEDITSEL, 0, 0L);
631 return Pos&0xFFFF;
632#else
633 return 0;
634#endif
2bda0e17
KB
635}
636
1c4a764c 637long wxComboBox::GetLastPosition() const
2bda0e17 638{
f7703477 639 HWND hEditWnd = (HWND) GetEditHWND();
4438caf4 640
f7703477 641 // Get number of characters in the last (only) line. We'll add this to the character
2bda0e17 642 // index for the last line, 1st position.
f7703477 643 int lineLength = (int)SendMessage(hEditWnd, EM_LINELENGTH, (WPARAM) 0, (LPARAM)0L);
2bda0e17 644
f7703477 645 return (long)(lineLength);
2bda0e17
KB
646}
647
debe6624 648void wxComboBox::Replace(long from, long to, const wxString& value)
2bda0e17 649{
47d67540 650#if wxUSE_CLIPBOARD
fddfd9e1 651 Remove(from, to);
2bda0e17
KB
652
653 // Now replace with 'value', by pasting.
837e5743 654 wxSetClipboardData(wxDF_TEXT, (wxObject *)(const wxChar *)value, 0, 0);
2bda0e17
KB
655
656 // Paste into edit control
fddfd9e1 657 SendMessage(GetHwnd(), WM_PASTE, (WPARAM)0, (LPARAM)0L);
2bda0e17
KB
658#endif
659}
660
debe6624 661void wxComboBox::Remove(long from, long to)
2bda0e17 662{
fddfd9e1
VZ
663 // Set selection and remove it
664 SetSelection(from, to);
665 SendMessage(GetHwnd(), WM_CUT, (WPARAM)0, (LPARAM)0);
2bda0e17
KB
666}
667
debe6624 668void wxComboBox::SetSelection(long from, long to)
2bda0e17 669{
4438caf4 670 HWND hWnd = GetHwnd();
2bda0e17
KB
671 long fromChar = from;
672 long toChar = to;
673 // if from and to are both -1, it means
77ffb593 674 // (in wxWidgets) that all text should be selected.
2bda0e17
KB
675 // This translates into Windows convention
676 if ((from == -1) && (to == -1))
677 {
678 fromChar = 0;
679 toChar = -1;
680 }
4438caf4 681
3a5bcc4d 682 if ( SendMessage(hWnd, CB_SETEDITSEL, (WPARAM)0, (LPARAM)MAKELONG(fromChar, toChar)) == CB_ERR )
fddfd9e1
VZ
683 {
684 wxLogDebug(_T("CB_SETEDITSEL failed"));
685 }
2bda0e17
KB
686}
687
3f5ca6b1
RN
688void wxComboBox::GetSelection(long* from, long* to) const
689{
690 DWORD dwStart, dwEnd;
691 ::SendMessage(GetHwnd(), CB_GETEDITSEL, (WPARAM)&dwStart, (LPARAM)&dwEnd);
692
693 *from = dwStart;
694 *to = dwEnd;
695}
696
697int wxComboBox::GetSelection() const
bb8d428f
WS
698{
699 return wxChoice::GetSelection();
3f5ca6b1
RN
700}
701
150e31d2
JS
702// ----------------------------------------------------------------------------
703// standard event handling
704// ----------------------------------------------------------------------------
705
706void wxComboBox::OnCut(wxCommandEvent& WXUNUSED(event))
707{
708 Cut();
709}
710
711void wxComboBox::OnCopy(wxCommandEvent& WXUNUSED(event))
712{
713 Copy();
714}
715
716void wxComboBox::OnPaste(wxCommandEvent& WXUNUSED(event))
717{
718 Paste();
719}
720
721void wxComboBox::OnUndo(wxCommandEvent& WXUNUSED(event))
722{
723 Undo();
724}
725
726void wxComboBox::OnRedo(wxCommandEvent& WXUNUSED(event))
727{
728 Redo();
729}
730
731void wxComboBox::OnDelete(wxCommandEvent& WXUNUSED(event))
732{
733 long from, to;
734 GetSelection(& from, & to);
735 if (from != -1 && to != -1)
736 Remove(from, to);
737}
738
739void wxComboBox::OnSelectAll(wxCommandEvent& WXUNUSED(event))
740{
741 SetSelection(-1, -1);
742}
743
744void wxComboBox::OnUpdateCut(wxUpdateUIEvent& event)
745{
746 event.Enable( CanCut() );
747}
748
749void wxComboBox::OnUpdateCopy(wxUpdateUIEvent& event)
750{
751 event.Enable( CanCopy() );
752}
753
754void wxComboBox::OnUpdatePaste(wxUpdateUIEvent& event)
755{
756 event.Enable( CanPaste() );
757}
758
759void wxComboBox::OnUpdateUndo(wxUpdateUIEvent& event)
760{
761 event.Enable( CanUndo() );
762}
763
764void wxComboBox::OnUpdateRedo(wxUpdateUIEvent& event)
765{
766 event.Enable( CanRedo() );
767}
768
769void wxComboBox::OnUpdateDelete(wxUpdateUIEvent& event)
770{
771 event.Enable(HasSelection() && IsEditable()) ;
772}
773
774void wxComboBox::OnUpdateSelectAll(wxUpdateUIEvent& event)
775{
776 event.Enable(GetLastPosition() > 0);
777}
778
71e57cd6 779#endif // wxUSE_COMBOBOX
2bda0e17 780