X-Git-Url: https://git.saurik.com/wxWidgets.git/blobdiff_plain/57c208c5759da71a637f0f0f5b7d3dc3eda09c02..57fd9bb2394e62823417e6068f81a5afdbd47d92:/src/msw/control.cpp diff --git a/src/msw/control.cpp b/src/msw/control.cpp index a0bcf8dff2..94cc8a9dc2 100644 --- a/src/msw/control.cpp +++ b/src/msw/control.cpp @@ -1,335 +1,335 @@ ///////////////////////////////////////////////////////////////////////////// -// Name: control.cpp +// Name: 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" + #pragma implementation "control.h" #endif // For compilers that support precompilation, includes "wx.h". #include "wx/wxprec.h" #ifdef __BORLANDC__ -#pragma hdrstop + #pragma hdrstop #endif +#if wxUSE_CONTROLS + #ifndef WX_PRECOMP -#include "wx/event.h" -#include "wx/app.h" -#include "wx/dcclient.h" + #include "wx/event.h" + #include "wx/app.h" + #include "wx/dcclient.h" + #include "wx/log.h" #endif #include "wx/control.h" #include "wx/msw/private.h" -#if (defined(__WIN95__) && !defined(__GNUWIN32__)) || defined(__TWIN32__) -#include -#endif - -#ifdef GetCharWidth -#undef GetCharWidth -#undef GetWindowProc +#if defined(__WIN95__) && !(defined(__GNUWIN32_OLD__) && !defined(__CYGWIN10__)) + #include #endif -#if !USE_SHARED_LIBRARY IMPLEMENT_ABSTRACT_CLASS(wxControl, wxWindow) BEGIN_EVENT_TABLE(wxControl, wxWindow) - EVT_ERASE_BACKGROUND(wxControl::OnEraseBackground) + EVT_ERASE_BACKGROUND(wxControl::OnEraseBackground) END_EVENT_TABLE() -#endif // Item members -wxControl::wxControl(void) +wxControl::wxControl() { - m_backgroundColour = *wxWHITE; - m_foregroundColour = *wxBLACK; - m_callback = 0; +#if WXWIN_COMPATIBILITY + m_callback = 0; +#endif // WXWIN_COMPATIBILITY } -wxControl::~wxControl(void) +wxControl::~wxControl() { - 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() == (wxButton*) this) - parent->SetDefaultItem(NULL); - } + m_isBeingDeleted = TRUE; } -void wxControl::SetLabel(const wxString& label) + +bool wxControl::Create(wxWindow *parent, + wxWindowID id, + const wxPoint& pos, + const wxSize& size, + long style, + const wxValidator& validator, + const wxString& name) { - if (GetHWND()) - SetWindowText((HWND) GetHWND(), (const char *)label); + if ( !wxWindow::Create(parent, id, pos, size, style, name) ) + return FALSE; + +#if wxUSE_VALIDATORS + SetValidator(validator); +#endif + + 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()) - { - int len = GetWindowText((HWND)GetHWND(), wxBuffer, 256); - wxBuffer[len] = 0; - } + 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 wxWindows + if ( m_isShown ) + { + style |= WS_VISIBLE; + } - if (left < rect->left) - rect->left = left; + int x = pos.x == -1 ? 0 : pos.x, + y = pos.y == -1 ? 0 : pos.y, + w = size.x == -1 ? 0 : size.x, + h = size.y == -1 ? 0 : size.y; + + m_hWnd = (WXHWND)::CreateWindowEx + ( + exstyle, // extended style + classname, // the kind of control to create + label, // the window name + style, // the window style + x, y, w, h, // the window position and size + GetHwndOf(GetParent()), // parent + (HMENU)GetId(), // child id + wxGetInstance(), // app instance + NULL // creation parameters + ); + + if ( !m_hWnd ) + { + wxLogDebug(wxT("Failed to create a control of class '%s'"), classname); + wxFAIL_MSG(_T("something is very wrong")); - if (right > rect->right) - rect->right = right; + return FALSE; + } - if (top < rect->top) - rect->top = top; +#if wxUSE_CTL3D + if ( want3D ) + { + Ctl3dSubclassCtl(GetHwnd()); + m_useCtl3D = TRUE; + } +#endif // wxUSE_CTL3D - if (bottom > rect->bottom) - rect->bottom = bottom; + // install wxWindows window proc for this window + SubclassWin(m_hWnd); + // controls use the same font and colours as their parent dialog by default + InheritAttributes(); + + // set the size now if no initial size specified + if ( w <= 0 || h <= 0 ) + { + SetBestSize(size); + } + + return TRUE; } -/* -// Not currently used -void wxConvertDialogToPixels(wxWindow *control, int *x, int *y) +wxBorder wxControl::GetDefaultBorder() const { - 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; - } + // we want to automatically give controls a sunken style (confusingly, + // it may not really mean sunken at all as we map it to WS_EX_CLIENTEDGE + // which is not sunken at all under Windows XP -- rather, just the default) + return wxBORDER_SUNKEN; } -*/ -void wxControl::MSWOnMouseMove(int x, int y, WXUINT flags) +wxSize wxControl::DoGetBestSize() const { -/* - // Trouble with this is that it sets the cursor for controls too :-( - if (m_windowCursor.Ok() && !wxIsBusy()) - ::SetCursor(m_windowCursor.GetHCURSOR()); -*/ - - if (!m_mouseInWindow) - { - // Generate an ENTER event - m_mouseInWindow = TRUE; - MSWOnMouseEnter(x, y, flags); - } - - wxMouseEvent event(wxEVT_MOTION); - - 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 == wxEVT_RIGHT_DOWN || m_lastEvent == wxEVT_LEFT_DOWN || - m_lastEvent == wxEVT_MIDDLE_DOWN) && - (m_lastXPos == event.GetX() && m_lastYPos == event.GetY())) - { - m_lastXPos = event.GetX(); m_lastYPos = event.GetY(); - m_lastEvent = wxEVT_MOTION; - return; - } - - m_lastEvent = wxEVT_MOTION; - m_lastXPos = event.GetX(); m_lastYPos = event.GetY(); - - if (!GetEventHandler()->ProcessEvent(event)) - Default(); + return wxSize(DEFAULT_ITEM_WIDTH, DEFAULT_ITEM_HEIGHT); } -long wxControl::MSWWindowProc(WXUINT nMsg, WXWPARAM wParam, WXLPARAM lParam) +bool wxControl::ProcessCommand(wxCommandEvent& event) { - return wxWindow::MSWWindowProc(nMsg, wParam, lParam); +#if WXWIN_COMPATIBILITY + if ( m_callback ) + { + (void)(*m_callback)(*this, event); + + return TRUE; + } + else +#endif // WXWIN_COMPATIBILITY + + return GetEventHandler()->ProcessEvent(event); } -bool wxControl::MSWNotify(WXWPARAM wParam, WXLPARAM lParam, - WXLPARAM* WXUNUSED(result)) +#ifdef __WIN95__ +bool wxControl::MSWOnNotify(int idCtrl, + WXLPARAM lParam, + WXLPARAM* result) { -#if defined(__WIN95__) - wxCommandEvent event(wxEVT_NULL, m_windowId); - wxEventType eventType = wxEVT_NULL; - 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; - } + wxEventType eventType = 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); + event.SetEventObject(this); - if ( !GetEventHandler()->ProcessEvent(event) ) - return FALSE; - return TRUE; -#else // !Win95 - return FALSE; -#endif + return GetEventHandler()->ProcessEvent(event); } +#endif // Win95 -/* - * Allocates control IDs within the appropriate range - */ +void wxControl::OnEraseBackground(wxEraseEvent& event) +{ + // notice that this 'dumb' implementation may cause flicker for some of the + // controls in which case they should intercept wxEraseEvent and process it + // themselves somehow + RECT rect; + ::GetClientRect(GetHwnd(), &rect); -int NewControlId(void) -{ - static int controlId = 0; - controlId ++; - return controlId; + HBRUSH hBrush = ::CreateSolidBrush(wxColourToRGB(GetBackgroundColour())); + + HDC hdc = GetHdcOf((*event.GetDC())); + int mode = ::SetMapMode(hdc, MM_TEXT); + + ::FillRect(hdc, &rect, hBrush); + ::DeleteObject(hBrush); + ::SetMapMode(hdc, mode); } -void wxControl::ProcessCommand (wxCommandEvent & event) +WXHBRUSH wxControl::OnCtlColor(WXHDC pDC, WXHWND WXUNUSED(pWnd), WXUINT WXUNUSED(nCtlColor), +#if wxUSE_CTL3D + WXUINT message, + WXWPARAM wParam, + WXLPARAM lParam +#else + WXUINT WXUNUSED(message), + WXWPARAM WXUNUSED(wParam), + WXLPARAM WXUNUSED(lParam) +#endif + ) { - // 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) - { - (void) (*(m_callback)) (*this, event); - } - else +#if wxUSE_CTL3D + if ( m_useCtl3D ) { - GetEventHandler()->OnCommand(*this, event); + HBRUSH hbrush = Ctl3dCtlColorEx(message, wParam, lParam); + return (WXHBRUSH) hbrush; } -} +#endif // wxUSE_CTL3D -void wxControl::OnEraseBackground(wxEraseEvent& event) -{ - // 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. + HDC hdc = (HDC)pDC; + wxColour colBack = GetBackgroundColour(); - RECT rect; - ::GetClientRect((HWND) GetHWND(), &rect); + ::SetBkColor(hdc, wxColourToRGB(colBack)); + ::SetTextColor(hdc, wxColourToRGB(GetForegroundColour())); - HBRUSH hBrush = ::CreateSolidBrush(PALETTERGB(GetBackgroundColour().Red(), GetBackgroundColour().Green(), GetBackgroundColour().Blue())); - int mode = ::SetMapMode((HDC) event.GetDC()->GetHDC(), MM_TEXT); + wxBrush *brush = wxTheBrushList->FindOrCreateBrush(colBack, wxSOLID); - ::FillRect ((HDC) event.GetDC()->GetHDC(), &rect, hBrush); - ::DeleteObject(hBrush); - ::SetMapMode((HDC) event.GetDC()->GetHDC(), mode); + return (WXHBRUSH)brush->GetResourceHandle(); } -void wxControl::SetClientSize (int width, int height) +WXDWORD wxControl::MSWGetStyle(long style, WXDWORD *exstyle) const { - SetSize (-1, -1, width, height); + long msStyle = wxWindow::MSWGetStyle(style, exstyle); + + if ( AcceptsFocus() ) + { + msStyle |= WS_TABSTOP; + } + + return msStyle; } -void wxControl::Centre (int direction) +// --------------------------------------------------------------------------- +// global functions +// --------------------------------------------------------------------------- + +// 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) { - 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