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