src/os2/button.cpp

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