src/os2/tglbtn.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        src/os2/tglbtn.cpp
   3 // Purpose:     Definition of the wxToggleButton class, which implements a
   4 //              toggle button under wxMSW.
   5 // Author: John Norris, minor changes by Axel Schlueter
   6 // and William Gallafent.
   7 // Modified by:
   8 // Created:     08.02.01
   9 // RCS-ID:      $Id$
  10 // Copyright:   (c) 2000 Johnny C. Norris II
  11 // Licence:     wxWindows licence
  12 /////////////////////////////////////////////////////////////////////////////
  13
  14 // ============================================================================
  15 // declatations
  16 // ============================================================================
  17
  18 // ----------------------------------------------------------------------------
  19 // headers
  20 // ----------------------------------------------------------------------------
  21
  22 #include "wx/wxprec.h"
  23
  24 #ifdef __BORLANDC__
  25     #pragma hdrstop
  26 #endif
  27
  28 #if wxUSE_TOGGLEBTN
  29
  30 #include "wx/tglbtn.h"
  31
  32 #ifndef WX_PRECOMP
  33     #include "wx/button.h"
  34     #include "wx/brush.h"
  35     #include "wx/dcscreen.h"
  36     #include "wx/settings.h"
  37
  38     #include "wx/log.h"
  39 #endif // WX_PRECOMP
  40
  41 // ----------------------------------------------------------------------------
  42 // macros
  43 // ----------------------------------------------------------------------------
  44
  45 IMPLEMENT_DYNAMIC_CLASS(wxToggleButton, wxControl)
  46 wxDEFINE_EVENT( wxEVT_COMMAND_TOGGLEBUTTON_CLICKED, wxCommandEvent );
  47
  48 #define BUTTON_HEIGHT_FROM_CHAR_HEIGHT(cy) (11*EDIT_HEIGHT_FROM_CHAR_HEIGHT(cy)/10)
  49
  50 // ============================================================================
  51 // implementation
  52 // ============================================================================
  53
  54 // ----------------------------------------------------------------------------
  55 // wxToggleButton
  56 // ----------------------------------------------------------------------------
  57
  58 bool wxToggleButton::OS2Command(WXUINT WXUNUSED(param), WXWORD WXUNUSED(id))
  59 {
  60    wxCommandEvent event(wxEVT_COMMAND_TOGGLEBUTTON_CLICKED, m_windowId);
  61    event.SetInt(GetValue());
  62    event.SetEventObject(this);
  63    ProcessCommand(event);
  64    return true;
  65 }
  66
  67 // Single check box item
  68 bool wxToggleButton::Create(wxWindow *parent, wxWindowID id,
  69                             const wxString& label,
  70                             const wxPoint& pos,
  71                             const wxSize& size, long style,
  72                             const wxValidator& validator,
  73                             const wxString& name)
  74 {
  75     if ( !CreateControl(parent, id, pos, size, style, validator, name) )
  76         return false;
  77
  78     if ( !OS2CreateControl(wxT("BUTTON"), label, pos, size, 0) )
  79       return false;
  80
  81     return true;
  82 }
  83
  84 wxBorder wxToggleButton::GetDefaultBorder() const
  85 {
  86     return wxBORDER_NONE;
  87 }
  88
  89 WXDWORD wxToggleButton::OS2GetStyle(long style, WXDWORD *exstyle) const
  90 {
  91     WXDWORD msStyle = wxControl::OS2GetStyle(style, exstyle);
  92
  93 #ifndef BS_PUSHLIKE
  94 #define BS_PUSHLIKE 0x00001000L
  95 #endif
  96
  97     msStyle |= BS_AUTOCHECKBOX | BS_PUSHLIKE | WS_TABSTOP;
  98
  99     return msStyle;
 100 }
 101
 102 wxSize wxToggleButton::DoGetBestSize() const
 103 {
 104    wxString                         label = wxGetWindowText(GetHWND());
 105    int                              wBtn;
 106    wxFont                           vFont =  GetFont();
 107    int                              wChar;
 108    int                              hChar;
 109
 110    GetTextExtent(label, &wBtn, NULL);
 111
 112
 113    wxGetCharSize(GetHWND(), &wChar, &hChar, &vFont);
 114
 115    // add a margin - the button is wider than just its label
 116    wBtn += 3*wChar;
 117
 118    // the button height is proportional to the height of the font used
 119    int hBtn = BUTTON_HEIGHT_FROM_CHAR_HEIGHT(hChar);
 120
 121 #if wxUSE_BUTTON
 122    wxSize sz = wxButton::GetDefaultSize();
 123    if (wBtn > sz.x)
 124        sz.x = wBtn;
 125    if (hBtn > sz.y)
 126        sz.y = hBtn;
 127 #else
 128    wxSize sz(wBtn, hBtn);
 129 #endif
 130
 131    return sz;
 132 }
 133
 134 void wxToggleButton::SetValue(bool val)
 135 {
 136    ::WinSendMsg(GetHwnd(), BM_SETCHECK, MPFROMSHORT(val), (MPARAM)0);
 137 }
 138
 139 #ifndef BST_CHECKED
 140 #define BST_CHECKED 0x0001
 141 #endif
 142
 143 bool wxToggleButton::GetValue() const
 144 {
 145    return (::WinSendMsg(GetHwnd(), BM_QUERYCHECK, 0, 0) == (MRESULT)BST_CHECKED);
 146 }
 147
 148 void wxToggleButton::Command(wxCommandEvent & event)
 149 {
 150    SetValue((event.GetInt() != 0));
 151    ProcessCommand(event);
 152 }
 153
 154 #endif // wxUSE_TOGGLEBTN