X-Git-Url: https://git.saurik.com/wxWidgets.git/blobdiff_plain/0e320a79f187558effb04d92020b470372bbe456..13a5a49f36fee7a8afc237b2fe254a6db9663371:/src/os2/choice.cpp diff --git a/src/os2/choice.cpp b/src/os2/choice.cpp index a584d5303f..5e4d3e4ad2 100644 --- a/src/os2/choice.cpp +++ b/src/os2/choice.cpp @@ -1,119 +1,461 @@ ///////////////////////////////////////////////////////////////////////////// // Name: choice.cpp // Purpose: wxChoice -// Author: AUTHOR +// Author: David Webster // Modified by: -// Created: ??/??/98 +// Created: 10/13/99 // RCS-ID: $Id$ -// Copyright: (c) AUTHOR -// Licence: wxWindows licence +// Copyright: (c) David Webster +// Licence: wxWindows licence ///////////////////////////////////////////////////////////////////////////// -#ifdef __GNUG__ -#pragma implementation "choice.h" +// For compilers that support precompilation, includes "wx.h". +#include "wx/wxprec.h" + +#include "wx/defs.h" + +#if wxUSE_CHOICE + +#ifndef WX_PRECOMP + #include "wx/choice.h" + #include "wx/utils.h" + #include "wx/log.h" + #include "wx/settings.h" #endif -// For compilers that support precompilation, includes "wx.h". -#include "wx/choice.h" +#include "wx/os2/private.h" -#if !USE_SHARED_LIBRARY IMPLEMENT_DYNAMIC_CLASS(wxChoice, wxControl) -#endif -bool wxChoice::Create(wxWindow *parent, wxWindowID id, - const wxPoint& pos, - const wxSize& size, - int n, const wxString choices[], - long style, - const wxValidator& validator, - const wxString& name) +bool wxChoice::Create( + wxWindow* pParent +, wxWindowID vId +, const wxPoint& rPos +, const wxSize& rSize +, const wxArrayString& asChoices +, long lStyle +, const wxValidator& rValidator +, const wxString& rsName +) { - SetName(name); - SetValidator(validator); - m_noStrings = n; - m_windowStyle = style; + wxCArrayString chs(asChoices); - if (parent) parent->AddChild(this); + return Create(pParent, vId, rPos, rSize, chs.GetCount(), chs.GetStrings(), + lStyle, rValidator, rsName); +} - if ( id == -1 ) - m_windowId = (int)NewControlId(); - else - m_windowId = id; +bool wxChoice::Create( + wxWindow* pParent +, wxWindowID vId +, const wxPoint& rPos +, const wxSize& rSize +, int n +, const wxString asChoices[] +, long lStyle +, const wxValidator& rValidator +, const wxString& rsName +) +{ + long lSstyle; - // TODO: create choice control - return FALSE; -} + if (!CreateControl( pParent + ,vId + ,rPos + ,rSize + ,lStyle + ,rValidator + ,rsName + )) + return false; + lSstyle = CBS_DROPDOWNLIST | + WS_TABSTOP | + WS_VISIBLE; -void wxChoice::Append(const wxString& item) + if (lStyle & wxCLIP_SIBLINGS ) + lSstyle |= WS_CLIPSIBLINGS; + + wxASSERT_MSG( !(lStyle & wxCB_DROPDOWN) && + !(lStyle & wxCB_READONLY) && + !(lStyle & wxCB_SIMPLE), + wxT("this style flag is ignored by wxChoice, you " + "probably want to use a wxComboBox") ); + + if (!OS2CreateControl( wxT("COMBOBOX") + ,lSstyle + )) + return false; + + // + // A choice/combobox normally has a white background (or other, depending + // on global settings) rather than inheriting the parent's background colour. + // + SetBackgroundColour(wxSystemSettings::GetColour(wxSYS_COLOUR_WINDOW)); + for (int i = 0; i < n; i++) + { + Append(asChoices[i]); + } + wxFont* pTextFont = new wxFont( 10 + ,wxMODERN + ,wxNORMAL + ,wxNORMAL + ); + SetFont(*pTextFont); + SetSize( rPos.x + ,rPos.y + ,rSize.x + ,rSize.y + ); + delete pTextFont; + return true; +} // end of wxChoice::Create + +// ---------------------------------------------------------------------------- +// adding/deleting items to/from the list +// ---------------------------------------------------------------------------- + +int wxChoice::DoAppend( + const wxString& rsItem +) { - // TODO - m_noStrings ++; -} + int nIndex; + LONG nIndexType = 0; + + if (m_windowStyle & wxLB_SORT) + nIndexType = LIT_SORTASCENDING; + else + nIndexType = LIT_END; + nIndex = (int)::WinSendMsg( GetHwnd() + ,LM_INSERTITEM + ,(MPARAM)nIndexType + ,(MPARAM)rsItem.c_str() + ); + return nIndex; +} // end of wxChoice::DoAppend -void wxChoice::Delete(int n) +int wxChoice::DoInsert( + const wxString& rsItem, + int pos +) { - // TODO - m_noStrings --; -} + wxCHECK_MSG(!(GetWindowStyle() & wxCB_SORT), -1, wxT("can't insert into sorted list")); + wxCHECK_MSG((pos>=0) && (pos<=GetCount()), -1, wxT("invalid index")); + + if (pos == GetCount()) + return DoAppend(rsItem); + + int nIndex; + LONG nIndexType = 0; + + if (m_windowStyle & wxLB_SORT) + nIndexType = LIT_SORTASCENDING; + else + nIndexType = pos; + nIndex = (int)::WinSendMsg( GetHwnd() + ,LM_INSERTITEM + ,(MPARAM)nIndexType + ,(MPARAM)rsItem.c_str() + ); + return nIndex; +} // end of wxChoice::DoInsert + +void wxChoice::Delete( + int n +) +{ + wxCHECK_RET( n < GetCount(), wxT("invalid item index in wxChoice::Delete") ); + ::WinSendMsg(GetHwnd(), LM_DELETEITEM, (MPARAM)n, (MPARAM)0); +} // end of wxChoice::Delete void wxChoice::Clear() { - // TODO - m_noStrings = 0; -} + Free(); + ::WinSendMsg(GetHwnd(), LM_DELETEALL, (MPARAM)0, (MPARAM)0); +} // end of wxChoice::Clear + +// ---------------------------------------------------------------------------- +// selection +// ---------------------------------------------------------------------------- int wxChoice::GetSelection() const { - // TODO - return 0; -} + return((int)LONGFROMMR(::WinSendMsg(GetHwnd(), LM_QUERYSELECTION, (MPARAM)LIT_FIRST, (MPARAM)0))); +} // end of wxChoice::GetSelection -void wxChoice::SetSelection(int n) +void wxChoice::SetSelection( + int n +) { - // TODO -} + ::WinSendMsg( GetHwnd() + ,LM_SELECTITEM + ,(MPARAM)n + ,(MPARAM)TRUE + ); +} // end of wxChoice::SetSelection -int wxChoice::FindString(const wxString& s) const -{ - // TODO - return 0; -} +// ---------------------------------------------------------------------------- +// string list functions +// ---------------------------------------------------------------------------- -wxString wxChoice::GetString(int n) const +int wxChoice::GetCount() const { - // TODO - return wxString(""); -} + return((int)LONGFROMMR(::WinSendMsg(GetHwnd(), LM_QUERYITEMCOUNT, (MPARAM)0, (MPARAM)0))); +} // end of wxChoice::GetCount -void wxChoice::SetSize(int x, int y, int width, int height, int sizeFlags) +int wxChoice::FindString( + const wxString& rsStr +) const { - // TODO -} + int nPos; + int nTextLength; + PSZ zStr; + int nItemCount; -wxString wxChoice::GetStringSelection () const + nItemCount = (int)LONGFROMMR(::WinSendMsg(GetHwnd(), LM_QUERYITEMCOUNT, (MPARAM)0, (MPARAM)0)); + for (nPos = 0; nPos < nItemCount; nPos++) + { + nTextLength = (int)LONGFROMMR(::WinSendMsg(GetHwnd(), LM_QUERYITEMTEXTLENGTH, (MPARAM)nPos, (MPARAM)0)); + zStr = new char[nTextLength + 1]; + ::WinSendMsg(GetHwnd(), LM_QUERYITEMTEXT, MPFROM2SHORT((SHORT)nPos, (SHORT)nTextLength), (MPARAM)zStr); + if (rsStr == (char*)zStr) + { + delete [] zStr; + break; + } + delete [] zStr; + } + return nPos; +} // end of wxChoice::FindString + +void wxChoice::SetString( + int n +, const wxString& rsStr +) { - int sel = GetSelection (); - if (sel > -1) - return wxString(this->GetString (sel)); + LONG nIndexType = 0; + void* pData; + + if ( m_clientDataItemsType != wxClientData_None ) + { + pData = DoGetItemClientData(n); + } + else // no client data + { + pData = NULL; + } + + ::WinSendMsg(GetHwnd(), LM_DELETEITEM, (MPARAM)n, 0); + + if (m_windowStyle & wxLB_SORT) + nIndexType = LIT_SORTASCENDING; else - return wxString(""); -} + nIndexType = LIT_END; + ::WinSendMsg( GetHwnd() + ,LM_INSERTITEM + ,(MPARAM)nIndexType + ,(MPARAM)rsStr.c_str() + ); + + if (pData) + { + DoSetItemClientData( n + ,pData + ); + } +} // end of wxChoice::SetString -bool wxChoice::SetStringSelection (const wxString& s) +wxString wxChoice::GetString( + int n +) const { - int sel = FindString (s); - if (sel > -1) - { - SetSelection (sel); - return TRUE; - } - else - return FALSE; -} + int nLen = 0; + wxString sStr = ""; + char* zBuf; + + nLen = (size_t)LONGFROMMR(::WinSendMsg(GetHwnd(), LM_QUERYITEMTEXTLENGTH, (MPARAM)n, (MPARAM)0)); + if (nLen != LIT_ERROR && nLen > 0) + { + zBuf = new char[nLen + 1]; + ::WinSendMsg( GetHwnd() + ,LM_QUERYITEMTEXT + ,MPFROM2SHORT((SHORT)n, (SHORT)nLen) + ,(MPARAM)zBuf + ); + sStr = zBuf; + delete [] zBuf; + } + return sStr; +} // end of wxChoice::GetString + +// ---------------------------------------------------------------------------- +// client data +// ---------------------------------------------------------------------------- -void wxChoice::Command(wxCommandEvent & event) +void wxChoice::DoSetItemClientData( + int n +, void* pClientData +) { - SetSelection (event.GetInt()); - ProcessCommand (event); -} + ::WinSendMsg(GetHwnd(), LM_SETITEMHANDLE, (MPARAM)n, MPFROMP(pClientData)); +} // end of wxChoice::DoSetItemClientData + +void* wxChoice::DoGetItemClientData( int n ) const +{ + MRESULT rc = 0L; + + rc = ::WinSendMsg(GetHwnd(), LM_QUERYITEMHANDLE, (MPARAM)n, (MPARAM)0); + return((void*)rc); +} // end of wxChoice::DoSetItemClientData + +void wxChoice::DoSetItemClientObject( + int n +, wxClientData* pClientData +) +{ + DoSetItemClientData( n + ,pClientData + ); +} // end of wxChoice::DoSetItemClientObject + +wxClientData* wxChoice::DoGetItemClientObject( + int n +) const +{ + return (wxClientData *)DoGetItemClientData(n); +} // end of wxChoice::DoGetItemClientObject + +// ---------------------------------------------------------------------------- +// wxOS2 specific helpers +// ---------------------------------------------------------------------------- + +void wxChoice::DoSetSize( + int nX +, int nY +, int nWidth +, int nHeight +, int nSizeFlags +) +{ + // + // Ignore height parameter because height doesn't mean 'initially + // displayed' height, it refers to the drop-down menu as well. The + // wxWidgets interpretation is different; also, getting the size returns + // the _displayed_ size (NOT the drop down menu size) so + // setting-getting-setting size would not work. + // + wxControl::DoSetSize( nX + ,nY + ,nWidth + ,-1 + ,nSizeFlags + ); +} // end of wxChoice::DoSetSize + +wxSize wxChoice::DoGetBestSize() const +{ + // + // Find the widest string + // + int nLineWidth; + int nChoiceWidth = 0; + int nItems = GetCount(); + int nCx; + int nCy; + + for (int i = 0; i < nItems; i++) + { + wxString sStr(GetString(i)); + + GetTextExtent( sStr + ,&nLineWidth + ,NULL + ); + if (nLineWidth > nChoiceWidth) + nChoiceWidth = nLineWidth; + } + + // + // Give it some reasonable default value if there are no strings in the + // list + // + if (nChoiceWidth == 0L) + nChoiceWidth = 100L; + + // + // The combobox should be larger than the widest string + // + wxGetCharSize( GetHWND() + ,&nCx + ,&nCy + ,(wxFont*)&GetFont() + ); + nChoiceWidth += 5 * nCx; + + // + // Choice drop-down list depends on number of items (limited to 10) + // + size_t nStrings = nItems == 0 ? 10 : wxMin(10, nItems) + 1; + int nChoiceHeight = EDIT_HEIGHT_FROM_CHAR_HEIGHT(nCy) * nStrings; + + return wxSize( nChoiceWidth + ,nChoiceHeight + ); +} // end of wxChoice::DoGetBestSize + +MRESULT wxChoice::OS2WindowProc( + WXUINT uMsg +, WXWPARAM wParam +, WXLPARAM lParam +) +{ + return wxWindow::OS2WindowProc( uMsg + ,wParam + ,lParam + ); +} // end of wxChoice::OS2WindowProc + +bool wxChoice::OS2Command( + WXUINT uParam +, WXWORD WXUNUSED(wId) +) +{ + if (uParam != LN_SELECT) + { + // + // "selection changed" is the only event we're after + // + return false; + } + int n = GetSelection(); + + if (n > -1) + { + wxCommandEvent vEvent( wxEVT_COMMAND_CHOICE_SELECTED + ,m_windowId + ); + + vEvent.SetInt(n); + vEvent.SetEventObject(this); + vEvent.SetString((char*)GetStringSelection().c_str()); + if (HasClientObjectData()) + vEvent.SetClientObject(GetClientObject(n)); + else if (HasClientUntypedData()) + vEvent.SetClientData(GetClientData(n)); + ProcessCommand(vEvent); + } + return true; +} // end of wxChoice::OS2Command + +void wxChoice::Free() +{ + if (HasClientObjectData()) + { + size_t nCount = GetCount(); + + for (size_t n = 0; n < nCount; n++) + { + delete GetClientObject(n); + } + } +} // end of wxChoice::Free +#endif // wxUSE_CHOICE