src/os2/choice.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        src/os2/choice.cpp
   3 // Purpose:     wxChoice
   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 #if wxUSE_CHOICE
  16
  17 #include "wx/choice.h"
  18
  19 #ifndef WX_PRECOMP
  20     #include "wx/utils.h"
  21     #include "wx/log.h"
  22     #include "wx/settings.h"
  23 #endif
  24
  25 #include "wx/os2/private.h"
  26
  27 bool wxChoice::Create(
  28   wxWindow*                         pParent
  29 , wxWindowID                        vId
  30 , const wxPoint&                    rPos
  31 , const wxSize&                     rSize
  32 , const wxArrayString&              asChoices
  33 , long                              lStyle
  34 , const wxValidator&                rValidator
  35 , const wxString&                   rsName
  36 )
  37 {
  38     wxCArrayString chs(asChoices);
  39
  40     return Create(pParent, vId, rPos, rSize, chs.GetCount(), chs.GetStrings(),
  41                   lStyle, rValidator, rsName);
  42 }
  43
  44 bool wxChoice::Create(
  45   wxWindow*                         pParent
  46 , wxWindowID                        vId
  47 , const wxPoint&                    rPos
  48 , const wxSize&                     rSize
  49 , int                               n
  50 , const wxString                    asChoices[]
  51 , long                              lStyle
  52 , const wxValidator&                rValidator
  53 , const wxString&                   rsName
  54 )
  55 {
  56     long                            lSstyle;
  57
  58     if (!CreateControl( pParent
  59                        ,vId
  60                        ,rPos
  61                        ,rSize
  62                        ,lStyle
  63                        ,rValidator
  64                        ,rsName
  65                       ))
  66         return false;
  67     lSstyle = CBS_DROPDOWNLIST |
  68               WS_TABSTOP       |
  69               WS_VISIBLE;
  70
  71     // clipping siblings does not yet work
  72     // if (lStyle & wxCLIP_SIBLINGS )
  73     //     lSstyle |= WS_CLIPSIBLINGS;
  74
  75     wxASSERT_MSG( !(lStyle & wxCB_DROPDOWN) &&
  76                   !(lStyle & wxCB_READONLY) &&
  77                   !(lStyle & wxCB_SIMPLE),
  78                   wxT("this style flag is ignored by wxChoice, you "
  79                      "probably want to use a wxComboBox") );
  80
  81     if (!OS2CreateControl( wxT("COMBOBOX")
  82                           ,lSstyle
  83                          ))
  84         return false;
  85
  86     //
  87     // A choice/combobox normally has a white background (or other, depending
  88     // on global settings) rather than inheriting the parent's background colour.
  89     //
  90     SetBackgroundColour(wxSystemSettings::GetColour(wxSYS_COLOUR_WINDOW));
  91
  92     // initialize the controls contents
  93     for (int i = 0; i < n; i++)
  94     {
  95         Append(asChoices[i]);
  96     }
  97     SetSize( rPos.x
  98             ,rPos.y
  99             ,rSize.x
 100             ,rSize.y
 101            );
 102
 103     // Set height to use with sizers i.e. without the dropdown listbox
 104     wxFont vFont = GetFont();
 105     int  nEditHeight;
 106     wxGetCharSize( GetHWND(), NULL, &nEditHeight, &vFont );
 107     nEditHeight = EDIT_HEIGHT_FROM_CHAR_HEIGHT(nEditHeight);
 108     SetInitialSize(wxSize(-1,nEditHeight+4));   // +2x2 for the border
 109
 110     return true;
 111 } // end of wxChoice::Create
 112
 113 wxChoice::~wxChoice()
 114 {
 115     Clear();
 116 }
 117
 118 // ----------------------------------------------------------------------------
 119 // adding/deleting items to/from the list
 120 // ----------------------------------------------------------------------------
 121
 122 int wxChoice::DoInsertItems(const wxArrayStringsAdapter& items
 123                            , unsigned int pos
 124                            , void **clientData
 125                            , wxClientDataType type
 126                            )
 127 {
 128     int                             nIndex = wxNOT_FOUND;
 129     LONG                            nIndexType = 0;
 130     bool                            incrementPos = false;
 131     if ( IsSorted() )
 132         nIndexType = LIT_SORTASCENDING;
 133     else if (pos == GetCount())
 134         nIndexType = LIT_END;
 135     else
 136     {
 137         nIndexType = pos;
 138         incrementPos = true;
 139     }
 140
 141     const unsigned int count = items.GetCount();
 142     for( unsigned int i = 0; i < count; ++i )
 143     {
 144         nIndex = (int)::WinSendMsg( GetHwnd()
 145                                    ,LM_INSERTITEM
 146                                    ,(MPARAM)nIndexType
 147                                    ,(MPARAM)items[i].wx_str()
 148                                   );
 149         if (nIndex < 0)
 150         {
 151             nIndex = wxNOT_FOUND;
 152             break;
 153         }
 154         AssignNewItemClientData(nIndex, clientData, i, type);
 155
 156         if (incrementPos)
 157             ++nIndexType;
 158     }
 159     return nIndex;
 160 } // end of wxChoice::DoInsertAppendItemsWithData
 161
 162 void wxChoice::DoDeleteOneItem(unsigned int n)
 163 {
 164     wxCHECK_RET( IsValid(n), wxT("invalid item index in wxChoice::Delete") );
 165
 166     ::WinSendMsg(GetHwnd(), LM_DELETEITEM, (MPARAM)n, (MPARAM)0);
 167 } // end of wxChoice::Delete
 168
 169 void wxChoice::DoClear()
 170 {
 171     ::WinSendMsg(GetHwnd(), LM_DELETEALL, (MPARAM)0, (MPARAM)0);
 172 } // end of wxChoice::Clear
 173
 174 // ----------------------------------------------------------------------------
 175 // selection
 176 // ----------------------------------------------------------------------------
 177
 178 int wxChoice::GetSelection() const
 179 {
 180     return((int)LONGFROMMR(::WinSendMsg(GetHwnd(), LM_QUERYSELECTION, (MPARAM)LIT_FIRST, (MPARAM)0)));
 181 } // end of wxChoice::GetSelection
 182
 183 void wxChoice::SetSelection(
 184   int                               n
 185 )
 186 {
 187     ::WinSendMsg( GetHwnd()
 188                  ,LM_SELECTITEM
 189                  ,(MPARAM)n
 190                  ,(MPARAM)TRUE
 191                 );
 192 } // end of wxChoice::SetSelection
 193
 194 // ----------------------------------------------------------------------------
 195 // string list functions
 196 // ----------------------------------------------------------------------------
 197
 198 unsigned int wxChoice::GetCount() const
 199 {
 200     return((unsigned int)LONGFROMMR(::WinSendMsg(GetHwnd(), LM_QUERYITEMCOUNT, (MPARAM)0, (MPARAM)0)));
 201 } // end of wxChoice::GetCount
 202
 203 void wxChoice::SetString(unsigned int n, const wxString& rsStr)
 204 {
 205     LONG  nIndexType = 0;
 206     void* pData;
 207
 208     if ( HasClientData() )
 209     {
 210         pData = DoGetItemClientData(n);
 211     }
 212     else // no client data
 213     {
 214         pData = NULL;
 215     }
 216
 217     ::WinSendMsg(GetHwnd(), LM_DELETEITEM, (MPARAM)n, 0);
 218
 219     if (m_windowStyle & wxCB_SORT)
 220         nIndexType = LIT_SORTASCENDING;
 221     else
 222         nIndexType = LIT_END;
 223     ::WinSendMsg( GetHwnd()
 224                  ,LM_INSERTITEM
 225                  ,(MPARAM)nIndexType
 226                  ,(MPARAM)rsStr.wx_str()
 227                 );
 228
 229     if (pData)
 230     {
 231         DoSetItemClientData(n, pData);
 232     }
 233 } // end of wxChoice::SetString
 234
 235 wxString wxChoice::GetString(unsigned int n) const
 236 {
 237     int      nLen = 0;
 238     wxString sStr = wxEmptyString;
 239     wxChar*  zBuf;
 240
 241     nLen = (size_t)LONGFROMMR(::WinSendMsg(GetHwnd(), LM_QUERYITEMTEXTLENGTH, (MPARAM)n, (MPARAM)0));
 242     if (nLen != LIT_ERROR && nLen > 0)
 243     {
 244         zBuf = new wxChar[++nLen];
 245         ::WinSendMsg( GetHwnd()
 246                      ,LM_QUERYITEMTEXT
 247                      ,MPFROM2SHORT((SHORT)n, (SHORT)nLen)
 248                      ,(MPARAM)zBuf
 249                     );
 250         sStr = zBuf;
 251         delete [] zBuf;
 252     }
 253     return sStr;
 254 } // end of wxChoice::GetString
 255
 256 // ----------------------------------------------------------------------------
 257 // client data
 258 // ----------------------------------------------------------------------------
 259
 260 void wxChoice::DoSetItemClientData(unsigned int n, void* pClientData)
 261 {
 262     ::WinSendMsg(GetHwnd(), LM_SETITEMHANDLE, (MPARAM)n, MPFROMP(pClientData));
 263 } // end of wxChoice::DoSetItemClientData
 264
 265 void* wxChoice::DoGetItemClientData(unsigned int n) const
 266 {
 267     MRESULT rc = ::WinSendMsg(GetHwnd(), LM_QUERYITEMHANDLE, (MPARAM)n, (MPARAM)0);
 268     return((void*)rc);
 269 } // end of wxChoice::DoGetItemClientData
 270
 271 // ----------------------------------------------------------------------------
 272 // wxOS2 specific helpers
 273 // ----------------------------------------------------------------------------
 274
 275 void wxChoice::DoSetSize(int nX,
 276                          int nY,
 277                          int nWidth,
 278                          int WXUNUSED(nHeight),
 279                          int nSizeFlags)
 280 {
 281     //
 282     // Ignore height parameter because height doesn't mean 'initially
 283     // displayed' height, it refers to the drop-down menu as well. The
 284     // wxWidgets interpretation is different; also, getting the size returns
 285     // the _displayed_ size (NOT the drop down menu size) so
 286     // setting-getting-setting size would not work.
 287     //
 288     wxControl::DoSetSize( nX
 289                          ,nY
 290                          ,nWidth
 291                          ,wxDefaultCoord
 292                          ,nSizeFlags
 293                         );
 294 } // end of wxChoice::DoSetSize
 295
 296 wxSize wxChoice::DoGetBestSize() const
 297 {
 298     //
 299     // Find the widest string
 300     //
 301     int    nLineWidth;
 302     int    nChoiceWidth = 0;
 303     int    nCx;
 304     int    nCy;
 305     wxFont vFont = (wxFont)GetFont();
 306
 307     const unsigned int nItems = GetCount();
 308
 309     for (unsigned int i = 0; i < nItems; i++)
 310     {
 311         wxString sStr(GetString(i));
 312         GetTextExtent( sStr, &nLineWidth, NULL );
 313         if (nLineWidth > nChoiceWidth)
 314             nChoiceWidth = nLineWidth;
 315     }
 316
 317     //
 318     // Give it some reasonable default value if there are no strings in the
 319     // list
 320     //
 321     if (nChoiceWidth == 0L)
 322         nChoiceWidth = 100L;
 323
 324     //
 325     // The combobox should be larger than the widest string
 326     //
 327     wxGetCharSize( GetHWND(), &nCx, &nCy, &vFont );
 328     nChoiceWidth += 5 * nCx;
 329
 330     //
 331     // Choice drop-down list depends on number of items (limited to 10)
 332     //
 333     size_t nStrings = nItems == 0 ? 10 : wxMin(10, nItems) + 1;
 334     int    nChoiceHeight = EDIT_HEIGHT_FROM_CHAR_HEIGHT(nCy) * nStrings;
 335
 336     return wxSize(nChoiceWidth, nChoiceHeight);
 337 } // end of wxChoice::DoGetBestSize
 338
 339 MRESULT wxChoice::OS2WindowProc(
 340   WXUINT                            uMsg
 341 , WXWPARAM                          wParam
 342 , WXLPARAM                          lParam
 343 )
 344 {
 345     return wxWindow::OS2WindowProc( uMsg
 346                                    ,wParam
 347                                    ,lParam
 348                                   );
 349 } // end of wxChoice::OS2WindowProc
 350
 351 bool wxChoice::OS2Command(
 352   WXUINT                            uParam
 353 , WXWORD                            WXUNUSED(wId)
 354 )
 355 {
 356     if (uParam != LN_SELECT)
 357     {
 358         //
 359         // "selection changed" is the only event we're after
 360         //
 361         return false;
 362     }
 363     int                             n = GetSelection();
 364
 365     if (n > -1)
 366     {
 367         wxCommandEvent              vEvent( wxEVT_CHOICE
 368                                            ,m_windowId
 369                                           );
 370
 371         vEvent.SetInt(n);
 372         vEvent.SetEventObject(this);
 373         vEvent.SetString(GetStringSelection());
 374         if (HasClientObjectData())
 375             vEvent.SetClientObject(GetClientObject(n));
 376         else if (HasClientUntypedData())
 377             vEvent.SetClientData(GetClientData(n));
 378         ProcessCommand(vEvent);
 379     }
 380     return true;
 381 } // end of wxChoice::OS2Command
 382
 383 #endif // wxUSE_CHOICE