use ES_RIGHT|ES_NUMBER styles for the buddy control as it's used for numeric entry...

[wxWidgets.git] / src / os2 / combobox.cpp

diff --git a/src/os2/combobox.cpp b/src/os2/combobox.cpp
index 0be841bad4dabe1a3db99195f50a26b7b2419441..d3ff05da08fab752c49dda6e1cea85648335d8b3 100644 (file)
--- a/src/os2/combobox.cpp
+++ b/src/os2/combobox.cpp
@@ -1,165 +1,429 @@
 /////////////////////////////////////////////////////////////////////////////
 /////////////////////////////////////////////////////////////////////////////

-// Name:        combobox.cpp
+// Name:        src/os2/combobox.cpp

 // Purpose:     wxComboBox class
 // Purpose:     wxComboBox class

-// Author:      AUTHOR
+// Author:      David Webster

 // Modified by:
 // Modified by:

-// Created:     ??/??/98
+// Created:     10/13/99

 // RCS-ID:      $Id$
 // RCS-ID:      $Id$

-// Copyright:   (c) AUTHOR
-// Licence:    wxWindows licence
+// Copyright:   (c) David Webster
+// Licence:     wxWindows licence

 /////////////////////////////////////////////////////////////////////////////
 
 /////////////////////////////////////////////////////////////////////////////
 

-#ifdef __GNUG__
-#pragma implementation "combobox.h"
-#endif
+// For compilers that support precompilation, includes "wx.h".
+#include "wx/wxprec.h"
+
+#if wxUSE_COMBOBOX

 
 #include "wx/combobox.h"
 
 
 #include "wx/combobox.h"
 

-#if !USE_SHARED_LIBRARY
-IMPLEMENT_DYNAMIC_CLASS(wxComboBox, wxControl)
+#ifndef WX_PRECOMP
+    #include "wx/settings.h"

 #endif
 
 #endif
 

-bool wxComboBox::Create(wxWindow *parent, wxWindowID id,
-           const wxString& value,
-           const wxPoint& pos,
-           const wxSize& size,
-                  int n, const wxString choices[],
-                  long style,
-           const wxValidator& validator,
-           const wxString& name)
+#include "wx/clipbrd.h"
+#include "wx/os2/private.h"
+
+#define OWNER_DRAWN_LISTBOX_EXTRA_SPACE    (1)
+
+MRESULT EXPENTRY wxComboEditWndProc( HWND   hWnd
+                                    ,UINT   uMessage
+                                    ,MPARAM wParam
+                                    ,MPARAM lParam
+                                   );
+//
+// The pointer to standard wnd proc
+//
+static WXFARPROC gfnWndprocEdit     = (WXFARPROC)NULL;
+
+IMPLEMENT_DYNAMIC_CLASS(wxComboBox, wxControl)
+
+bool wxComboBox::OS2Command( WXUINT uParam, WXWORD WXUNUSED(wId) )

 {
 {

-    SetName(name);
-    SetValidator(validator);
-    m_noStrings = n;
-    m_windowStyle = style;
+    long lSel = GetSelection();
+    wxString sValue;

 
 

-    if (parent) parent->AddChild(this);
+    switch (uParam)
+    {
+        case CBN_LBSELECT:
+            if (lSel > -1)
+            {
+                wxCommandEvent vEvent( wxEVT_COMMAND_COMBOBOX_SELECTED, GetId() );

 
 

-    if ( id == -1 )
-       m_windowId = (int)NewControlId();
-    else
-       m_windowId = id;
+                vEvent.SetInt(lSel);
+                vEvent.SetEventObject(this);
+                vEvent.SetString(GetStringSelection());
+
+                ProcessCommand(vEvent);
+            }
+            break;

 
 

-    // TODO: create combobox control
+        case CBN_EFCHANGE:
+            {
+                wxCommandEvent vEvent( wxEVT_COMMAND_TEXT_UPDATED, GetId() );

 
 

-    return TRUE;
+                if (lSel == -1L)
+                    sValue = GetValue();
+                else
+                    sValue = GetStringSelection();
+                vEvent.SetString(sValue);
+                vEvent.SetEventObject(this);
+                ProcessCommand(vEvent);
+            }
+            break;
+    }
+    //
+    // There is no return value for the CBN_ notifications, so always return
+    // false from here to pass the message to DefWindowProc()
+    //
+    return false;
+} // end of wxComboBox::OS2Command
+
+bool wxComboBox::Create(
+  wxWindow*                         pParent
+, wxWindowID                        vId
+, const wxString&                   rsValue
+, const wxPoint&                    rPos
+, const wxSize&                     rSize
+, const wxArrayString&              asChoices
+, long                              lStyle
+, const wxValidator&                rValidator
+, const wxString&                   rsName
+)
+{
+    wxCArrayString chs(asChoices);
+
+    return Create(pParent, vId, rsValue, rPos, rSize, chs.GetCount(),
+                  chs.GetStrings(), lStyle, rValidator, rsName);

 }
 
 }
 

