X-Git-Url: https://git.saurik.com/wxWidgets.git/blobdiff_plain/fb9010ed40454cc978a9cbaa6de2ee41ea8b6c84..19e30148e18cc99296b26503c155e5cef59045f4:/src/os2/listbox.cpp diff --git a/src/os2/listbox.cpp b/src/os2/listbox.cpp index a3df98c3cf..d23bedc512 100644 --- a/src/os2/listbox.cpp +++ b/src/os2/listbox.cpp @@ -22,6 +22,7 @@ #include "wx/font.h" #include "wx/dc.h" #include "wx/utils.h" +#include "wx/scrolwin.h" #endif #define INCL_M @@ -30,13 +31,13 @@ #include "wx/dynarray.h" #include "wx/log.h" +#if wxUSE_LISTBOX + #if wxUSE_OWNER_DRAWN #include "wx/ownerdrw.h" #endif -#if !USE_SHARED_LIBRARY IMPLEMENT_DYNAMIC_CLASS(wxListBox, wxControl) -#endif // ============================================================================ // list box item declaration and implementation @@ -47,19 +48,28 @@ class wxListBoxItem : public wxOwnerDrawn { public: - wxListBoxItem(const wxString& str = ""); + wxListBoxItem(const wxString& rsStr = ""); }; -wxListBoxItem::wxListBoxItem(const wxString& str) : wxOwnerDrawn(str, FALSE) +wxListBoxItem::wxListBoxItem( + const wxString& rsStr +) +: wxOwnerDrawn( rsStr + ,FALSE + ) { - // no bitmaps/checkmarks + // + // No bitmaps/checkmarks + // SetMarginWidth(0); -} +} // end of wxListBoxItem::wxListBoxItem -wxOwnerDrawn *wxListBox::CreateItem(size_t n) +wxOwnerDrawn* wxListBox::CreateItem( + size_t n +) { return new wxListBoxItem(); -} +} // end of wxListBox::CreateItem #endif //USE_OWNER_DRAWN @@ -67,675 +77,742 @@ wxOwnerDrawn *wxListBox::CreateItem(size_t n) // list box control implementation // ============================================================================ -bool wxListBox::OS2Command(WXUINT param, WXWORD WXUNUSED(id)) -{ -/* - if (param == LBN_SELCHANGE) - { - wxCommandEvent event(wxEVT_COMMAND_LISTBOX_SELECTED, m_windowId); - wxArrayInt aSelections; - int count = GetSelections(aSelections); - if ( count > 0 ) - { - event.m_commandInt = aSelections[0] ; - event.m_clientData = GetClientData(event.m_commandInt); - wxString str(GetString(event.m_commandInt)); - if (str != wxT("")) - { - event.m_commandString = str; - } - } - else - { - event.m_commandInt = -1 ; - event.m_commandString.Empty(); - } - - event.SetEventObject( this ); - ProcessCommand(event); - return TRUE; - } - else if (param == LBN_DBLCLK) - { - wxCommandEvent event(wxEVT_COMMAND_LISTBOX_DOUBLECLICKED, m_windowId); - event.SetEventObject( this ); - GetEventHandler()->ProcessEvent(event) ; - return TRUE; - } -*/ - return FALSE; -} // Listbox item wxListBox::wxListBox() { - m_noItems = 0; - m_selected = 0; -} - -bool wxListBox::Create(wxWindow *parent, wxWindowID id, - const wxPoint& pos, - const wxSize& size, - int n, const wxString choices[], - long style, - const wxValidator& validator, - const wxString& name) + m_nNumItems = 0; + m_nSelected = 0; +} // end of wxListBox::wxListBox + +bool wxListBox::Create( + wxWindow* pParent +, wxWindowID vId +, const wxPoint& rPos +, const wxSize& rSize +, int n +, const wxString asChoices[] +, long lStyle +#if wxUSE_VALIDATORS +, const wxValidator& rValidator +#endif +, const wxString& rsName +) { - m_noItems = n; - m_hWnd = 0; - m_selected = 0; + m_nNumItems = 0; + m_hWnd = 0; + m_nSelected = 0; + + SetName(rsName); +#if wxUSE_VALIDATORS + SetValidator(rValidator); +#endif - SetName(name); - SetValidator(validator); + if (pParent) + pParent->AddChild(this); - if (parent) parent->AddChild(this); + wxSystemSettings vSettings; - wxSystemSettings settings; - SetBackgroundColour(wxSystemSettings::GetSystemColour(wxSYS_COLOUR_WINDOW)); - SetForegroundColour(parent->GetForegroundColour()); + SetBackgroundColour(vSettings.GetSystemColour(wxSYS_COLOUR_WINDOW)); + SetForegroundColour(pParent->GetForegroundColour()); - m_windowId = ( id == -1 ) ? (int)NewControlId() : id; + m_windowId = (vId == -1) ? (int)NewControlId() : vId; - int x = pos.x; - int y = pos.y; - int width = size.x; - int height = size.y; - m_windowStyle = style; + int nX = rPos.x; + int nY = rPos.y; + int nWidth = rSize.x; + int nHeight = rSize.y; - // TODO create listbox -/* - DWORD wstyle = WS_VISIBLE | WS_VSCROLL | WS_TABSTOP | - LBS_NOTIFY | LBS_HASSTRINGS; + m_windowStyle = lStyle; + + lStyle = WS_VISIBLE; + + if (m_windowStyle & wxCLIP_SIBLINGS ) + lStyle |= WS_CLIPSIBLINGS; if (m_windowStyle & wxLB_MULTIPLE) - wstyle |= LBS_MULTIPLESEL; + lStyle |= LS_MULTIPLESEL; else if (m_windowStyle & wxLB_EXTENDED) - wstyle |= LBS_EXTENDEDSEL; - - if (m_windowStyle & wxLB_ALWAYS_SB) - wstyle |= LBS_DISABLENOSCROLL ; + lStyle |= LS_EXTENDEDSEL; if (m_windowStyle & wxLB_HSCROLL) - wstyle |= WS_HSCROLL; - if (m_windowStyle & wxLB_SORT) - wstyle |= LBS_SORT; - -#if wxUSE_OWNER_DRAWN - if ( m_windowStyle & wxLB_OWNERDRAW ) { - // we don't support LBS_OWNERDRAWVARIABLE yet - wstyle |= LBS_OWNERDRAWFIXED; - } -#endif + lStyle |= LS_HORZSCROLL; + if (m_windowStyle & wxLB_OWNERDRAW) + lStyle |= LS_OWNERDRAW; + // // Without this style, you get unexpected heights, so e.g. constraint layout // doesn't work properly - wstyle |= LBS_NOINTEGRALHEIGHT; - - bool want3D; - WXDWORD exStyle = Determine3DEffects(WS_EX_CLIENTEDGE, &want3D) ; - - // Even with extended styles, need to combine with WS_BORDER - // for them to look right. - if ( want3D || wxStyleHasBorder(m_windowStyle) ) + // + lStyle |= LS_NOADJUSTPOS; + + m_hWnd = (WXHWND)::WinCreateWindow( GetWinHwnd(pParent) // Parent + ,WC_LISTBOX // Default Listbox class + ,"LISTBOX" // Control's name + ,lStyle // Initial Style + ,0, 0, 0, 0 // Position and size + ,GetWinHwnd(pParent) // Owner + ,HWND_TOP // Z-Order + ,(HMENU)m_windowId // Id + ,NULL // Control Data + ,NULL // Presentation Parameters + ); + if (m_hWnd == 0) { - wstyle |= WS_BORDER; + return FALSE; } - m_hWnd = (WXHWND)::CreateWindowEx(exStyle, wxT("LISTBOX"), NULL, - wstyle | WS_CHILD, - 0, 0, 0, 0, - (HWND)parent->GetHWND(), (HMENU)m_windowId, - wxGetInstance(), NULL); - -#if wxUSE_CTL3D - if (want3D) - { - Ctl3dSubclassCtl(GetHwnd()); - m_useCtl3D = TRUE; - } -#endif - - // Subclass again to catch messages + // + // Subclass again for purposes of dialog editing mode + // SubclassWin(m_hWnd); - size_t ui; - for (ui = 0; ui < (size_t)n; ui++) { - Append(choices[ui]); - } - - if ( (m_windowStyle & wxLB_MULTIPLE) == 0 ) - SendMessage(GetHwnd(), LB_SETCURSEL, 0, 0); + LONG lUi; - SetFont(parent->GetFont()); - - SetSize(x, y, width, height); - - Show(TRUE); -*/ - - return FALSE; -} + for (lUi = 0; lUi < (LONG)n; lUi++) + { + Append(asChoices[lUi]); + } + wxFont* pTextFont = new wxFont( 10 + ,wxMODERN + ,wxNORMAL + ,wxNORMAL + ); + SetFont(*pTextFont); + + // + // Set standard wxWindows colors for Listbox items and highlighting + // + wxColour vColour; + + vColour.Set(wxString("WHITE")); + + LONG lColor = (LONG)vColour.GetPixel(); + + ::WinSetPresParam( m_hWnd + ,PP_HILITEFOREGROUNDCOLOR + ,sizeof(LONG) + ,(PVOID)&lColor + ); + vColour.Set(wxString("NAVY")); + lColor = (LONG)vColour.GetPixel(); + ::WinSetPresParam( m_hWnd + ,PP_HILITEBACKGROUNDCOLOR + ,sizeof(LONG) + ,(PVOID)&lColor + ); + + SetSize( nX + ,nY + ,nWidth + ,nHeight + ); + delete pTextFont; + return TRUE; +} // end of wxListBox::Create wxListBox::~wxListBox() { #if wxUSE_OWNER_DRAWN - size_t uiCount = m_aItems.Count(); - while ( uiCount-- != 0 ) { - delete m_aItems[uiCount]; + size_t lUiCount = m_aItems.Count(); + + while (lUiCount-- != 0) + { + delete m_aItems[lUiCount]; } #endif // wxUSE_OWNER_DRAWN -} +} // end of wxListBox::~wxListBox void wxListBox::SetupColours() { - SetBackgroundColour(wxSystemSettings::GetSystemColour(wxSYS_COLOUR_WINDOW)); + SetBackgroundColour(wxSystemSettings::GetColour(wxSYS_COLOUR_WINDOW)); SetForegroundColour(GetParent()->GetForegroundColour()); -} +} // end of wxListBox::SetupColours -void wxListBox::SetFirstItem(int N) -{ - wxCHECK_RET( N >= 0 && N < m_noItems, - wxT("invalid index in wxListBox::SetFirstItem") ); +// ---------------------------------------------------------------------------- +// implementation of wxListBoxBase methods +// ---------------------------------------------------------------------------- - // TODO SendMessage(GetHwnd(),LB_SETTOPINDEX,(WPARAM)N,(LPARAM)0) ; -} - -void wxListBox::SetFirstItem(const wxString& s) +void wxListBox::DoSetFirstItem( + int N +) { - int N = FindString(s) ; + wxCHECK_RET( N >= 0 && N < m_nNumItems, + wxT("invalid index in wxListBox::SetFirstItem") ); - if ( N >= 0 ) - SetFirstItem(N) ; -} + ::WinSendMsg(GetHwnd(), LM_SETTOPINDEX, MPFROMLONG(N), (MPARAM)0); +} // end of wxListBox::DoSetFirstItem -void wxListBox::Delete(int N) +void wxListBox::Delete( + int N +) { - wxCHECK_RET( N >= 0 && N < m_noItems, + wxCHECK_RET( N >= 0 && N < m_nNumItems, wxT("invalid index in wxListBox::Delete") ); - // TODO SendMessage(GetHwnd(), LB_DELETESTRING, N, 0); - m_noItems --; - SetHorizontalExtent(""); -} - -void wxListBox::Append(const wxString& item) -{ - int index=0; // TODO = ListBox_AddString(GetHwnd(), item); - m_noItems ++; - #if wxUSE_OWNER_DRAWN - if ( m_windowStyle & wxLB_OWNERDRAW ) { - wxOwnerDrawn *pNewItem = CreateItem(index); // dummy argument - pNewItem->SetName(item); - m_aItems.Add(pNewItem); -// ListBox_SetItemData(GetHwnd(), index, pNewItem); + delete m_aItems[N]; + m_aItems.RemoveAt(N); +#else // !wxUSE_OWNER_DRAWN + if (HasClientObjectData()) + { + delete GetClientObject(N); } -#endif +#endif // wxUSE_OWNER_DRAWN/!wxUSE_OWNER_DRAWN - SetHorizontalExtent(item); -} + ::WinSendMsg(GetHwnd(), LM_DELETEITEM, (MPARAM)N, (MPARAM)0); + m_nNumItems--; +} // end of wxListBox::DoSetFirstItem -void wxListBox::Append(const wxString& item, void *Client_data) +int wxListBox::DoAppend( + const wxString& rsItem +) { - int index; // TODO = ListBox_AddString(GetHwnd(), item); - m_noItems ++; + int nIndex = 0; + SHORT nIndexType = 0; -#if wxUSE_OWNER_DRAWN - if ( m_windowStyle & wxLB_OWNERDRAW ) { - // client data must be pointer to wxOwnerDrawn, otherwise we would crash - // in OnMeasure/OnDraw. - wxFAIL_MSG(wxT("Can't use client data with owner-drawn listboxes")); - } + if (m_windowStyle & wxLB_SORT) + nIndexType = LIT_SORTASCENDING; else -#endif + nIndexType = LIT_END; + nIndex = (int)::WinSendMsg(GetHwnd(), LM_INSERTITEM, (MPARAM)nIndexType, (MPARAM)rsItem.c_str()); + m_nNumItems++; - // TODO ListBox_SetItemData(GetHwnd(), index, Client_data); +#if wxUSE_OWNER_DRAWN + if (m_windowStyle & wxLB_OWNERDRAW) + { + wxOwnerDrawn* pNewItem = CreateItem(nIndex); // dummy argument - SetHorizontalExtent(item); -} + pNewItem->SetName(rsItem); + m_aItems.Insert(pNewItem, nIndex); + ::WinSendMsg(GetHwnd(), LM_SETITEMHANDLE, (MPARAM)((SHORT)nIndex), MPFROMP(pNewItem)); + pNewItem->SetFont(GetFont()); + } +#endif + return nIndex; +} // end of wxListBox::DoAppend -void wxListBox::Set(int n, const wxString *choices, char** clientData) +void wxListBox::DoSetItems( + const wxArrayString& raChoices +, void** ppClientData +) { -// ShowWindow(GetHwnd(), SW_HIDE); -// ListBox_ResetContent(GetHwnd()); - int i; - for (i = 0; i < n; i++) + BOOL bHideAndShow = IsShown(); + int nCount = 0; + int i; + SHORT nIndexType = 0; + + if (bHideAndShow) { -// ListBox_AddString(GetHwnd(), choices[i]); -// if ( clientData ) -// ListBox_SetItemData(GetHwnd(), i, clientData[i]); + ::WinShowWindow(GetHwnd(), FALSE); } - m_noItems = n; + ::WinSendMsg(GetHwnd(), LM_DELETEALL, (MPARAM)0, (MPARAM)0); + m_nNumItems = raChoices.GetCount(); + for (i = 0; i < m_nNumItems; i++) + { + if (m_windowStyle & wxLB_SORT) + nIndexType = LIT_SORTASCENDING; + else + nIndexType = LIT_END; + ::WinSendMsg(GetHwnd(), LM_INSERTITEM, (MPARAM)nIndexType, (MPARAM)raChoices[i].c_str()); + + if (ppClientData) + { #if wxUSE_OWNER_DRAWN - if ( m_windowStyle & wxLB_OWNERDRAW ) { - // first delete old items - size_t ui = m_aItems.Count(); - while ( ui-- != 0 ) { - delete m_aItems[ui]; + wxASSERT_MSG(ppClientData[i] == NULL, + wxT("Can't use client data with owner-drawn listboxes")); +#else // !wxUSE_OWNER_DRAWN + ::WinSendMsg(WinUtil_GetHwnd(), LM_SETITEMHANDLE, MPFROMLONG(lCount), MPFROMP(ppClientData[i])); +#endif // wxUSE_OWNER_DRAWN/!wxUSE_OWNER_DRAWN } - m_aItems.Empty(); + } - // then create new ones - for (ui = 0; ui < (size_t)n; ui++) { - wxOwnerDrawn *pNewItem = CreateItem(ui); - pNewItem->SetName(choices[ui]); - m_aItems.Add(pNewItem); -// ListBox_SetItemData(GetHwnd(), ui, pNewItem); +#if wxUSE_OWNER_DRAWN + if ( m_windowStyle & wxLB_OWNERDRAW ) + { + // + // First delete old items + // + WX_CLEAR_ARRAY(m_aItems); + + // + // Then create new ones + // + for (size_t ui = 0; ui < (size_t)m_nNumItems; ui++) + { + wxOwnerDrawn* pNewItem = CreateItem(ui); - wxASSERT_MSG(clientData[ui] == NULL, - wxT("Can't use client data with owner-drawn listboxes")); + pNewItem->SetName(raChoices[ui]); + m_aItems.Add(pNewItem); + ::WinSendMsg(GetHwnd(), LM_SETITEMHANDLE, MPFROMLONG(ui), MPFROMP(pNewItem)); } } -#endif - - SetHorizontalExtent(""); -// ShowWindow(GetHwnd(), SW_SHOW); -} +#endif // wxUSE_OWNER_DRAWN + ::WinShowWindow(GetHwnd(), TRUE); +} // end of wxListBox::DoSetItems -int wxListBox::FindString(const wxString& s) const +int wxListBox::FindString( + const wxString& rsString +) const { - int pos; // = ListBox_FindStringExact(GetHwnd(), (WPARAM)-1, s); -// if (pos == LB_ERR) -// return -1; -// else - return pos; -} + int nPos; + LONG lTextLength; + PSZ zStr; -void wxListBox::Clear() -{ -// ListBox_ResetContent(GetHwnd()); -#if wxUSE_OWNER_DRAWN - size_t uiCount = m_aItems.Count(); - while ( uiCount-- != 0 ) { - delete m_aItems[uiCount]; + for (nPos = 0; nPos < m_nNumItems; nPos++) + { + lTextLength = LONGFROMMR(::WinSendMsg(GetHwnd(), LM_QUERYITEMTEXTLENGTH, (MPARAM)nPos, (MPARAM)0)); + zStr = new char[lTextLength + 1]; + ::WinSendMsg(GetHwnd(), LM_QUERYITEMTEXT, MPFROM2SHORT(nPos, (SHORT)lTextLength), (MPARAM)zStr); + if (rsString == (char*)zStr) + { + delete [] zStr; + break; + } + delete [] zStr; } + return nPos; +} // end of wxListBox::FindString - m_aItems.Clear(); -#endif // wxUSE_OWNER_DRAWN - - m_noItems = 0; -// ListBox_GetHorizontalExtent(GetHwnd()); -} - -void wxListBox::SetSelection(int N, bool select) +void wxListBox::Clear() { - wxCHECK_RET( N >= 0 && N < m_noItems, - wxT("invalid index in wxListBox::SetSelection") ); +#if wxUSE_OWNER_DRAWN + size_t lUiCount = m_aItems.Count(); - if ((m_windowStyle & wxLB_MULTIPLE) || (m_windowStyle & wxLB_EXTENDED)) + while (lUiCount-- != 0) { -// SendMessage(GetHwnd(), LB_SETSEL, select, N); + delete m_aItems[lUiCount]; } - else + + m_aItems.Clear(); +#else // !wxUSE_OWNER_DRAWN + if (HasClientObjectData()) { - int N1 = N; - if (!select) - N1 = -1; -// SendMessage(GetHwnd(), LB_SETCURSEL, N1, 0); + for (size_t n = 0; n < (size_t)m_lNumItems; n++) + { + delete GetClientObject(n); + } } -} +#endif // wxUSE_OWNER_DRAWN/!wxUSE_OWNER_DRAWN + ::WinSendMsg(GetHwnd(), LM_DELETEALL, (MPARAM)0, (MPARAM)0); + + m_nNumItems = 0; +} // end of wxListBox::Clear -bool wxListBox::Selected(int N) const +void wxListBox::SetSelection( + int N +, bool bSelect +) { - wxCHECK_MSG( N >= 0 && N < m_noItems, FALSE, + wxCHECK_RET( N >= 0 && N < m_nNumItems, + wxT("invalid index in wxListBox::SetSelection") ); + ::WinSendMsg( GetHwnd() + ,LM_SELECTITEM + ,MPFROMLONG(N) + ,(MPARAM)bSelect + ); +} // end of wxListBox::SetSelection + +bool wxListBox::IsSelected( + int N +) const +{ + wxCHECK_MSG( N >= 0 && N < m_nNumItems, FALSE, wxT("invalid index in wxListBox::Selected") ); -// return SendMessage(GetHwnd(), LB_GETSEL, N, 0) == 0 ? FALSE : TRUE; - return FALSE; -} + LONG lItem; -void wxListBox::Deselect(int N) -{ - wxCHECK_RET( N >= 0 && N < m_noItems, - wxT("invalid index in wxListBox::Deselect") ); + lItem = LONGFROMMR(::WinSendMsg(GetHwnd(), LM_QUERYSELECTION, (MPARAM)N, (MPARAM)0)); + return (lItem != LIT_NONE); +} // end of wxListBox::IsSelected - if ((m_windowStyle & wxLB_MULTIPLE) || (m_windowStyle & wxLB_EXTENDED)) - { -// SendMessage(GetHwnd(), LB_SETSEL, FALSE, N); - } +wxClientData* wxListBox::DoGetItemClientObject( + int n +) const +{ + return (wxClientData *)DoGetItemClientData(n); } -void *wxListBox::GetClientData(int N) const +void* wxListBox::DoGetItemClientData( + int n +) const { - wxCHECK_MSG( N >= 0 && N < m_noItems, NULL, + wxCHECK_MSG( n >= 0 && n < m_nNumItems, NULL, wxT("invalid index in wxListBox::GetClientData") ); -// return (void *)SendMessage(GetHwnd(), LB_GETITEMDATA, N, 0); - return (char *)NULL; -} + return((void *)::WinSendMsg(GetHwnd(), LM_QUERYITEMHANDLE, MPFROMLONG(n), (MPARAM)0)); +} // end of wxListBox::DoGetItemClientData + +void wxListBox::DoSetItemClientObject( + int n +, wxClientData* pClientData +) +{ + DoSetItemClientData( n + ,pClientData + ); +} // end of wxListBox::DoSetItemClientObject -void wxListBox::SetClientData(int N, void *Client_data) +void wxListBox::DoSetItemClientData( + int n +, void* pClientData +) { - wxCHECK_RET( N >= 0 && N < m_noItems, + wxCHECK_RET( n >= 0 && n < m_nNumItems, wxT("invalid index in wxListBox::SetClientData") ); -// if ( ListBox_SetItemData(GetHwnd(), N, Client_data) == LB_ERR ) -// wxLogDebug(wxT("LB_SETITEMDATA failed")); -} +#if wxUSE_OWNER_DRAWN + if ( m_windowStyle & wxLB_OWNERDRAW ) + { + // + // Client data must be pointer to wxOwnerDrawn, otherwise we would crash + // in OnMeasure/OnDraw. + // + wxFAIL_MSG(wxT("Can't use client data with owner-drawn listboxes")); + } +#endif // wxUSE_OWNER_DRAWN + + ::WinSendMsg(GetHwnd(), LM_SETITEMHANDLE, MPFROMLONG(n), MPFROMP(pClientData)); +} // end of wxListBox::DoSetItemClientData + +bool wxListBox::HasMultipleSelection() const +{ + return (m_windowStyle & wxLB_MULTIPLE) || (m_windowStyle & wxLB_EXTENDED); +} // end of wxListBox::HasMultipleSelection -// Return number of selections and an array of selected integers -int wxListBox::GetSelections(wxArrayInt& aSelections) const +int wxListBox::GetSelections( + wxArrayInt& raSelections +) const { - aSelections.Empty(); + int nCount = 0; + LONG lItem; + - if ((m_windowStyle & wxLB_MULTIPLE) || (m_windowStyle & wxLB_EXTENDED)) + raSelections.Empty(); + if (HasMultipleSelection()) { - int no_sel; // = ListBox_GetSelCount(GetHwnd()); - if (no_sel != 0) { - int *selections = new int[no_sel]; -// if ( ListBox_GetSelItems(GetHwnd(), no_sel, selections) == LB_ERR ) { -// wxFAIL_MSG(wxT("This listbox can't have single-selection style!")); -// } - - aSelections.Alloc(no_sel); - for ( int n = 0; n < no_sel; n++ ) - aSelections.Add(selections[n]); - - delete [] selections; + lItem = LONGFROMMR(::WinSendMsg( GetHwnd() + ,LM_QUERYSELECTION + ,(MPARAM)LIT_FIRST + ,(MPARAM)0 + ) + ); + if (lItem != LIT_NONE) + { + nCount++; + while ((lItem = LONGFROMMR(::WinSendMsg( GetHwnd() + ,LM_QUERYSELECTION + ,(MPARAM)lItem + ,(MPARAM)0 + ) + )) != LIT_NONE) + { + nCount++; + } + raSelections.Alloc(nCount); + lItem = LONGFROMMR(::WinSendMsg( GetHwnd() + ,LM_QUERYSELECTION + ,(MPARAM)LIT_FIRST + ,(MPARAM)0 + ) + ); + + raSelections.Add((int)lItem); + while ((lItem = LONGFROMMR(::WinSendMsg( GetHwnd() + ,LM_QUERYSELECTION + ,(MPARAM)lItem + ,(MPARAM)0 + ) + )) != LIT_NONE) + { + raSelections.Add((int)lItem); + } + return nCount; } - - return no_sel; + return 0; } else // single-selection listbox { -// aSelections.Add(ListBox_GetCurSel(GetHwnd())); - + lItem = LONGFROMMR(::WinSendMsg( GetHwnd() + ,LM_QUERYSELECTION + ,(MPARAM)LIT_FIRST + ,(MPARAM)0 + ) + ); + raSelections.Add((int)lItem); return 1; } -} + return 0; +} // end of wxListBox::GetSelections -// Get single selection, for single choice list items int wxListBox::GetSelection() const { - wxCHECK_MSG( !(m_windowStyle & wxLB_MULTIPLE) && - !(m_windowStyle & wxLB_EXTENDED), + wxCHECK_MSG( !HasMultipleSelection(), -1, wxT("GetSelection() can't be used with multiple-selection " "listboxes, use GetSelections() instead.") ); -// return ListBox_GetCurSel(GetHwnd()); - return -1; -} + return(LONGFROMMR(::WinSendMsg( GetHwnd() + ,LM_QUERYSELECTION + ,(MPARAM)LIT_FIRST + ,(MPARAM)0 + ) + )); +} // end of wxListBox::GetSelection -// Find string for position -wxString wxListBox::GetString(int N) const +wxString wxListBox::GetString( + int N +) const { - wxCHECK_MSG( N >= 0 && N < m_noItems, "", - wxT("invalid index in wxListBox::GetClientData") ); - -// int len = ListBox_GetTextLen(GetHwnd(), N); + LONG lLen = 0; + char* zBuf; + wxString sResult; - // +1 for terminating NUL - wxString result; -// ListBox_GetText(GetHwnd(), N, result.GetWriteBuf(len + 1)); - result.UngetWriteBuf(); + wxCHECK_MSG( N >= 0 && N < m_nNumItems, "", + wxT("invalid index in wxListBox::GetClientData") ); - return result; -} + lLen = LONGFROMMR(::WinSendMsg(GetHwnd(), LM_QUERYITEMTEXTLENGTH, (MPARAM)N, (MPARAM)0)); + zBuf = new char[lLen + 1]; + ::WinSendMsg(GetHwnd(), LM_QUERYITEMTEXT, MPFROM2SHORT((SHORT)N, (SHORT)lLen), (MPARAM)zBuf); + zBuf[lLen] = '\0'; + sResult = zBuf; + delete [] zBuf; + return sResult; +} // end of wxListBox::GetString + +void wxListBox::DoInsertItems( + const wxArrayString& asItems +, int nPos +) +{ + wxCHECK_RET( nPos >= 0 && nPos <= m_nNumItems, + wxT("invalid index in wxListBox::InsertItems") ); -// OS/2-PM-specific code to set the horizontal extent of the listbox, if -// necessary. If s is non-NULL, it's used to calculate the horizontal extent. -// Otherwise, all strings are used. -void wxListBox::SetHorizontalExtent(const wxString& s) -{ -/* - // Only necessary if we want a horizontal scrollbar - if (!(m_windowStyle & wxHSCROLL)) - return; - TEXTMETRIC lpTextMetric; + int nItems = asItems.GetCount(); - if (s != wxT("")) + for (int i = 0; i < nItems; i++) { - int existingExtent = (int)SendMessage(GetHwnd(), LB_GETHORIZONTALEXTENT, 0, 0L); - HDC dc = GetWindowDC(GetHwnd()); - HFONT oldFont = 0; - if (GetFont().Ok() && GetFont().GetResourceHandle()) - oldFont = (HFONT) ::SelectObject(dc, (HFONT) GetFont().GetResourceHandle()); - - GetTextMetrics(dc, &lpTextMetric); - SIZE extentXY; - ::GetTextExtentPoint(dc, (LPTSTR) (const wxChar *)s, s.Length(), &extentXY); - int extentX = (int)(extentXY.cx + lpTextMetric.tmAveCharWidth); - - if (oldFont) - ::SelectObject(dc, oldFont); - - ReleaseDC(GetHwnd(), dc); - if (extentX > existingExtent) - SendMessage(GetHwnd(), LB_SETHORIZONTALEXTENT, LOWORD(extentX), 0L); - return; + int nIndex = (int)::WinSendMsg( GetHwnd() + ,LM_INSERTITEM + ,MPFROMLONG((LONG)(i + nPos)) + ,(MPARAM)asItems[i].c_str() + ); + + wxOwnerDrawn* pNewItem = CreateItem(nIndex); + + pNewItem->SetName(asItems[i]); + pNewItem->SetFont(GetFont()); + m_aItems.Insert(pNewItem, nIndex); + ::WinSendMsg( GetHwnd() + ,LM_SETITEMHANDLE + ,(MPARAM)((SHORT)nIndex) + ,MPFROMP(pNewItem) + ); + m_nNumItems += nItems; } - else - { - int largestExtent = 0; - HDC dc = GetWindowDC(GetHwnd()); - HFONT oldFont = 0; - if (GetFont().Ok() && GetFont().GetResourceHandle()) - oldFont = (HFONT) ::SelectObject(dc, (HFONT) GetFont().GetResourceHandle()); - - GetTextMetrics(dc, &lpTextMetric); - int i; - for (i = 0; i < m_noItems; i++) - { - int len = (int)SendMessage(GetHwnd(), LB_GETTEXT, i, (LONG)wxBuffer); - wxBuffer[len] = 0; - SIZE extentXY; - ::GetTextExtentPoint(dc, (LPTSTR)wxBuffer, len, &extentXY); - int extentX = (int)(extentXY.cx + lpTextMetric.tmAveCharWidth); - if (extentX > largestExtent) - largestExtent = extentX; - } - if (oldFont) - ::SelectObject(dc, oldFont); +} // end of wxListBox::DoInsertItems - ReleaseDC(GetHwnd(), dc); - SendMessage(GetHwnd(), LB_SETHORIZONTALEXTENT, LOWORD(largestExtent), 0L); - } -*/ -} -void wxListBox::InsertItems(int nItems, const wxString items[], int pos) +void wxListBox::SetString( + int N +, const wxString& rsString +) { - wxCHECK_RET( pos >= 0 && pos <= m_noItems, - wxT("invalid index in wxListBox::InsertItems") ); - - int i; -// for (i = 0; i < nItems; i++) -// ListBox_InsertString(GetHwnd(), i + pos, items[i]); - m_noItems += nItems; - - SetHorizontalExtent(wxT("")); -} - -void wxListBox::SetString(int N, const wxString& s) -{ - wxCHECK_RET( N >= 0 && N < m_noItems, + wxCHECK_RET( N >= 0 && N < m_nNumItems, wxT("invalid index in wxListBox::SetString") ); - int sel = -1; - if (!(m_windowStyle & wxLB_MULTIPLE) && !(m_windowStyle & wxLB_EXTENDED)) - sel = GetSelection(); - - void *oldData = wxListBox::GetClientData(N); - -// SendMessage(GetHwnd(), LB_DELETESTRING, N, 0); - - int newN = N; - if (N == (m_noItems - 1)) - newN = -1; - -// SendMessage(GetHwnd(), LB_INSERTSTRING, newN, (LPARAM) (const wxChar *)s); - if (oldData) - wxListBox::SetClientData(N, oldData); - - // Selection may have changed - if (sel >= 0) - SetSelection(sel); + // + // Remember the state of the item + // + bool bWasSelected = IsSelected(N); + void* pOldData = NULL; + wxClientData* pOldObjData = NULL; + + if (m_clientDataItemsType == wxClientData_Void) + pOldData = GetClientData(N); + else if (m_clientDataItemsType == wxClientData_Object) + pOldObjData = GetClientObject(N); + + // + // Delete and recreate it + // + ::WinSendMsg( GetHwnd() + ,LM_DELETEITEM + ,(MPARAM)N + ,(MPARAM)0 + ); + + int nNewN = N; + + if (N == m_nNumItems - 1) + nNewN = -1; + + ::WinSendMsg( GetHwnd() + ,LM_INSERTITEM + ,(MPARAM)nNewN + ,(MPARAM)rsString.c_str() + ); + + // + // Restore the client data + // + if (pOldData) + SetClientData( N + ,pOldData + ); + else if (pOldObjData) + SetClientObject( N + ,pOldObjData + ); + + // + // We may have lost the selection + // + if (bWasSelected) + Select(N); -#if wxUSE_OWNER_DRAWN - if ( m_windowStyle & wxLB_OWNERDRAW ) - // update item's text - m_aItems[N]->SetName(s); +#if wxUSE_OWNER_DRAWN + if (m_windowStyle & wxLB_OWNERDRAW) + // + // Update item's text + // + m_aItems[N]->SetName(rsString); #endif //USE_OWNER_DRAWN -} +} // end of wxListBox::SetString -int wxListBox::Number () const +int wxListBox::GetCount() const { - return m_noItems; + return m_nNumItems; } -// For single selection items only -wxString wxListBox::GetStringSelection () const -{ - int sel = GetSelection (); - if (sel > -1) - return this->GetString (sel); - else - return wxString(""); -} +// ---------------------------------------------------------------------------- +// helpers +// ---------------------------------------------------------------------------- -bool wxListBox::SetStringSelection (const wxString& s, bool flag) +wxSize wxListBox::DoGetBestSize() const { - int sel = FindString (s); - if (sel > -1) - { - SetSelection (sel, flag); - return TRUE; - } - else - return FALSE; -} + // + // Find the widest string + // + int nLine; + int nListbox = 0; + int nCx; + int nCy; -wxSize wxListBox::DoGetBestSize() -{ - // find the widest string - int wLine; - int wListbox = 0; - for ( int i = 0; i < m_noItems; i++ ) + for (int i = 0; i < m_nNumItems; i++) { - wxString str(GetString(i)); - GetTextExtent(str, &wLine, NULL); - if ( wLine > wListbox ) - wListbox = wLine; + wxString vStr(GetString(i)); + + GetTextExtent( vStr + ,&nLine + ,NULL + ); + if (nLine > nListbox) + nListbox = nLine; } - // give it some reasonable default value if there are no strings in the - // list - if ( wListbox == 0 ) - wListbox = 100; - - // the listbox should be slightly larger than the widest string - int cx, cy; - wxGetCharSize(GetHWND(), &cx, &cy, &GetFont()); - - wListbox += 3*cx; - - int hListbox = EDIT_HEIGHT_FROM_CHAR_HEIGHT(cy)*(wxMax(m_noItems, 7)); - - return wxSize(wListbox, hListbox); -} - -void wxListBox::Command (wxCommandEvent & event) -{ - if (event.m_extraLong) - SetSelection (event.m_commandInt); - else + // + // Give it some reasonable default value if there are no strings in the + // list. + // + if (nListbox == 0) + nListbox = 100; + + // + // The listbox should be slightly larger than the widest string + // + wxGetCharSize( GetHWND() + ,&nCx + ,&nCy + ,(wxFont*)&GetFont() + ); + nListbox += 3 * nCx; + + int hListbox = EDIT_HEIGHT_FROM_CHAR_HEIGHT(nCy) * (wxMax(m_nNumItems, 7)); + + return wxSize( nListbox + ,hListbox + ); +} // end of wxListBox::DoGetBestSize + +// ---------------------------------------------------------------------------- +// callbacks +// ---------------------------------------------------------------------------- + +bool wxListBox::OS2Command( + WXUINT uParam +, WXWORD WXUNUSED(wId)) +{ + wxEventType eEvtType; + + if (uParam == LN_SELECT) { - Deselect (event.m_commandInt); - return; + eEvtType = wxEVT_COMMAND_LISTBOX_SELECTED; } - ProcessCommand (event); -} - -WXHBRUSH wxListBox::OnCtlColor(WXHDC pDC, WXHWND pWnd, WXUINT nCtlColor, - WXUINT message, WXWPARAM wParam, WXLPARAM lParam) -{ -/* -#if wxUSE_CTL3D - if ( m_useCtl3D ) + if (uParam == LN_ENTER) { - HBRUSH hbrush = Ctl3dCtlColorEx(message, wParam, lParam); - return (WXHBRUSH) hbrush; + eEvtType = wxEVT_COMMAND_LISTBOX_DOUBLECLICKED; } -#endif - - if (GetParent()->GetTransparentBackground()) - SetBkMode((HDC) pDC, TRANSPARENT); else - SetBkMode((HDC) pDC, OPAQUE); + { + // + // Some event we're not interested in + // + return FALSE; + } + wxCommandEvent vEvent( eEvtType + ,m_windowId + ); - ::SetBkColor((HDC) pDC, RGB(GetBackgroundColour().Red(), GetBackgroundColour().Green(), GetBackgroundColour().Blue())); - ::SetTextColor((HDC) pDC, RGB(GetForegroundColour().Red(), GetForegroundColour().Green(), GetForegroundColour().Blue())); + vEvent.SetEventObject(this); - wxBrush *backgroundBrush = wxTheBrushList->FindOrCreateBrush(GetBackgroundColour(), wxSOLID); + wxArrayInt aSelections; + int n; + int nCount = GetSelections(aSelections); - // Note that this will be cleaned up in wxApp::OnIdle, if backgroundBrush - // has a zero usage count. - backgroundBrush->RealizeResource(); -*/ - wxBrush *backgroundBrush = wxTheBrushList->FindOrCreateBrush(GetBackgroundColour(), wxSOLID); - return (WXHBRUSH) backgroundBrush->GetResourceHandle(); -} + if (nCount > 0) + { + n = aSelections[0]; + if (HasClientObjectData()) + vEvent.SetClientObject(GetClientObject(n)); + else if ( HasClientUntypedData() ) + vEvent.SetClientData(GetClientData(n)); + vEvent.SetString(GetString(n)); + } + else + { + n = -1; + } + vEvent.m_commandInt = n; + return GetEventHandler()->ProcessEvent(vEvent); +} // end of wxListBox::OS2Command -MRESULT wxListBox::OS2WindowProc(HWND hwnd, WXUINT nMsg, WXWPARAM wParam, WXLPARAM lParam) -{ - return wxControl::OS2WindowProc(hwnd, nMsg, wParam, lParam); -} +// ---------------------------------------------------------------------------- +// wxCheckListBox support +// ---------------------------------------------------------------------------- #if wxUSE_OWNER_DRAWN -// drawing +// +// Drawing // ------- - -// space beneath/above each row in pixels -// "standard" checklistbox use 1 here, some might prefer 2. 0 is ugly. +// #define OWNER_DRAWN_LISTBOX_EXTRA_SPACE (1) -// the height is the same for all items -// TODO should be changed for LBS_OWNERDRAWVARIABLE style listboxes - -// NB: can't forward this to wxListBoxItem because LB_SETITEMDATA -// message is not yet sent when we get here! bool wxListBox::OS2OnMeasure(WXMEASUREITEMSTRUCT *item) { - // only owner-drawn control should receive this message - wxCHECK( ((m_windowStyle & wxLB_OWNERDRAW) == wxLB_OWNERDRAW), FALSE ); - -// MEASUREITEMSTRUCT *pStruct = (MEASUREITEMSTRUCT *)item; - - wxDC dc; -// TODO: dc.SetHDC((WXHDC)CreateIC(wxT("DISPLAY"), NULL, NULL, 0)); - dc.SetFont(wxSystemSettings::GetSystemFont(wxSYS_ANSI_VAR_FONT)); - -// pStruct->itemHeight = dc.GetCharHeight() + 2*OWNER_DRAWN_LISTBOX_EXTRA_SPACE; -// pStruct->itemWidth = dc.GetCharWidth(); - + // + // TODO: Get to this eventually + // return TRUE; } -// forward the message to the appropriate item bool wxListBox::OS2OnDraw(WXDRAWITEMSTRUCT *item) { - // only owner-drawn control should receive this message - wxCHECK( ((m_windowStyle & wxLB_OWNERDRAW) == wxLB_OWNERDRAW), FALSE ); -/* - DRAWITEMSTRUCT *pStruct = (DRAWITEMSTRUCT *)item; - - long data = ListBox_GetItemData(GetHwnd(), pStruct->itemID); - - wxCHECK( data && (data != LB_ERR), FALSE ); - - wxListBoxItem *pItem = (wxListBoxItem *)data; - - wxDC dc; - dc.SetHDC((WXHDC)pStruct->hDC, FALSE); - wxRect rect(wxPoint(pStruct->rcItem.left, pStruct->rcItem.top), - wxPoint(pStruct->rcItem.right, pStruct->rcItem.bottom)); - - return pItem->OnDrawItem(dc, rect, - (wxOwnerDrawn::wxODAction)pStruct->itemAction, - (wxOwnerDrawn::wxODStatus)pStruct->itemState); -*/ - return FALSE; + // + // TODO: Get to this eventually + // + return FALSE; } +#endif // ndef for wxUSE_OWNER_DRAWN + +#endif // ndef for wxUSE_LISTBOX -#endif - // wxUSE_OWNER_DRAWN