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 , int                               n
  96 , const wxString                    asChoices[]
  97 , long                              lStyle
  98 , const wxValidator&                rValidator
  99 , const wxString&                   rsName
 100 )
 101 {
 102     m_isShown = FALSE;
 103
 104     if (!CreateControl( pParent
 105                        ,vId
 106                        ,rPos
 107                        ,rSize
 108                        ,lStyle
 109                        ,rValidator
 110                        ,rsName
 111                       ))
 112         return FALSE;
 113
 114     //
 115     // Get the right style
 116     //
 117     long                            lSstyle = 0L;
 118
 119     lSstyle = WS_TABSTOP   |
 120               WS_VISIBLE;
 121
 122     if (lStyle & wxCLIP_SIBLINGS )
 123         lSstyle |= WS_CLIPSIBLINGS;
 124     if (lStyle & wxCB_READONLY)
 125         lSstyle |= CBS_DROPDOWNLIST;
 126     else if (lStyle & wxCB_SIMPLE)
 127         lSstyle |= CBS_SIMPLE; // A list (shown always) and edit control
 128     else
 129         lSstyle |= CBS_DROPDOWN;
 130
 131
 132     if (!OS2CreateControl( "COMBOBOX"
 133                           ,lSstyle
 134                          ))
 135         return FALSE;
 136
 137     //
 138     // A choice/combobox normally has a white background (or other, depending
 139     // on global settings) rather than inheriting the parent's background colour.
 140     //
 141     SetBackgroundColour(wxSystemSettings::GetColour(wxSYS_COLOUR_WINDOW));
 142
 143     SetFont(*wxSMALL_FONT);
 144
 145     int                             i;
 146     for (i = 0; i < n; i++)
 147     {
 148         Append(asChoices[i]);
 149     }
 150
 151     SetSize( rPos.x
 152             ,rPos.y
 153             ,rSize.x
 154             ,rSize.y
 155            );
 156     if (!rsValue.IsEmpty())
 157     {
 158         SetValue(rsValue);
 159     }
 160     gfnWndprocEdit = (WXFARPROC)::WinSubclassWindow( (HWND)GetHwnd()
 161                                                     ,(PFNWP)wxComboEditWndProc
 162                                                    );
 163     ::WinSetWindowULong(GetHwnd(), QWL_USER, (ULONG)this);
 164     Show(TRUE);
 165     return TRUE;
 166 } // end of wxComboBox::Create
 167
 168 void wxComboBox::SetValue(
 169   const wxString&                   rsValue
 170 )
 171 {
 172     if ( HasFlag(wxCB_READONLY) )
 173         SetStringSelection(rsValue);
 174     else
 175         ::WinSetWindowText(GetHwnd(), rsValue.c_str());
 176 } // end of wxComboBox::SetValue
 177
 178 //
 179 // Clipboard operations
 180 //
 181 void wxComboBox::Copy()
 182 {
 183     HWND                            hWnd = GetHwnd();
 184
 185     ::WinSendMsg(hWnd, EM_COPY, (MPARAM)0, (MPARAM)0);
 186 } // end of wxComboBox::Copy
 187
 188 void wxComboBox::Cut()
 189 {
 190     HWND                            hWnd = GetHwnd();
 191
 192     ::WinSendMsg(hWnd, EM_CUT, (MPARAM)0, (MPARAM)0);
 193 } // end of wxComboBox::Cut
 194
 195 void wxComboBox::Paste()
 196 {
 197     HWND                            hWnd = GetHwnd();
 198
 199     ::WinSendMsg(hWnd, EM_PASTE, (MPARAM)0, (MPARAM)0);
 200 } // end of wxComboBox::Paste
 201
 202 void wxComboBox::SetEditable(
 203   bool                              bEditable
 204 )
 205 {
 206     HWND                            hWnd = GetHwnd();
 207
 208     ::WinSendMsg(hWnd, EM_SETREADONLY, (MPARAM)!bEditable, (MPARAM)0L);
 209 } // end of wxComboBox::SetEditable
 210
 211 void wxComboBox::SetInsertionPoint(
 212   long                              lPos
 213 )
 214 {
 215     HWND                            hWnd = GetHwnd();
 216
 217     ::WinSendMsg(hWnd, EM_SETFIRSTCHAR, MPFROMLONG(lPos), (MPARAM)0);
 218 } // end of wxComboBox::SetInsertionPoint
 219
 220 void wxComboBox::SetInsertionPointEnd()
 221 {
 222     long                            lPos = GetLastPosition();
 223
 224     SetInsertionPoint(lPos);
 225 } // end of wxComboBox::SetInsertionPointEnd
 226
 227 long wxComboBox::GetInsertionPoint() const
 228 {
 229     long                            lPos = LONGFROMMR(::WinSendMsg( GetHwnd()
 230                                                                    ,LM_QUERYSELECTION
 231                                                                    ,(MPARAM)0
 232                                                                    ,(MPARAM)0
 233                                                                   ));
 234    if (lPos == LIT_NONE)
 235         return wxNOT_FOUND;
 236    return lPos;
 237 } // end of wxComboBox::GetInsertionPoint
 238
 239 long wxComboBox::GetLastPosition() const
 240 {
 241     HWND                            hEditWnd = GetHwnd();
 242     long                            lLineLength = 0L;
 243     WNDPARAMS                       vParams;
 244
 245     //
 246     // Get number of characters in the last (only) line. We'll add this to the character
 247     // index for the last line, 1st position.
 248     //
 249
 250
 251     vParams.fsStatus = WPM_CCHTEXT;
 252     if (::WinSendMsg( GetHwnd()
 253                      ,WM_QUERYWINDOWPARAMS
 254                      ,&vParams
 255                      ,0
 256                     ))
 257     {
 258         lLineLength = (long)vParams.cchText;
 259     }
 260     else
 261         lLineLength = 0L;
 262     return lLineLength;
 263 } // end of wxComboBox::GetLastPosition
 264
 265 void wxComboBox::Replace(
 266   long                              lFrom
 267 , long                              lTo
 268 , const wxString&                   rsValue
 269 )
 270 {
 271 #if wxUSE_CLIPBOARD
 272     HWND                            hWnd = GetHwnd();
 273     long                            lFromChar = lFrom;
 274     long                            lToChar = lTo;
 275
 276     //
 277     // Set selection and remove it
 278     //
 279     ::WinSendMsg(hWnd, EM_SETSEL, MPFROM2SHORT((USHORT)lFrom, (USHORT)lTo), 0);
 280     ::WinSendMsg(hWnd, EM_CUT, (MPARAM)0, (MPARAM)0);
 281
 282     //
 283     // Now replace with 'value', by pasting.
 284     //
 285     wxSetClipboardData( wxDF_TEXT
 286                        ,(wxObject *)rsValue.c_str()
 287                        ,0
 288                        ,0
 289                       );
 290
 291     //
 292     // Paste into edit control
 293     //
 294     ::WinSendMsg(hWnd, EM_PASTE, (MPARAM)0, (MPARAM)0L);
 295 #endif
 296 } // end of wxComboBox::Replace
 297
 298 void wxComboBox::Remove(
 299   long                              lFrom
 300 , long                              lTo
 301 )
 302 {
 303 #if wxUSE_CLIPBOARD
 304     HWND                            hWnd = GetHwnd();
 305     long                            lFromChar = lFrom;
 306     long                            lToChar = lTo;
 307
 308     ::WinSendMsg(hWnd, EM_SETSEL, MPFROM2SHORT((USHORT)lFrom, (USHORT)lTo), 0);
 309     ::WinSendMsg(hWnd, EM_CUT, (MPARAM)0, (MPARAM)0);
 310 #endif
 311 } // end of wxComboBox::Remove
 312
 313 void wxComboBox::SetSelection(
 314   long                              lFrom
 315 , long                              lTo
 316 )
 317 {
 318     HWND                            hWnd = GetHwnd();
 319     long                            lFromChar = lFrom;
 320     long                            lToChar = lTo;
 321
 322     //
 323     // If from and to are both -1, it means
 324     // (in wxWindows) that all text should be selected.
 325     // This translates into Windows convention
 326     //
 327     if ((lFrom == -1L) && (lTo == -1L))
 328     {
 329         lFromChar = 0;
 330         lToChar = -1;
 331     }
 332
 333     ::WinSendMsg( hWnd
 334                  ,EM_SETSEL
 335                  ,MPFROM2SHORT((USHORT)lFromChar, (USHORT)lToChar)
 336                  ,(MPARAM)0
 337                 );
 338 } // end of wxComboBox::SetSelection
 339
 340 void wxComboBox::DoSetSize(
 341   int                               nX
 342 , int                               nY
 343 , int                               nWidth
 344 , int                               nHeight
 345 , int                               nSizeFlags
 346 )
 347 {
 348     wxControl::DoSetSize( nX
 349                          ,nY
 350                          ,nWidth
 351                          ,nHeight
 352                          ,nSizeFlags
 353                         );
 354 } // end of wxComboBox::DoSetSize
 355
 356 bool wxComboBox::ProcessEditMsg(
 357   WXUINT                            uMsg
 358 , WXWPARAM                          wParam
 359 , WXLPARAM                          lParam)
 360 {
 361     SHORT                           vFlag;
 362     switch (uMsg)
 363     {
 364         case WM_CHAR:
 365             vFlag = SHORT1FROMMP(wParam);
 366             switch(vFlag)
 367             {
 368                 case KC_CHAR:
 369                     return (HandleChar( wParam
 370                                        ,lParam
 371                                        ,TRUE /* isASCII */
 372                                       ));
 373
 374                 case KC_PREVDOWN:
 375                     return (HandleKeyDown( wParam
 376                                           ,lParam
 377                                          ));
 378
 379                 case KC_KEYUP:
 380                     return (HandleKeyUp( wParam
 381                                         ,lParam
 382                                        ));
 383             }
 384             break;
 385
 386         case WM_SETFOCUS:
 387             if (SHORT1FROMMP((MPARAM)lParam) == TRUE)
 388                 return(HandleSetFocus((WXHWND)(HWND)wParam));
 389             else
 390                 return(HandleKillFocus((WXHWND)(HWND)wParam));
 391             break;
 392     }
 393     return FALSE;
 394 } // end of WinGuiBase_CComboBox::ProcessEditMsg
 395
 396 MRESULT EXPENTRY wxComboEditWndProc(
 397   HWND                              hWnd
 398 , UINT                              uMessage
 399 , MPARAM                            wParam
 400 , MPARAM                            lParam
 401 )
 402 {
 403     HWND                            hWndCombo;
 404     wxWindow*                       pWin = NULL;
 405
 406     hWndCombo = ::WinQueryWindow(hWnd, QW_PARENT);
 407     pWin = (wxWindow*)wxFindWinFromHandle((WXHWND)hWndCombo);
 408     switch (uMessage)
 409     {
 410         //
 411         // Forward some messages to the combobox
 412         //
 413         case WM_SETFOCUS:
 414         case WM_CHAR:
 415             {
 416                 wxComboBox*         pCombo = wxDynamicCast( pWin
 417                                                            ,wxComboBox
 418                                                           );
 419
 420                 if (pCombo->ProcessEditMsg( uMessage
 421                                            ,wParam
 422                                            ,lParam
 423                                           ))
 424                     return ((MRESULT)0);
 425             }
 426             break;
 427
 428         //
 429         // TODO: Deal with tooltips here
 430         //
 431     }
 432     return (gfnWndprocEdit(hWnd, (ULONG)uMessage, (MPARAM)wParam, (MPARAM)lParam));
 433 } // end of wxComboEditWndProc
 434
 435 #endif
 436  // wxUSE_COMBOBOX
 437