X-Git-Url: https://git.saurik.com/wxWidgets.git/blobdiff_plain/ad81651f00edc6f489d9b6a0839d316a964fd521..caf448e3e19c0fcd6593e47138fe31a82e8c8a8d:/src/os2/button.cpp diff --git a/src/os2/button.cpp b/src/os2/button.cpp index cecadf63ee..d75aa8258a 100644 --- a/src/os2/button.cpp +++ b/src/os2/button.cpp @@ -13,58 +13,123 @@ #include "wx/wxprec.h" #ifndef WX_PRECOMP + #include "wx/app.h" #include "wx/button.h" #include "wx/brush.h" #include "wx/panel.h" #include "wx/bmpbuttn.h" #include "wx/settings.h" #include "wx/dcscreen.h" + #include "wx/scrolwin.h" #endif +#include "wx/stockitem.h" #include "wx/os2/private.h" +#define BUTTON_HEIGHT_FROM_CHAR_HEIGHT(cy) (11*EDIT_HEIGHT_FROM_CHAR_HEIGHT(cy)/10) + +// +// Should be at the very least less than winDEFAULT_BUTTON_MARGIN +// +#define FOCUS_MARGIN 3 + +#ifndef BST_CHECKED +#define BST_CHECKED 0x0001 +#endif + IMPLEMENT_DYNAMIC_CLASS(wxButton, wxControl) // Button -bool wxButton::Create(wxWindow *parent, wxWindowID id, const wxString& label, - const wxPoint& pos, - const wxSize& size, long style, -#if wxUSE_VALIDATORS - const wxValidator& validator, -#endif - const wxString& name) +bool wxButton::Create( + wxWindow* pParent +, wxWindowID vId +, const wxString& rsLbl +, const wxPoint& rPos +, const wxSize& rSize +, long lStyle +, const wxValidator& rValidator +, const wxString& rsName +) { - SetName(name); -#if wxUSE_VALIDATORS - SetValidator(validator); -#endif - m_windowStyle = style; + wxString rsLabel(rsLbl); + if (rsLabel.empty() && wxIsStockID(vId)) + rsLabel = wxGetStockLabel(vId); - parent->AddChild((wxButton *)this); + wxString sLabel = ::wxPMTextToLabel(rsLabel); - if (id == -1) + SetName(rsName); +#if wxUSE_VALIDATORS + SetValidator(rValidator); +#endif + m_windowStyle = lStyle; + pParent->AddChild((wxButton *)this); + if (vId == -1) m_windowId = NewControlId(); else - m_windowId = id; - - // TODO: create button + m_windowId = vId; + lStyle = WS_VISIBLE | WS_TABSTOP | BS_PUSHBUTTON; + + // + // OS/2 PM does not have Right/Left/Top/Bottom styles. + // We will have to define an additional style when we implement notebooks + // for a notebook page button + // + if (m_windowStyle & wxCLIP_SIBLINGS ) + lStyle |= WS_CLIPSIBLINGS; + + m_hWnd = (WXHWND)::WinCreateWindow( GetHwndOf(pParent) // Parent handle + ,WC_BUTTON // A Button class window + ,(PSZ)sLabel.c_str() // Button text + ,lStyle // Button style + ,0, 0, 0, 0 // Location and size + ,GetHwndOf(pParent) // Owner handle + ,HWND_TOP // Top of Z-Order + ,vId // Identifier + ,NULL // No control data + ,NULL // No Presentation parameters + ); + if (m_hWnd == 0) + { + return FALSE; + } - return FALSE; -} + // + // Subclass again for purposes of dialog editing mode + // + SubclassWin(m_hWnd); + wxFont* pButtonFont = new wxFont( 8 + ,wxSWISS + ,wxNORMAL + ,wxNORMAL + ); + SetFont(*pButtonFont); + SetXComp(0); + SetYComp(0); + SetSize( rPos.x + ,rPos.y + ,rSize.x + ,rSize.y + ); + delete pButtonFont; + return TRUE; +} // end of wxButton::Create wxButton::~wxButton() { - wxPanel *panel = wxDynamicCast(GetParent(), wxPanel); - if ( panel ) + wxPanel* pPanel = wxDynamicCast(GetParent(), wxPanel); + + if (pPanel) { - if ( panel->GetDefaultItem() == this ) + if (pPanel->GetDefaultItem() == this) { - // don't leave the panel with invalid default item - panel->SetDefaultItem(NULL); + // + // Don't leave the panel with invalid default item + // + pPanel->SetDefaultItem(NULL); } } -} +} // end of wxButton::~wxButton // ---------------------------------------------------------------------------- // size management including autosizing @@ -72,33 +137,66 @@ wxButton::~wxButton() wxSize wxButton::DoGetBestSize() const { - wxString label = wxGetWindowText(GetHWND()); - int wBtn; - GetTextExtent(label, &wBtn, NULL); - - int wChar, hChar; - wxGetCharSize(GetHWND(), &wChar, &hChar, (wxFont*)&GetFont()); - - // add a margin - the button is wider than just its label - wBtn += 3*wChar; - - // the button height is proportional to the height of the font used - int hBtn = 0;// TODO: BUTTON_HEIGHT_FROM_CHAR_HEIGHT(hChar); + wxString rsLabel = wxGetWindowText(GetHWND()); + int nWidthButton; + int nWidthChar; + int nHeightChar; + wxFont vFont = (wxFont)GetFont(); + + GetTextExtent( rsLabel + ,&nWidthButton + ,NULL + ); + + wxGetCharSize( GetHWND() + ,&nWidthChar + ,&nHeightChar + ,&vFont + ); + + // + // Add a margin - the button is wider than just its label + // + nWidthButton += 3 * nWidthChar; + + // + // The button height is proportional to the height of the font used + // + int nHeightButton = BUTTON_HEIGHT_FROM_CHAR_HEIGHT(nHeightChar); + + // + // Need a little extra to make it look right + // + nHeightButton += (int)(nHeightChar/1.5); + + if (!HasFlag(wxBU_EXACTFIT)) + { + wxSize vSize = GetDefaultSize(); - return wxSize(wBtn, hBtn); -} + if (nWidthButton > vSize.x) + vSize.x = nWidthButton; + if (nHeightButton > vSize.y) + vSize.y = nHeightButton; + return vSize; + } + return wxSize( nWidthButton + ,nHeightButton + ); +} // end of wxButton::DoGetBestSize /* static */ wxSize wxButton::GetDefaultSize() { - static wxSize s_sizeBtn; + static wxSize vSizeBtn; - if ( s_sizeBtn.x == 0 ) + if (vSizeBtn.x == 0) { - wxScreenDC dc; - dc.SetFont(wxSystemSettings::GetSystemFont(wxSYS_DEFAULT_GUI_FONT)); + wxScreenDC vDc; - // the size of a standard button in the dialog units is 50x14, + vDc.SetFont(wxSystemSettings::GetFont(wxSYS_DEFAULT_GUI_FONT)); + + // + // The size of a standard button in the dialog units is 50x14, // translate this to pixels // NB1: the multipliers come from the Windows convention // NB2: the extra +1/+2 were needed to get the size be the same as the @@ -106,17 +204,18 @@ wxSize wxButton::GetDefaultSize() // this happens, but on my system this size is 75x23 in pixels and // 23*8 isn't even divisible by 14... Would be nice to understand // why these constants are needed though! - s_sizeBtn.x = (50 * (dc.GetCharWidth() + 1))/4; - s_sizeBtn.y = ((14 * dc.GetCharHeight()) + 2)/8; + vSizeBtn.x = (50 * (vDc.GetCharWidth() + 1))/4; + vSizeBtn.y = ((14 * vDc.GetCharHeight()) + 2)/8; } + return vSizeBtn; +} // end of wxButton::GetDefaultSize - return s_sizeBtn; -} - -void wxButton::Command (wxCommandEvent & event) +void wxButton::Command ( + wxCommandEvent& rEvent +) { - ProcessCommand (event); -} + ProcessCommand (rEvent); +} // end of wxButton::Command // ---------------------------------------------------------------------------- // helpers @@ -124,53 +223,236 @@ void wxButton::Command (wxCommandEvent & event) bool wxButton::SendClickEvent() { - wxCommandEvent event(wxEVT_COMMAND_BUTTON_CLICKED, GetId()); - event.SetEventObject(this); + wxCommandEvent vEvent( wxEVT_COMMAND_BUTTON_CLICKED + ,GetId() + ); - return ProcessCommand(event); -} + vEvent.SetEventObject(this); + return ProcessCommand(vEvent); +} // end of wxButton::SendClickEvent void wxButton::SetDefault() { - wxWindow *parent = GetParent(); - wxButton *btnOldDefault = NULL; - wxPanel *panel = wxDynamicCast(parent, wxPanel); - if (panel) - panel->SetDefaultItem(this); + wxWindow* pParent = GetParent(); + + wxCHECK_RET( pParent, _T("button without parent?") ); + + // + // Set this one as the default button both for wxWidgets and Windows + // + wxWindow* pWinOldDefault = pParent->SetDefaultItem(this); + + SetDefaultStyle( wxDynamicCast(pWinOldDefault, wxButton) + ,FALSE + ); + SetDefaultStyle( this + ,TRUE + ); +} // end of wxButton::SetDefault + +void wxButton::SetTmpDefault() +{ + wxWindow* pParent = GetParent(); + + wxCHECK_RET( pParent, _T("button without parent?") ); + + wxWindow* pWinOldDefault = pParent->GetDefaultItem(); + + pParent->SetTmpDefaultItem(this); + SetDefaultStyle( wxDynamicCast(pWinOldDefault, wxButton) + ,FALSE + ); + SetDefaultStyle( this + ,TRUE + ); +} // end of wxButton::SetTmpDefault + +void wxButton::UnsetTmpDefault() +{ + wxWindow* pParent = GetParent(); + + wxCHECK_RET( pParent, _T("button without parent?") ); + + pParent->SetTmpDefaultItem(NULL); - // TODO: make button the default -} + wxWindow* pWinOldDefault = pParent->GetDefaultItem(); + + SetDefaultStyle( this + ,FALSE + ); + SetDefaultStyle( wxDynamicCast(pWinOldDefault, wxButton) + ,TRUE + ); +} // end of wxButton::UnsetTmpDefault + +void wxButton::SetDefaultStyle( + wxButton* pBtn +, bool bOn +) +{ + long lStyle; + // + // We may be called with NULL pointer -- simpler to do the check here than + // in the caller which does wxDynamicCast() + // + if (!pBtn) + return; + + // + // First, let DefDlgProc() know about the new default button + // + if (bOn) + { + if (!wxTheApp->IsActive()) + return; + + // + // In OS/2 the dialog/panel doesn't really know it has a default + // button, the default button simply has that style. We'll just + // simulate by setting focus to it + // + pBtn->SetFocus(); + } + lStyle = ::WinQueryWindowULong(GetHwndOf(pBtn), QWL_STYLE); + if (!(lStyle & BS_DEFAULT) == bOn) + { + if ((lStyle & BS_USERBUTTON) != BS_USERBUTTON) + { + if (bOn) + lStyle |= BS_DEFAULT; + else + lStyle &= ~BS_DEFAULT; + ::WinSetWindowULong(GetHwndOf(pBtn), QWL_STYLE, lStyle); + } + else + { + // + // Redraw the button - it will notice itself that it's not the + // default one any longer + // + pBtn->Refresh(); + } + } +} // end of wxButton::UpdateDefaultStyle // ---------------------------------------------------------------------------- // event/message handlers // ---------------------------------------------------------------------------- -bool wxButton::OS2Command(WXUINT param, WXWORD id) +bool wxButton::OS2Command( + WXUINT uParam +, WXWORD wId +) { - bool processed = FALSE; - // TODO - /* - switch ( param ) + bool bProcessed = FALSE; + + switch (uParam) { - case 1: // 1 for accelerator - case BN_CLICKED: - processed = SendClickEvent(); + case BN_CLICKED: // normal buttons send this + case BN_DBLCLICKED: // owner-drawn ones also send this + bProcessed = SendClickEvent(); break; } - */ - return processed; -} - -WXHBRUSH wxButton::OnCtlColor(WXHDC pDC, - WXHWND pWnd, - WXUINT nCtlColor, - WXUINT message, - WXWPARAM wParam, - WXLPARAM lParam) + return bProcessed; +} // end of wxButton::OS2Command + +WXHBRUSH wxButton::OnCtlColor( + WXHDC pDC +, WXHWND pWnd +, WXUINT nCtlColor +, WXUINT uMessage +, WXWPARAM wParam +, WXLPARAM lParam +) +{ + wxBrush* pBackgroundBrush = wxTheBrushList->FindOrCreateBrush( GetBackgroundColour() + ,wxSOLID + ); + + return (WXHBRUSH)pBackgroundBrush->GetResourceHandle(); +} // end of wxButton::OnCtlColor + +void wxButton::MakeOwnerDrawn() +{ + long lStyle = 0L; + + lStyle = ::WinQueryWindowULong(GetHwnd(), QWL_STYLE); + if ((lStyle & BS_USERBUTTON) != BS_USERBUTTON) + { + // + // Make it so + // + lStyle |= BS_USERBUTTON; + ::WinSetWindowULong(GetHwnd(), QWL_STYLE, lStyle); + } +} // end of wxButton::MakeOwnerDrawn + +WXDWORD wxButton::OS2GetStyle( + long lStyle +, WXDWORD* pdwExstyle +) const { - wxBrush *backgroundBrush = wxTheBrushList->FindOrCreateBrush(GetBackgroundColour(), wxSOLID); + // + // Buttons never have an external border, they draw their own one + // + WXDWORD dwStyle = wxControl::OS2GetStyle( (lStyle & ~wxBORDER_MASK) | wxBORDER_NONE + ,pdwExstyle + ); + + // + // We must use WS_CLIPSIBLINGS with the buttons or they would draw over + // each other in any resizeable dialog which has more than one button in + // the bottom + // + dwStyle |= WS_CLIPSIBLINGS; + return dwStyle; +} // end of wxButton::OS2GetStyle + +MRESULT wxButton::WindowProc( + WXUINT uMsg +, WXWPARAM wParam +, WXLPARAM lParam +) +{ + // + // When we receive focus, we want to temporary become the default button in + // our parent panel so that pressing "Enter" would activate us -- and when + // losing it we should restore the previous default button as well + // + if (uMsg == WM_SETFOCUS) + { + if (SHORT1FROMMP(lParam) == TRUE) + SetTmpDefault(); + else + UnsetTmpDefault(); + + // + // Let the default processign take place too + // + } - return (WXHBRUSH) backgroundBrush->GetResourceHandle(); -} + else if (uMsg == WM_BUTTON1DBLCLK) + { + // + // Emulate a click event to force an owner-drawn button to change its + // appearance - without this, it won't do it + // + (void)wxControl::OS2WindowProc( WM_BUTTON1DOWN + ,wParam + ,lParam + ); + + // + // And conitnue with processing the message normally as well + // + } + // + // Let the base class do all real processing + // + return (wxControl::OS2WindowProc( uMsg + ,wParam + ,lParam + )); +} // end of wxWindowProc