src/os2/combobox.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        combobox.cpp
   3 // Purpose:     wxComboBox class
   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 #include "wx/combobox.h"
  13
  14 // For compilers that support precompilation, includes "wx.h".
  15 #include "wx/wxprec.h"
  16
  17 #ifndef WX_PRECOMP
  18     #include "wx/setup.h"
  19     #include "wx/settings.h"
  20 #endif
  21
  22 #if wxUSE_COMBOBOX
  23
  24 #include "wx/combobox.h"
  25 #include "wx/clipbrd.h"
  26 #include "wx/os2/private.h"
  27
  28 #define OWNER_DRAWN_LISTBOX_EXTRA_SPACE    (1)
  29
  30 MRESULT EXPENTRY wxComboEditWndProc( HWND   hWnd
  31                                     ,UINT   uMessage
  32                                     ,MPARAM wParam
  33                                     ,MPARAM lParam
  34                                    );
  35 //
  36 // The pointer to standard wnd proc
  37 //
  38 static WXFARPROC gfnWndprocEdit     = (WXFARPROC)NULL;
  39
  40 IMPLEMENT_DYNAMIC_CLASS(wxComboBox, wxControl)
  41
  42 bool wxComboBox::OS2Command(
  43   WXUINT                            uParam
  44 , WXWORD                            WXUNUSED(wId)
  45 )
  46 {
  47     long                            lSel = -1L;
  48     wxString                        sValue;
  49
  50     switch (uParam)
  51     {
  52         case CBN_LBSELECT:
  53             if (GetSelection() > -1)
  54             {
  55                 wxCommandEvent      vEvent( wxEVT_COMMAND_COMBOBOX_SELECTED
  56                                            ,GetId()
  57                                           );
  58
  59                 vEvent.SetInt(GetSelection());
  60                 vEvent.SetEventObject(this);
  61                 vEvent.SetString((char*)GetStringSelection().c_str());
  62                 ProcessCommand(vEvent);
  63             }
  64             break;
  65
  66         case CBN_EFCHANGE:
  67             {
  68                 wxCommandEvent      vEvent( wxEVT_COMMAND_TEXT_UPDATED
  69                                            ,GetId()
  70                                           );
  71
  72                 if (lSel == -1L)
  73                     sValue = GetValue();
  74                 else
  75                     SetValue(sValue);
  76                 vEvent.SetString((char*)GetValue().c_str());
  77                 vEvent.SetEventObject(this);
  78                 ProcessCommand(vEvent);
  79             }
  80             break;
  81     }
  82     //
  83     // There is no return value for the CBN_ notifications, so always return
  84     // false from here to pass the message to DefWindowProc()
  85     //
  86     return false;
  87 } // end of wxComboBox::OS2Command
  88
  89 bool wxComboBox::Create(
  90   wxWindow*                         pParent
  91 , wxWindowID                        vId
  92 , const wxString&                   rsValue
  93 , const wxPoint&                    rPos
  94 , const wxSize&                     rSize
  95 , const wxArrayString&              asChoices
  96 , long                              lStyle
  97 , const wxValidator&                rValidator
  98 , const wxString&                   rsName
  99 )
 100 {
 101     wxCArrayString chs(asChoices);
 102
 103     return Create(pParent, vId, rsValue, rPos, rSize, chs.GetCount(),
 104                   chs.GetStrings(), lStyle, rValidator, rsName);
 105 }
 106
 107 bool wxComboBox::Create(
 108   wxWindow*                         pParent
 109 , wxWindowID                        vId
 110 , const wxString&                   rsValue
 111 , const wxPoint&                    rPos
 112 , const wxSize&                     rSize
 113 , int                               n
 114 , const wxString                    asChoices[]
 115 , long                              lStyle
 116 , const wxValidator&                rValidator
 117 , const wxString&                   rsName
 118 )
 119 {
 120     m_isShown = false;
 121
 122     if (!CreateControl( pParent
 123                        ,vId
 124                        ,rPos
 125                        ,rSize
 126                        ,lStyle
 127                        ,rValidator
 128                        ,rsName
 129                       ))
 130         return false;
 131
 132     //
 133     // Get the right style
 134     //
 135     long                            lSstyle = 0L;
 136
 137     lSstyle = WS_TABSTOP   |
 138               WS_VISIBLE;
 139
 140     if (lStyle & wxCLIP_SIBLINGS )
 141         lSstyle |= WS_CLIPSIBLINGS;
 142     if (lStyle & wxCB_READONLY)
 143         lSstyle |= CBS_DROPDOWNLIST;
 144     else if (lStyle & wxCB_SIMPLE)
 145         lSstyle |= CBS_SIMPLE; // A list (shown always) and edit control
 146     else
 147         lSstyle |= CBS_DROPDOWN;
 148
 149
 150     if (!OS2CreateControl( "COMBOBOX"
 151                           ,lSstyle
 152                          ))
 153         return false;
 154
 155     //
 156     // A choice/combobox normally has a white background (or other, depending
 157     // on global settings) rather than inheriting the parent's background colour.
 158     //
 159     SetBackgroundColour(wxSystemSettings::GetColour(wxSYS_COLOUR_WINDOW));
 160
 161     SetFont(*wxSMALL_FONT);
 162
 163     int                             i;
 164     for (i = 0; i < n; i++)
 165     {
 166         Append(asChoices[i]);
 167     }
 168
 169     SetSize( rPos.x
 170             ,rPos.y
 171             ,rSize.x
 172             ,rSize.y
 173            );
 174     if (!rsValue.empty())
 175     {
 176         SetValue(rsValue);
 177     }
 178     gfnWndprocEdit = (WXFARPROC)::WinSubclassWindow( (HWND)GetHwnd()
 179                                                     ,(PFNWP)wxComboEditWndProc
 180                                                    );
 181     ::WinSetWindowULong(GetHwnd(), QWL_USER, (ULONG)this);
 182     Show(true);
 183     return true;
 184 } // end of wxComboBox::Create
 185
 186 void wxComboBox::SetValue(
 187   const wxString&                   rsValue
 188 )
 189 {
 190     if ( HasFlag(wxCB_READONLY) )
 191         SetStringSelection(rsValue);
 192     else
 193         ::WinSetWindowText(GetHwnd(), rsValue.c_str());
 194 } // end of wxComboBox::SetValue
 195
 196 //
 197 // Clipboard operations
 198 //
 199 void wxComboBox::Copy()
 200 {
 201     HWND                            hWnd = GetHwnd();
 202
 203     ::WinSendMsg(hWnd, EM_COPY, (MPARAM)0, (MPARAM)0);
 204 } // end of wxComboBox::Copy
 205
 206 void wxComboBox::Cut()
 207 {
 208     HWND                            hWnd = GetHwnd();
 209
 210     ::WinSendMsg(hWnd, EM_CUT, (MPARAM)0, (MPARAM)0);
 211 } // end of wxComboBox::Cut
 212
 213 void wxComboBox::Paste()
 214 {
 215     HWND                            hWnd = GetHwnd();
 216
 217     ::WinSendMsg(hWnd, EM_PASTE, (MPARAM)0, (MPARAM)0);
 218 } // end of wxComboBox::Paste
 219
 220 void wxComboBox::SetEditable(
 221   bool                              bEditable
 222 )
 223 {
 224     HWND                            hWnd = GetHwnd();
 225
 226     ::WinSendMsg(hWnd, EM_SETREADONLY, (MPARAM)!bEditable, (MPARAM)0L);
 227 } // end of wxComboBox::SetEditable
 228
 229 void wxComboBox::SetInsertionPoint(
 230   long                              lPos
 231 )
 232 {
 233     HWND                            hWnd = GetHwnd();
 234
 235     ::WinSendMsg(hWnd, EM_SETFIRSTCHAR, MPFROMLONG(lPos), (MPARAM)0);
 236 } // end of wxComboBox::SetInsertionPoint
 237
 238 void wxComboBox::SetInsertionPointEnd()
 239 {
 240     wxTextPos                       lPos = GetLastPosition();
 241
 242     SetInsertionPoint(lPos);
 243 } // end of wxComboBox::SetInsertionPointEnd
 244
 245 long wxComboBox::GetInsertionPoint() const
 246 {
 247     long                            lPos = LONGFROMMR(::WinSendMsg( GetHwnd()
 248                                                                    ,LM_QUERYSELECTION
 249                                                                    ,(MPARAM)0
 250                                                                    ,(MPARAM)0
 251                                                                   ));
 252    if (lPos == LIT_NONE)
 253         return wxNOT_FOUND;
 254    return lPos;
 255 } // end of wxComboBox::GetInsertionPoint
 256
 257 wxTextPos wxComboBox::GetLastPosition() const
 258 {
 259     long                            lLineLength = 0L;
 260     WNDPARAMS                       vParams;
 261
 262     //
 263     // Get number of characters in the last (only) line. We'll add this to the character
 264     // index for the last line, 1st position.
 265     //
 266
 267
 268     vParams.fsStatus = WPM_CCHTEXT;
 269     if (::WinSendMsg( GetHwnd()
 270                      ,WM_QUERYWINDOWPARAMS
 271                      ,&vParams
 272                      ,0
 273                     ))
 274     {
 275         lLineLength = (long)vParams.cchText;
 276     }
 277     else
 278         lLineLength = 0L;
 279     return lLineLength;
 280 } // end of wxComboBox::GetLastPosition
 281
 282 void wxComboBox::Replace(
 283   long                              lFrom
 284 , long                              lTo
 285 , const wxString&                   rsValue
 286 )
 287 {
 288 #if wxUSE_CLIPBOARD
 289     HWND                            hWnd = GetHwnd();
 290
 291     //
 292     // Set selection and remove it
 293     //
 294     ::WinSendMsg(hWnd, EM_SETSEL, MPFROM2SHORT((USHORT)lFrom, (USHORT)lTo), 0);
 295     ::WinSendMsg(hWnd, EM_CUT, (MPARAM)0, (MPARAM)0);
 296
 297     //
 298     // Now replace with 'value', by pasting.
 299     //
 300     wxSetClipboardData( wxDF_TEXT
 301                        ,(wxObject *)rsValue.c_str()
 302                        ,0
 303                        ,0
 304                       );
 305
 306     //
 307     // Paste into edit control
 308     //
 309     ::WinSendMsg(hWnd, EM_PASTE, (MPARAM)0, (MPARAM)0L);
 310 #endif
 311 } // end of wxComboBox::Replace
 312
 313 void wxComboBox::Remove(
 314   long                              lFrom
 315 , long                              lTo
 316 )
 317 {
 318 #if wxUSE_CLIPBOARD
 319     HWND                            hWnd = GetHwnd();
 320
 321     ::WinSendMsg(hWnd, EM_SETSEL, MPFROM2SHORT((USHORT)lFrom, (USHORT)lTo), 0);
 322     ::WinSendMsg(hWnd, EM_CUT, (MPARAM)0, (MPARAM)0);
 323 #endif
 324 } // end of wxComboBox::Remove
 325
 326 void wxComboBox::SetSelection(
 327   long                              lFrom
 328 , long                              lTo
 329 )
 330 {
 331     HWND                            hWnd = GetHwnd();
 332     long                            lFromChar = 0;
 333     long                            lToChar   = 0;
 334
 335     //
 336     // If from and to are both -1, it means
 337     // (in wxWidgets) that all text should be selected.
 338     // This translates into Windows convention
 339     //
 340     if ((lFrom == -1L) && (lTo == -1L))
 341     {
 342         lFromChar = 0;
 343         lToChar = -1;
 344     }
 345
 346     ::WinSendMsg( hWnd
 347                  ,EM_SETSEL
 348                  ,MPFROM2SHORT((USHORT)lFromChar, (USHORT)lToChar)
 349                  ,(MPARAM)0
 350                 );
 351 } // end of wxComboBox::SetSelection
 352
 353 void wxComboBox::DoSetSize(
 354   int                               nX
 355 , int                               nY
 356 , int                               nWidth
 357 , int                               nHeight
 358 , int                               nSizeFlags
 359 )
 360 {
 361     wxControl::DoSetSize( nX
 362                          ,nY
 363                          ,nWidth
 364                          ,nHeight
 365                          ,nSizeFlags
 366                         );
 367 } // end of wxComboBox::DoSetSize
 368
 369 bool wxComboBox::ProcessEditMsg(
 370   WXUINT                            uMsg
 371 , WXWPARAM                          wParam
 372 , WXLPARAM                          lParam)
 373 {
 374     SHORT                           vFlag;
 375     switch (uMsg)
 376     {
 377         case WM_CHAR:
 378             vFlag = SHORT1FROMMP(wParam);
 379             switch(vFlag)
 380             {
 381                 case KC_CHAR:
 382                     return (HandleChar( wParam
 383                                        ,lParam
 384                                        ,true /* isASCII */
 385                                       ));
 386
 387                 case KC_PREVDOWN:
 388                     return (HandleKeyDown( wParam
 389                                           ,lParam
 390                                          ));
 391
 392                 case KC_KEYUP:
 393                     return (HandleKeyUp( wParam
 394                                         ,lParam
 395                                        ));
 396             }
 397             break;
 398
 399         case WM_SETFOCUS:
 400             if (SHORT1FROMMP((MPARAM)lParam) == TRUE)
 401                 return(HandleSetFocus((WXHWND)(HWND)wParam));
 402             else
 403                 return(HandleKillFocus((WXHWND)(HWND)wParam));
 404             break;
 405     }
 406     return false;
 407 } // end of WinGuiBase_CComboBox::ProcessEditMsg
 408
 409 MRESULT EXPENTRY wxComboEditWndProc(
 410   HWND                              hWnd
 411 , UINT                              uMessage
 412 , MPARAM                            wParam
 413 , MPARAM                            lParam
 414 )
 415 {
 416     switch (uMessage)
 417     {
 418         //
 419         // Forward some messages to the combobox
 420         //
 421         case WM_SETFOCUS:
 422         case WM_CHAR:
 423             {
 424                 wxComboBox* pCombo = (wxComboBox *)::WinQueryWindowULong( hWnd
 425                                                                          ,QWL_USER
 426                                                                         );
 427
 428                 if (pCombo->ProcessEditMsg( uMessage
 429                                            ,wParam
 430                                            ,lParam
 431                                           ))
 432                     return ((MRESULT)0);
 433             }
 434             break;
 435
 436         //
 437         // TODO: Deal with tooltips here
 438         //
 439     }
 440     return (gfnWndprocEdit(hWnd, (ULONG)uMessage, (MPARAM)wParam, (MPARAM)lParam));
 441 } // end of wxComboEditWndProc
 442
 443 #endif
 444  // wxUSE_COMBOBOX
 445