src/os2/choice.cpp

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