]> git.saurik.com Git - wxWidgets.git/blame - src/msw/combobox.cpp
WinCE fixes
[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:
a1254663
VZ
177 case WM_SYSCHAR:
178 case WM_SYSKEYDOWN:
179 case WM_SYSKEYUP:
53c3a78b
VZ
180 case WM_SETFOCUS:
181 case WM_KILLFOCUS:
f6bcfd97
BP
182 {
183 wxComboBox *combo = wxDynamicCast(win, wxComboBox);
64b39766
VZ
184 if ( !combo )
185 {
186 // we can get WM_KILLFOCUS while our parent is already half
187 // destroyed and hence doesn't look like a combobx any
188 // longer, check for it to avoid bogus assert failures
189 if ( !win->IsBeingDeleted() )
190 {
191 wxFAIL_MSG( _T("should have combo as parent") );
192 }
193 }
194 else if ( combo->MSWProcessEditMsg(message, wParam, lParam) )
195 {
196 // handled by parent
f6bcfd97 197 return 0;
64b39766 198 }
f6bcfd97
BP
199 }
200 break;
201
f6bcfd97
BP
202 case WM_GETDLGCODE:
203 {
204 wxCHECK_MSG( win, 0, _T("should have a parent") );
205
206 if ( win->GetWindowStyle() & wxPROCESS_ENTER )
207 {
208 // need to return a custom dlg code or we'll never get it
209 return DLGC_WANTMESSAGE;
210 }
211 }
212 break;
f6bcfd97
BP
213
214 // deal with tooltips here
ae090fdb 215#if wxUSE_TOOLTIPS && defined(TTN_NEEDTEXT)
f6bcfd97
BP
216 case WM_NOTIFY:
217 {
218 wxCHECK_MSG( win, 0, _T("should have a parent") );
219
220 NMHDR* hdr = (NMHDR *)lParam;
2b5f62a0 221 if ( hdr->code == TTN_NEEDTEXT )
f6bcfd97
BP
222 {
223 wxToolTip *tooltip = win->GetToolTip();
224 if ( tooltip )
225 {
226 TOOLTIPTEXT *ttt = (TOOLTIPTEXT *)lParam;
227 ttt->lpszText = (wxChar *)tooltip->GetTip().c_str();
228 }
229
230 // processed
231 return 0;
232 }
233 }
234 break;
235#endif // wxUSE_TOOLTIPS
236 }
237
238 return ::CallWindowProc(CASTWNDPROC gs_wndprocEdit, hWnd, message, wParam, lParam);
239}
240
f6bcfd97 241// ----------------------------------------------------------------------------
3a7d5f7c 242// wxComboBox callbacks
f6bcfd97
BP
243// ----------------------------------------------------------------------------
244
c140b7e7 245WXLRESULT wxComboBox::MSWWindowProc(WXUINT nMsg, WXWPARAM wParam, WXLPARAM lParam)
3a7d5f7c 246{
5301d1f7
VZ
247 // TODO: handle WM_CTLCOLOR messages from our EDIT control to be able to
248 // set its colour correctly (to be the same as our own one)
682214d5 249
3a7d5f7c
VZ
250 switch ( nMsg )
251 {
1b135c93
RD
252 case CB_SETCURSEL:
253 // Selection was set with SetSelection. Update the value too.
bee67147 254 if ((int)wParam > GetCount())
5301d1f7 255 m_value.clear();
1b135c93
RD
256 else
257 m_value = GetString(wParam);
884a37ae 258 m_selectionOld = -1;
1b135c93 259 break;
5301d1f7 260
682214d5 261 case WM_SIZE:
3bce55ac
JS
262 // wxStaticBox can generate this message, when modifying the control's style.
263 // This causes the content of the combobox to be selected, for some reason.
264 case WM_STYLECHANGED:
5301d1f7
VZ
265 {
266 // combobox selection sometimes spontaneously changes when its
267 // size changes, restore it to the old value if necessary
268 long fromOld, toOld;
269 GetSelection(&fromOld, &toOld);
270 WXLRESULT result = wxChoice::MSWWindowProc(nMsg, wParam, lParam);
682214d5 271
5301d1f7
VZ
272 long fromNew, toNew;
273 GetSelection(&fromNew, &toNew);
682214d5 274
5301d1f7
VZ
275 if ( fromOld != fromNew || toOld != toNew )
276 {
277 SetSelection(fromOld, toOld);
278 }
682214d5 279
5301d1f7
VZ
280 return result;
281 }
3a7d5f7c
VZ
282 }
283
5301d1f7 284 return wxChoice::MSWWindowProc(nMsg, wParam, lParam);
3a7d5f7c
VZ
285}
286
f6bcfd97
BP
287bool wxComboBox::MSWProcessEditMsg(WXUINT msg, WXWPARAM wParam, WXLPARAM lParam)
288{
289 switch ( msg )
290 {
291 case WM_CHAR:
2b5f62a0
VZ
292 // for compatibility with wxTextCtrl, generate a special message
293 // when Enter is pressed
294 if ( wParam == VK_RETURN )
295 {
296 wxCommandEvent event(wxEVT_COMMAND_TEXT_ENTER, m_windowId);
297 InitCommandEvent(event);
298 event.SetString(GetValue());
299 event.SetInt(GetSelection());
ffb1629f
VZ
300 if ( ProcessCommand(event) )
301 {
302 // don't let the event through to the native control
303 // because it doesn't need it and may generate an annoying
304 // beep if it gets it
305 return true;
306 }
2b5f62a0 307 }
a1254663 308 // fall through
2b5f62a0 309
a1254663 310 case WM_SYSCHAR:
02b7b6b0 311 return HandleChar(wParam, lParam, true /* isASCII */);
889f0b7c 312
a1254663 313 case WM_SYSKEYDOWN:
f6bcfd97
BP
314 case WM_KEYDOWN:
315 return HandleKeyDown(wParam, lParam);
316
a1254663 317 case WM_SYSKEYUP:
f6bcfd97
BP
318 case WM_KEYUP:
319 return HandleKeyUp(wParam, lParam);
53c3a78b
VZ
320
321 case WM_SETFOCUS:
322 return HandleSetFocus((WXHWND)wParam);
323
324 case WM_KILLFOCUS:
325 return HandleKillFocus((WXHWND)wParam);
f6bcfd97
BP
326 }
327
02b7b6b0 328 return false;
f6bcfd97
BP
329}
330
6ba93d23 331bool wxComboBox::MSWCommand(WXUINT param, WXWORD id)
2bda0e17 332{
fddfd9e1
VZ
333 wxString value;
334 int sel = -1;
cd0b1709 335 switch ( param )
8c1c5302 336 {
78a87a5d 337 case CBN_SELENDOK:
cd0b1709 338 case CBN_SELCHANGE:
fddfd9e1 339 sel = GetSelection();
13bcc348 340
78a87a5d
VZ
341 // we may sometimes get 2 CBN_SELCHANGE events or a CBN_SELENDOK
342 // before CBN_SELCHANGE with the same index when the user selects
343 // an item in the combobox -- ignore duplicates
13bcc348 344 if ( sel > -1 && sel != m_selectionOld )
cd0b1709 345 {
13bcc348
VZ
346 m_selectionOld = sel;
347
348 // GetValue() would still return the old value from here but
349 // according to the docs we should return the new value if the
350 // user calls it in his event handler, so update internal
351 // m_value
352 m_value = GetString(sel);
fddfd9e1 353
cd0b1709 354 wxCommandEvent event(wxEVT_COMMAND_COMBOBOX_SELECTED, GetId());
fddfd9e1 355 event.SetInt(sel);
cd0b1709 356 event.SetEventObject(this);
13bcc348 357 event.SetString(m_value);
cd0b1709
VZ
358 ProcessCommand(event);
359 }
13bcc348 360 else // no valid selection
fddfd9e1 361 {
13bcc348
VZ
362 m_selectionOld = sel;
363
364 // hence no EVT_TEXT neither
fddfd9e1
VZ
365 break;
366 }
367
368 // fall through: for compability with wxGTK, also send the text
369 // update event when the selection changes (this also seems more
370 // logical as the text does change)
29006414 371
cd0b1709
VZ
372 case CBN_EDITCHANGE:
373 {
7ba166dd 374 wxCommandEvent event(wxEVT_COMMAND_TEXT_UPDATED, GetId());
3adc70bf 375
fddfd9e1
VZ
376 // if sel != -1, value was initialized above (and we can't use
377 // GetValue() here as it would return the old selection and we
378 // want the new one)
7ba166dd 379 if ( sel == -1 )
3adc70bf 380 {
9a6bc656 381 m_value = wxGetWindowText(GetHwnd());
4df123bc 382 m_selectionOld = -1;
3adc70bf
VZ
383 }
384 else // we're synthesizing text updated event from sel change
385 {
13bcc348
VZ
386 // We need to retrieve the current selection because the
387 // user may have changed it in the previous handler (for
388 // CBN_SELCHANGE above).
28764ac9
JS
389 sel = GetSelection();
390 if ( sel > -1 )
391 {
13bcc348 392 m_value = GetString(sel);
28764ac9 393 }
3adc70bf
VZ
394 }
395
13bcc348 396 event.SetString(m_value);
cd0b1709 397 event.SetEventObject(this);
0ef2ebba 398 ProcessCommand(event);
cd0b1709
VZ
399 }
400 break;
6ba93d23
VZ
401
402 default:
403 return wxChoice::MSWCommand(param, id);
cd0b1709 404 }
29006414 405
6ba93d23
VZ
406 // let the def window proc have it by returning false, but do not pass the
407 // message we've already handled here (notably CBN_SELCHANGE) to the base
408 // class as it would generate another event for them
02b7b6b0 409 return false;
2bda0e17
KB
410}
411
f6bcfd97
BP
412WXHWND wxComboBox::GetEditHWND() const
413{
414 // this function should not be called for wxCB_READONLY controls, it is
415 // the callers responsability to check this
416 wxASSERT_MSG( !(GetWindowStyle() & wxCB_READONLY),
417 _T("read-only combobox doesn't have any edit control") );
418
419 POINT pt;
420 pt.x = pt.y = 4;
421 HWND hwndEdit = ::ChildWindowFromPoint(GetHwnd(), pt);
422 if ( !hwndEdit || hwndEdit == GetHwnd() )
423 {
424 wxFAIL_MSG(_T("not read only combobox without edit control?"));
425 }
426
427 return (WXHWND)hwndEdit;
428}
429
71e57cd6
VZ
430// ----------------------------------------------------------------------------
431// wxComboBox creation
432// ----------------------------------------------------------------------------
433
debe6624 434bool wxComboBox::Create(wxWindow *parent, wxWindowID id,
c085e333
VZ
435 const wxString& value,
436 const wxPoint& pos,
437 const wxSize& size,
438 int n, const wxString choices[],
439 long style,
440 const wxValidator& validator,
441 const wxString& name)
2bda0e17 442{
bdf5c30d
VZ
443 // pretend that wxComboBox is hidden while it is positioned and resized and
444 // show it only right before leaving this method because otherwise there is
445 // some noticeable flicker while the control rearranges itself
02b7b6b0 446 m_isShown = false;
bdf5c30d 447
71e57cd6
VZ
448 if ( !CreateAndInit(parent, id, pos, size, n, choices, style,
449 validator, name) )
02b7b6b0 450 return false;
f6bcfd97 451
6341d824
VZ
452 // we shouldn't call SetValue() for an empty string because this would
453 // (correctly) result in an assert with a read only combobox and is useless
454 // for the other ones anyhow
455 if ( !value.empty() )
b9b8a2b5 456 SetValue(value);
db34b147 457
f6bcfd97
BP
458 // a (not read only) combobox is, in fact, 2 controls: the combobox itself
459 // and an edit control inside it and if we want to catch events from this
460 // edit control, we must subclass it as well
461 if ( !(style & wxCB_READONLY) )
462 {
975b6bcf
VZ
463 gs_wndprocEdit = wxSetWindowProc((HWND)GetEditHWND(),
464 wxComboEditWndProc);
f6bcfd97 465 }
2bda0e17 466
bdf5c30d 467 // and finally, show the control
02b7b6b0 468 Show(true);
bdf5c30d 469
02b7b6b0 470 return true;
2bda0e17
KB
471}
472
584ad2a3
MB
473bool wxComboBox::Create(wxWindow *parent, wxWindowID id,
474 const wxString& value,
475 const wxPoint& pos,
476 const wxSize& size,
477 const wxArrayString& choices,
478 long style,
479 const wxValidator& validator,
480 const wxString& name)
481{
482 wxCArrayString chs(choices);
483 return Create(parent, id, value, pos, size, chs.GetCount(),
484 chs.GetStrings(), style, validator, name);
485}
486
71e57cd6
VZ
487WXDWORD wxComboBox::MSWGetStyle(long style, WXDWORD *exstyle) const
488{
489 // we never have an external border
490 WXDWORD msStyle = wxChoice::MSWGetStyle
491 (
492 (style & ~wxBORDER_MASK) | wxBORDER_NONE, exstyle
493 );
494
1dfd425a
VZ
495 // usually WS_TABSTOP is added by wxControl::MSWGetStyle() but as we're
496 // created hidden (see Create() above), it is not done for us but we still
497 // want to have this style
498 msStyle |= WS_TABSTOP;
499
71e57cd6
VZ
500 // remove the style always added by wxChoice
501 msStyle &= ~CBS_DROPDOWNLIST;
502
503 if ( style & wxCB_READONLY )
504 msStyle |= CBS_DROPDOWNLIST;
505#ifndef __WXWINCE__
506 else if ( style & wxCB_SIMPLE )
507 msStyle |= CBS_SIMPLE; // A list (shown always) and edit control
508#endif
509 else
510 msStyle |= CBS_DROPDOWN;
511
512 // there is no reason to not always use CBS_AUTOHSCROLL, so do use it
513 msStyle |= CBS_AUTOHSCROLL;
514
515 // NB: we used to also add CBS_NOINTEGRALHEIGHT here but why?
516
517 return msStyle;
518}
519
520// ----------------------------------------------------------------------------
521// wxComboBox text control-like methods
522// ----------------------------------------------------------------------------
523
2bda0e17
KB
524void wxComboBox::SetValue(const wxString& value)
525{
2b5f62a0
VZ
526 if ( HasFlag(wxCB_READONLY) )
527 SetStringSelection(value);
b38f3ff3 528 else
2b5f62a0 529 SetWindowText(GetHwnd(), value.c_str());
13bcc348 530
9a6bc656 531 m_value = value;
13bcc348 532 m_selectionOld = GetSelection();
2bda0e17
KB
533}
534
535// Clipboard operations
1c4a764c 536void wxComboBox::Copy()
2bda0e17 537{
150e31d2 538 SendMessage(GetHwnd(), WM_COPY, 0, 0L);
2bda0e17
KB
539}
540
1c4a764c 541void wxComboBox::Cut()
2bda0e17 542{
150e31d2 543 SendMessage(GetHwnd(), WM_CUT, 0, 0L);
2bda0e17
KB
544}
545
1c4a764c 546void wxComboBox::Paste()
2bda0e17 547{
150e31d2
JS
548 SendMessage(GetHwnd(), WM_PASTE, 0, 0L);
549}
550
551void wxComboBox::Undo()
552{
553 if (CanUndo())
554 {
555 HWND hEditWnd = (HWND) GetEditHWND() ;
556 if ( hEditWnd )
557 ::SendMessage(hEditWnd, EM_UNDO, 0, 0);
558 }
559}
560
561void wxComboBox::Redo()
562{
563 if (CanUndo())
564 {
565 // Same as Undo, since Undo undoes the undo, i.e. a redo.
566 HWND hEditWnd = (HWND) GetEditHWND() ;
567 if ( hEditWnd )
568 ::SendMessage(hEditWnd, EM_UNDO, 0, 0);
569 }
570}
571
572void wxComboBox::SelectAll()
573{
574 SetSelection(0, GetLastPosition());
575}
576
577bool wxComboBox::CanUndo() const
578{
9b433fce
JS
579 if (!IsEditable())
580 return false;
caf448e3 581
150e31d2
JS
582 HWND hEditWnd = (HWND) GetEditHWND() ;
583 if ( hEditWnd )
584 return ::SendMessage(hEditWnd, EM_CANUNDO, 0, 0) != 0;
585 else
586 return false;
587}
588
589bool wxComboBox::CanRedo() const
590{
9b433fce
JS
591 if (!IsEditable())
592 return false;
caf448e3 593
150e31d2
JS
594 HWND hEditWnd = (HWND) GetEditHWND() ;
595 if ( hEditWnd )
596 return ::SendMessage(hEditWnd, EM_CANUNDO, 0, 0) != 0;
597 else
598 return false;
599}
600
601bool wxComboBox::HasSelection() const
602{
603 long from, to;
604 GetSelection(&from, &to);
605 return from != to;
606}
607
608bool wxComboBox::CanCopy() const
609{
610 // Can copy if there's a selection
611 return HasSelection();
612}
613
614bool wxComboBox::CanCut() const
615{
9b433fce 616 return IsEditable() && CanCopy() ;
150e31d2
JS
617}
618
619bool wxComboBox::CanPaste() const
620{
621 if ( !IsEditable() )
622 return false;
623
624 // Standard edit control: check for straight text on clipboard
625 if ( !::OpenClipboard(GetHwndOf(wxTheApp->GetTopWindow())) )
626 return false;
627
628 bool isTextAvailable = ::IsClipboardFormatAvailable(CF_TEXT) != 0;
629 ::CloseClipboard();
630
631 return isTextAvailable;
632}
633
634bool wxComboBox::IsEditable() const
635{
636 return !HasFlag(wxCB_READONLY);
2bda0e17
KB
637}
638
33ac7e6f 639void wxComboBox::SetEditable(bool WXUNUSED(editable))
2bda0e17
KB
640{
641 // Can't implement in MSW?
4438caf4 642// HWND hWnd = GetHwnd();
2bda0e17
KB
643// SendMessage(hWnd, EM_SETREADONLY, (WPARAM)!editable, (LPARAM)0L);
644}
645
debe6624 646void wxComboBox::SetInsertionPoint(long pos)
2bda0e17 647{
6d14cac7
VZ
648 if ( GetWindowStyle() & wxCB_READONLY )
649 return;
650
2bda0e17 651#ifdef __WIN32__
6d14cac7
VZ
652 HWND hWnd = GetHwnd();
653 ::SendMessage(hWnd, CB_SETEDITSEL, 0, MAKELPARAM(pos, pos));
654 HWND hEditWnd = (HWND) GetEditHWND() ;
655 if ( hEditWnd )
656 {
657 // Scroll insertion point into view
658 SendMessage(hEditWnd, EM_SCROLLCARET, (WPARAM)0, (LPARAM)0);
659 // Why is this necessary? (Copied from wxTextCtrl::SetInsertionPoint)
fda7962d 660 SendMessage(hEditWnd, EM_REPLACESEL, 0, (LPARAM) wxEmptyString);
6d14cac7
VZ
661 }
662#endif // __WIN32__
2bda0e17
KB
663}
664
1c4a764c 665void wxComboBox::SetInsertionPointEnd()
2bda0e17 666{
6d14cac7
VZ
667 // setting insertion point doesn't make sense for read only comboboxes
668 if ( !(GetWindowStyle() & wxCB_READONLY) )
669 {
7d8268a1 670 wxTextPos pos = GetLastPosition();
6d14cac7
VZ
671 SetInsertionPoint(pos);
672 }
2bda0e17
KB
673}
674
1c4a764c 675long wxComboBox::GetInsertionPoint() const
2bda0e17 676{
8f2c3ee9
RD
677 // CB_GETEDITSEL returns the index of the first character of the selection in
678 // its low-order word
08c8690c 679 DWORD pos= (DWORD)::SendMessage(GetHwnd(), CB_GETEDITSEL, 0, 0L);
8f2c3ee9 680 return LOWORD(pos);
2bda0e17
KB
681}
682
7d8268a1 683wxTextPos wxComboBox::GetLastPosition() const
2bda0e17 684{
f7703477 685 HWND hEditWnd = (HWND) GetEditHWND();
4438caf4 686
f7703477 687 // Get number of characters in the last (only) line. We'll add this to the character
2bda0e17 688 // index for the last line, 1st position.
7d8268a1 689 wxTextPos lineLength = (wxTextPos)SendMessage(hEditWnd, EM_LINELENGTH, (WPARAM) 0, (LPARAM)0L);
2bda0e17 690
7d8268a1 691 return lineLength;
2bda0e17
KB
692}
693
debe6624 694void wxComboBox::Replace(long from, long to, const wxString& value)
2bda0e17 695{
47d67540 696#if wxUSE_CLIPBOARD
fddfd9e1 697 Remove(from, to);
2bda0e17
KB
698
699 // Now replace with 'value', by pasting.
837e5743 700 wxSetClipboardData(wxDF_TEXT, (wxObject *)(const wxChar *)value, 0, 0);
2bda0e17
KB
701
702 // Paste into edit control
fddfd9e1 703 SendMessage(GetHwnd(), WM_PASTE, (WPARAM)0, (LPARAM)0L);
caf448e3
WS
704#else
705 wxUnusedVar(from);
706 wxUnusedVar(to);
707 wxUnusedVar(value);
2bda0e17
KB
708#endif
709}
710
debe6624 711void wxComboBox::Remove(long from, long to)
2bda0e17 712{
fddfd9e1
VZ
713 // Set selection and remove it
714 SetSelection(from, to);
715 SendMessage(GetHwnd(), WM_CUT, (WPARAM)0, (LPARAM)0);
2bda0e17
KB
716}
717
debe6624 718void wxComboBox::SetSelection(long from, long to)
2bda0e17 719{
08c8690c
VZ
720 // if from and to are both -1, it means (in wxWidgets) that all text should
721 // be selected, translate this into Windows convention
722 if ( (from == -1) && (to == -1) )
2bda0e17 723 {
08c8690c 724 from = 0;
2bda0e17 725 }
4438caf4 726
08c8690c
VZ
727 if ( SendMessage(GetHwnd(), CB_SETEDITSEL,
728 0, (LPARAM)MAKELONG(from, to)) == CB_ERR )
fddfd9e1
VZ
729 {
730 wxLogDebug(_T("CB_SETEDITSEL failed"));
731 }
2bda0e17
KB
732}
733
3f5ca6b1
RN
734void wxComboBox::GetSelection(long* from, long* to) const
735{
736 DWORD dwStart, dwEnd;
08c8690c
VZ
737 if ( ::SendMessage(GetHwnd(), CB_GETEDITSEL,
738 (WPARAM)&dwStart, (LPARAM)&dwEnd) == CB_ERR )
739 {
740 *from =
741 *to = 0;
742 }
743 else
744 {
745 *from = dwStart;
746 *to = dwEnd;
747 }
3f5ca6b1
RN
748}
749
750int wxComboBox::GetSelection() const
bb8d428f
WS
751{
752 return wxChoice::GetSelection();
3f5ca6b1
RN
753}
754
150e31d2
JS
755// ----------------------------------------------------------------------------
756// standard event handling
757// ----------------------------------------------------------------------------
758
759void wxComboBox::OnCut(wxCommandEvent& WXUNUSED(event))
760{
761 Cut();
762}
763
764void wxComboBox::OnCopy(wxCommandEvent& WXUNUSED(event))
765{
766 Copy();
767}
768
769void wxComboBox::OnPaste(wxCommandEvent& WXUNUSED(event))
770{
771 Paste();
772}
773
774void wxComboBox::OnUndo(wxCommandEvent& WXUNUSED(event))
775{
776 Undo();
777}
778
779void wxComboBox::OnRedo(wxCommandEvent& WXUNUSED(event))
780{
781 Redo();
782}
783
784void wxComboBox::OnDelete(wxCommandEvent& WXUNUSED(event))
785{
786 long from, to;
787 GetSelection(& from, & to);
788 if (from != -1 && to != -1)
789 Remove(from, to);
790}
791
792void wxComboBox::OnSelectAll(wxCommandEvent& WXUNUSED(event))
793{
794 SetSelection(-1, -1);
795}
796
797void wxComboBox::OnUpdateCut(wxUpdateUIEvent& event)
798{
799 event.Enable( CanCut() );
800}
801
802void wxComboBox::OnUpdateCopy(wxUpdateUIEvent& event)
803{
804 event.Enable( CanCopy() );
805}
806
807void wxComboBox::OnUpdatePaste(wxUpdateUIEvent& event)
808{
809 event.Enable( CanPaste() );
810}
811
812void wxComboBox::OnUpdateUndo(wxUpdateUIEvent& event)
813{
814 event.Enable( CanUndo() );
815}
816
817void wxComboBox::OnUpdateRedo(wxUpdateUIEvent& event)
818{
819 event.Enable( CanRedo() );
820}
821
822void wxComboBox::OnUpdateDelete(wxUpdateUIEvent& event)
823{
824 event.Enable(HasSelection() && IsEditable()) ;
825}
826
827void wxComboBox::OnUpdateSelectAll(wxUpdateUIEvent& event)
828{
829 event.Enable(GetLastPosition() > 0);
830}
831
71e57cd6 832#endif // wxUSE_COMBOBOX
2bda0e17 833