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