src/os2/control.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        src/os2/control.cpp
   3 // Purpose:     wxControl class
   4 // Author:      David Webster
   5 // Modified by:
   6 // Created:     09/17/99
   7 // RCS-ID:      $Id$
   8 // Copyright:   (c) Julian Smart
   9 // Licence:     wxWindows licence
  10 /////////////////////////////////////////////////////////////////////////////
  11
  12 // For compilers that support precompilation, includes "wx.h".
  13 #include "wx/wxprec.h"
  14
  15 #ifndef WX_PRECOMP
  16     #include "wx/event.h"
  17     #include "wx/app.h"
  18     #include "wx/dcclient.h"
  19     #include "wx/scrolwin.h"
  20     #include "wx/log.h"
  21 #endif
  22
  23 #include "wx/os2/private.h"
  24 #include "wx/control.h"
  25
  26 IMPLEMENT_ABSTRACT_CLASS(wxControl, wxWindow)
  27
  28 BEGIN_EVENT_TABLE(wxControl, wxWindow)
  29     EVT_ERASE_BACKGROUND(wxControl::OnEraseBackground)
  30 END_EVENT_TABLE()
  31
  32 // Item members
  33 wxControl::wxControl()
  34 {
  35 } // end of wxControl::wxControl
  36
  37 bool wxControl::Create( wxWindow*           pParent,
  38                         wxWindowID          vId,
  39                         const wxPoint&      rPos,
  40                         const wxSize&       rSize,
  41                         long                lStyle,
  42                         const wxValidator&  rValidator,
  43                         const wxString&     rsName )
  44 {
  45     bool                            bRval = wxWindow::Create( pParent
  46                                                              ,vId
  47                                                              ,rPos
  48                                                              ,rSize
  49                                                              ,lStyle
  50                                                              ,rsName
  51                                                             );
  52     if (bRval)
  53     {
  54 #if wxUSE_VALIDATORS
  55         SetValidator(rValidator);
  56 #endif
  57     }
  58     return bRval;
  59 } // end of wxControl::Create
  60
  61 wxControl::~wxControl()
  62 {
  63     m_isBeingDeleted = true;
  64 }
  65
  66 bool wxControl::OS2CreateControl( const wxChar* zClassname,
  67                                   const wxString& rsLabel,
  68                                   const wxPoint& rPos,
  69                                   const wxSize& rSize,
  70                                   long lStyle )
  71 {
  72     WXDWORD dwExstyle;
  73     WXDWORD dwStyle = OS2GetStyle( lStyle, &dwExstyle );
  74
  75     return OS2CreateControl( zClassname
  76                             ,dwStyle
  77                             ,rPos
  78                             ,rSize
  79                             ,rsLabel
  80                             ,dwExstyle
  81                            );
  82 } // end of wxControl::OS2CreateControl
  83
  84 bool wxControl::OS2CreateControl( const wxChar*   zClassname,
  85                                   WXDWORD         dwStyle,
  86                                   const wxPoint&  rPos,
  87                                   const wxSize&   rSize,
  88                                   const wxString& rsLabel,
  89                                   WXDWORD         dwExstyle )
  90 {
  91     //
  92     // Doesn't do anything at all under OS/2
  93     //
  94     if (dwExstyle == (WXDWORD)-1)
  95     {
  96         dwExstyle = 0;
  97         (void) OS2GetStyle(GetWindowStyle(), &dwExstyle);
  98     }
  99     //
 100     // All controls should have these styles (wxWidgets creates all controls
 101     // visible by default)
 102     //
 103     if (m_isShown )
 104         dwStyle |= WS_VISIBLE;
 105
 106     wxWindow* pParent = GetParent();
 107     PSZ zClass = "";
 108
 109     if (!pParent)
 110         return false;
 111
 112     if ((wxStrcmp(zClassname, _T("COMBOBOX"))) == 0)
 113         zClass = WC_COMBOBOX;
 114     else if ((wxStrcmp(zClassname, _T("STATIC"))) == 0)
 115         zClass = WC_STATIC;
 116     else if ((wxStrcmp(zClassname, _T("BUTTON"))) == 0)
 117         zClass = WC_BUTTON;
 118     else if ((wxStrcmp(zClassname, _T("NOTEBOOK"))) == 0)
 119         zClass = WC_NOTEBOOK;
 120     else if ((wxStrcmp(zClassname, _T("CONTAINER"))) == 0)
 121         zClass = WC_CONTAINER;
 122     if ((zClass == WC_STATIC) || (zClass == WC_BUTTON))
 123         dwStyle |= DT_MNEMONIC;
 124
 125     m_dwStyle = dwStyle;
 126     m_label = rsLabel;
 127     wxString label;
 128     if (dwStyle & DT_MNEMONIC)
 129         label = ::wxPMTextToLabel(m_label);
 130     else
 131         label = m_label;
 132
 133     m_hWnd = (WXHWND)::WinCreateWindow( (HWND)GetHwndOf(pParent) // Parent window handle
 134                                        ,(PSZ)zClass              // Window class
 135                                        ,(PSZ)label.c_str()       // Initial Text
 136                                        ,(ULONG)dwStyle           // Style flags
 137                                        ,(LONG)0                  // X pos of origin
 138                                        ,(LONG)0                  // Y pos of origin
 139                                        ,(LONG)0                  // control width
 140                                        ,(LONG)0                  // control height
 141                                        ,(HWND)GetHwndOf(pParent) // owner window handle (same as parent
 142                                        ,HWND_TOP                 // initial z position
 143                                        ,(ULONG)GetId()           // Window identifier
 144                                        ,NULL                     // no control data
 145                                        ,NULL                     // no Presentation parameters
 146                                       );
 147
 148     if ( !m_hWnd )
 149     {
 150 #ifdef __WXDEBUG__
 151         wxLogError(wxT("Failed to create a control of class '%s'"), zClassname);
 152 #endif // DEBUG
 153
 154         return false;
 155     }
 156     //
 157     // Subclass again for purposes of dialog editing mode
 158     //
 159     SubclassWin(m_hWnd);
 160
 161     //
 162     // Controls use the same colours as their parent dialog by default
 163     //
 164     InheritAttributes();
 165     //
 166     // All OS/2 ctrls use the small font
 167     //
 168     SetFont(*wxSMALL_FONT);
 169
 170     SetXComp(0);
 171     SetYComp(0);
 172     SetSize( rPos.x, rPos.y, rSize.x, rSize.y );
 173     return true;
 174 } // end of wxControl::OS2CreateControl
 175
 176 wxSize wxControl::DoGetBestSize() const
 177 {
 178     return wxSize(DEFAULT_ITEM_WIDTH, DEFAULT_ITEM_HEIGHT);
 179 } // end of wxControl::DoGetBestSize
 180
 181 bool wxControl::ProcessCommand(wxCommandEvent& event)
 182 {
 183     return GetEventHandler()->ProcessEvent(event);
 184 }
 185
 186 WXHBRUSH wxControl::OnCtlColor(WXHDC    hWxDC,
 187                                WXHWND   WXUNUSED(hWnd),
 188                                WXUINT   WXUNUSED(uCtlColor),
 189                                WXUINT   WXUNUSED(uMessage),
 190                                WXWPARAM WXUNUSED(wParam),
 191                                WXLPARAM WXUNUSED(lParam))
 192 {
 193     HPS      hPS = (HPS)hWxDC; // pass in a PS handle in OS/2
 194     wxColour vColFore = GetForegroundColour();
 195     wxColour vColBack = GetBackgroundColour();
 196
 197     if (GetParent()->GetTransparentBackground())
 198         ::GpiSetBackMix(hPS, BM_LEAVEALONE);
 199     else
 200         ::GpiSetBackMix(hPS, BM_OVERPAINT);
 201
 202     ::GpiSetBackColor(hPS, vColBack.GetPixel());
 203     ::GpiSetColor(hPS, vColFore.GetPixel());
 204
 205     wxBrush* pBrush = wxTheBrushList->FindOrCreateBrush( vColBack
 206                                                          ,wxSOLID
 207                                                        );
 208     return (WXHBRUSH)pBrush->GetResourceHandle();
 209 } // end of wxControl::OnCtlColor
 210
 211 void wxControl::OnEraseBackground( wxEraseEvent& rEvent )
 212 {
 213     RECTL                           vRect;
 214     HPS                             hPS = rEvent.GetDC()->GetHPS();
 215     SIZEL                           vSize = {0,0};
 216
 217     ::GpiSetPS(hPS, &vSize, PU_PELS | GPIF_DEFAULT);
 218     ::WinQueryWindowRect((HWND)GetHwnd(), &vRect);
 219     ::WinFillRect(hPS, &vRect, GetBackgroundColour().GetPixel());
 220 } // end of wxControl::OnEraseBackground
 221
 222 WXDWORD wxControl::OS2GetStyle( long lStyle, WXDWORD* pdwExstyle ) const
 223 {
 224     long dwStyle = wxWindow::OS2GetStyle( lStyle, pdwExstyle );
 225
 226     if (AcceptsFocus())
 227     {
 228         dwStyle |= WS_TABSTOP;
 229     }
 230     return dwStyle;
 231 } // end of wxControl::OS2GetStyle
 232
 233 void wxControl::SetLabel( const wxString& rsLabel )
 234 {
 235     if(rsLabel != m_label)
 236     {
 237         m_label = rsLabel;
 238         wxString label;
 239         if (m_dwStyle & DT_MNEMONIC)
 240             label = ::wxPMTextToLabel(m_label);
 241         else
 242             label = m_label;
 243         ::WinSetWindowText(GetHwnd(), (PSZ)label.c_str());
 244     }
 245 } // end of wxControl::SetLabel
 246
 247 // ---------------------------------------------------------------------------
 248 // global functions
 249 // ---------------------------------------------------------------------------
 250
 251 // Call this repeatedly for several wnds to find the overall size
 252 // of the widget.
 253 // Call it initially with -1 for all values in rect.
 254 // Keep calling for other widgets, and rect will be modified
 255 // to calculate largest bounding rectangle.
 256 void wxFindMaxSize(
 257   WXHWND                            hWnd
 258 , RECT*                             pRect
 259 )
 260 {
 261     int                             nLeft = pRect->xLeft;
 262     int                             nRight = pRect->xRight;
 263     int                             nTop = pRect->yTop;
 264     int                             nBottom = pRect->yBottom;
 265
 266     ::WinQueryWindowRect((HWND)hWnd, pRect);
 267
 268     if (nLeft < 0)
 269         return;
 270
 271     if (nLeft < pRect->xLeft)
 272         pRect->xLeft = nLeft;
 273
 274     if (nRight > pRect->xRight)
 275         pRect->xRight = nRight;
 276
 277     if (nTop > pRect->yTop)
 278         pRect->yTop = nTop;
 279
 280     if (nBottom < pRect->yBottom)
 281         pRect->yBottom = nBottom;
 282 } // end of wxFindMaxSize