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