+bool wxComboBox::Create(
+  wxWindow*                         pParent
+, wxWindowID                        vId
+, const wxString&                   rsValue
+, const wxPoint&                    rPos
+, const wxSize&                     rSize
+, int                               n
+, const wxString                    asChoices[]
+, long                              lStyle
+, const wxValidator&                rValidator
+, const wxString&                   rsName
+)
+{
+    m_isShown = false;
+
+    if (!CreateControl( pParent
+                       ,vId
+                       ,rPos
+                       ,rSize
+                       ,lStyle
+                       ,rValidator
+                       ,rsName
+                      ))
+        return false;
+
+    //
+    // Get the right style
+    //
+    long                            lSstyle = 0L;
+
+    lSstyle = WS_TABSTOP   |
+              WS_VISIBLE;
+
+    // clipping siblings does not yet work
+    // if (lStyle & wxCLIP_SIBLINGS )
+    //     lSstyle |= WS_CLIPSIBLINGS;
+    if (lStyle & wxCB_READONLY)
+        lSstyle |= CBS_DROPDOWNLIST;
+    else if (lStyle & wxCB_SIMPLE)
+        lSstyle |= CBS_SIMPLE; // A list (shown always) and edit control
+    else
+        lSstyle |= CBS_DROPDOWN;
+
+
+    if (!OS2CreateControl( _T("COMBOBOX")
+                          ,lSstyle
+                         ))
+        return false;
+
+    //
+    // A choice/combobox normally has a white background (or other, depending
+    // on global settings) rather than inheriting the parent's background colour.
+    //
+    SetBackgroundColour(wxSystemSettings::GetColour(wxSYS_COLOUR_WINDOW));
+
+    for (int i = 0; i < n; i++)
+    {
+        Append(asChoices[i]);
+    }
+
+    SetSize( rPos.x
+            ,rPos.y
+            ,rSize.x
+            ,rSize.y
+           );
+
+    // Set height to use with sizers i.e. without the dropdown listbox
+    wxFont vFont = GetFont();
+    int nEditHeight;
+    wxGetCharSize( GetHWND(), NULL, &nEditHeight, &vFont );
+    nEditHeight = EDIT_HEIGHT_FROM_CHAR_HEIGHT(nEditHeight);
+    SetInitialSize(wxSize(-1,nEditHeight+4));   // +2x2 for the border
+
+    if (!rsValue.empty())
+    {
+        SetValue(rsValue);
+    }
+    gfnWndprocEdit = (WXFARPROC)::WinSubclassWindow( (HWND)GetHwnd()
+                                                    ,(PFNWP)wxComboEditWndProc
+                                                   );
+    ::WinSetWindowULong(GetHwnd(), QWL_USER, (ULONG)this);
+    Show(true);
+    return true;
+} // end of wxComboBox::Create
+

 wxString wxComboBox::GetValue() const
 {
 wxString wxComboBox::GetValue() const
 {

-    // TODO
-    return wxString("");
+    return wxGetWindowText(GetHwnd());

 }
 
 }
 

-void wxComboBox::SetValue(const wxString& value)
+void wxComboBox::SetValue(
+  const wxString&                   rsValue
+)

 {
 {

-    // TODO
-}
+    if ( HasFlag(wxCB_READONLY) )
+        SetStringSelection(rsValue);
+    else
+        ::WinSetWindowText(GetHwnd(), rsValue.c_str());
+} // end of wxComboBox::SetValue

 
 

+//

 // Clipboard operations
 // Clipboard operations

