X-Git-Url: https://git.saurik.com/wxWidgets.git/blobdiff_plain/0e320a79f187558effb04d92020b470372bbe456..94534bf8db5c1f5fefc9682bcda0f6e84d3e6667:/src/os2/control.cpp diff --git a/src/os2/control.cpp b/src/os2/control.cpp index b141a80ff1..df264fae88 100644 --- a/src/os2/control.cpp +++ b/src/os2/control.cpp @@ -1,95 +1,294 @@ ///////////////////////////////////////////////////////////////////////////// // Name: control.cpp // Purpose: wxControl class -// Author: AUTHOR +// Author: David Webster // Modified by: -// Created: ??/??/98 +// Created: 09/17/99 // RCS-ID: $Id$ -// Copyright: (c) AUTHOR -// Licence: wxWindows licence +// Copyright: (c) Julian Smart +// Licence: wxWindows licence ///////////////////////////////////////////////////////////////////////////// #ifdef __GNUG__ #pragma implementation "control.h" #endif +// For compilers that support precompilation, includes "wx.h". +#include "wx/wxprec.h" + +#ifndef WX_PRECOMP +#include "wx/event.h" +#include "wx/app.h" +#include "wx/dcclient.h" +#include "wx/scrolwin.h" +#include "wx/log.h" +#endif +#include "wx/os2/private.h" #include "wx/control.h" -#if !USE_SHARED_LIBRARY IMPLEMENT_ABSTRACT_CLASS(wxControl, wxWindow) BEGIN_EVENT_TABLE(wxControl, wxWindow) + EVT_ERASE_BACKGROUND(wxControl::OnEraseBackground) END_EVENT_TABLE() -#endif // Item members wxControl::wxControl() { - m_backgroundColour = *wxWHITE; - m_foregroundColour = *wxBLACK; - m_callback = 0; -} +} // end of wxControl::wxControl -wxControl::~wxControl() +bool wxControl::Create( + wxWindow* pParent +, wxWindowID vId +, const wxPoint& rPos +, const wxSize& rSize +, long lStyle +, const wxValidator& rValidator +, const wxString& rsName +) { - // If we delete an item, we should initialize the parent panel, - // because it could now be invalid. - wxWindow *parent = (wxWindow *)GetParent(); - if (parent) + bool bRval = wxWindow::Create( pParent + ,vId + ,rPos + ,rSize + ,lStyle + ,rsName + ); + if (bRval) { - if (parent->GetDefaultItem() == (wxButton*) this) - parent->SetDefaultItem(NULL); +#if wxUSE_VALIDATORS + SetValidator(rValidator); +#endif } -} + return bRval; +} // end of wxControl::Create -void wxControl::SetLabel(const wxString& label) +wxControl::~wxControl() { - // TODO + m_isBeingDeleted = TRUE; } -wxString wxControl::GetLabel() const +bool wxControl::OS2CreateControl( + const wxChar* zClassname +, const wxString& rsLabel +, const wxPoint& rPos +, const wxSize& rSize +, long lStyle +) { - // TODO - return wxString(""); -} + WXDWORD dwExstyle; + WXDWORD dwStyle = OS2GetStyle( lStyle + ,&dwExstyle + ); -void wxControl::ProcessCommand (wxCommandEvent & event) + return OS2CreateControl( zClassname + ,dwStyle + ,rPos + ,rSize + ,rsLabel + ,dwExstyle + ); +} // end of wxControl::OS2CreateControl + +bool wxControl::OS2CreateControl( + const wxChar* zClassname +, WXDWORD dwStyle +, const wxPoint& rPos +, const wxSize& rSize +, const wxString& rsLabel +, WXDWORD dwExstyle +) { - // 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) + // + // Doesn't do anything at all under OS/2 + // + if (dwExstyle == (WXDWORD)-1) { - (void) (*(m_callback)) (*this, event); + dwExstyle = 0; + (void) OS2GetStyle(GetWindowStyle(), &dwExstyle); } - else + // + // All controls should have these styles (wxWidgets creates all controls + // visible by default) + // + if (m_isShown ) + dwStyle |= WS_VISIBLE; + + wxWindow* pParent = GetParent(); + PSZ zClass; + + if (!pParent) + return FALSE; + + if ((strcmp(zClassname, "COMBOBOX")) == 0) + zClass = WC_COMBOBOX; + else if ((strcmp(zClassname, "STATIC")) == 0) + zClass = WC_STATIC; + else if ((strcmp(zClassname, "BUTTON")) == 0) + zClass = WC_BUTTON; + else if ((strcmp(zClassname, "NOTEBOOK")) == 0) + zClass = WC_NOTEBOOK; + else if ((strcmp(zClassname, "CONTAINER")) == 0) + zClass = WC_CONTAINER; + dwStyle |= WS_VISIBLE; + + m_hWnd = (WXHWND)::WinCreateWindow( (HWND)GetHwndOf(pParent) // Parent window handle + ,(PSZ)zClass // Window class + ,(PSZ)rsLabel.c_str() // Initial Text + ,(ULONG)dwStyle // Style flags + ,(LONG)0 // X pos of origin + ,(LONG)0 // Y pos of origin + ,(LONG)0 // control width + ,(LONG)0 // control height + ,(HWND)GetHwndOf(pParent) // owner window handle (same as parent + ,HWND_TOP // initial z position + ,(ULONG)GetId() // Window identifier + ,NULL // no control data + ,NULL // no Presentation parameters + ); + + if ( !m_hWnd ) { - GetEventHandler()->OnCommand(*this, event); +#ifdef __WXDEBUG__ + wxLogError(wxT("Failed to create a control of class '%s'"), zClassname); +#endif // DEBUG + + return FALSE; } + // + // Subclass again for purposes of dialog editing mode + // + SubclassWin(m_hWnd); + + // + // Controls use the same colours as their parent dialog by default + // + InheritAttributes(); + // + // All OS/2 ctrls use the small font + // + SetFont(*wxSMALL_FONT); + + SetXComp(0); + SetYComp(0); + SetSize( rPos.x + ,rPos.y + ,rSize.x + ,rSize.y + ); + return TRUE; +} // end of wxControl::OS2CreateControl + +wxSize wxControl::DoGetBestSize() const +{ + return wxSize(DEFAULT_ITEM_WIDTH, DEFAULT_ITEM_HEIGHT); +} // end of wxControl::DoGetBestSize + +bool wxControl::ProcessCommand(wxCommandEvent& event) +{ + return GetEventHandler()->ProcessEvent(event); } -void wxControl::Centre (int direction) +WXHBRUSH wxControl::OnCtlColor( + WXHDC hWxDC +, WXHWND hWnd +, WXUINT uCtlColor +, WXUINT uMessage +, WXWPARAM wParam +, WXLPARAM lParam +) { - int x, y, width, height, panel_width, panel_height, new_x, new_y; + HPS hPS = (HPS)hWxDC; // pass in a PS handle in OS/2 + wxColour vColFore = GetForegroundColour(); + wxColour vColBack = GetBackgroundColour(); + + if (GetParent()->GetTransparentBackground()) + ::GpiSetBackMix(hPS, BM_LEAVEALONE); + else + ::GpiSetBackMix(hPS, BM_OVERPAINT); - wxWindow *parent = (wxWindow *) GetParent (); - if (!parent) - return; + ::GpiSetBackColor(hPS, vColBack.GetPixel()); + ::GpiSetColor(hPS, vColFore.GetPixel()); - parent->GetClientSize (&panel_width, &panel_height); - GetSize (&width, &height); - GetPosition (&x, &y); + wxBrush* pBrush = wxTheBrushList->FindOrCreateBrush( vColBack + ,wxSOLID + ); + return (WXHBRUSH)pBrush->GetResourceHandle(); +} // end of wxControl::OnCtlColor - new_x = x; - new_y = y; +void wxControl::OnEraseBackground( + wxEraseEvent& rEvent +) +{ + RECTL vRect; + HPS hPS = rEvent.GetDC()->GetHPS(); + SIZEL vSize = {0,0}; - if (direction & wxHORIZONTAL) - new_x = (int) ((panel_width - width) / 2); + ::GpiSetPS(hPS, &vSize, PU_PELS | GPIF_DEFAULT); + ::WinQueryWindowRect((HWND)GetHwnd(), &vRect); + ::WinFillRect(hPS, &vRect, GetBackgroundColour().GetPixel()); +} // end of wxControl::OnEraseBackground - if (direction & wxVERTICAL) - new_y = (int) ((panel_height - height) / 2); +WXDWORD wxControl::OS2GetStyle( + long lStyle +, WXDWORD* pdwExstyle +) const +{ + long dwStyle = wxWindow::OS2GetStyle( lStyle + ,pdwExstyle + ); + + if (AcceptsFocus()) + { + dwStyle |= WS_TABSTOP; + } + return dwStyle; +} // end of wxControl::OS2GetStyle + +void wxControl::SetLabel( + const wxString& rsLabel +) +{ + wxString sLabel = ::wxPMTextToLabel(rsLabel); + + ::WinSetWindowText(GetHwnd(), sLabel.c_str()); +} // end of wxControl::SetLabel + +// --------------------------------------------------------------------------- +// 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 hWnd +, RECT* pRect +) +{ + int nLeft = pRect->xLeft; + int nRight = pRect->xRight; + int nTop = pRect->yTop; + int nBottom = pRect->yBottom; + + ::WinQueryWindowRect((HWND)hWnd, pRect); + + if (nLeft < 0) + return; + + if (nLeft < pRect->xLeft) + pRect->xLeft = nLeft; + + if (nRight > pRect->xRight) + pRect->xRight = nRight; + + if (nTop > pRect->yTop) + pRect->yTop = nTop; + + if (nBottom < pRect->yBottom) + pRect->yBottom = nBottom; +} // end of wxFindMaxSize - SetSize (new_x, new_y, width, height); -}