src/os2/button.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        button.cpp
   3 // Purpose:     wxButton
   4 // Author:      David Webster
   5 // Modified by:
   6 // Created:     10/13/99
   7 // RCS-ID:      $Id$
   8 // Copyright:   (c) David Webster
   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/button.h"
  17     #include "wx/brush.h"
  18     #include "wx/panel.h"
  19     #include "wx/bmpbuttn.h"
  20     #include "wx/settings.h"
  21     #include "wx/dcscreen.h"
  22     #include "wx/scrolwin.h"
  23 #endif
  24
  25 #include "wx/os2/private.h"
  26
  27 #define BUTTON_HEIGHT_FROM_CHAR_HEIGHT(cy) (11*EDIT_HEIGHT_FROM_CHAR_HEIGHT(cy)/10)
  28
  29 //
  30 // Should be at the very least less than winDEFAULT_BUTTON_MARGIN
  31 //
  32 #define FOCUS_MARGIN 3
  33
  34 #ifndef BST_CHECKED
  35 #define BST_CHECKED 0x0001
  36 #endif
  37
  38 IMPLEMENT_DYNAMIC_CLASS(wxButton, wxControl)
  39
  40 // Button
  41
  42 bool wxButton::Create(
  43   wxWindow*                         pParent
  44 , wxWindowID                        vId
  45 , const wxString&                   rsLabel
  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     SetName(rsName);
  56 #if wxUSE_VALIDATORS
  57     SetValidator(rValidator);
  58 #endif
  59     m_windowStyle = lStyle;
  60     pParent->AddChild((wxButton *)this);
  61     if (vId == -1)
  62         m_windowId = NewControlId();
  63     else
  64         m_windowId = vId;
  65     lStyle = WS_VISIBLE | WS_TABSTOP | BS_PUSHBUTTON;
  66
  67     //
  68     // OS/2 PM does not have Right/Left/Top/Bottom styles.
  69     // We will have to define an additional style when we implement notebooks
  70     // for a notebook page button
  71     //
  72     if (m_windowStyle & wxCLIP_SIBLINGS )
  73         lStyle |= WS_CLIPSIBLINGS;
  74
  75     m_hWnd = (WXHWND)::WinCreateWindow( GetHwndOf(pParent)   // Parent handle
  76                                        ,WC_BUTTON            // A Button class window
  77                                        ,(PSZ)rsLabel.c_str() // Button text
  78                                        ,lStyle               // Button style
  79                                        ,0, 0, 0, 0           // Location and size
  80                                        ,GetHwndOf(pParent)   // Owner handle
  81                                        ,HWND_TOP             // Top of Z-Order
  82                                        ,vId                  // Identifier
  83                                        ,NULL                 // No control data
  84                                        ,NULL                 // No Presentation parameters
  85                                       );
  86     if (m_hWnd == 0)
  87     {
  88         return FALSE;
  89     }
  90
  91     //
  92     // Subclass again for purposes of dialog editing mode
  93     //
  94     SubclassWin(m_hWnd);
  95     wxFont*                          pButtonFont = new wxFont( 8
  96                                                               ,wxSWISS
  97                                                               ,wxNORMAL
  98                                                               ,wxNORMAL
  99                                                              );
 100     SetFont(*pButtonFont);
 101     SetXComp(0);
 102     SetYComp(0);
 103     SetSize( rPos.x
 104             ,rPos.y
 105             ,rSize.x
 106             ,rSize.y
 107            );
 108     delete pButtonFont;
 109     return TRUE;
 110 } // end of wxButton::Create
 111
 112 wxButton::~wxButton()
 113 {
 114     wxPanel*                        pPanel = wxDynamicCast(GetParent(), wxPanel);
 115
 116     if (pPanel)
 117     {
 118         if (pPanel->GetDefaultItem() == this)
 119         {
 120             //
 121             // Don't leave the panel with invalid default item
 122             //
 123             pPanel->SetDefaultItem(NULL);
 124         }
 125     }
 126 } // end of wxButton::~wxButton
 127
 128 // ----------------------------------------------------------------------------
 129 // size management including autosizing
 130 // ----------------------------------------------------------------------------
 131
 132 wxSize wxButton::DoGetBestSize() const
 133 {
 134     wxString                        rsLabel = wxGetWindowText(GetHWND());
 135     int                             nWidthButton;
 136     int                             nWidthChar;
 137     int                             nHeightChar;
 138
 139     GetTextExtent( rsLabel
 140                   ,&nWidthButton
 141                   ,NULL
 142                  );
 143
 144     wxGetCharSize( GetHWND()
 145                   ,&nWidthChar
 146                   ,&nHeightChar
 147                   ,(wxFont*)&GetFont()
 148                  );
 149
 150     //
 151     // Add a margin - the button is wider than just its label
 152     //
 153     nWidthButton += 3 * nWidthChar;
 154
 155     //
 156     // The button height is proportional to the height of the font used
 157     //
 158     int                             nHeightButton = BUTTON_HEIGHT_FROM_CHAR_HEIGHT(nHeightChar);
 159
 160     //
 161     // Need a little extra to make it look right
 162     //
 163     nHeightButton += nHeightChar/1.5;
 164
 165     if (!HasFlag(wxBU_EXACTFIT))
 166     {
 167         wxSize                      vSize = GetDefaultSize();
 168
 169         if (nWidthButton > vSize.x)
 170             vSize.x = nWidthButton;
 171         if (nHeightButton > vSize.y)
 172             vSize.y = nHeightButton;
 173         return vSize;
 174     }
 175     return wxSize( nWidthButton
 176                   ,nHeightButton
 177                  );
 178 } // end of wxButton::DoGetBestSize
 179
 180 /* static */
 181 wxSize wxButton::GetDefaultSize()
 182 {
 183     static wxSize                   vSizeBtn;
 184
 185     if (vSizeBtn.x == 0)
 186     {
 187         wxScreenDC                  vDc;
 188
 189         vDc.SetFont(wxSystemSettings::GetFont(wxSYS_DEFAULT_GUI_FONT));
 190
 191         //
 192         // The size of a standard button in the dialog units is 50x14,
 193         // translate this to pixels
 194         // NB1: the multipliers come from the Windows convention
 195         // NB2: the extra +1/+2 were needed to get the size be the same as the
 196         //      size of the buttons in the standard dialog - I don't know how
 197         //      this happens, but on my system this size is 75x23 in pixels and
 198         //      23*8 isn't even divisible by 14... Would be nice to understand
 199         //      why these constants are needed though!
 200         vSizeBtn.x = (50 * (vDc.GetCharWidth() + 1))/4;
 201         vSizeBtn.y = ((14 * vDc.GetCharHeight()) + 2)/8;
 202     }
 203     return vSizeBtn;
 204 } // end of wxButton::GetDefaultSize
 205
 206 void wxButton::Command (
 207   wxCommandEvent&                   rEvent
 208 )
 209 {
 210     ProcessCommand (rEvent);
 211 } // end of wxButton::Command
 212
 213 // ----------------------------------------------------------------------------
 214 // helpers
 215 // ----------------------------------------------------------------------------
 216
 217 bool wxButton::SendClickEvent()
 218 {
 219     wxCommandEvent                  vEvent( wxEVT_COMMAND_BUTTON_CLICKED
 220                                            ,GetId()
 221                                           );
 222
 223     vEvent.SetEventObject(this);
 224     return ProcessCommand(vEvent);
 225 } // end of wxButton::SendClickEvent
 226
 227 void wxButton::SetDefault()
 228 {
 229     wxWindow*                       pParent = GetParent();
 230
 231     wxCHECK_RET( pParent, _T("button without parent?") );
 232
 233     //
 234     // Set this one as the default button both for wxWindows and Windows
 235     //
 236     wxWindow*                       pWinOldDefault = pParent->SetDefaultItem(this);
 237
 238     SetDefaultStyle( wxDynamicCast(pWinOldDefault, wxButton)
 239                     ,FALSE
 240                    );
 241     SetDefaultStyle( this
 242                     ,TRUE
 243                    );
 244 } // end of wxButton::SetDefault
 245
 246 void wxButton::SetTmpDefault()
 247 {
 248     wxWindow*                       pParent = GetParent();
 249
 250     wxCHECK_RET( pParent, _T("button without parent?") );
 251
 252     wxWindow*                       pWinOldDefault = pParent->GetDefaultItem();
 253
 254     pParent->SetTmpDefaultItem(this);
 255     SetDefaultStyle( wxDynamicCast(pWinOldDefault, wxButton)
 256                     ,FALSE
 257                    );
 258     SetDefaultStyle( this
 259                     ,TRUE
 260                    );
 261 } // end of wxButton::SetTmpDefault
 262
 263 void wxButton::UnsetTmpDefault()
 264 {
 265     wxWindow*                       pParent = GetParent();
 266
 267     wxCHECK_RET( pParent, _T("button without parent?") );
 268
 269     pParent->SetTmpDefaultItem(NULL);
 270
 271     wxWindow*                       pWinOldDefault = pParent->GetDefaultItem();
 272
 273     SetDefaultStyle( this
 274                     ,FALSE
 275                    );
 276     SetDefaultStyle( wxDynamicCast(pWinOldDefault, wxButton)
 277                     ,TRUE
 278                    );
 279 } // end of wxButton::UnsetTmpDefault
 280
 281 void wxButton::SetDefaultStyle(
 282   wxButton*                         pBtn
 283 , bool                              bOn
 284 )
 285 {
 286     long                            lStyle;
 287     //
 288     // We may be called with NULL pointer -- simpler to do the check here than
 289     // in the caller which does wxDynamicCast()
 290     //
 291     if (!pBtn)
 292         return;
 293
 294     //
 295     // First, let DefDlgProc() know about the new default button
 296     //
 297     if (bOn)
 298     {
 299         if (!wxTheApp->IsActive())
 300             return;
 301
 302         //
 303         // In OS/2 the dialog/panel doesn't really know it has a default
 304         // button, the default button simply has that style.  We'll just
 305         // simulate by setting focus to it
 306         //
 307         pBtn->SetFocus();
 308     }
 309     lStyle = ::WinQueryWindowULong(GetHwndOf(pBtn), QWL_STYLE);
 310     if (!(lStyle & BS_DEFAULT) == bOn)
 311     {
 312         if ((lStyle & BS_USERBUTTON) != BS_USERBUTTON)
 313         {
 314             if (bOn)
 315                 lStyle | BS_DEFAULT;
 316             else
 317                 lStyle &= ~BS_DEFAULT;
 318             ::WinSetWindowULong(GetHwndOf(pBtn), QWL_STYLE, lStyle);
 319         }
 320         else
 321         {
 322             //
 323             // Redraw the button - it will notice itself that it's not the
 324             // default one any longer
 325             //
 326             pBtn->Refresh();
 327         }
 328     }
 329 } // end of wxButton::UpdateDefaultStyle
 330
 331 // ----------------------------------------------------------------------------
 332 // event/message handlers
 333 // ----------------------------------------------------------------------------
 334
 335 bool wxButton::OS2Command(
 336   WXUINT                            uParam
 337 , WXWORD                            wId
 338 )
 339 {
 340     bool                            bProcessed = FALSE;
 341
 342     switch (uParam)
 343     {
 344         case BN_CLICKED:            // normal buttons send this
 345         case BN_DBLCLICKED:         // owner-drawn ones also send this
 346             bProcessed = SendClickEvent();
 347             break;
 348     }
 349     return bProcessed;
 350 } // end of wxButton::OS2Command
 351
 352 WXHBRUSH wxButton::OnCtlColor(
 353   WXHDC                             pDC
 354 , WXHWND                            pWnd
 355 , WXUINT                            nCtlColor
 356 , WXUINT                            uMessage
 357 , WXWPARAM                          wParam
 358 , WXLPARAM                          lParam
 359 )
 360 {
 361     wxBrush*                        pBackgroundBrush = wxTheBrushList->FindOrCreateBrush( GetBackgroundColour()
 362                                                                                          ,wxSOLID
 363                                                                                         );
 364
 365     return (WXHBRUSH)pBackgroundBrush->GetResourceHandle();
 366 } // end of wxButton::OnCtlColor
 367
 368 void wxButton::MakeOwnerDrawn()
 369 {
 370     long                            lStyle = 0L;
 371
 372     lStyle = ::WinQueryWindowULong(GetHwnd(), QWL_STYLE);
 373     if ((lStyle & BS_USERBUTTON) != BS_USERBUTTON)
 374     {
 375         //
 376         // Make it so
 377         //
 378         lStyle |= BS_USERBUTTON;
 379         ::WinSetWindowULong(GetHwnd(), QWL_STYLE, lStyle);
 380     }
 381 } // end of wxButton::MakeOwnerDrawn
 382
 383 WXDWORD wxButton::OS2GetStyle(
 384   long                              lStyle
 385 , WXDWORD*                          pdwExstyle
 386 ) const
 387 {
 388     //
 389     // Buttons never have an external border, they draw their own one
 390     //
 391     WXDWORD                         dwStyle = wxControl::OS2GetStyle( (lStyle & ~wxBORDER_MASK) | wxBORDER_NONE
 392                                                                      ,pdwExstyle
 393                                                                     );
 394
 395     //
 396     // We must use WS_CLIPSIBLINGS with the buttons or they would draw over
 397     // each other in any resizeable dialog which has more than one button in
 398     // the bottom
 399     //
 400     dwStyle |= WS_CLIPSIBLINGS;
 401     return dwStyle;
 402 } // end of wxButton::OS2GetStyle
 403
 404 MRESULT wxButton::WindowProc(
 405   WXUINT                            uMsg
 406 , WXWPARAM                          wParam
 407 , WXLPARAM                          lParam
 408 )
 409 {
 410     //
 411     // When we receive focus, we want to temporary become the default button in
 412     // our parent panel so that pressing "Enter" would activate us -- and when
 413     // losing it we should restore the previous default button as well
 414     //
 415     if (uMsg == WM_SETFOCUS)
 416     {
 417         if (SHORT1FROMMP(lParam) == TRUE)
 418             SetTmpDefault();
 419         else
 420             UnsetTmpDefault();
 421
 422         //
 423         // Let the default processign take place too
 424         //
 425     }
 426
 427     else if (uMsg == WM_BUTTON1DBLCLK)
 428     {
 429         //
 430         // Emulate a click event to force an owner-drawn button to change its
 431         // appearance - without this, it won't do it
 432         //
 433         (void)wxControl::OS2WindowProc( WM_BUTTON1DOWN
 434                                        ,wParam
 435                                        ,lParam
 436                                       );
 437
 438         //
 439         // And conitnue with processing the message normally as well
 440         //
 441     }
 442
 443     //
 444     // Let the base class do all real processing
 445     //
 446     return (wxControl::OS2WindowProc( uMsg
 447                                      ,wParam
 448                                      ,lParam
 449                                     ));
 450 } // end of wxWindowProc
 451