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