src/os2/control.cpp

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