+//

 void wxComboBox::Copy()
 {
 void wxComboBox::Copy()
 {

-    // TODO
-}
+    HWND                            hWnd = GetHwnd();
+
+    ::WinSendMsg(hWnd, EM_COPY, (MPARAM)0, (MPARAM)0);
+} // end of wxComboBox::Copy

 
 void wxComboBox::Cut()
 {
 
 void wxComboBox::Cut()
 {

-    // TODO
-}
+    HWND                            hWnd = GetHwnd();
+
+    ::WinSendMsg(hWnd, EM_CUT, (MPARAM)0, (MPARAM)0);
+} // end of wxComboBox::Cut

 
 void wxComboBox::Paste()
 {
 
 void wxComboBox::Paste()
 {

-    // TODO
-}
+    HWND                            hWnd = GetHwnd();
+
+    ::WinSendMsg(hWnd, EM_PASTE, (MPARAM)0, (MPARAM)0);
+} // end of wxComboBox::Paste

 
 

-void wxComboBox::SetEditable(bool editable)
+void wxComboBox::SetEditable(
+  bool                              bEditable
+)

 {
 {

-    // TODO
-}
+    HWND                            hWnd = GetHwnd();
+
+    ::WinSendMsg(hWnd, EM_SETREADONLY, (MPARAM)!bEditable, (MPARAM)0L);
+} // end of wxComboBox::SetEditable

 
 

-void wxComboBox::SetInsertionPoint(long pos)
+void wxComboBox::SetInsertionPoint(
+  long                              lPos
+)

 {
 {

-    // TODO
-}
+    HWND                            hWnd = GetHwnd();
+
+    ::WinSendMsg(hWnd, EM_SETFIRSTCHAR, MPFROMLONG(lPos), (MPARAM)0);
+} // end of wxComboBox::SetInsertionPoint

 
 void wxComboBox::SetInsertionPointEnd()
 {
 
 void wxComboBox::SetInsertionPointEnd()
 {

-    // TODO
-}
+    wxTextPos                       lPos = GetLastPosition();
+
+    SetInsertionPoint(lPos);
+} // end of wxComboBox::SetInsertionPointEnd

 
 long wxComboBox::GetInsertionPoint() const
 {
 
 long wxComboBox::GetInsertionPoint() const
 {

-    // TODO
-    return 0;
-}
+    long                            lPos = LONGFROMMR(::WinSendMsg( GetHwnd()
+                                                                   ,LM_QUERYSELECTION
+                                                                   ,(MPARAM)0
+                                                                   ,(MPARAM)0
+                                                                  ));
+   if (lPos == LIT_NONE)
+        return wxNOT_FOUND;
+   return lPos;
+} // end of wxComboBox::GetInsertionPoint

 
 

-long wxComboBox::GetLastPosition() const
+wxTextPos wxComboBox::GetLastPosition() const

 {
 {

-    // TODO
-    return 0;
-}
+    long                            lLineLength = 0L;
+    WNDPARAMS                       vParams;

 
 

-void wxComboBox::Replace(long from, long to, const wxString& value)
-{
-    // TODO
-}
+    //
+    // Get number of characters in the last (only) line. We'll add this to the character
+    // index for the last line, 1st position.
+    //

 
 

-void wxComboBox::Remove(long from, long to)
-{
-    // TODO
-}

 
 

-void wxComboBox::SetSelection(long from, long to)
-{
-    // TODO
-}
+    vParams.fsStatus = WPM_CCHTEXT;
+    if (::WinSendMsg( GetHwnd()
+                     ,WM_QUERYWINDOWPARAMS
+                     ,&vParams
+                     ,0
+                    ))
+    {
+        lLineLength = (long)vParams.cchText;
+    }
+    else
+        lLineLength = 0L;
+    return lLineLength;
+} // end of wxComboBox::GetLastPosition

 
 

-void wxComboBox::Append(const wxString& item)
+void wxComboBox::Replace( long lFrom,
+                          long lTo,
+                          const wxString& rsValue )

 {
 {

-    // TODO
-}
+#if wxUSE_CLIPBOARD
+    HWND                            hWnd = GetHwnd();

 
 

-void wxComboBox::Delete(int n)
-{
-    // TODO
-}
+    //
+    // Set selection and remove it
+    //
+    ::WinSendMsg(hWnd, EM_SETSEL, MPFROM2SHORT((USHORT)lFrom, (USHORT)lTo), 0);
+    ::WinSendMsg(hWnd, EM_CUT, (MPARAM)0, (MPARAM)0);

 
 

-void wxComboBox::Clear()
-{
-    // TODO
-}
+    //
+    // Now replace with 'value', by pasting.
+    //
+    wxSetClipboardData( wxDF_TEXT
+                       ,rsValue.c_str()
+                       ,0
+                       ,0
+                      );

 
 

-int wxComboBox::GetSelection() const
-{
-    // TODO
-    return -1;
-}
+    //
+    // Paste into edit control
+    //
+    ::WinSendMsg(hWnd, EM_PASTE, (MPARAM)0, (MPARAM)0L);
+#else
+    wxUnusedVar(lFrom);
+    wxUnusedVar(lTo);
+    wxUnusedVar(rsValue);
+#endif
+} // end of wxComboBox::Replace

 
 

