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