/////////////////////////////////////////////////////////////////////////////
// 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 and Markus Holzem
+// 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"
+#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;
-}
-wxControl::~wxControl()
+#if WXWIN_COMPATIBILITY
+ m_callback = 0;
+#endif // WXWIN_COMPATIBILITY
+} // end of wxControl::wxControl
+
+bool wxControl::Create(
+ wxWindow* pParent
+, wxWindowID vId
+, const wxPoint& rPos
+, const wxSize& rSize
+, long lStyle
+#if wxUSE_VALIDATORS
+, const wxValidator& rValidator
+#endif
+, 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(
+ wxWindow* pParent
+, wxWindowID vId
+, const wxPoint& rPos
+, const wxSize& rSize
+, long lStyle
+#if wxUSE_VALIDATORS
+, const wxValidator& rValidator
+#endif
+, const wxString& rsName
+)
{
- // TODO
- return wxString("");
-}
+ //
+ // Even if it's possible to create controls without parents in some port,
+ // it should surely be discouraged because it doesn't work at all under
+ // Windows
+ //
+ if (!CreateBase( pParent
+ ,vId
+ ,rPos
+ ,rSize
+ ,lStyle
+#if wxUSE_VALIDATORS
+ ,rValidator
+#endif
+ ,rsName
+ ))
+ return FALSE;
+ pParent->AddChild(this);
+ return TRUE;
+} // end of wxControl::OS2CreateControl
-void wxControl::ProcessCommand (wxCommandEvent & event)
+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)
+ int nX = rPos.x == -1 ? 0 : rPos.x;
+ int nY = rPos.y == -1 ? 0 : rPos.y;
+ int nW = rSize.x == -1 ? 0 : rSize.x;
+ int nH = rSize.y == -1 ? 0 : rSize.y;
+ //
+ // Doesn't do anything at all under OS/2
+ //
+ if (dwExstyle == (WXDWORD)-1)
{
- (void) (*(m_callback)) (*this, event);
+ dwExstyle = GetExStyle(dwStyle);
}
- else
+
+ 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;
+ 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 font and colours as their parent dialog by default
+ //
+ InheritAttributes();
+ if (nW == 0 || nH == 0)
+ SetBestSize(rSize);
+ 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)
+{
+#if WXWIN_COMPATIBILITY
+ if ( m_callback )
+ {
+ (void)(*m_callback)(this, event);
+
+ return TRUE;
+ }
+ else
+#endif // WXWIN_COMPATIBILITY
+
+ 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();
- wxWindow *parent = (wxWindow *) GetParent ();
- if (!parent)
- return;
+ if (GetParent()->GetTransparentBackground())
+ ::GpiSetBackMix(hPS, BM_LEAVEALONE);
+ else
+ ::GpiSetBackMix(hPS, BM_OVERPAINT);
- parent->GetClientSize (&panel_width, &panel_height);
- GetSize (&width, &height);
- GetPosition (&x, &y);
+ ::GpiSetBackColor(hPS, vColBack.GetPixel());
+ ::GpiSetColor(hPS, vColFore.GetPixel());
- new_x = x;
- new_y = y;
+ wxBrush* pBrush = wxTheBrushList->FindOrCreateBrush( vColBack
+ ,wxSOLID
+ );
+ return (WXHBRUSH)pBrush->GetResourceHandle();
+} // end of wxControl::OnCtlColor
- if (direction & wxHORIZONTAL)
- new_x = (int) ((panel_width - width) / 2);
+void wxControl::OnEraseBackground(
+ wxEraseEvent& rEvent
+)
+{
+ RECTL vRect;
+ HPS hPS = rEvent.GetDC()->GetHPS();
+ SIZEL vSize = {0,0};
- if (direction & wxVERTICAL)
- new_y = (int) ((panel_height - height) / 2);
+ ::GpiSetPS(hPS, &vSize, PU_PELS | GPIF_DEFAULT);
+ ::WinQueryWindowRect((HWND)GetHwnd(), &vRect);
+ ::WinFillRect(hPS, &vRect, GetBackgroundColour().GetPixel());
+} // end of wxControl::OnEraseBackground
+
+WXDWORD wxControl::GetExStyle(
+ WXDWORD& rStyle
+) const
+{
+ //
+ // Meaningless under OS/2, just return what was sent
+ //
+ WXDWORD exStyle = rStyle;
+
+ return exStyle;
+} // end of wxControl::GetExStyle
+
+// ---------------------------------------------------------------------------
+// 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);
-}