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