X-Git-Url: https://git.saurik.com/wxWidgets.git/blobdiff_plain/2bda0e173844e8e0f8acf4e8ad8b5c26e5c6fe5d..d44bc7333a3d4cbb4a37ba6cdb02cb6b637e44ed:/src/msw/control.cpp diff --git a/src/msw/control.cpp b/src/msw/control.cpp index 21c9567042..056794b517 100644 --- a/src/msw/control.cpp +++ b/src/msw/control.cpp @@ -1,372 +1,503 @@ ///////////////////////////////////////////////////////////////////////////// -// Name: control.cpp +// Name: src/msw/control.cpp // Purpose: wxControl class // Author: Julian Smart // Modified by: // Created: 01/02/97 // RCS-ID: $Id$ -// Copyright: (c) Julian Smart and Markus Holzem -// Licence: wxWindows licence +// Copyright: (c) Julian Smart +// Licence: wxWindows licence ///////////////////////////////////////////////////////////////////////////// -#ifdef __GNUG__ -#pragma implementation "control.h" -#endif +// ============================================================================ +// declarations +// ============================================================================ + +// ---------------------------------------------------------------------------- +// headers +// ---------------------------------------------------------------------------- // For compilers that support precompilation, includes "wx.h". #include "wx/wxprec.h" #ifdef __BORLANDC__ -#pragma hdrstop + #pragma hdrstop #endif +#if wxUSE_CONTROLS + +#include "wx/control.h" + #ifndef WX_PRECOMP -#include "wx/app.h" -#include "wx/dcclient.h" + #include "wx/msw/wrapcctl.h" // include "properly" + #include "wx/event.h" + #include "wx/app.h" + #include "wx/dcclient.h" + #include "wx/log.h" + #include "wx/settings.h" + #include "wx/ctrlsub.h" #endif -#include "wx/msw/private.h" +#if wxUSE_LISTCTRL + #include "wx/listctrl.h" +#endif // wxUSE_LISTCTRL -#if defined(__WIN95__) && !defined(__GNUWIN32__) -#include -#endif +#if wxUSE_TREECTRL + #include "wx/treectrl.h" +#endif // wxUSE_TREECTRL -#ifdef GetCharWidth -#undef GetCharWidth -#undef GetWindowProc -#endif +#include "wx/msw/private.h" +#include "wx/msw/uxtheme.h" -#if !USE_SHARED_LIBRARY -IMPLEMENT_ABSTRACT_CLASS(wxControl, wxWindow) +// ---------------------------------------------------------------------------- +// wxWin macros +// ---------------------------------------------------------------------------- -BEGIN_EVENT_TABLE(wxControl, wxWindow) - EVT_ERASE_BACKGROUND(wxControl::OnEraseBackground) -END_EVENT_TABLE() -#endif +IMPLEMENT_ABSTRACT_CLASS(wxControl, wxWindow) -// Item members -wxControl::wxControl(void) +// ============================================================================ +// wxControl implementation +// ============================================================================ + +// ---------------------------------------------------------------------------- +// control window creation +// ---------------------------------------------------------------------------- + +bool wxControl::Create(wxWindow *parent, + wxWindowID id, + const wxPoint& pos, + const wxSize& size, + long style, + const wxValidator& wxVALIDATOR_PARAM(validator), + const wxString& name) { - m_backgroundColour = *wxWHITE; - m_foregroundColour = *wxBLACK; - m_callback = 0; -} + if ( !wxWindow::Create(parent, id, pos, size, style, name) ) + return false; -wxControl::~wxControl(void) -{ - m_isBeingDeleted = TRUE; - - // If we delete an item, we should initialize the parent panel, - // because it could now be invalid. - wxWindow *parent = (wxWindow *)GetParent(); - if (parent) - { - if (parent->GetDefaultItem() == this) - parent->SetDefaultItem(NULL); - } -} +#if wxUSE_VALIDATORS + SetValidator(validator); +#endif -void wxControl::SetLabel(const wxString& label) -{ - if (GetHWND()) - SetWindowText((HWND) GetHWND(), (const char *)label); + return true; } -wxString wxControl::GetLabel(void) const +bool wxControl::MSWCreateControl(const wxChar *classname, + const wxString& label, + const wxPoint& pos, + const wxSize& size) { - wxBuffer[0] = 0; - if (GetHWND()) - GetWindowText((HWND)GetHWND(), wxBuffer, 1000); + WXDWORD exstyle; + WXDWORD msStyle = MSWGetStyle(GetWindowStyle(), &exstyle); - return wxString(wxBuffer); + return MSWCreateControl(classname, msStyle, pos, size, label, exstyle); } -// Call this repeatedly for several wnds to find the overall size -// of the widget. -// Call it initially with -1 for all values in rect. -// Keep calling for other widgets, and rect will be modified -// to calculate largest bounding rectangle. -void wxFindMaxSize(WXHWND wnd, RECT *rect) +bool wxControl::MSWCreateControl(const wxChar *classname, + WXDWORD style, + const wxPoint& pos, + const wxSize& size, + const wxString& label, + WXDWORD exstyle) { - int left = rect->left; - int right = rect->right; - int top = rect->top; - int bottom = rect->bottom; + // if no extended style given, determine it ourselves + if ( exstyle == (WXDWORD)-1 ) + { + exstyle = 0; + (void) MSWGetStyle(GetWindowStyle(), &exstyle); + } - GetWindowRect((HWND) wnd, rect); + // all controls should have this style + style |= WS_CHILD; - if (left < 0) - return; + // create the control visible if it's currently shown for wxWidgets + if ( m_isShown ) + { + style |= WS_VISIBLE; + } - if (left < rect->left) - rect->left = left; + // choose the position for the control: we have a problem with default size + // here as we can't calculate the best size before the control exists + // (DoGetBestSize() may need to use m_hWnd), so just choose the minimal + // possible but non 0 size because 0 window width/height result in problems + // elsewhere + int x = pos.x == wxDefaultCoord ? 0 : pos.x, + y = pos.y == wxDefaultCoord ? 0 : pos.y, + w = size.x == wxDefaultCoord ? 1 : size.x, + h = size.y == wxDefaultCoord ? 1 : size.y; + + // ... and adjust it to account for a possible parent frames toolbar + AdjustForParentClientOrigin(x, y); + + m_hWnd = (WXHWND)::CreateWindowEx + ( + exstyle, // extended style + classname, // the kind of control to create + label.wx_str(), // the window name + style, // the window style + x, y, w, h, // the window position and size + GetHwndOf(GetParent()), // parent + (HMENU)wxUIntToPtr(GetId()), // child id + wxGetInstance(), // app instance + NULL // creation parameters + ); + + if ( !m_hWnd ) + { + wxLogLastError(wxString::Format + ( + wxT("CreateWindowEx(\"%s\", flags=%08lx, ex=%08lx)"), + classname, style, exstyle + )); - if (right > rect->right) - rect->right = right; + return false; + } - if (top < rect->top) - rect->top = top; +#if !wxUSE_UNICODE + // Text labels starting with the character 0xff (which is a valid character + // in many code pages) don't appear correctly as CreateWindowEx() has some + // special treatment for this case, apparently the strings starting with -1 + // are not really strings but something called "ordinals". There is no + // documentation about it but the fact is that the label gets mangled or + // not displayed at all if we don't do this, see #9572. + // + // Notice that 0xffff is not a valid Unicode character so the problem + // doesn't arise in Unicode build. + if ( !label.empty() && label[0] == -1 ) + ::SetWindowText(GetHwnd(), label.wx_str()); +#endif // !wxUSE_UNICODE + + // saving the label in m_labelOrig to return it verbatim + // later in GetLabel() + m_labelOrig = label; + + // install wxWidgets window proc for this window + SubclassWin(m_hWnd); + + // set up fonts and colours + InheritAttributes(); + if ( !m_hasFont ) + { + bool setFont = true; + + wxFont font = GetDefaultAttributes().font; + + // if we set a font for {list,tree}ctrls and the font size is changed in + // the display properties then the font size for these controls doesn't + // automatically adjust when they receive WM_SETTINGCHANGE + + // FIXME: replace the dynamic casts with virtual function calls!! +#if wxUSE_LISTCTRL || wxUSE_TREECTRL + bool testFont = false; +#if wxUSE_LISTCTRL + if ( wxDynamicCastThis(wxListCtrl) ) + testFont = true; +#endif // wxUSE_LISTCTRL +#if wxUSE_TREECTRL + if ( wxDynamicCastThis(wxTreeCtrl) ) + testFont = true; +#endif // wxUSE_TREECTRL + + if ( testFont ) + { + // not sure if we need to explicitly set the font here for Win95/NT4 + // but we definitely can't do it for any newer version + // see wxGetCCDefaultFont() in src/msw/settings.cpp for explanation + // of why this test works + + // TODO: test Win95/NT4 to see if this is needed or breaks the + // font resizing as it does on newer versions + if ( font != wxSystemSettings::GetFont(wxSYS_DEFAULT_GUI_FONT) ) + { + setFont = false; + } + } +#endif // wxUSE_LISTCTRL || wxUSE_TREECTRL + + if ( setFont ) + { + SetFont(GetDefaultAttributes().font); + } + } - if (bottom > rect->bottom) - rect->bottom = bottom; + // set the size now if no initial size specified + SetInitialSize(size); + return true; } -/* -// Not currently used -void wxConvertDialogToPixels(wxWindow *control, int *x, int *y) -{ - if (control->m_windowParent && control->m_windowParent->is_dialog) - { - DWORD word = GetDialogBaseUnits(); - int xs = LOWORD(word); - int ys = HIWORD(word); - *x = (int)(*x * xs/4); - *y = (int)(*y * ys/8); - } - else - { - *x = *x; - *y = *y; - } -} -*/ - -#if 0 -// We can't rely on Windows giving us events corresponding to the wxWindows Z-ordering. -// E.g. we can't push a wxGroupBox to the back for editing purposes. -// Convert the item event to parent coordinates, then search for -// an item that could receive this event. -wxControl *wxFakeItemEvent(wxWindow *parent, wxControl *item, wxMouseEvent& event) +// ---------------------------------------------------------------------------- +// various accessors +// ---------------------------------------------------------------------------- + +WXDWORD wxControl::MSWGetStyle(long style, WXDWORD *exstyle) const { - int x, y; - item->GetPosition(&x, &y); - event.m_x += x; - event.m_y += y; - - wxNode *node = parent->GetChildren()->Last(); - while (node) - { - wxControl *newItem = (wxControl *)node->Data(); - if (newItem->IsSelected() && newItem->SelectionHandleHitTest(event.x, event.GetY())) - { - // This event belongs to the panel. - parent->GetEventHandler()->OldOnMouseEvent(event); - return NULL; - } - else if (newItem->HitTest(event.x, event.GetY())) + long msStyle = wxWindow::MSWGetStyle(style, exstyle); + + if ( AcceptsFocusFromKeyboard() ) { - int x1, y1; - newItem->GetPosition(&x1, &y1); - event.x -= x1; - event.GetY() -= y1; - newItem->OldOnMouseEvent(event); - return newItem; + msStyle |= WS_TABSTOP; } - node = node->Previous(); - } - // No takers, so do what we would have done anyway. - event.x -= x; - event.y -= y; - item->OldOnMouseEvent(event); - return item; + + return msStyle; } -#endif -void wxControl::MSWOnMouseMove(const int x, const int y, const WXUINT flags) +wxSize wxControl::DoGetBestSize() const { - // 'normal' move event... - // Set cursor, but only if we're not in 'busy' mode - -/* - // Trouble with this is that it sets the cursor for controls too :-( - if (m_windowCursor.Ok() && !wxIsBusy()) - ::SetCursor(m_windowCursor.GetHCURSOR()); -*/ - - wxMouseEvent event(wxEVENT_TYPE_MOTION); - -/* - float px = (float)x; - float py = (float)y; - - MSWDeviceToLogical(&px, &py); - - CalcUnscrolledPosition((int)px, (int)py, &event.m_x, &event.m_y); -*/ - - event.m_x = x; event.m_y = y; - event.m_shiftDown = ((flags & MK_SHIFT) != 0); - event.m_controlDown = ((flags & MK_CONTROL) != 0); - event.m_leftDown = ((flags & MK_LBUTTON) != 0); - event.m_middleDown = ((flags & MK_MBUTTON) != 0); - event.m_rightDown = ((flags & MK_RBUTTON) != 0); - event.SetTimestamp(wxApp::sm_lastMessageTime); - event.SetEventObject( this ); - - // Window gets a click down message followed by a mouse move - // message even if position isn't changed! We want to discard - // the trailing move event if x and y are the same. - if ((m_lastEvent == wxEVENT_TYPE_RIGHT_DOWN || m_lastEvent == wxEVENT_TYPE_LEFT_DOWN || - m_lastEvent == wxEVENT_TYPE_MIDDLE_DOWN) && - (m_lastXPos == event.GetX() && m_lastYPos == event.GetY())) - { - m_lastXPos = event.GetX(); m_lastYPos = event.GetY(); - m_lastEvent = wxEVENT_TYPE_MOTION; - return; - } - - m_lastEvent = wxEVENT_TYPE_MOTION; - m_lastXPos = event.GetX(); m_lastYPos = event.GetY(); - GetEventHandler()->OldOnMouseEvent(event); + if (m_windowSizer) + return wxControlBase::DoGetBestSize(); + + return wxSize(DEFAULT_ITEM_WIDTH, DEFAULT_ITEM_HEIGHT); } -long wxControl::MSWWindowProc(WXUINT nMsg, WXWPARAM wParam, WXLPARAM lParam) +wxBorder wxControl::GetDefaultBorder() const { - return wxWindow::MSWWindowProc(nMsg, wParam, lParam); + return wxControlBase::GetDefaultBorder(); } -bool wxControl::MSWNotify(const WXWPARAM wParam, const WXLPARAM lParam) +// This is a helper for all wxControls made with UPDOWN native control. +// In wxMSW it was only wxSpinCtrl derived from wxSpinButton but in +// WinCE of Smartphones this happens also for native wxTextCtrl, +// wxChoice and others. +wxSize wxControl::GetBestSpinnerSize(const bool is_vertical) const { -#if defined(__WIN95__) - wxCommandEvent event(0, m_windowId); - int eventType = 0; - NMHDR *hdr1 = (NMHDR*) lParam; - switch ( hdr1->code ) - { - case NM_CLICK: - { - eventType = wxEVT_COMMAND_LEFT_CLICK; - break; - } - case NM_DBLCLK: - { - eventType = wxEVT_COMMAND_LEFT_DCLICK; - break; - } - case NM_RCLICK: - { - eventType = wxEVT_COMMAND_RIGHT_CLICK; - break; - } - case NM_RDBLCLK: - { - eventType = wxEVT_COMMAND_RIGHT_DCLICK; - break; - } - case NM_SETFOCUS: - { - eventType = wxEVT_COMMAND_SET_FOCUS; - break; - } - case NM_KILLFOCUS: - { - eventType = wxEVT_COMMAND_KILL_FOCUS; - break; - } - case NM_RETURN: - { - eventType = wxEVT_COMMAND_ENTER; - break; - } -/* Not implemented - case NM_OUTOFMEMORY: - { - eventType = wxEVT_COMMAND_OUT_OF_MEMORY; - break; - } -*/ - default : - return FALSE; - break; - } - event.SetEventType(eventType); - event.SetEventObject(this); - - if ( !ProcessEvent(event) ) - return FALSE; - return TRUE; + // take size according to layout + wxSize bestSize( +#if defined(__SMARTPHONE__) && defined(__WXWINCE__) + 0,GetCharHeight() #else - return FALSE; + ::GetSystemMetrics(is_vertical ? SM_CXVSCROLL : SM_CXHSCROLL), + ::GetSystemMetrics(is_vertical ? SM_CYVSCROLL : SM_CYHSCROLL) #endif + ); + + // correct size as for undocumented MSW variants cases (WinCE and perhaps others) + if (bestSize.x==0) + bestSize.x = bestSize.y; + if (bestSize.y==0) + bestSize.y = bestSize.x; + + // double size according to layout + if (is_vertical) + bestSize.y *= 2; + else + bestSize.x *= 2; + + return bestSize; +} + +/* static */ wxVisualAttributes +wxControl::GetClassDefaultAttributes(wxWindowVariant WXUNUSED(variant)) +{ + wxVisualAttributes attrs; + + // old school (i.e. not "common") controls use the standard dialog font + // by default + attrs.font = wxSystemSettings::GetFont(wxSYS_DEFAULT_GUI_FONT); + + // most, or at least many, of the controls use the same colours as the + // buttons -- others will have to override this (and possibly simply call + // GetCompositeControlsDefaultAttributes() from their versions) + attrs.colFg = wxSystemSettings::GetColour(wxSYS_COLOUR_BTNTEXT); + attrs.colBg = wxSystemSettings::GetColour(wxSYS_COLOUR_BTNFACE); + + return attrs; } -/* - * Allocates control IDs within the appropriate range - */ +// ---------------------------------------------------------------------------- +// message handling +// ---------------------------------------------------------------------------- +bool wxControl::ProcessCommand(wxCommandEvent& event) +{ + return HandleWindowEvent(event); +} -int NewControlId(void) +bool wxControl::MSWOnNotify(int idCtrl, + WXLPARAM lParam, + WXLPARAM* result) { - static int controlId = 0; - controlId ++; - return controlId; + wxEventType eventType wxDUMMY_INITIALIZE(wxEVT_NULL); + + NMHDR *hdr = (NMHDR*) lParam; + switch ( hdr->code ) + { + case NM_CLICK: + eventType = wxEVT_COMMAND_LEFT_CLICK; + break; + + case NM_DBLCLK: + eventType = wxEVT_COMMAND_LEFT_DCLICK; + break; + + case NM_RCLICK: + eventType = wxEVT_COMMAND_RIGHT_CLICK; + break; + + case NM_RDBLCLK: + eventType = wxEVT_COMMAND_RIGHT_DCLICK; + break; + + case NM_SETFOCUS: + eventType = wxEVT_COMMAND_SET_FOCUS; + break; + + case NM_KILLFOCUS: + eventType = wxEVT_COMMAND_KILL_FOCUS; + break; + + case NM_RETURN: + eventType = wxEVT_COMMAND_ENTER; + break; + + default: + return wxWindow::MSWOnNotify(idCtrl, lParam, result); + } + + wxCommandEvent event(wxEVT_NULL, m_windowId); + event.SetEventType(eventType); + event.SetEventObject(this); + + return HandleWindowEvent(event); } -void wxControl::ProcessCommand (wxCommandEvent & event) +WXHBRUSH wxControl::DoMSWControlColor(WXHDC pDC, wxColour colBg, WXHWND hWnd) { - // Tries: - // 1) A callback function (to become obsolete) - // 2) OnCommand, starting at this window and working up parent hierarchy - // 3) OnCommand then calls ProcessEvent to search the event tables. - if (m_callback) + HDC hdc = (HDC)pDC; + + WXHBRUSH hbr = 0; + if ( !colBg.Ok() ) { - (void) (*(m_callback)) (*this, event); + if ( wxWindow *win = wxFindWinFromHandle(hWnd) ) + hbr = win->MSWGetBgBrush(pDC); + + // if the control doesn't have any bg colour, foreground colour will be + // ignored as the return value would be 0 -- so forcefully give it a + // non default background brush in this case + if ( !hbr && m_hasFgCol ) + colBg = GetBackgroundColour(); } - else + + // use the background colour override if a valid colour is given: this is + // used when the control is disabled to grey it out and also if colBg was + // set just above + if ( colBg.Ok() ) + { + wxBrush *brush = wxTheBrushList->FindOrCreateBrush(colBg); + hbr = (WXHBRUSH)brush->GetResourceHandle(); + } + + // always set the foreground colour if we changed the background, whether + // m_hasFgCol is true or not: if it true, we must do it, of course, but + // even if it isn't, we must set the default foreground explicitly as by + // default just the simple black is used + if ( hbr ) + { + ::SetTextColor(hdc, wxColourToRGB(GetForegroundColour())); + } + + // finally also set the background colour for text drawing: without this, + // the text in an edit control is drawn using the default background even + // if we return a valid brush + if ( colBg.IsOk() || m_hasBgCol ) { - GetEventHandler()->OnCommand(*this, event); + if ( !colBg.IsOk() ) + colBg = GetBackgroundColour(); + + ::SetBkColor(hdc, wxColourToRGB(colBg)); } + + return hbr; +} + +WXHBRUSH wxControl::MSWControlColor(WXHDC pDC, WXHWND hWnd) +{ + if ( HasTransparentBackground() ) + ::SetBkMode((HDC)pDC, TRANSPARENT); + + // don't pass any background colour to DoMSWControlColor(), our own + // background colour will be used by it only if it is set, otherwise the + // defaults will be used + return DoMSWControlColor(pDC, wxColour(), hWnd); } -void wxControl::OnEraseBackground(wxEraseEvent& event) +WXHBRUSH wxControl::MSWControlColorDisabled(WXHDC pDC) { - // In general, you don't want to erase the background of a control, - // or you'll get a flicker. - // TODO: move this 'null' function into each control that - // might flicker. + return DoMSWControlColor(pDC, + wxSystemSettings::GetColour(wxSYS_COLOUR_BTNFACE), + GetHWND()); +} - RECT rect; - ::GetClientRect((HWND) GetHWND(), &rect); +// ---------------------------------------------------------------------------- +// wxControlWithItems +// ---------------------------------------------------------------------------- - HBRUSH hBrush = ::CreateSolidBrush(PALETTERGB(GetBackgroundColour().Red(), GetBackgroundColour().Green(), GetBackgroundColour().Blue())); - int mode = ::SetMapMode((HDC) event.GetDC()->GetHDC(), MM_TEXT); +void wxControlWithItems::MSWAllocStorage(const wxArrayStringsAdapter& items, + unsigned wm) +{ + const unsigned numItems = items.GetCount(); + unsigned long totalTextLength = numItems; // for trailing '\0' characters + for ( unsigned i = 0; i < numItems; ++i ) + { + totalTextLength += items[i].length(); + } - ::FillRect ((HDC) event.GetDC()->GetHDC(), &rect, hBrush); - ::DeleteObject(hBrush); - ::SetMapMode((HDC) event.GetDC()->GetHDC(), mode); + if ( SendMessage((HWND)MSWGetItemsHWND(), wm, numItems, + (LPARAM)totalTextLength*sizeof(wxChar)) == LB_ERRSPACE ) + { + wxLogLastError(wxT("SendMessage(XX_INITSTORAGE)")); + } } -void wxControl::SetClientSize (const int width, const int height) +int wxControlWithItems::MSWInsertOrAppendItem(unsigned pos, + const wxString& item, + unsigned wm) { - SetSize (-1, -1, width, height); + LRESULT n = SendMessage((HWND)MSWGetItemsHWND(), wm, pos, + (LPARAM)item.wx_str()); + if ( n == CB_ERR || n == CB_ERRSPACE ) + { + wxLogLastError(wxT("SendMessage(XX_ADD/INSERTSTRING)")); + return wxNOT_FOUND; + } + + return n; } -void wxControl::Centre (const int direction) +// --------------------------------------------------------------------------- +// global functions +// --------------------------------------------------------------------------- + +// this is used in radiobox.cpp and slider95.cpp and should be removed as soon +// as it is not needed there any more! +// +// Call this repeatedly for several wnds to find the overall size +// of the widget. +// Call it initially with wxDefaultCoord for all values in rect. +// Keep calling for other widgets, and rect will be modified +// to calculate largest bounding rectangle. +void wxFindMaxSize(WXHWND wnd, RECT *rect) { - int x, y, width, height, panel_width, panel_height, new_x, new_y; + int left = rect->left; + int right = rect->right; + int top = rect->top; + int bottom = rect->bottom; - wxWindow *parent = (wxWindow *) GetParent (); - if (!parent) - return; + GetWindowRect((HWND) wnd, rect); - parent->GetClientSize (&panel_width, &panel_height); - GetSize (&width, &height); - GetPosition (&x, &y); + if (left < 0) + return; - new_x = x; - new_y = y; + if (left < rect->left) + rect->left = left; - if (direction & wxHORIZONTAL) - new_x = (int) ((panel_width - width) / 2); + if (right > rect->right) + rect->right = right; - if (direction & wxVERTICAL) - new_y = (int) ((panel_height - height) / 2); + if (top < rect->top) + rect->top = top; - SetSize (new_x, new_y, width, height); - int temp_x, temp_y; - GetPosition (&temp_x, &temp_y); - GetPosition (&temp_x, &temp_y); + if (bottom > rect->bottom) + rect->bottom = bottom; } - +#endif // wxUSE_CONTROLS