-void wxComboBox::SetSelection(int n)
+void wxComboBox::Remove( long lFrom, long lTo)

 {
 {

-    // TODO
-}
+#if wxUSE_CLIPBOARD
+    HWND                            hWnd = GetHwnd();

 
 

-int wxComboBox::FindString(const wxString& s) const
-{
-    // TODO
-    return -1;
-}
+    ::WinSendMsg(hWnd, EM_SETSEL, MPFROM2SHORT((USHORT)lFrom, (USHORT)lTo), 0);
+    ::WinSendMsg(hWnd, EM_CUT, (MPARAM)0, (MPARAM)0);
+#else
+    wxUnusedVar(lFrom);
+    wxUnusedVar(lTo);
+#endif
+} // end of wxComboBox::Remove

 
 

-wxString wxComboBox::GetString(int n) const
+void wxComboBox::SetSelection( long lFrom, long lTo )

 {
 {

-    // TODO
-    return wxString("");
-}
+    HWND hWnd = GetHwnd();
+    long lFromChar = 0;
+    long lToChar   = 0;
+
+    //
+    // If from and to are both -1, it means
+    // (in wxWidgets) that all text should be selected.
+    // This translates into Windows convention
+    //
+    if ((lFrom == -1L) && (lTo == -1L))
+    {
+        lFromChar = 0;
+        lToChar = -1;
+    }
+
+    ::WinSendMsg( hWnd
+                 ,EM_SETSEL
+                 ,MPFROM2SHORT((USHORT)lFromChar, (USHORT)lToChar)
+                 ,(MPARAM)0
+                );
+} // end of wxComboBox::SetSelection

 
 

-wxString wxComboBox::GetStringSelection() const
+bool wxComboBox::ProcessEditMsg(
+  WXUINT                            uMsg
+, WXWPARAM                          wParam
+, WXLPARAM                          lParam)

 {
 {

-    // TODO
-    return wxString("");
-}
+    SHORT                           vFlag;
+    switch (uMsg)
+    {
+        case WM_CHAR:
+            vFlag = SHORT1FROMMP(wParam);
+            switch(vFlag)
+            {
+                case KC_CHAR:
+                    return (HandleChar( wParam
+                                       ,lParam
+                                       ,true /* isASCII */
+                                      ));
+
+                case KC_PREVDOWN:
+                    return (HandleKeyDown( wParam
+                                          ,lParam
+                                         ));
+
+                case KC_KEYUP:
+                    return (HandleKeyUp( wParam
+                                        ,lParam
+                                       ));
+            }
+            break;

 
 

-bool wxComboBox::SetStringSelection(const wxString& sel)
+        case WM_SETFOCUS:
+            if (SHORT1FROMMP((MPARAM)lParam) == TRUE)
+                return(HandleSetFocus((WXHWND)(HWND)wParam));
+            else
+                return(HandleKillFocus((WXHWND)(HWND)wParam));
+    }
+    return false;
+} // end of wxComboBox::ProcessEditMsg
+
+MRESULT EXPENTRY wxComboEditWndProc(
+  HWND                              hWnd
+, UINT                              uMessage
+, MPARAM                            wParam
+, MPARAM                            lParam
+)

 {
 {

-    // TODO
-    return FALSE;
-}
+    switch (uMessage)
+    {
+        //
+        // Forward some messages to the combobox
+        //
+        case WM_SETFOCUS:
+        case WM_CHAR:
+            {
+                wxComboBox* pCombo = (wxComboBox *)::WinQueryWindowULong( hWnd
+                                                                         ,QWL_USER
+                                                                        );
+
+                if (pCombo->ProcessEditMsg( uMessage
+                                           ,wParam
+                                           ,lParam
+                                          ))
+                    return ((MRESULT)0);
+            }
+            break;
+
+        //
+        // TODO: Deal with tooltips here
+        //
+    }
+    return (gfnWndprocEdit(hWnd, (ULONG)uMessage, (MPARAM)wParam, (MPARAM)lParam));
+} // end of wxComboEditWndProc
+
+#endif
+ // wxUSE_COMBOBOX