]> git.saurik.com Git - wxWidgets.git/blob - src/os2/spinbutt.cpp
Fix wxTextEntryDialog::GetValue() when using SetTextValidator().
[wxWidgets.git] / src / os2 / spinbutt.cpp
1 /////////////////////////////////////////////////////////////////////////////
2 // Name: src/os2/spinbutt.cpp
3 // Purpose: wxSpinButton
4 // Author: David Webster
5 // Modified by:
6 // Created: 10/15/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
16 #ifndef WX_PRECOMP
17 #include "wx/wx.h"
18 #endif
19 #if wxUSE_SPINBTN
20
21 // Can't resolve reference to CreateUpDownControl in
22 // TWIN32, but could probably use normal CreateWindow instead.
23
24
25 #include "wx/spinbutt.h"
26
27 extern void wxAssociateWinWithHandle( HWND hWnd
28 ,wxWindowOS2* pWin
29 );
30
31 #include "wx/os2/private.h"
32
33 // ============================================================================
34 // implementation
35 // ============================================================================
36
37 // ----------------------------------------------------------------------------
38 // wxWin macros
39 // ----------------------------------------------------------------------------
40
41 bool wxSpinButton::Create(
42 wxWindow* pParent
43 , wxWindowID vId
44 , const wxPoint& rPos
45 , const wxSize& rSize
46 , long lStyle
47 , const wxString& rsName
48 )
49 {
50 int nX = rPos.x;
51 int nY = rPos.y;
52 int nWidth = rSize.x;
53 int nHeight = rSize.y;
54 SWP vSwp;
55
56 m_min = 0;
57 m_max = 100;
58 if (vId == -1)
59 m_windowId = NewControlId();
60 else
61 m_windowId = vId;
62 if (pParent)
63 {
64 m_backgroundColour = pParent->GetBackgroundColour();
65 m_foregroundColour = pParent->GetForegroundColour();
66 }
67 SetName(rsName);
68 SetParent(pParent);
69 m_windowStyle = lStyle;
70
71 //
72 // Get the right size for the control
73 //
74 if (nWidth <= 0 || nHeight <= 0 )
75 {
76 wxSize vSize = DoGetBestSize();
77
78 if (nWidth <= 0 )
79 nWidth = vSize.x;
80 if (nHeight <= 0 )
81 nHeight = vSize.y;
82 }
83 if (nX < 0 )
84 nX = 0;
85 if (nY < 0 )
86 nY = 0;
87
88 long lSstyle = WS_VISIBLE |
89 WS_TABSTOP |
90 SPBS_MASTER | // We use only single field spin buttons
91 SPBS_NUMERICONLY; // We default to numeric data
92
93 if (m_windowStyle & wxCLIP_SIBLINGS )
94 lSstyle |= WS_CLIPSIBLINGS;
95
96 m_hWnd = (WXHWND)::WinCreateWindow( GetWinHwnd(pParent)
97 ,WC_SPINBUTTON
98 ,(PSZ)NULL
99 ,lSstyle
100 ,0L, 0L, 0L, 0L
101 ,GetWinHwnd(pParent)
102 ,HWND_TOP
103 ,(HMENU)vId
104 ,NULL
105 ,NULL
106 );
107 if (m_hWnd == 0)
108 {
109 return FALSE;
110 }
111 SetRange(m_min, m_max);
112 if(pParent)
113 pParent->AddChild((wxSpinButton *)this);
114
115 ::WinQueryWindowPos(m_hWnd, &vSwp);
116 SetXComp(vSwp.x);
117 SetYComp(vSwp.y-5); // compensate for the associated TextControl border
118
119 SetFont(*wxSMALL_FONT);
120 //
121 // For OS/2 we want to hide the text portion so we can substitute an
122 // independent text ctrl in its place.
123 // Therefore we must override any user given width with our best guess.
124 //
125 SetSize( nX - GetXComp()
126 ,nY - GetYComp()
127 ,nWidth
128 ,nHeight
129 );
130 wxAssociateWinWithHandle( m_hWnd
131 ,(wxWindowOS2*)this
132 );
133 #if 0
134 // FIXME:
135 // Apparently, this does not work, as it crashes in setvalue/setrange calls
136 // What's it supposed to do anyway?
137 ::WinSetWindowULong(GetHwnd(), QWL_USER, (LONG)this);
138 fnWndProcSpinCtrl = (WXFARPROC)::WinSubclassWindow(m_hWnd, (PFNWP)wxSpinCtrlWndProc);
139 #endif
140 return TRUE;
141 } // end of wxSpinButton::Create
142
143 wxSpinButton::~wxSpinButton()
144 {
145 } // end of wxSpinButton::~wxSpinButton
146
147 // ----------------------------------------------------------------------------
148 // size calculation
149 // ----------------------------------------------------------------------------
150
151 wxSize wxSpinButton::DoGetBestSize() const
152 {
153 //
154 // OS/2 PM does not really have system metrics so we'll just set it to
155 // a square based on its height.
156 //
157 RECTL vRect;
158 ::WinQueryWindowRect(GetHwnd(),&vRect);
159 return wxSize(vRect.yTop,vRect.yTop);
160 } // end of wxSpinButton::DoGetBestSize
161
162 // ----------------------------------------------------------------------------
163 // Attributes
164 // ----------------------------------------------------------------------------
165
166 int wxSpinButton::GetValue() const
167 {
168 long lVal = 0L;
169 char zVal[10];
170
171 ::WinSendMsg( GetHwnd()
172 ,SPBM_QUERYVALUE
173 ,MPFROMP(zVal)
174 ,MPFROM2SHORT( (USHORT)10
175 ,SPBQ_UPDATEIFVALID
176 )
177 );
178 lVal = atol(zVal);
179 return ((int)lVal);
180 } // end of wxSpinButton::GetValue
181
182 bool wxSpinButton::OS2OnScroll( int WXUNUSED(nOrientation),
183 WXWORD WXUNUSED(wParam),
184 WXWORD wPos,
185 WXHWND hControl )
186 {
187 wxCHECK_MSG(hControl, false, wxT("scrolling what?") );
188
189 wxSpinEvent vEvent( wxEVT_SCROLL_THUMBTRACK, m_windowId );
190 int nVal = (int)wPos; // cast is important for negative values!
191
192 vEvent.SetPosition(nVal);
193 vEvent.SetEventObject(this);
194 return(HandleWindowEvent(vEvent));
195 } // end of wxSpinButton::OS2OnScroll
196
197 bool wxSpinButton::OS2Command( WXUINT WXUNUSED(uCmd),
198 WXWORD WXUNUSED(wId) )
199 {
200 return false;
201 } // end of wxSpinButton::OS2Command
202
203 void wxSpinButton::SetRange(
204 int nMinVal
205 , int nMaxVal
206 )
207 {
208 m_min = nMinVal;
209 m_max = nMaxVal;
210
211 ::WinSendMsg( GetHwnd()
212 ,SPBM_SETLIMITS
213 ,MPFROMLONG(nMaxVal)
214 ,MPFROMLONG(nMinVal)
215 );
216 } // end of wxSpinButton::SetRange
217
218 void wxSpinButton::SetValue(
219 int nValue
220 )
221 {
222 ::WinSendMsg(GetHwnd(), SPBM_SETCURRENTVALUE, MPFROMLONG(nValue), MPARAM(0));
223 } // end of wxSpinButton::SetValue
224
225 #endif //wxUSE_SPINBTN