?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
msvcrt: Use fpclass constants from public header.
[wine/zf.git] / dlls / comctl32 / listbox.c
blobb905beee3258211e61bc5fdfce8dc96dcafff96d
1 /*
2 * Listbox controls
3 *
4 * Copyright 1996 Alexandre Julliard
5 * Copyright 2005 Frank Richter
6 *
7 * This library is free software; you can redistribute it and/or
8 * modify it under the terms of the GNU Lesser General Public
9 * License as published by the Free Software Foundation; either
10 * version 2.1 of the License, or (at your option) any later version.
11 *
12 * This library is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 * Lesser General Public License for more details.
16 *
17 * You should have received a copy of the GNU Lesser General Public
18 * License along with this library; if not, write to the Free Software
19 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
20 *
21 */
22
23 #include <string.h>
24 #include <stdlib.h>
25 #include <stdarg.h>
26 #include <stdio.h>
27 #include "windef.h"
28 #include "winbase.h"
29 #include "wingdi.h"
30 #include "winuser.h"
31 #include "commctrl.h"
32 #include "uxtheme.h"
33 #include "vssym32.h"
34 #include "wine/exception.h"
35 #include "wine/debug.h"
36 #include "wine/heap.h"
37
38 #include "comctl32.h"
39
40 WINE_DEFAULT_DEBUG_CHANNEL(listbox);
41
42 /* Items array granularity (must be power of 2) */
43 #define LB_ARRAY_GRANULARITY 16
44
45 /* Scrolling timeout in ms */
46 #define LB_SCROLL_TIMEOUT 50
47
48 /* Listbox system timer id */
49 #define LB_TIMER_ID 2
50
51 /* flag listbox changed while setredraw false - internal style */
52 #define LBS_DISPLAYCHANGED 0x80000000
53
54 /* Item structure */
55 typedef struct
56 {
57 LPWSTR str; /* Item text */
58 BOOL selected; /* Is item selected? */
59 UINT height; /* Item height (only for OWNERDRAWVARIABLE) */
60 ULONG_PTR data; /* User data */
61 } LB_ITEMDATA;
62
63 /* Listbox structure */
64 typedef struct
65 {
66 HWND self; /* Our own window handle */
67 HWND owner; /* Owner window to send notifications to */
68 UINT style; /* Window style */
69 INT width; /* Window width */
70 INT height; /* Window height */
71 union
72 {
73 LB_ITEMDATA *items; /* Array of items */
74 BYTE *nodata_items; /* For multi-selection LBS_NODATA */
75 } u;
76 INT nb_items; /* Number of items */
77 UINT items_size; /* Total number of allocated items in the array */
78 INT top_item; /* Top visible item */
79 INT selected_item; /* Selected item */
80 INT focus_item; /* Item that has the focus */
81 INT anchor_item; /* Anchor item for extended selection */
82 INT item_height; /* Default item height */
83 INT page_size; /* Items per listbox page */
84 INT column_width; /* Column width for multi-column listboxes */
85 INT horz_extent; /* Horizontal extent */
86 INT horz_pos; /* Horizontal position */
87 INT nb_tabs; /* Number of tabs in array */
88 INT *tabs; /* Array of tabs */
89 INT avg_char_width; /* Average width of characters */
90 INT wheel_remain; /* Left over scroll amount */
91 BOOL caret_on; /* Is caret on? */
92 BOOL captured; /* Is mouse captured? */
93 BOOL in_focus;
94 HFONT font; /* Current font */
95 LCID locale; /* Current locale for string comparisons */
96 HEADCOMBO *lphc; /* ComboLBox */
97 } LB_DESCR;
98
99
100 #define IS_OWNERDRAW(descr) \
101 ((descr)->style & (LBS_OWNERDRAWFIXED | LBS_OWNERDRAWVARIABLE))
102
103 #define HAS_STRINGS(descr) \
104 (!IS_OWNERDRAW(descr) || ((descr)->style & LBS_HASSTRINGS))
105
106
107 #define IS_MULTISELECT(descr) \
108 ((descr)->style & (LBS_MULTIPLESEL|LBS_EXTENDEDSEL) && \
109 !((descr)->style & LBS_NOSEL))
110
111 #define SEND_NOTIFICATION(descr,code) \
112 (SendMessageW( (descr)->owner, WM_COMMAND, \
113 MAKEWPARAM( GetWindowLongPtrW((descr->self),GWLP_ID), (code)), (LPARAM)(descr->self) ))
114
115 #define ISWIN31 (LOWORD(GetVersion()) == 0x0a03)
116
117 /* Current timer status */
118 typedef enum
119 {
120 LB_TIMER_NONE,
121 LB_TIMER_UP,
122 LB_TIMER_LEFT,
123 LB_TIMER_DOWN,
124 LB_TIMER_RIGHT
125 } TIMER_DIRECTION;
126
127 static TIMER_DIRECTION LISTBOX_Timer = LB_TIMER_NONE;
128
129 static LRESULT LISTBOX_GetItemRect( const LB_DESCR *descr, INT index, RECT *rect );
130
131 /*
132 For listboxes without LBS_NODATA, an array of LB_ITEMDATA is allocated
133 to store the states of each item into descr->u.items.
134
135 For single-selection LBS_NODATA listboxes, no storage is allocated,
136 and thus descr->u.nodata_items will always be NULL.
137
138 For multi-selection LBS_NODATA listboxes, one byte per item is stored
139 for the item's selection state into descr->u.nodata_items.
140 */
141 static size_t get_sizeof_item( const LB_DESCR *descr )
142 {
143 return (descr->style & LBS_NODATA) ? sizeof(BYTE) : sizeof(LB_ITEMDATA);
144 }
145
146 static BOOL resize_storage(LB_DESCR *descr, UINT items_size)
147 {
148 LB_ITEMDATA *items;
149
150 if (items_size > descr->items_size ||
151 items_size + LB_ARRAY_GRANULARITY * 2 < descr->items_size)
152 {
153 items_size = (items_size + LB_ARRAY_GRANULARITY - 1) & ~(LB_ARRAY_GRANULARITY - 1);
154 if ((descr->style & (LBS_NODATA | LBS_MULTIPLESEL | LBS_EXTENDEDSEL)) != LBS_NODATA)
155 {
156 items = heap_realloc(descr->u.items, items_size * get_sizeof_item(descr));
157 if (!items)
158 {
159 SEND_NOTIFICATION(descr, LBN_ERRSPACE);
160 return FALSE;
161 }
162 descr->u.items = items;
163 }
164 descr->items_size = items_size;
165 }
166
167 if ((descr->style & LBS_NODATA) && descr->u.nodata_items && items_size > descr->nb_items)
168 {
169 memset(descr->u.nodata_items + descr->nb_items, 0,
170 (items_size - descr->nb_items) * get_sizeof_item(descr));
171 }
172 return TRUE;
173 }
174
175 static ULONG_PTR get_item_data( const LB_DESCR *descr, UINT index )
176 {
177 return (descr->style & LBS_NODATA) ? 0 : descr->u.items[index].data;
178 }
179
180 static void set_item_data( LB_DESCR *descr, UINT index, ULONG_PTR data )
181 {
182 if (!(descr->style & LBS_NODATA)) descr->u.items[index].data = data;
183 }
184
185 static WCHAR *get_item_string( const LB_DESCR *descr, UINT index )
186 {
187 return HAS_STRINGS(descr) ? descr->u.items[index].str : NULL;
188 }
189
190 static void set_item_string( const LB_DESCR *descr, UINT index, WCHAR *string )
191 {
192 if (!(descr->style & LBS_NODATA)) descr->u.items[index].str = string;
193 }
194
195 static UINT get_item_height( const LB_DESCR *descr, UINT index )
196 {
197 return (descr->style & LBS_NODATA) ? 0 : descr->u.items[index].height;
198 }
199
200 static void set_item_height( LB_DESCR *descr, UINT index, UINT height )
201 {
202 if (!(descr->style & LBS_NODATA)) descr->u.items[index].height = height;
203 }
204
205 static BOOL is_item_selected( const LB_DESCR *descr, UINT index )
206 {
207 if (!(descr->style & (LBS_MULTIPLESEL | LBS_EXTENDEDSEL)))
208 return index == descr->selected_item;
209 if (descr->style & LBS_NODATA)
210 return descr->u.nodata_items[index];
211 else
212 return descr->u.items[index].selected;
213 }
214
215 static void set_item_selected_state(LB_DESCR *descr, UINT index, BOOL state)
216 {
217 if (descr->style & (LBS_MULTIPLESEL | LBS_EXTENDEDSEL))
218 {
219 if (descr->style & LBS_NODATA)
220 descr->u.nodata_items[index] = state;
221 else
222 descr->u.items[index].selected = state;
223 }
224 }
225
226 static void insert_item_data(LB_DESCR *descr, UINT index)
227 {
228 size_t size = get_sizeof_item(descr);
229 BYTE *p = descr->u.nodata_items + index * size;
230
231 if (!descr->u.items) return;
232
233 if (index < descr->nb_items)
234 memmove(p + size, p, (descr->nb_items - index) * size);
235 }
236
237 static void remove_item_data(LB_DESCR *descr, UINT index)
238 {
239 size_t size = get_sizeof_item(descr);
240 BYTE *p = descr->u.nodata_items + index * size;
241
242 if (!descr->u.items) return;
243
244 if (index < descr->nb_items)
245 memmove(p, p + size, (descr->nb_items - index) * size);
246 }
247
248 /***********************************************************************
249 * LISTBOX_GetCurrentPageSize
250 *
251 * Return the current page size
252 */
253 static INT LISTBOX_GetCurrentPageSize( const LB_DESCR *descr )
254 {
255 INT i, height;
256 if (!(descr->style & LBS_OWNERDRAWVARIABLE)) return descr->page_size;
257 for (i = descr->top_item, height = 0; i < descr->nb_items; i++)
258 {
259 if ((height += get_item_height(descr, i)) > descr->height) break;
260 }
261 if (i == descr->top_item) return 1;
262 else return i - descr->top_item;
263 }
264
265
266 /***********************************************************************
267 * LISTBOX_GetMaxTopIndex
268 *
269 * Return the maximum possible index for the top of the listbox.
270 */
271 static INT LISTBOX_GetMaxTopIndex( const LB_DESCR *descr )
272 {
273 INT max, page;
274
275 if (descr->style & LBS_OWNERDRAWVARIABLE)
276 {
277 page = descr->height;
278 for (max = descr->nb_items - 1; max >= 0; max--)
279 if ((page -= get_item_height(descr, max)) < 0) break;
280 if (max < descr->nb_items - 1) max++;
281 }
282 else if (descr->style & LBS_MULTICOLUMN)
283 {
284 if ((page = descr->width / descr->column_width) < 1) page = 1;
285 max = (descr->nb_items + descr->page_size - 1) / descr->page_size;
286 max = (max - page) * descr->page_size;
287 }
288 else
289 {
290 max = descr->nb_items - descr->page_size;
291 }
292 if (max < 0) max = 0;
293 return max;
294 }
295
296
297 /***********************************************************************
298 * LISTBOX_UpdateScroll
299 *
300 * Update the scrollbars. Should be called whenever the content
301 * of the listbox changes.
302 */
303 static void LISTBOX_UpdateScroll( LB_DESCR *descr )
304 {
305 SCROLLINFO info;
306
307 /* Check the listbox scroll bar flags individually before we call
308 SetScrollInfo otherwise when the listbox style is WS_HSCROLL and
309 no WS_VSCROLL, we end up with an uninitialized, visible horizontal
310 scroll bar when we do not need one.
311 if (!(descr->style & WS_VSCROLL)) return;
312 */
313
314 /* It is important that we check descr->style, and not wnd->dwStyle,
315 for WS_VSCROLL, as the former is exactly the one passed in
316 argument to CreateWindow.
317 In Windows (and from now on in Wine :) a listbox created
318 with such a style (no WS_SCROLL) does not update
319 the scrollbar with listbox-related data, thus letting
320 the programmer use it for his/her own purposes. */
321
322 if (descr->style & LBS_NOREDRAW) return;
323 info.cbSize = sizeof(info);
324
325 if (descr->style & LBS_MULTICOLUMN)
326 {
327 info.nMin = 0;
328 info.nMax = (descr->nb_items - 1) / descr->page_size;
329 info.nPos = descr->top_item / descr->page_size;
330 info.nPage = descr->width / descr->column_width;
331 if (info.nPage < 1) info.nPage = 1;
332 info.fMask = SIF_RANGE | SIF_POS | SIF_PAGE;
333 if (descr->style & LBS_DISABLENOSCROLL)
334 info.fMask |= SIF_DISABLENOSCROLL;
335 if (descr->style & WS_HSCROLL)
336 SetScrollInfo( descr->self, SB_HORZ, &info, TRUE );
337 info.nMax = 0;
338 info.fMask = SIF_RANGE;
339 if (descr->style & WS_VSCROLL)
340 SetScrollInfo( descr->self, SB_VERT, &info, TRUE );
341 }
342 else
343 {
344 info.nMin = 0;
345 info.nMax = descr->nb_items - 1;
346 info.nPos = descr->top_item;
347 info.nPage = LISTBOX_GetCurrentPageSize( descr );
348 info.fMask = SIF_RANGE | SIF_POS | SIF_PAGE;
349 if (descr->style & LBS_DISABLENOSCROLL)
350 info.fMask |= SIF_DISABLENOSCROLL;
351 if (descr->style & WS_VSCROLL)
352 SetScrollInfo( descr->self, SB_VERT, &info, TRUE );
353
354 if ((descr->style & WS_HSCROLL) && descr->horz_extent)
355 {
356 info.nPos = descr->horz_pos;
357 info.nPage = descr->width;
358 info.fMask = SIF_POS | SIF_PAGE;
359 if (descr->style & LBS_DISABLENOSCROLL)
360 info.fMask |= SIF_DISABLENOSCROLL;
361 SetScrollInfo( descr->self, SB_HORZ, &info, TRUE );
362 }
363 else
364 {
365 if (descr->style & LBS_DISABLENOSCROLL)
366 {
367 info.nMin = 0;
368 info.nMax = 0;
369 info.fMask = SIF_RANGE | SIF_DISABLENOSCROLL;
370 SetScrollInfo( descr->self, SB_HORZ, &info, TRUE );
371 }
372 else
373 {
374 ShowScrollBar( descr->self, SB_HORZ, FALSE );
375 }
376 }
377 }
378 }
379
380
381 /***********************************************************************
382 * LISTBOX_SetTopItem
383 *
384 * Set the top item of the listbox, scrolling up or down if necessary.
385 */
386 static LRESULT LISTBOX_SetTopItem( LB_DESCR *descr, INT index, BOOL scroll )
387 {
388 INT max = LISTBOX_GetMaxTopIndex( descr );
389
390 TRACE("setting top item %d, scroll %d\n", index, scroll);
391
392 if (index > max) index = max;
393 if (index < 0) index = 0;
394 if (descr->style & LBS_MULTICOLUMN) index -= index % descr->page_size;
395 if (descr->top_item == index) return LB_OKAY;
396 if (scroll)
397 {
398 INT dx = 0, dy = 0;
399 if (descr->style & LBS_MULTICOLUMN)
400 dx = (descr->top_item - index) / descr->page_size * descr->column_width;
401 else if (descr->style & LBS_OWNERDRAWVARIABLE)
402 {
403 INT i;
404 if (index > descr->top_item)
405 {
406 for (i = index - 1; i >= descr->top_item; i--)
407 dy -= get_item_height(descr, i);
408 }
409 else
410 {
411 for (i = index; i < descr->top_item; i++)
412 dy += get_item_height(descr, i);
413 }
414 }
415 else
416 dy = (descr->top_item - index) * descr->item_height;
417
418 ScrollWindowEx( descr->self, dx, dy, NULL, NULL, 0, NULL,
419 SW_INVALIDATE | SW_ERASE | SW_SCROLLCHILDREN );
420 }
421 else
422 InvalidateRect( descr->self, NULL, TRUE );
423 descr->top_item = index;
424 LISTBOX_UpdateScroll( descr );
425 return LB_OKAY;
426 }
427
428
429 /***********************************************************************
430 * LISTBOX_UpdatePage
431 *
432 * Update the page size. Should be called when the size of
433 * the client area or the item height changes.
434 */
435 static void LISTBOX_UpdatePage( LB_DESCR *descr )
436 {
437 INT page_size;
438
439 if ((descr->item_height == 0) || (page_size = descr->height / descr->item_height) < 1)
440 page_size = 1;
441 if (page_size == descr->page_size) return;
442 descr->page_size = page_size;
443 if (descr->style & LBS_MULTICOLUMN)
444 InvalidateRect( descr->self, NULL, TRUE );
445 LISTBOX_SetTopItem( descr, descr->top_item, FALSE );
446 }
447
448
449 /***********************************************************************
450 * LISTBOX_UpdateSize
451 *
452 * Update the size of the listbox. Should be called when the size of
453 * the client area changes.
454 */
455 static void LISTBOX_UpdateSize( LB_DESCR *descr )
456 {
457 RECT rect;
458
459 GetClientRect( descr->self, &rect );
460 descr->width = rect.right - rect.left;
461 descr->height = rect.bottom - rect.top;
462 if (!(descr->style & LBS_NOINTEGRALHEIGHT) && !(descr->style & LBS_OWNERDRAWVARIABLE))
463 {
464 INT remaining;
465 RECT rect;
466
467 GetWindowRect( descr->self, &rect );
468 if(descr->item_height != 0)
469 remaining = descr->height % descr->item_height;
470 else
471 remaining = 0;
472 if ((descr->height > descr->item_height) && remaining)
473 {
474 TRACE("[%p]: changing height %d -> %d\n",
475 descr->self, descr->height, descr->height - remaining );
476 SetWindowPos( descr->self, 0, 0, 0, rect.right - rect.left,
477 rect.bottom - rect.top - remaining,
478 SWP_NOZORDER | SWP_NOACTIVATE | SWP_NOMOVE );
479 return;
480 }
481 }
482 TRACE("[%p]: new size = %d,%d\n", descr->self, descr->width, descr->height );
483 LISTBOX_UpdatePage( descr );
484 LISTBOX_UpdateScroll( descr );
485
486 /* Invalidate the focused item so it will be repainted correctly */
487 if (LISTBOX_GetItemRect( descr, descr->focus_item, &rect ) == 1)
488 {
489 InvalidateRect( descr->self, &rect, FALSE );
490 }
491 }
492
493
494 /***********************************************************************
495 * LISTBOX_GetItemRect
496 *
497 * Get the rectangle enclosing an item, in listbox client coordinates.
498 * Return 1 if the rectangle is (partially) visible, 0 if hidden, -1 on error.
499 */
500 static LRESULT LISTBOX_GetItemRect( const LB_DESCR *descr, INT index, RECT *rect )
501 {
502 /* Index <= 0 is legal even on empty listboxes */
503 if (index && (index >= descr->nb_items))
504 {
505 SetRectEmpty(rect);
506 SetLastError(ERROR_INVALID_INDEX);
507 return LB_ERR;
508 }
509 SetRect( rect, 0, 0, descr->width, descr->height );
510 if (descr->style & LBS_MULTICOLUMN)
511 {
512 INT col = (index / descr->page_size) -
513 (descr->top_item / descr->page_size);
514 rect->left += col * descr->column_width;
515 rect->right = rect->left + descr->column_width;
516 rect->top += (index % descr->page_size) * descr->item_height;
517 rect->bottom = rect->top + descr->item_height;
518 }
519 else if (descr->style & LBS_OWNERDRAWVARIABLE)
520 {
521 INT i;
522 rect->right += descr->horz_pos;
523 if ((index >= 0) && (index < descr->nb_items))
524 {
525 if (index < descr->top_item)
526 {
527 for (i = descr->top_item-1; i >= index; i--)
528 rect->top -= get_item_height(descr, i);
529 }
530 else
531 {
532 for (i = descr->top_item; i < index; i++)
533 rect->top += get_item_height(descr, i);
534 }
535 rect->bottom = rect->top + get_item_height(descr, index);
536
537 }
538 }
539 else
540 {
541 rect->top += (index - descr->top_item) * descr->item_height;
542 rect->bottom = rect->top + descr->item_height;
543 rect->right += descr->horz_pos;
544 }
545
546 TRACE("item %d, rect %s\n", index, wine_dbgstr_rect(rect));
547
548 return ((rect->left < descr->width) && (rect->right > 0) &&
549 (rect->top < descr->height) && (rect->bottom > 0));
550 }
551
552
553 /***********************************************************************
554 * LISTBOX_GetItemFromPoint
555 *
556 * Return the item nearest from point (x,y) (in client coordinates).
557 */
558 static INT LISTBOX_GetItemFromPoint( const LB_DESCR *descr, INT x, INT y )
559 {
560 INT index = descr->top_item;
561
562 if (!descr->nb_items) return -1; /* No items */
563 if (descr->style & LBS_OWNERDRAWVARIABLE)
564 {
565 INT pos = 0;
566 if (y >= 0)
567 {
568 while (index < descr->nb_items)
569 {
570 if ((pos += get_item_height(descr, index)) > y) break;
571 index++;
572 }
573 }
574 else
575 {
576 while (index > 0)
577 {
578 index--;
579 if ((pos -= get_item_height(descr, index)) <= y) break;
580 }
581 }
582 }
583 else if (descr->style & LBS_MULTICOLUMN)
584 {
585 if (y >= descr->item_height * descr->page_size) return -1;
586 if (y >= 0) index += y / descr->item_height;
587 if (x >= 0) index += (x / descr->column_width) * descr->page_size;
588 else index -= (((x + 1) / descr->column_width) - 1) * descr->page_size;
589 }
590 else
591 {
592 index += (y / descr->item_height);
593 }
594 if (index < 0) return 0;
595 if (index >= descr->nb_items) return -1;
596 return index;
597 }
598
599
600 /***********************************************************************
601 * LISTBOX_PaintItem
602 *
603 * Paint an item.
604 */
605 static void LISTBOX_PaintItem( LB_DESCR *descr, HDC hdc, const RECT *rect,
606 INT index, UINT action, BOOL ignoreFocus )
607 {
608 BOOL selected = FALSE, focused;
609 WCHAR *item_str = NULL;
610
611 if (index < descr->nb_items)
612 {
613 item_str = get_item_string(descr, index);
614 selected = is_item_selected(descr, index);
615 }
616
617 focused = !ignoreFocus && descr->focus_item == index && descr->caret_on && descr->in_focus;
618
619 if (IS_OWNERDRAW(descr))
620 {
621 DRAWITEMSTRUCT dis;
622 RECT r;
623 HRGN hrgn;
624
625 if (index >= descr->nb_items)
626 {
627 if (action == ODA_FOCUS)
628 DrawFocusRect( hdc, rect );
629 else
630 ERR("called with an out of bounds index %d(%d) in owner draw, Not good.\n",index,descr->nb_items);
631 return;
632 }
633
634 /* some programs mess with the clipping region when
635 drawing the item, *and* restore the previous region
636 after they are done, so a region has better to exist
637 else everything ends clipped */
638 GetClientRect(descr->self, &r);
639 hrgn = set_control_clipping( hdc, &r );
640
641 dis.CtlType = ODT_LISTBOX;
642 dis.CtlID = GetWindowLongPtrW( descr->self, GWLP_ID );
643 dis.hwndItem = descr->self;
644 dis.itemAction = action;
645 dis.hDC = hdc;
646 dis.itemID = index;
647 dis.itemState = 0;
648 if (selected)
649 dis.itemState |= ODS_SELECTED;
650 if (focused)
651 dis.itemState |= ODS_FOCUS;
652 if (!IsWindowEnabled(descr->self)) dis.itemState |= ODS_DISABLED;
653 dis.itemData = get_item_data(descr, index);
654 dis.rcItem = *rect;
655 TRACE("[%p]: drawitem %d (%s) action=%02x state=%02x rect=%s\n",
656 descr->self, index, debugstr_w(item_str), action,
657 dis.itemState, wine_dbgstr_rect(rect) );
658 SendMessageW(descr->owner, WM_DRAWITEM, dis.CtlID, (LPARAM)&dis);
659 SelectClipRgn( hdc, hrgn );
660 if (hrgn) DeleteObject( hrgn );
661 }
662 else
663 {
664 COLORREF oldText = 0, oldBk = 0;
665
666 if (action == ODA_FOCUS)
667 {
668 DrawFocusRect( hdc, rect );
669 return;
670 }
671 if (selected)
672 {
673 oldBk = SetBkColor( hdc, GetSysColor( COLOR_HIGHLIGHT ) );
674 oldText = SetTextColor( hdc, GetSysColor(COLOR_HIGHLIGHTTEXT));
675 }
676
677 TRACE("[%p]: painting %d (%s) action=%02x rect=%s\n",
678 descr->self, index, debugstr_w(item_str), action,
679 wine_dbgstr_rect(rect) );
680 if (!item_str)
681 ExtTextOutW( hdc, rect->left + 1, rect->top,
682 ETO_OPAQUE | ETO_CLIPPED, rect, NULL, 0, NULL );
683 else if (!(descr->style & LBS_USETABSTOPS))
684 ExtTextOutW( hdc, rect->left + 1, rect->top,
685 ETO_OPAQUE | ETO_CLIPPED, rect, item_str,
686 lstrlenW(item_str), NULL );
687 else
688 {
689 /* Output empty string to paint background in the full width. */
690 ExtTextOutW( hdc, rect->left + 1, rect->top,
691 ETO_OPAQUE | ETO_CLIPPED, rect, NULL, 0, NULL );
692 TabbedTextOutW( hdc, rect->left + 1 , rect->top,
693 item_str, lstrlenW(item_str),
694 descr->nb_tabs, descr->tabs, 0);
695 }
696 if (selected)
697 {
698 SetBkColor( hdc, oldBk );
699 SetTextColor( hdc, oldText );
700 }
701 if (focused)
702 DrawFocusRect( hdc, rect );
703 }
704 }
705
706
707 /***********************************************************************
708 * LISTBOX_SetRedraw
709 *
710 * Change the redraw flag.
711 */
712 static void LISTBOX_SetRedraw( LB_DESCR *descr, BOOL on )
713 {
714 if (on)
715 {
716 if (!(descr->style & LBS_NOREDRAW)) return;
717 descr->style &= ~LBS_NOREDRAW;
718 if (descr->style & LBS_DISPLAYCHANGED)
719 { /* page was changed while setredraw false, refresh automatically */
720 InvalidateRect(descr->self, NULL, TRUE);
721 if ((descr->top_item + descr->page_size) > descr->nb_items)
722 { /* reset top of page if less than number of items/page */
723 descr->top_item = descr->nb_items - descr->page_size;
724 if (descr->top_item < 0) descr->top_item = 0;
725 }
726 descr->style &= ~LBS_DISPLAYCHANGED;
727 }
728 LISTBOX_UpdateScroll( descr );
729 }
730 else descr->style |= LBS_NOREDRAW;
731 }
732
733
734 /***********************************************************************
735 * LISTBOX_RepaintItem
736 *
737 * Repaint a single item synchronously.
738 */
739 static void LISTBOX_RepaintItem( LB_DESCR *descr, INT index, UINT action )
740 {
741 HDC hdc;
742 RECT rect;
743 HFONT oldFont = 0;
744 HBRUSH hbrush, oldBrush = 0;
745
746 /* Do not repaint the item if the item is not visible */
747 if (!IsWindowVisible(descr->self)) return;
748 if (descr->style & LBS_NOREDRAW)
749 {
750 descr->style |= LBS_DISPLAYCHANGED;
751 return;
752 }
753 if (LISTBOX_GetItemRect( descr, index, &rect ) != 1) return;
754 if (!(hdc = GetDCEx( descr->self, 0, DCX_CACHE ))) return;
755 if (descr->font) oldFont = SelectObject( hdc, descr->font );
756 hbrush = (HBRUSH)SendMessageW( descr->owner, WM_CTLCOLORLISTBOX,
757 (WPARAM)hdc, (LPARAM)descr->self );
758 if (hbrush) oldBrush = SelectObject( hdc, hbrush );
759 if (!IsWindowEnabled(descr->self))
760 SetTextColor( hdc, GetSysColor( COLOR_GRAYTEXT ) );
761 SetWindowOrgEx( hdc, descr->horz_pos, 0, NULL );
762 LISTBOX_PaintItem( descr, hdc, &rect, index, action, TRUE );
763 if (oldFont) SelectObject( hdc, oldFont );
764 if (oldBrush) SelectObject( hdc, oldBrush );
765 ReleaseDC( descr->self, hdc );
766 }
767
768
769 /***********************************************************************
770 * LISTBOX_DrawFocusRect
771 */
772 static void LISTBOX_DrawFocusRect( LB_DESCR *descr, BOOL on )
773 {
774 HDC hdc;
775 RECT rect;
776 HFONT oldFont = 0;
777
778 /* Do not repaint the item if the item is not visible */
779 if (!IsWindowVisible(descr->self)) return;
780
781 if (descr->focus_item == -1) return;
782 if (!descr->caret_on || !descr->in_focus) return;
783
784 if (LISTBOX_GetItemRect( descr, descr->focus_item, &rect ) != 1) return;
785 if (!(hdc = GetDCEx( descr->self, 0, DCX_CACHE ))) return;
786 if (descr->font) oldFont = SelectObject( hdc, descr->font );
787 if (!IsWindowEnabled(descr->self))
788 SetTextColor( hdc, GetSysColor( COLOR_GRAYTEXT ) );
789 SetWindowOrgEx( hdc, descr->horz_pos, 0, NULL );
790 LISTBOX_PaintItem( descr, hdc, &rect, descr->focus_item, ODA_FOCUS, !on );
791 if (oldFont) SelectObject( hdc, oldFont );
792 ReleaseDC( descr->self, hdc );
793 }
794
795
796 /***********************************************************************
797 * LISTBOX_InitStorage
798 */
799 static LRESULT LISTBOX_InitStorage( LB_DESCR *descr, INT nb_items )
800 {
801 UINT new_size = descr->nb_items + nb_items;
802
803 if (new_size > descr->items_size && !resize_storage(descr, new_size))
804 return LB_ERRSPACE;
805 return descr->items_size;
806 }
807
808
809 /***********************************************************************
810 * LISTBOX_SetTabStops
811 */
812 static BOOL LISTBOX_SetTabStops( LB_DESCR *descr, INT count, LPINT tabs )
813 {
814 INT i;
815
816 if (!(descr->style & LBS_USETABSTOPS))
817 {
818 SetLastError(ERROR_LB_WITHOUT_TABSTOPS);
819 return FALSE;
820 }
821
822 HeapFree( GetProcessHeap(), 0, descr->tabs );
823 if (!(descr->nb_tabs = count))
824 {
825 descr->tabs = NULL;
826 return TRUE;
827 }
828 if (!(descr->tabs = HeapAlloc( GetProcessHeap(), 0,
829 descr->nb_tabs * sizeof(INT) )))
830 return FALSE;
831 memcpy( descr->tabs, tabs, descr->nb_tabs * sizeof(INT) );
832
833 /* convert into "dialog units"*/
834 for (i = 0; i < descr->nb_tabs; i++)
835 descr->tabs[i] = MulDiv(descr->tabs[i], descr->avg_char_width, 4);
836
837 return TRUE;
838 }
839
840
841 /***********************************************************************
842 * LISTBOX_GetText
843 */
844 static LRESULT LISTBOX_GetText( LB_DESCR *descr, INT index, LPWSTR buffer, BOOL unicode )
845 {
846 DWORD len;
847
848 if ((index < 0) || (index >= descr->nb_items))
849 {
850 SetLastError(ERROR_INVALID_INDEX);
851 return LB_ERR;
852 }
853
854 if (HAS_STRINGS(descr))
855 {
856 WCHAR *str = get_item_string(descr, index);
857
858 if (!buffer)
859 return lstrlenW(str);
860
861 TRACE("index %d (0x%04x) %s\n", index, index, debugstr_w(str));
862
863 __TRY /* hide a Delphi bug that passes a read-only buffer */
864 {
865 lstrcpyW(buffer, str);
866 len = lstrlenW(buffer);
867 }
868 __EXCEPT_PAGE_FAULT
869 {
870 WARN( "got an invalid buffer (Delphi bug?)\n" );
871 SetLastError( ERROR_INVALID_PARAMETER );
872 return LB_ERR;
873 }
874 __ENDTRY
875 } else
876 {
877 if (buffer)
878 *((ULONG_PTR *)buffer) = get_item_data(descr, index);
879 len = sizeof(ULONG_PTR);
880 }
881 return len;
882 }
883
884 static inline INT LISTBOX_lstrcmpiW( LCID lcid, LPCWSTR str1, LPCWSTR str2 )
885 {
886 INT ret = CompareStringW( lcid, NORM_IGNORECASE, str1, -1, str2, -1 );
887 if (ret == CSTR_LESS_THAN)
888 return -1;
889 if (ret == CSTR_EQUAL)
890 return 0;
891 if (ret == CSTR_GREATER_THAN)
892 return 1;
893 return -1;
894 }
895
896 /***********************************************************************
897 * LISTBOX_FindStringPos
898 *
899 * Find the nearest string located before a given string in sort order.
900 * If 'exact' is TRUE, return an error if we don't get an exact match.
901 */
902 static INT LISTBOX_FindStringPos( LB_DESCR *descr, LPCWSTR str, BOOL exact )
903 {
904 INT index, min, max, res;
905
906 if (!descr->nb_items || !(descr->style & LBS_SORT)) return -1; /* Add it at the end */
907
908 min = 0;
909 max = descr->nb_items - 1;
910 while (min <= max)
911 {
912 index = (min + max) / 2;
913 if (HAS_STRINGS(descr))
914 res = LISTBOX_lstrcmpiW( descr->locale, get_item_string(descr, index), str );
915 else
916 {
917 COMPAREITEMSTRUCT cis;
918 UINT id = (UINT)GetWindowLongPtrW( descr->self, GWLP_ID );
919
920 cis.CtlType = ODT_LISTBOX;
921 cis.CtlID = id;
922 cis.hwndItem = descr->self;
923 /* note that some application (MetaStock) expects the second item
924 * to be in the listbox */
925 cis.itemID1 = index;
926 cis.itemData1 = get_item_data(descr, index);
927 cis.itemID2 = -1;
928 cis.itemData2 = (ULONG_PTR)str;
929 cis.dwLocaleId = descr->locale;
930 res = SendMessageW( descr->owner, WM_COMPAREITEM, id, (LPARAM)&cis );
931 }
932 if (!res) return index;
933 if (res > 0) max = index - 1;
934 else min = index + 1;
935 }
936 return exact ? -1 : min;
937 }
938
939
940 /***********************************************************************
941 * LISTBOX_FindFileStrPos
942 *
943 * Find the nearest string located before a given string in directory
944 * sort order (i.e. first files, then directories, then drives).
945 */
946 static INT LISTBOX_FindFileStrPos( LB_DESCR *descr, LPCWSTR str )
947 {
948 INT min, max, res;
949
950 if (!HAS_STRINGS(descr))
951 return LISTBOX_FindStringPos( descr, str, FALSE );
952 min = 0;
953 max = descr->nb_items;
954 while (min != max)
955 {
956 INT index = (min + max) / 2;
957 LPCWSTR p = get_item_string(descr, index);
958 if (*p == '[') /* drive or directory */
959 {
960 if (*str != '[') res = -1;
961 else if (p[1] == '-') /* drive */
962 {
963 if (str[1] == '-') res = str[2] - p[2];
964 else res = -1;
965 }
966 else /* directory */
967 {
968 if (str[1] == '-') res = 1;
969 else res = LISTBOX_lstrcmpiW( descr->locale, str, p );
970 }
971 }
972 else /* filename */
973 {
974 if (*str == '[') res = 1;
975 else res = LISTBOX_lstrcmpiW( descr->locale, str, p );
976 }
977 if (!res) return index;
978 if (res < 0) max = index;
979 else min = index + 1;
980 }
981 return max;
982 }
983
984
985 /***********************************************************************
986 * LISTBOX_FindString
987 *
988 * Find the item beginning with a given string.
989 */
990 static INT LISTBOX_FindString( LB_DESCR *descr, INT start, LPCWSTR str, BOOL exact )
991 {
992 INT i, index;
993
994 if (descr->style & LBS_NODATA) return LB_ERR;
995
996 start++;
997 if (start >= descr->nb_items) start = 0;
998 if (HAS_STRINGS(descr))
999 {
1000 if (!str || ! str[0] ) return LB_ERR;
1001 if (exact)
1002 {
1003 for (i = 0, index = start; i < descr->nb_items; i++, index++)
1004 {
1005 if (index == descr->nb_items) index = 0;
1006 if (!LISTBOX_lstrcmpiW(descr->locale, str, get_item_string(descr, index)))
1007 return index;
1008 }
1009 }
1010 else
1011 {
1012 /* Special case for drives and directories: ignore prefix */
1013 INT len = lstrlenW(str);
1014 WCHAR *item_str;
1015
1016 for (i = 0, index = start; i < descr->nb_items; i++, index++)
1017 {
1018 if (index == descr->nb_items) index = 0;
1019 item_str = get_item_string(descr, index);
1020
1021 if (!wcsnicmp(str, item_str, len)) return index;
1022 if (item_str[0] == '[')
1023 {
1024 if (!wcsnicmp(str, item_str + 1, len)) return index;
1025 if (item_str[1] == '-' && !wcsnicmp(str, item_str + 2, len)) return index;
1026 }
1027 }
1028 }
1029 }
1030 else
1031 {
1032 if (exact && (descr->style & LBS_SORT))
1033 /* If sorted, use a WM_COMPAREITEM binary search */
1034 return LISTBOX_FindStringPos( descr, str, TRUE );
1035
1036 /* Otherwise use a linear search */
1037 for (i = 0, index = start; i < descr->nb_items; i++, index++)
1038 {
1039 if (index == descr->nb_items) index = 0;
1040 if (get_item_data(descr, index) == (ULONG_PTR)str) return index;
1041 }
1042 }
1043 return LB_ERR;
1044 }
1045
1046
1047 /***********************************************************************
1048 * LISTBOX_GetSelCount
1049 */
1050 static LRESULT LISTBOX_GetSelCount( const LB_DESCR *descr )
1051 {
1052 INT i, count;
1053
1054 if (!(descr->style & LBS_MULTIPLESEL) ||
1055 (descr->style & LBS_NOSEL))
1056 return LB_ERR;
1057 for (i = count = 0; i < descr->nb_items; i++)
1058 if (is_item_selected(descr, i)) count++;
1059 return count;
1060 }
1061
1062
1063 /***********************************************************************
1064 * LISTBOX_GetSelItems
1065 */
1066 static LRESULT LISTBOX_GetSelItems( const LB_DESCR *descr, INT max, LPINT array )
1067 {
1068 INT i, count;
1069
1070 if (!(descr->style & LBS_MULTIPLESEL)) return LB_ERR;
1071 for (i = count = 0; (i < descr->nb_items) && (count < max); i++)
1072 if (is_item_selected(descr, i)) array[count++] = i;
1073 return count;
1074 }
1075
1076
1077 /***********************************************************************
1078 * LISTBOX_Paint
1079 */
1080 static LRESULT LISTBOX_Paint( LB_DESCR *descr, HDC hdc )
1081 {
1082 INT i, col_pos = descr->page_size - 1;
1083 RECT rect;
1084 RECT focusRect = {-1, -1, -1, -1};
1085 HFONT oldFont = 0;
1086 HBRUSH hbrush, oldBrush = 0;
1087
1088 if (descr->style & LBS_NOREDRAW) return 0;
1089
1090 SetRect( &rect, 0, 0, descr->width, descr->height );
1091 if (descr->style & LBS_MULTICOLUMN)
1092 rect.right = rect.left + descr->column_width;
1093 else if (descr->horz_pos)
1094 {
1095 SetWindowOrgEx( hdc, descr->horz_pos, 0, NULL );
1096 rect.right += descr->horz_pos;
1097 }
1098
1099 if (descr->font) oldFont = SelectObject( hdc, descr->font );
1100 hbrush = (HBRUSH)SendMessageW( descr->owner, WM_CTLCOLORLISTBOX,
1101 (WPARAM)hdc, (LPARAM)descr->self );
1102 if (hbrush) oldBrush = SelectObject( hdc, hbrush );
1103 if (!IsWindowEnabled(descr->self)) SetTextColor( hdc, GetSysColor( COLOR_GRAYTEXT ) );
1104
1105 if (!descr->nb_items && (descr->focus_item != -1) && descr->caret_on &&
1106 (descr->in_focus))
1107 {
1108 /* Special case for empty listbox: paint focus rect */
1109 rect.bottom = rect.top + descr->item_height;
1110 ExtTextOutW( hdc, 0, 0, ETO_OPAQUE | ETO_CLIPPED,
1111 &rect, NULL, 0, NULL );
1112 LISTBOX_PaintItem( descr, hdc, &rect, descr->focus_item, ODA_FOCUS, FALSE );
1113 rect.top = rect.bottom;
1114 }
1115
1116 /* Paint all the item, regarding the selection
1117 Focus state will be painted after */
1118
1119 for (i = descr->top_item; i < descr->nb_items; i++)
1120 {
1121 if (!(descr->style & LBS_OWNERDRAWVARIABLE))
1122 rect.bottom = rect.top + descr->item_height;
1123 else
1124 rect.bottom = rect.top + get_item_height(descr, i);
1125
1126 /* keep the focus rect, to paint the focus item after */
1127 if (i == descr->focus_item)
1128 focusRect = rect;
1129
1130 LISTBOX_PaintItem( descr, hdc, &rect, i, ODA_DRAWENTIRE, TRUE );
1131 rect.top = rect.bottom;
1132
1133 if ((descr->style & LBS_MULTICOLUMN) && !col_pos)
1134 {
1135 if (!IS_OWNERDRAW(descr))
1136 {
1137 /* Clear the bottom of the column */
1138 if (rect.top < descr->height)
1139 {
1140 rect.bottom = descr->height;
1141 ExtTextOutW( hdc, 0, 0, ETO_OPAQUE | ETO_CLIPPED,
1142 &rect, NULL, 0, NULL );
1143 }
1144 }
1145
1146 /* Go to the next column */
1147 rect.left += descr->column_width;
1148 rect.right += descr->column_width;
1149 rect.top = 0;
1150 col_pos = descr->page_size - 1;
1151 if (rect.left >= descr->width) break;
1152 }
1153 else
1154 {
1155 col_pos--;
1156 if (rect.top >= descr->height) break;
1157 }
1158 }
1159
1160 /* Paint the focus item now */
1161 if (focusRect.top != focusRect.bottom &&
1162 descr->caret_on && descr->in_focus)
1163 LISTBOX_PaintItem( descr, hdc, &focusRect, descr->focus_item, ODA_FOCUS, FALSE );
1164
1165 if (!IS_OWNERDRAW(descr))
1166 {
1167 /* Clear the remainder of the client area */
1168 if (rect.top < descr->height)
1169 {
1170 rect.bottom = descr->height;
1171 ExtTextOutW( hdc, 0, 0, ETO_OPAQUE | ETO_CLIPPED,
1172 &rect, NULL, 0, NULL );
1173 }
1174 if (rect.right < descr->width)
1175 {
1176 rect.left = rect.right;
1177 rect.right = descr->width;
1178 rect.top = 0;
1179 rect.bottom = descr->height;
1180 ExtTextOutW( hdc, 0, 0, ETO_OPAQUE | ETO_CLIPPED,
1181 &rect, NULL, 0, NULL );
1182 }
1183 }
1184 if (oldFont) SelectObject( hdc, oldFont );
1185 if (oldBrush) SelectObject( hdc, oldBrush );
1186 return 0;
1187 }
1188
1189 static void LISTBOX_NCPaint( LB_DESCR *descr, HRGN region )
1190 {
1191 DWORD exstyle = GetWindowLongW( descr->self, GWL_EXSTYLE);
1192 HTHEME theme = GetWindowTheme( descr->self );
1193 HRGN cliprgn = region;
1194 int cxEdge, cyEdge;
1195 HDC hdc;
1196 RECT r;
1197
1198 if (!theme || !(exstyle & WS_EX_CLIENTEDGE))
1199 return;
1200
1201 cxEdge = GetSystemMetrics(SM_CXEDGE);
1202 cyEdge = GetSystemMetrics(SM_CYEDGE);
1203
1204 GetWindowRect(descr->self, &r);
1205
1206 /* New clipping region passed to default proc to exclude border */
1207 cliprgn = CreateRectRgn(r.left + cxEdge, r.top + cyEdge,
1208 r.right - cxEdge, r.bottom - cyEdge);
1209 if (region != (HRGN)1)
1210 CombineRgn(cliprgn, cliprgn, region, RGN_AND);
1211 OffsetRect(&r, -r.left, -r.top);
1212
1213 hdc = GetDCEx(descr->self, region, DCX_WINDOW|DCX_INTERSECTRGN);
1214 OffsetRect(&r, -r.left, -r.top);
1215
1216 if (IsThemeBackgroundPartiallyTransparent (theme, 0, 0))
1217 DrawThemeParentBackground(descr->self, hdc, &r);
1218 DrawThemeBackground (theme, hdc, 0, 0, &r, 0);
1219 ReleaseDC(descr->self, hdc);
1220 }
1221
1222 /***********************************************************************
1223 * LISTBOX_InvalidateItems
1224 *
1225 * Invalidate all items from a given item. If the specified item is not
1226 * visible, nothing happens.
1227 */
1228 static void LISTBOX_InvalidateItems( LB_DESCR *descr, INT index )
1229 {
1230 RECT rect;
1231
1232 if (LISTBOX_GetItemRect( descr, index, &rect ) == 1)
1233 {
1234 if (descr->style & LBS_NOREDRAW)
1235 {
1236 descr->style |= LBS_DISPLAYCHANGED;
1237 return;
1238 }
1239 rect.bottom = descr->height;
1240 InvalidateRect( descr->self, &rect, TRUE );
1241 if (descr->style & LBS_MULTICOLUMN)
1242 {
1243 /* Repaint the other columns */
1244 rect.left = rect.right;
1245 rect.right = descr->width;
1246 rect.top = 0;
1247 InvalidateRect( descr->self, &rect, TRUE );
1248 }
1249 }
1250 }
1251
1252 static void LISTBOX_InvalidateItemRect( LB_DESCR *descr, INT index )
1253 {
1254 RECT rect;
1255
1256 if (LISTBOX_GetItemRect( descr, index, &rect ) == 1)
1257 InvalidateRect( descr->self, &rect, TRUE );
1258 }
1259
1260 /***********************************************************************
1261 * LISTBOX_GetItemHeight
1262 */
1263 static LRESULT LISTBOX_GetItemHeight( const LB_DESCR *descr, INT index )
1264 {
1265 if (descr->style & LBS_OWNERDRAWVARIABLE && descr->nb_items > 0)
1266 {
1267 if ((index < 0) || (index >= descr->nb_items))
1268 {
1269 SetLastError(ERROR_INVALID_INDEX);
1270 return LB_ERR;
1271 }
1272 return get_item_height(descr, index);
1273 }
1274 else return descr->item_height;
1275 }
1276
1277
1278 /***********************************************************************
1279 * LISTBOX_SetItemHeight
1280 */
1281 static LRESULT LISTBOX_SetItemHeight( LB_DESCR *descr, INT index, INT height, BOOL repaint )
1282 {
1283 if (height > MAXWORD)
1284 return -1;
1285
1286 if (!height) height = 1;
1287
1288 if (descr->style & LBS_OWNERDRAWVARIABLE)
1289 {
1290 if ((index < 0) || (index >= descr->nb_items))
1291 {
1292 SetLastError(ERROR_INVALID_INDEX);
1293 return LB_ERR;
1294 }
1295 TRACE("[%p]: item %d height = %d\n", descr->self, index, height );
1296 set_item_height(descr, index, height);
1297 LISTBOX_UpdateScroll( descr );
1298 if (repaint)
1299 LISTBOX_InvalidateItems( descr, index );
1300 }
1301 else if (height != descr->item_height)
1302 {
1303 TRACE("[%p]: new height = %d\n", descr->self, height );
1304 descr->item_height = height;
1305 LISTBOX_UpdatePage( descr );
1306 LISTBOX_UpdateScroll( descr );
1307 if (repaint)
1308 InvalidateRect( descr->self, 0, TRUE );
1309 }
1310 return LB_OKAY;
1311 }
1312
1313
1314 /***********************************************************************
1315 * LISTBOX_SetHorizontalPos
1316 */
1317 static void LISTBOX_SetHorizontalPos( LB_DESCR *descr, INT pos )
1318 {
1319 INT diff;
1320
1321 if (pos > descr->horz_extent - descr->width)
1322 pos = descr->horz_extent - descr->width;
1323 if (pos < 0) pos = 0;
1324 if (!(diff = descr->horz_pos - pos)) return;
1325 TRACE("[%p]: new horz pos = %d\n", descr->self, pos );
1326 descr->horz_pos = pos;
1327 LISTBOX_UpdateScroll( descr );
1328 if (abs(diff) < descr->width)
1329 {
1330 RECT rect;
1331 /* Invalidate the focused item so it will be repainted correctly */
1332 if (LISTBOX_GetItemRect( descr, descr->focus_item, &rect ) == 1)
1333 InvalidateRect( descr->self, &rect, TRUE );
1334 ScrollWindowEx( descr->self, diff, 0, NULL, NULL, 0, NULL,
1335 SW_INVALIDATE | SW_ERASE | SW_SCROLLCHILDREN );
1336 }
1337 else
1338 InvalidateRect( descr->self, NULL, TRUE );
1339 }
1340
1341
1342 /***********************************************************************
1343 * LISTBOX_SetHorizontalExtent
1344 */
1345 static LRESULT LISTBOX_SetHorizontalExtent( LB_DESCR *descr, INT extent )
1346 {
1347 if (descr->style & LBS_MULTICOLUMN)
1348 return LB_OKAY;
1349 if (extent == descr->horz_extent) return LB_OKAY;
1350 TRACE("[%p]: new horz extent = %d\n", descr->self, extent );
1351 descr->horz_extent = extent;
1352 if (descr->style & WS_HSCROLL) {
1353 SCROLLINFO info;
1354 info.cbSize = sizeof(info);
1355 info.nMin = 0;
1356 info.nMax = descr->horz_extent ? descr->horz_extent - 1 : 0;
1357 info.fMask = SIF_RANGE;
1358 if (descr->style & LBS_DISABLENOSCROLL)
1359 info.fMask |= SIF_DISABLENOSCROLL;
1360 SetScrollInfo( descr->self, SB_HORZ, &info, TRUE );
1361 }
1362 if (descr->horz_pos > extent - descr->width)
1363 LISTBOX_SetHorizontalPos( descr, extent - descr->width );
1364 return LB_OKAY;
1365 }
1366
1367
1368 /***********************************************************************
1369 * LISTBOX_SetColumnWidth
1370 */
1371 static LRESULT LISTBOX_SetColumnWidth( LB_DESCR *descr, INT column_width)
1372 {
1373 RECT rect;
1374
1375 TRACE("[%p]: new column width = %d\n", descr->self, column_width);
1376
1377 GetClientRect(descr->self, &rect);
1378 descr->width = rect.right - rect.left;
1379 descr->height = rect.bottom - rect.top;
1380 descr->column_width = column_width;
1381
1382 LISTBOX_UpdatePage(descr);
1383 LISTBOX_UpdateScroll(descr);
1384 return LB_OKAY;
1385 }
1386
1387
1388 /***********************************************************************
1389 * LISTBOX_SetFont
1390 *
1391 * Returns the item height.
1392 */
1393 static INT LISTBOX_SetFont( LB_DESCR *descr, HFONT font )
1394 {
1395 HDC hdc;
1396 HFONT oldFont = 0;
1397 const char *alphabet = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ";
1398 SIZE sz;
1399
1400 descr->font = font;
1401
1402 if (!(hdc = GetDCEx( descr->self, 0, DCX_CACHE )))
1403 {
1404 ERR("unable to get DC.\n" );
1405 return 16;
1406 }
1407 if (font) oldFont = SelectObject( hdc, font );
1408 GetTextExtentPointA( hdc, alphabet, 52, &sz);
1409 if (oldFont) SelectObject( hdc, oldFont );
1410 ReleaseDC( descr->self, hdc );
1411
1412 descr->avg_char_width = (sz.cx / 26 + 1) / 2;
1413 if (!IS_OWNERDRAW(descr))
1414 LISTBOX_SetItemHeight( descr, 0, sz.cy, FALSE );
1415 return sz.cy;
1416 }
1417
1418
1419 /***********************************************************************
1420 * LISTBOX_MakeItemVisible
1421 *
1422 * Make sure that a given item is partially or fully visible.
1423 */
1424 static void LISTBOX_MakeItemVisible( LB_DESCR *descr, INT index, BOOL fully )
1425 {
1426 INT top;
1427
1428 TRACE("current top item %d, index %d, fully %d\n", descr->top_item, index, fully);
1429
1430 if (index <= descr->top_item) top = index;
1431 else if (descr->style & LBS_MULTICOLUMN)
1432 {
1433 INT cols = descr->width;
1434 if (!fully) cols += descr->column_width - 1;
1435 if (cols >= descr->column_width) cols /= descr->column_width;
1436 else cols = 1;
1437 if (index < descr->top_item + (descr->page_size * cols)) return;
1438 top = index - descr->page_size * (cols - 1);
1439 }
1440 else if (descr->style & LBS_OWNERDRAWVARIABLE)
1441 {
1442 INT height = fully ? get_item_height(descr, index) : 1;
1443 for (top = index; top > descr->top_item; top--)
1444 if ((height += get_item_height(descr, top - 1)) > descr->height) break;
1445 }
1446 else
1447 {
1448 if (index < descr->top_item + descr->page_size) return;
1449 if (!fully && (index == descr->top_item + descr->page_size) &&
1450 (descr->height > (descr->page_size * descr->item_height))) return;
1451 top = index - descr->page_size + 1;
1452 }
1453 LISTBOX_SetTopItem( descr, top, TRUE );
1454 }
1455
1456 /***********************************************************************
1457 * LISTBOX_SetCaretIndex
1458 *
1459 * NOTES
1460 * index must be between 0 and descr->nb_items-1, or LB_ERR is returned.
1461 *
1462 */
1463 static LRESULT LISTBOX_SetCaretIndex( LB_DESCR *descr, INT index, BOOL fully_visible )
1464 {
1465 BOOL focus_changed = descr->focus_item != index;
1466
1467 TRACE("old focus %d, index %d\n", descr->focus_item, index);
1468
1469 if (descr->style & LBS_NOSEL) return LB_ERR;
1470 if ((index < 0) || (index >= descr->nb_items)) return LB_ERR;
1471
1472 if (focus_changed)
1473 {
1474 LISTBOX_DrawFocusRect( descr, FALSE );
1475 descr->focus_item = index;
1476 }
1477
1478 LISTBOX_MakeItemVisible( descr, index, fully_visible );
1479
1480 if (focus_changed)
1481 LISTBOX_DrawFocusRect( descr, TRUE );
1482
1483 return LB_OKAY;
1484 }
1485
1486
1487 /***********************************************************************
1488 * LISTBOX_SelectItemRange
1489 *
1490 * Select a range of items. Should only be used on a MULTIPLESEL listbox.
1491 */
1492 static LRESULT LISTBOX_SelectItemRange( LB_DESCR *descr, INT first,
1493 INT last, BOOL on )
1494 {
1495 INT i;
1496
1497 /* A few sanity checks */
1498
1499 if (descr->style & LBS_NOSEL) return LB_ERR;
1500 if (!(descr->style & LBS_MULTIPLESEL)) return LB_ERR;
1501
1502 if (!descr->nb_items) return LB_OKAY;
1503
1504 if (last == -1 || last >= descr->nb_items) last = descr->nb_items - 1;
1505 if (first < 0) first = 0;
1506 if (last < first) return LB_OKAY;
1507
1508 if (on) /* Turn selection on */
1509 {
1510 for (i = first; i <= last; i++)
1511 {
1512 if (is_item_selected(descr, i)) continue;
1513 set_item_selected_state(descr, i, TRUE);
1514 LISTBOX_InvalidateItemRect(descr, i);
1515 }
1516 }
1517 else /* Turn selection off */
1518 {
1519 for (i = first; i <= last; i++)
1520 {
1521 if (!is_item_selected(descr, i)) continue;
1522 set_item_selected_state(descr, i, FALSE);
1523 LISTBOX_InvalidateItemRect(descr, i);
1524 }
1525 }
1526 return LB_OKAY;
1527 }
1528
1529 /***********************************************************************
1530 * LISTBOX_SetSelection
1531 */
1532 static LRESULT LISTBOX_SetSelection( LB_DESCR *descr, INT index,
1533 BOOL on, BOOL send_notify )
1534 {
1535 TRACE( "cur_sel=%d index=%d notify=%s\n",
1536 descr->selected_item, index, send_notify ? "YES" : "NO" );
1537
1538 if (descr->style & LBS_NOSEL)
1539 {
1540 descr->selected_item = index;
1541 return LB_ERR;
1542 }
1543 if ((index < -1) || (index >= descr->nb_items)) return LB_ERR;
1544 if (descr->style & LBS_MULTIPLESEL)
1545 {
1546 if (index == -1) /* Select all items */
1547 return LISTBOX_SelectItemRange( descr, 0, descr->nb_items, on );
1548 else /* Only one item */
1549 return LISTBOX_SelectItemRange( descr, index, index, on );
1550 }
1551 else
1552 {
1553 INT oldsel = descr->selected_item;
1554 if (index == oldsel) return LB_OKAY;
1555 if (oldsel != -1) set_item_selected_state(descr, oldsel, FALSE);
1556 if (index != -1) set_item_selected_state(descr, index, TRUE);
1557 descr->selected_item = index;
1558 if (oldsel != -1) LISTBOX_RepaintItem( descr, oldsel, ODA_SELECT );
1559 if (index != -1) LISTBOX_RepaintItem( descr, index, ODA_SELECT );
1560 if (send_notify && descr->nb_items) SEND_NOTIFICATION( descr,
1561 (index != -1) ? LBN_SELCHANGE : LBN_SELCANCEL );
1562 else
1563 if( descr->lphc ) /* set selection change flag for parent combo */
1564 descr->lphc->wState |= CBF_SELCHANGE;
1565 }
1566 return LB_OKAY;
1567 }
1568
1569
1570 /***********************************************************************
1571 * LISTBOX_MoveCaret
1572 *
1573 * Change the caret position and extend the selection to the new caret.
1574 */
1575 static void LISTBOX_MoveCaret( LB_DESCR *descr, INT index, BOOL fully_visible )
1576 {
1577 TRACE("old focus %d, index %d\n", descr->focus_item, index);
1578
1579 if ((index < 0) || (index >= descr->nb_items))
1580 return;
1581
1582 /* Important, repaint needs to be done in this order if
1583 you want to mimic Windows behavior:
1584 1. Remove the focus and paint the item
1585 2. Remove the selection and paint the item(s)
1586 3. Set the selection and repaint the item(s)
1587 4. Set the focus to 'index' and repaint the item */
1588
1589 /* 1. remove the focus and repaint the item */
1590 LISTBOX_DrawFocusRect( descr, FALSE );
1591
1592 /* 2. then turn off the previous selection */
1593 /* 3. repaint the new selected item */
1594 if (descr->style & LBS_EXTENDEDSEL)
1595 {
1596 if (descr->anchor_item != -1)
1597 {
1598 INT first = min( index, descr->anchor_item );
1599 INT last = max( index, descr->anchor_item );
1600 if (first > 0)
1601 LISTBOX_SelectItemRange( descr, 0, first - 1, FALSE );
1602 LISTBOX_SelectItemRange( descr, last + 1, -1, FALSE );
1603 LISTBOX_SelectItemRange( descr, first, last, TRUE );
1604 }
1605 }
1606 else if (!(descr->style & LBS_MULTIPLESEL))
1607 {
1608 /* Set selection to new caret item */
1609 LISTBOX_SetSelection( descr, index, TRUE, FALSE );
1610 }
1611
1612 /* 4. repaint the new item with the focus */
1613 descr->focus_item = index;
1614 LISTBOX_MakeItemVisible( descr, index, fully_visible );
1615 LISTBOX_DrawFocusRect( descr, TRUE );
1616 }
1617
1618
1619 /***********************************************************************
1620 * LISTBOX_InsertItem
1621 */
1622 static LRESULT LISTBOX_InsertItem( LB_DESCR *descr, INT index,
1623 LPWSTR str, ULONG_PTR data )
1624 {
1625 INT oldfocus = descr->focus_item;
1626
1627 if (index == -1) index = descr->nb_items;
1628 else if ((index < 0) || (index > descr->nb_items)) return LB_ERR;
1629 if (!resize_storage(descr, descr->nb_items + 1)) return LB_ERR;
1630
1631 insert_item_data(descr, index);
1632 descr->nb_items++;
1633 set_item_string(descr, index, str);
1634 set_item_data(descr, index, HAS_STRINGS(descr) ? 0 : data);
1635 set_item_height(descr, index, 0);
1636 set_item_selected_state(descr, index, FALSE);
1637
1638 /* Get item height */
1639
1640 if (descr->style & LBS_OWNERDRAWVARIABLE)
1641 {
1642 MEASUREITEMSTRUCT mis;
1643 UINT id = (UINT)GetWindowLongPtrW( descr->self, GWLP_ID );
1644
1645 mis.CtlType = ODT_LISTBOX;
1646 mis.CtlID = id;
1647 mis.itemID = index;
1648 mis.itemData = data;
1649 mis.itemHeight = descr->item_height;
1650 SendMessageW( descr->owner, WM_MEASUREITEM, id, (LPARAM)&mis );
1651 set_item_height(descr, index, mis.itemHeight ? mis.itemHeight : 1);
1652 TRACE("[%p]: measure item %d (%s) = %d\n",
1653 descr->self, index, str ? debugstr_w(str) : "", get_item_height(descr, index));
1654 }
1655
1656 /* Repaint the items */
1657
1658 LISTBOX_UpdateScroll( descr );
1659 LISTBOX_InvalidateItems( descr, index );
1660
1661 /* Move selection and focused item */
1662 /* If listbox was empty, set focus to the first item */
1663 if (descr->nb_items == 1)
1664 LISTBOX_SetCaretIndex( descr, 0, FALSE );
1665 /* single select don't change selection index in win31 */
1666 else if ((ISWIN31) && !(IS_MULTISELECT(descr)))
1667 {
1668 descr->selected_item++;
1669 LISTBOX_SetSelection( descr, descr->selected_item-1, TRUE, FALSE );
1670 }
1671 else
1672 {
1673 if (index <= descr->selected_item)
1674 {
1675 descr->selected_item++;
1676 descr->focus_item = oldfocus; /* focus not changed */
1677 }
1678 }
1679 return LB_OKAY;
1680 }
1681
1682
1683 /***********************************************************************
1684 * LISTBOX_InsertString
1685 */
1686 static LRESULT LISTBOX_InsertString( LB_DESCR *descr, INT index, LPCWSTR str )
1687 {
1688 LPWSTR new_str = NULL;
1689 LRESULT ret;
1690
1691 if (HAS_STRINGS(descr))
1692 {
1693 if (!str) str = L"";
1694 if (!(new_str = HeapAlloc( GetProcessHeap(), 0, (lstrlenW(str) + 1) * sizeof(WCHAR) )))
1695 {
1696 SEND_NOTIFICATION( descr, LBN_ERRSPACE );
1697 return LB_ERRSPACE;
1698 }
1699 lstrcpyW(new_str, str);
1700 }
1701
1702 if (index == -1) index = descr->nb_items;
1703 if ((ret = LISTBOX_InsertItem( descr, index, new_str, (ULONG_PTR)str )) != 0)
1704 {
1705 HeapFree( GetProcessHeap(), 0, new_str );
1706 return ret;
1707 }
1708
1709 TRACE("[%p]: added item %d %s\n",
1710 descr->self, index, HAS_STRINGS(descr) ? debugstr_w(new_str) : "" );
1711 return index;
1712 }
1713
1714
1715 /***********************************************************************
1716 * LISTBOX_DeleteItem
1717 *
1718 * Delete the content of an item. 'index' must be a valid index.
1719 */
1720 static void LISTBOX_DeleteItem( LB_DESCR *descr, INT index )
1721 {
1722 /* Note: Win 3.1 only sends DELETEITEM on owner-draw items,
1723 * while Win95 sends it for all items with user data.
1724 * It's probably better to send it too often than not
1725 * often enough, so this is what we do here.
1726 */
1727 if (IS_OWNERDRAW(descr) || get_item_data(descr, index))
1728 {
1729 DELETEITEMSTRUCT dis;
1730 UINT id = (UINT)GetWindowLongPtrW( descr->self, GWLP_ID );
1731
1732 dis.CtlType = ODT_LISTBOX;
1733 dis.CtlID = id;
1734 dis.itemID = index;
1735 dis.hwndItem = descr->self;
1736 dis.itemData = get_item_data(descr, index);
1737 SendMessageW( descr->owner, WM_DELETEITEM, id, (LPARAM)&dis );
1738 }
1739 HeapFree( GetProcessHeap(), 0, get_item_string(descr, index) );
1740 }
1741
1742
1743 /***********************************************************************
1744 * LISTBOX_RemoveItem
1745 *
1746 * Remove an item from the listbox and delete its content.
1747 */
1748 static LRESULT LISTBOX_RemoveItem( LB_DESCR *descr, INT index )
1749 {
1750 if ((index < 0) || (index >= descr->nb_items)) return LB_ERR;
1751
1752 /* We need to invalidate the original rect instead of the updated one. */
1753 LISTBOX_InvalidateItems( descr, index );
1754
1755 if (descr->nb_items == 1)
1756 {
1757 SendMessageW(descr->self, LB_RESETCONTENT, 0, 0);
1758 return LB_OKAY;
1759 }
1760 descr->nb_items--;
1761 LISTBOX_DeleteItem( descr, index );
1762 remove_item_data(descr, index);
1763
1764 if (descr->anchor_item == descr->nb_items) descr->anchor_item--;
1765 resize_storage(descr, descr->nb_items);
1766
1767 /* Repaint the items */
1768
1769 LISTBOX_UpdateScroll( descr );
1770 /* if we removed the scrollbar, reset the top of the list
1771 (correct for owner-drawn ???) */
1772 if (descr->nb_items == descr->page_size)
1773 LISTBOX_SetTopItem( descr, 0, TRUE );
1774
1775 /* Move selection and focused item */
1776 if (!IS_MULTISELECT(descr))
1777 {
1778 if (index == descr->selected_item)
1779 descr->selected_item = -1;
1780 else if (index < descr->selected_item)
1781 {
1782 descr->selected_item--;
1783 if (ISWIN31) /* win 31 do not change the selected item number */
1784 LISTBOX_SetSelection( descr, descr->selected_item + 1, TRUE, FALSE);
1785 }
1786 }
1787
1788 if (descr->focus_item >= descr->nb_items)
1789 {
1790 descr->focus_item = descr->nb_items - 1;
1791 if (descr->focus_item < 0) descr->focus_item = 0;
1792 }
1793 return LB_OKAY;
1794 }
1795
1796
1797 /***********************************************************************
1798 * LISTBOX_ResetContent
1799 */
1800 static void LISTBOX_ResetContent( LB_DESCR *descr )
1801 {
1802 INT i;
1803
1804 if (!(descr->style & LBS_NODATA))
1805 for (i = descr->nb_items - 1; i >= 0; i--) LISTBOX_DeleteItem(descr, i);
1806 HeapFree( GetProcessHeap(), 0, descr->u.items );
1807 descr->nb_items = 0;
1808 descr->top_item = 0;
1809 descr->selected_item = -1;
1810 descr->focus_item = 0;
1811 descr->anchor_item = -1;
1812 descr->items_size = 0;
1813 descr->u.items = NULL;
1814 }
1815
1816
1817 /***********************************************************************
1818 * LISTBOX_SetCount
1819 */
1820 static LRESULT LISTBOX_SetCount( LB_DESCR *descr, UINT count )
1821 {
1822 UINT orig_num = descr->nb_items;
1823
1824 if (!(descr->style & LBS_NODATA)) return LB_ERR;
1825
1826 if (!resize_storage(descr, count))
1827 return LB_ERRSPACE;
1828 descr->nb_items = count;
1829
1830 if (count)
1831 {
1832 LISTBOX_UpdateScroll(descr);
1833 if (count < orig_num)
1834 {
1835 descr->anchor_item = min(descr->anchor_item, count - 1);
1836 if (descr->selected_item >= count)
1837 descr->selected_item = -1;
1838
1839 /* If we removed the scrollbar, reset the top of the list */
1840 if (count <= descr->page_size && orig_num > descr->page_size)
1841 LISTBOX_SetTopItem(descr, 0, TRUE);
1842
1843 descr->focus_item = min(descr->focus_item, count - 1);
1844 }
1845
1846 /* If it was empty before growing, set focus to the first item */
1847 else if (orig_num == 0) LISTBOX_SetCaretIndex(descr, 0, FALSE);
1848 }
1849 else SendMessageW(descr->self, LB_RESETCONTENT, 0, 0);
1850
1851 InvalidateRect( descr->self, NULL, TRUE );
1852 return LB_OKAY;
1853 }
1854
1855
1856 /***********************************************************************
1857 * LISTBOX_Directory
1858 */
1859 static LRESULT LISTBOX_Directory( LB_DESCR *descr, UINT attrib,
1860 LPCWSTR filespec, BOOL long_names )
1861 {
1862 HANDLE handle;
1863 LRESULT ret = LB_OKAY;
1864 WIN32_FIND_DATAW entry;
1865 int pos;
1866 LRESULT maxinsert = LB_ERR;
1867
1868 /* don't scan directory if we just want drives exclusively */
1869 if (attrib != (DDL_DRIVES | DDL_EXCLUSIVE)) {
1870 /* scan directory */
1871 if ((handle = FindFirstFileW(filespec, &entry)) == INVALID_HANDLE_VALUE)
1872 {
1873 int le = GetLastError();
1874 if ((le != ERROR_NO_MORE_FILES) && (le != ERROR_FILE_NOT_FOUND)) return LB_ERR;
1875 }
1876 else
1877 {
1878 do
1879 {
1880 WCHAR buffer[270];
1881 if (entry.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY)
1882 {
1883 if (!(attrib & DDL_DIRECTORY) ||
1884 !lstrcmpW( entry.cFileName, L"." )) continue;
1885 buffer[0] = '[';
1886 if (!long_names && entry.cAlternateFileName[0])
1887 lstrcpyW( buffer + 1, entry.cAlternateFileName );
1888 else
1889 lstrcpyW( buffer + 1, entry.cFileName );
1890 lstrcatW(buffer, L"]");
1891 }
1892 else /* not a directory */
1893 {
1894 #define ATTRIBS (FILE_ATTRIBUTE_READONLY | FILE_ATTRIBUTE_HIDDEN | \
1895 FILE_ATTRIBUTE_SYSTEM | FILE_ATTRIBUTE_ARCHIVE)
1896
1897 if ((attrib & DDL_EXCLUSIVE) &&
1898 ((attrib & ATTRIBS) != (entry.dwFileAttributes & ATTRIBS)))
1899 continue;
1900 #undef ATTRIBS
1901 if (!long_names && entry.cAlternateFileName[0])
1902 lstrcpyW( buffer, entry.cAlternateFileName );
1903 else
1904 lstrcpyW( buffer, entry.cFileName );
1905 }
1906 if (!long_names) CharLowerW( buffer );
1907 pos = LISTBOX_FindFileStrPos( descr, buffer );
1908 if ((ret = LISTBOX_InsertString( descr, pos, buffer )) < 0)
1909 break;
1910 if (ret <= maxinsert) maxinsert++; else maxinsert = ret;
1911 } while (FindNextFileW( handle, &entry ));
1912 FindClose( handle );
1913 }
1914 }
1915 if (ret >= 0)
1916 {
1917 ret = maxinsert;
1918
1919 /* scan drives */
1920 if (attrib & DDL_DRIVES)
1921 {
1922 WCHAR buffer[] = L"[-a-]";
1923 WCHAR root[] = L"A:\\";
1924 int drive;
1925 for (drive = 0; drive < 26; drive++, buffer[2]++, root[0]++)
1926 {
1927 if (GetDriveTypeW(root) <= DRIVE_NO_ROOT_DIR) continue;
1928 if ((ret = LISTBOX_InsertString( descr, -1, buffer )) < 0)
1929 break;
1930 }
1931 }
1932 }
1933 return ret;
1934 }
1935
1936
1937 /***********************************************************************
1938 * LISTBOX_HandleVScroll
1939 */
1940 static LRESULT LISTBOX_HandleVScroll( LB_DESCR *descr, WORD scrollReq, WORD pos )
1941 {
1942 SCROLLINFO info;
1943
1944 if (descr->style & LBS_MULTICOLUMN) return 0;
1945 switch(scrollReq)
1946 {
1947 case SB_LINEUP:
1948 LISTBOX_SetTopItem( descr, descr->top_item - 1, TRUE );
1949 break;
1950 case SB_LINEDOWN:
1951 LISTBOX_SetTopItem( descr, descr->top_item + 1, TRUE );
1952 break;
1953 case SB_PAGEUP:
1954 LISTBOX_SetTopItem( descr, descr->top_item -
1955 LISTBOX_GetCurrentPageSize( descr ), TRUE );
1956 break;
1957 case SB_PAGEDOWN:
1958 LISTBOX_SetTopItem( descr, descr->top_item +
1959 LISTBOX_GetCurrentPageSize( descr ), TRUE );
1960 break;
1961 case SB_THUMBPOSITION:
1962 LISTBOX_SetTopItem( descr, pos, TRUE );
1963 break;
1964 case SB_THUMBTRACK:
1965 info.cbSize = sizeof(info);
1966 info.fMask = SIF_TRACKPOS;
1967 GetScrollInfo( descr->self, SB_VERT, &info );
1968 LISTBOX_SetTopItem( descr, info.nTrackPos, TRUE );
1969 break;
1970 case SB_TOP:
1971 LISTBOX_SetTopItem( descr, 0, TRUE );
1972 break;
1973 case SB_BOTTOM:
1974 LISTBOX_SetTopItem( descr, descr->nb_items, TRUE );
1975 break;
1976 }
1977 return 0;
1978 }
1979
1980
1981 /***********************************************************************
1982 * LISTBOX_HandleHScroll
1983 */
1984 static LRESULT LISTBOX_HandleHScroll( LB_DESCR *descr, WORD scrollReq, WORD pos )
1985 {
1986 SCROLLINFO info;
1987 INT page;
1988
1989 if (descr->style & LBS_MULTICOLUMN)
1990 {
1991 switch(scrollReq)
1992 {
1993 case SB_LINELEFT:
1994 LISTBOX_SetTopItem( descr, descr->top_item-descr->page_size,
1995 TRUE );
1996 break;
1997 case SB_LINERIGHT:
1998 LISTBOX_SetTopItem( descr, descr->top_item+descr->page_size,
1999 TRUE );
2000 break;
2001 case SB_PAGELEFT:
2002 page = descr->width / descr->column_width;
2003 if (page < 1) page = 1;
2004 LISTBOX_SetTopItem( descr,
2005 descr->top_item - page * descr->page_size, TRUE );
2006 break;
2007 case SB_PAGERIGHT:
2008 page = descr->width / descr->column_width;
2009 if (page < 1) page = 1;
2010 LISTBOX_SetTopItem( descr,
2011 descr->top_item + page * descr->page_size, TRUE );
2012 break;
2013 case SB_THUMBPOSITION:
2014 LISTBOX_SetTopItem( descr, pos*descr->page_size, TRUE );
2015 break;
2016 case SB_THUMBTRACK:
2017 info.cbSize = sizeof(info);
2018 info.fMask = SIF_TRACKPOS;
2019 GetScrollInfo( descr->self, SB_VERT, &info );
2020 LISTBOX_SetTopItem( descr, info.nTrackPos*descr->page_size,
2021 TRUE );
2022 break;
2023 case SB_LEFT:
2024 LISTBOX_SetTopItem( descr, 0, TRUE );
2025 break;
2026 case SB_RIGHT:
2027 LISTBOX_SetTopItem( descr, descr->nb_items, TRUE );
2028 break;
2029 }
2030 }
2031 else if (descr->horz_extent)
2032 {
2033 switch(scrollReq)
2034 {
2035 case SB_LINELEFT:
2036 LISTBOX_SetHorizontalPos( descr, descr->horz_pos - 1 );
2037 break;
2038 case SB_LINERIGHT:
2039 LISTBOX_SetHorizontalPos( descr, descr->horz_pos + 1 );
2040 break;
2041 case SB_PAGELEFT:
2042 LISTBOX_SetHorizontalPos( descr,
2043 descr->horz_pos - descr->width );
2044 break;
2045 case SB_PAGERIGHT:
2046 LISTBOX_SetHorizontalPos( descr,
2047 descr->horz_pos + descr->width );
2048 break;
2049 case SB_THUMBPOSITION:
2050 LISTBOX_SetHorizontalPos( descr, pos );
2051 break;
2052 case SB_THUMBTRACK:
2053 info.cbSize = sizeof(info);
2054 info.fMask = SIF_TRACKPOS;
2055 GetScrollInfo( descr->self, SB_HORZ, &info );
2056 LISTBOX_SetHorizontalPos( descr, info.nTrackPos );
2057 break;
2058 case SB_LEFT:
2059 LISTBOX_SetHorizontalPos( descr, 0 );
2060 break;
2061 case SB_RIGHT:
2062 LISTBOX_SetHorizontalPos( descr,
2063 descr->horz_extent - descr->width );
2064 break;
2065 }
2066 }
2067 return 0;
2068 }
2069
2070 static LRESULT LISTBOX_HandleMouseWheel(LB_DESCR *descr, SHORT delta )
2071 {
2072 INT pulScrollLines = 3;
2073
2074 SystemParametersInfoW(SPI_GETWHEELSCROLLLINES,0, &pulScrollLines, 0);
2075
2076 /* if scrolling changes direction, ignore left overs */
2077 if ((delta < 0 && descr->wheel_remain < 0) ||
2078 (delta > 0 && descr->wheel_remain > 0))
2079 descr->wheel_remain += delta;
2080 else
2081 descr->wheel_remain = delta;
2082
2083 if (descr->wheel_remain && pulScrollLines)
2084 {
2085 int cLineScroll;
2086 if (descr->style & LBS_MULTICOLUMN)
2087 {
2088 pulScrollLines = min(descr->width / descr->column_width, pulScrollLines);
2089 pulScrollLines = max(1, pulScrollLines);
2090 cLineScroll = pulScrollLines * descr->wheel_remain / WHEEL_DELTA;
2091 descr->wheel_remain -= WHEEL_DELTA * cLineScroll / pulScrollLines;
2092 cLineScroll *= descr->page_size;
2093 }
2094 else
2095 {
2096 pulScrollLines = min(descr->page_size, pulScrollLines);
2097 cLineScroll = pulScrollLines * descr->wheel_remain / WHEEL_DELTA;
2098 descr->wheel_remain -= WHEEL_DELTA * cLineScroll / pulScrollLines;
2099 }
2100 LISTBOX_SetTopItem( descr, descr->top_item - cLineScroll, TRUE );
2101 }
2102 return 0;
2103 }
2104
2105 /***********************************************************************
2106 * LISTBOX_HandleLButtonDown
2107 */
2108 static LRESULT LISTBOX_HandleLButtonDown( LB_DESCR *descr, DWORD keys, INT x, INT y )
2109 {
2110 INT index = LISTBOX_GetItemFromPoint( descr, x, y );
2111
2112 TRACE("[%p]: lbuttondown %d,%d item %d, focus item %d\n",
2113 descr->self, x, y, index, descr->focus_item);
2114
2115 if (!descr->caret_on && (descr->in_focus)) return 0;
2116
2117 if (!descr->in_focus)
2118 {
2119 if( !descr->lphc ) SetFocus( descr->self );
2120 else SetFocus( (descr->lphc->hWndEdit) ? descr->lphc->hWndEdit : descr->lphc->self );
2121 }
2122
2123 if (index == -1) return 0;
2124
2125 if (!descr->lphc)
2126 {
2127 if (descr->style & LBS_NOTIFY )
2128 SendMessageW( descr->owner, WM_LBTRACKPOINT, index,
2129 MAKELPARAM( x, y ) );
2130 }
2131
2132 descr->captured = TRUE;
2133 SetCapture( descr->self );
2134
2135 if (descr->style & (LBS_EXTENDEDSEL | LBS_MULTIPLESEL))
2136 {
2137 /* we should perhaps make sure that all items are deselected
2138 FIXME: needed for !LBS_EXTENDEDSEL, too ?
2139 if (!(keys & (MK_SHIFT|MK_CONTROL)))
2140 LISTBOX_SetSelection( descr, -1, FALSE, FALSE);
2141 */
2142
2143 if (!(keys & MK_SHIFT)) descr->anchor_item = index;
2144 if (keys & MK_CONTROL)
2145 {
2146 LISTBOX_SetCaretIndex( descr, index, FALSE );
2147 LISTBOX_SetSelection( descr, index,
2148 !is_item_selected(descr, index),
2149 (descr->style & LBS_NOTIFY) != 0);
2150 }
2151 else
2152 {
2153 LISTBOX_MoveCaret( descr, index, FALSE );
2154
2155 if (descr->style & LBS_EXTENDEDSEL)
2156 {
2157 LISTBOX_SetSelection( descr, index,
2158 is_item_selected(descr, index),
2159 (descr->style & LBS_NOTIFY) != 0 );
2160 }
2161 else
2162 {
2163 LISTBOX_SetSelection( descr, index,
2164 !is_item_selected(descr, index),
2165 (descr->style & LBS_NOTIFY) != 0 );
2166 }
2167 }
2168 }
2169 else
2170 {
2171 descr->anchor_item = index;
2172 LISTBOX_MoveCaret( descr, index, FALSE );
2173 LISTBOX_SetSelection( descr, index,
2174 TRUE, (descr->style & LBS_NOTIFY) != 0 );
2175 }
2176
2177 if (!descr->lphc)
2178 {
2179 if (GetWindowLongW( descr->self, GWL_EXSTYLE ) & WS_EX_DRAGDETECT)
2180 {
2181 POINT pt;
2182
2183 pt.x = x;
2184 pt.y = y;
2185
2186 if (DragDetect( descr->self, pt ))
2187 SendMessageW( descr->owner, WM_BEGINDRAG, 0, 0 );
2188 }
2189 }
2190 return 0;
2191 }
2192
2193
2194 /*************************************************************************
2195 * LISTBOX_HandleLButtonDownCombo [Internal]
2196 *
2197 * Process LButtonDown message for the ComboListBox
2198 *
2199 * PARAMS
2200 * pWnd [I] The windows internal structure
2201 * pDescr [I] The ListBox internal structure
2202 * keys [I] Key Flag (WM_LBUTTONDOWN doc for more info)
2203 * x [I] X Mouse Coordinate
2204 * y [I] Y Mouse Coordinate
2205 *
2206 * RETURNS
2207 * 0 since we are processing the WM_LBUTTONDOWN Message
2208 *
2209 * NOTES
2210 * This function is only to be used when a ListBox is a ComboListBox
2211 */
2212
2213 static LRESULT LISTBOX_HandleLButtonDownCombo( LB_DESCR *descr, UINT msg, DWORD keys, INT x, INT y)
2214 {
2215 RECT clientRect, screenRect;
2216 POINT mousePos;
2217
2218 mousePos.x = x;
2219 mousePos.y = y;
2220
2221 GetClientRect(descr->self, &clientRect);
2222
2223 if(PtInRect(&clientRect, mousePos))
2224 {
2225 /* MousePos is in client, resume normal processing */
2226 if (msg == WM_LBUTTONDOWN)
2227 {
2228 descr->lphc->droppedIndex = descr->nb_items ? descr->selected_item : -1;
2229 return LISTBOX_HandleLButtonDown( descr, keys, x, y);
2230 }
2231 else if (descr->style & LBS_NOTIFY)
2232 SEND_NOTIFICATION( descr, LBN_DBLCLK );
2233 }
2234 else
2235 {
2236 POINT screenMousePos;
2237 HWND hWndOldCapture;
2238
2239 /* Check the Non-Client Area */
2240 screenMousePos = mousePos;
2241 hWndOldCapture = GetCapture();
2242 ReleaseCapture();
2243 GetWindowRect(descr->self, &screenRect);
2244 ClientToScreen(descr->self, &screenMousePos);
2245
2246 if(!PtInRect(&screenRect, screenMousePos))
2247 {
2248 LISTBOX_SetCaretIndex( descr, descr->lphc->droppedIndex, FALSE );
2249 LISTBOX_SetSelection( descr, descr->lphc->droppedIndex, FALSE, FALSE );
2250 COMBO_FlipListbox( descr->lphc, FALSE, FALSE );
2251 }
2252 else
2253 {
2254 /* Check to see the NC is a scrollbar */
2255 INT nHitTestType=0;
2256 LONG style = GetWindowLongW( descr->self, GWL_STYLE );
2257 /* Check Vertical scroll bar */
2258 if (style & WS_VSCROLL)
2259 {
2260 clientRect.right += GetSystemMetrics(SM_CXVSCROLL);
2261 if (PtInRect( &clientRect, mousePos ))
2262 nHitTestType = HTVSCROLL;
2263 }
2264 /* Check horizontal scroll bar */
2265 if (style & WS_HSCROLL)
2266 {
2267 clientRect.bottom += GetSystemMetrics(SM_CYHSCROLL);
2268 if (PtInRect( &clientRect, mousePos ))
2269 nHitTestType = HTHSCROLL;
2270 }
2271 /* Windows sends this message when a scrollbar is clicked
2272 */
2273
2274 if(nHitTestType != 0)
2275 {
2276 SendMessageW(descr->self, WM_NCLBUTTONDOWN, nHitTestType,
2277 MAKELONG(screenMousePos.x, screenMousePos.y));
2278 }
2279 /* Resume the Capture after scrolling is complete
2280 */
2281 if(hWndOldCapture != 0)
2282 SetCapture(hWndOldCapture);
2283 }
2284 }
2285 return 0;
2286 }
2287
2288 /***********************************************************************
2289 * LISTBOX_HandleLButtonUp
2290 */
2291 static LRESULT LISTBOX_HandleLButtonUp( LB_DESCR *descr )
2292 {
2293 if (LISTBOX_Timer != LB_TIMER_NONE)
2294 KillSystemTimer( descr->self, LB_TIMER_ID );
2295 LISTBOX_Timer = LB_TIMER_NONE;
2296 if (descr->captured)
2297 {
2298 descr->captured = FALSE;
2299 if (GetCapture() == descr->self) ReleaseCapture();
2300 if ((descr->style & LBS_NOTIFY) && descr->nb_items)
2301 SEND_NOTIFICATION( descr, LBN_SELCHANGE );
2302 }
2303 return 0;
2304 }
2305
2306
2307 /***********************************************************************
2308 * LISTBOX_HandleTimer
2309 *
2310 * Handle scrolling upon a timer event.
2311 * Return TRUE if scrolling should continue.
2312 */
2313 static LRESULT LISTBOX_HandleTimer( LB_DESCR *descr, INT index, TIMER_DIRECTION dir )
2314 {
2315 switch(dir)
2316 {
2317 case LB_TIMER_UP:
2318 if (descr->top_item) index = descr->top_item - 1;
2319 else index = 0;
2320 break;
2321 case LB_TIMER_LEFT:
2322 if (descr->top_item) index -= descr->page_size;
2323 break;
2324 case LB_TIMER_DOWN:
2325 index = descr->top_item + LISTBOX_GetCurrentPageSize( descr );
2326 if (index == descr->focus_item) index++;
2327 if (index >= descr->nb_items) index = descr->nb_items - 1;
2328 break;
2329 case LB_TIMER_RIGHT:
2330 if (index + descr->page_size < descr->nb_items)
2331 index += descr->page_size;
2332 break;
2333 case LB_TIMER_NONE:
2334 break;
2335 }
2336 if (index == descr->focus_item) return FALSE;
2337 LISTBOX_MoveCaret( descr, index, FALSE );
2338 return TRUE;
2339 }
2340
2341
2342 /***********************************************************************
2343 * LISTBOX_HandleSystemTimer
2344 *
2345 * WM_SYSTIMER handler.
2346 */
2347 static LRESULT LISTBOX_HandleSystemTimer( LB_DESCR *descr )
2348 {
2349 if (!LISTBOX_HandleTimer( descr, descr->focus_item, LISTBOX_Timer ))
2350 {
2351 KillSystemTimer( descr->self, LB_TIMER_ID );
2352 LISTBOX_Timer = LB_TIMER_NONE;
2353 }
2354 return 0;
2355 }
2356
2357
2358 /***********************************************************************
2359 * LISTBOX_HandleMouseMove
2360 *
2361 * WM_MOUSEMOVE handler.
2362 */
2363 static void LISTBOX_HandleMouseMove( LB_DESCR *descr,
2364 INT x, INT y )
2365 {
2366 INT index;
2367 TIMER_DIRECTION dir = LB_TIMER_NONE;
2368
2369 if (!descr->captured) return;
2370
2371 if (descr->style & LBS_MULTICOLUMN)
2372 {
2373 if (y < 0) y = 0;
2374 else if (y >= descr->item_height * descr->page_size)
2375 y = descr->item_height * descr->page_size - 1;
2376
2377 if (x < 0)
2378 {
2379 dir = LB_TIMER_LEFT;
2380 x = 0;
2381 }
2382 else if (x >= descr->width)
2383 {
2384 dir = LB_TIMER_RIGHT;
2385 x = descr->width - 1;
2386 }
2387 }
2388 else
2389 {
2390 if (y < 0) dir = LB_TIMER_UP; /* above */
2391 else if (y >= descr->height) dir = LB_TIMER_DOWN; /* below */
2392 }
2393
2394 index = LISTBOX_GetItemFromPoint( descr, x, y );
2395 if (index == -1) index = descr->focus_item;
2396 if (!LISTBOX_HandleTimer( descr, index, dir )) dir = LB_TIMER_NONE;
2397
2398 /* Start/stop the system timer */
2399
2400 if (dir != LB_TIMER_NONE)
2401 SetSystemTimer( descr->self, LB_TIMER_ID, LB_SCROLL_TIMEOUT, NULL);
2402 else if (LISTBOX_Timer != LB_TIMER_NONE)
2403 KillSystemTimer( descr->self, LB_TIMER_ID );
2404 LISTBOX_Timer = dir;
2405 }
2406
2407
2408 /***********************************************************************
2409 * LISTBOX_HandleKeyDown
2410 */
2411 static LRESULT LISTBOX_HandleKeyDown( LB_DESCR *descr, DWORD key )
2412 {
2413 INT caret = -1;
2414 BOOL bForceSelection = TRUE; /* select item pointed to by focus_item */
2415 if ((IS_MULTISELECT(descr)) || (descr->selected_item == descr->focus_item))
2416 bForceSelection = FALSE; /* only for single select list */
2417
2418 if (descr->style & LBS_WANTKEYBOARDINPUT)
2419 {
2420 caret = SendMessageW( descr->owner, WM_VKEYTOITEM,
2421 MAKEWPARAM(LOWORD(key), descr->focus_item),
2422 (LPARAM)descr->self );
2423 if (caret == -2) return 0;
2424 }
2425 if (caret == -1) switch(key)
2426 {
2427 case VK_LEFT:
2428 if (descr->style & LBS_MULTICOLUMN)
2429 {
2430 bForceSelection = FALSE;
2431 if (descr->focus_item >= descr->page_size)
2432 caret = descr->focus_item - descr->page_size;
2433 break;
2434 }
2435 /* fall through */
2436 case VK_UP:
2437 caret = descr->focus_item - 1;
2438 if (caret < 0) caret = 0;
2439 break;
2440 case VK_RIGHT:
2441 if (descr->style & LBS_MULTICOLUMN)
2442 {
2443 bForceSelection = FALSE;
2444 caret = min(descr->focus_item + descr->page_size, descr->nb_items - 1);
2445 break;
2446 }
2447 /* fall through */
2448 case VK_DOWN:
2449 caret = descr->focus_item + 1;
2450 if (caret >= descr->nb_items) caret = descr->nb_items - 1;
2451 break;
2452
2453 case VK_PRIOR:
2454 if (descr->style & LBS_MULTICOLUMN)
2455 {
2456 INT page = descr->width / descr->column_width;
2457 if (page < 1) page = 1;
2458 caret = descr->focus_item - (page * descr->page_size) + 1;
2459 }
2460 else caret = descr->focus_item-LISTBOX_GetCurrentPageSize(descr) + 1;
2461 if (caret < 0) caret = 0;
2462 break;
2463 case VK_NEXT:
2464 if (descr->style & LBS_MULTICOLUMN)
2465 {
2466 INT page = descr->width / descr->column_width;
2467 if (page < 1) page = 1;
2468 caret = descr->focus_item + (page * descr->page_size) - 1;
2469 }
2470 else caret = descr->focus_item + LISTBOX_GetCurrentPageSize(descr) - 1;
2471 if (caret >= descr->nb_items) caret = descr->nb_items - 1;
2472 break;
2473 case VK_HOME:
2474 caret = 0;
2475 break;
2476 case VK_END:
2477 caret = descr->nb_items - 1;
2478 break;
2479 case VK_SPACE:
2480 if (descr->style & LBS_EXTENDEDSEL) caret = descr->focus_item;
2481 else if (descr->style & LBS_MULTIPLESEL)
2482 {
2483 LISTBOX_SetSelection( descr, descr->focus_item,
2484 !is_item_selected(descr, descr->focus_item),
2485 (descr->style & LBS_NOTIFY) != 0 );
2486 }
2487 break;
2488 default:
2489 bForceSelection = FALSE;
2490 }
2491 if (bForceSelection) /* focused item is used instead of key */
2492 caret = descr->focus_item;
2493 if (caret >= 0)
2494 {
2495 if (((descr->style & LBS_EXTENDEDSEL) &&
2496 !(GetKeyState( VK_SHIFT ) & 0x8000)) ||
2497 !IS_MULTISELECT(descr))
2498 descr->anchor_item = caret;
2499 LISTBOX_MoveCaret( descr, caret, TRUE );
2500
2501 if (descr->style & LBS_MULTIPLESEL)
2502 descr->selected_item = caret;
2503 else
2504 LISTBOX_SetSelection( descr, caret, TRUE, FALSE);
2505 if (descr->style & LBS_NOTIFY)
2506 {
2507 if (descr->lphc && IsWindowVisible( descr->self ))
2508 {
2509 /* make sure that combo parent doesn't hide us */
2510 descr->lphc->wState |= CBF_NOROLLUP;
2511 }
2512 if (descr->nb_items) SEND_NOTIFICATION( descr, LBN_SELCHANGE );
2513 }
2514 }
2515 return 0;
2516 }
2517
2518
2519 /***********************************************************************
2520 * LISTBOX_HandleChar
2521 */
2522 static LRESULT LISTBOX_HandleChar( LB_DESCR *descr, WCHAR charW )
2523 {
2524 INT caret = -1;
2525 WCHAR str[2];
2526
2527 str[0] = charW;
2528 str[1] = '\0';
2529
2530 if (descr->style & LBS_WANTKEYBOARDINPUT)
2531 {
2532 caret = SendMessageW( descr->owner, WM_CHARTOITEM,
2533 MAKEWPARAM(charW, descr->focus_item),
2534 (LPARAM)descr->self );
2535 if (caret == -2) return 0;
2536 }
2537 if (caret == -1)
2538 caret = LISTBOX_FindString( descr, descr->focus_item, str, FALSE);
2539 if (caret != -1)
2540 {
2541 if ((!IS_MULTISELECT(descr)) && descr->selected_item == -1)
2542 LISTBOX_SetSelection( descr, caret, TRUE, FALSE);
2543 LISTBOX_MoveCaret( descr, caret, TRUE );
2544 if ((descr->style & LBS_NOTIFY) && descr->nb_items)
2545 SEND_NOTIFICATION( descr, LBN_SELCHANGE );
2546 }
2547 return 0;
2548 }
2549
2550
2551 /***********************************************************************
2552 * LISTBOX_Create
2553 */
2554 static BOOL LISTBOX_Create( HWND hwnd, LPHEADCOMBO lphc )
2555 {
2556 LB_DESCR *descr;
2557 MEASUREITEMSTRUCT mis;
2558 RECT rect;
2559
2560 if (!(descr = HeapAlloc( GetProcessHeap(), 0, sizeof(*descr) )))
2561 return FALSE;
2562
2563 GetClientRect( hwnd, &rect );
2564 descr->self = hwnd;
2565 descr->owner = GetParent( descr->self );
2566 descr->style = GetWindowLongW( descr->self, GWL_STYLE );
2567 descr->width = rect.right - rect.left;
2568 descr->height = rect.bottom - rect.top;
2569 descr->u.items = NULL;
2570 descr->items_size = 0;
2571 descr->nb_items = 0;
2572 descr->top_item = 0;
2573 descr->selected_item = -1;
2574 descr->focus_item = 0;
2575 descr->anchor_item = -1;
2576 descr->item_height = 1;
2577 descr->page_size = 1;
2578 descr->column_width = 150;
2579 descr->horz_extent = 0;
2580 descr->horz_pos = 0;
2581 descr->nb_tabs = 0;
2582 descr->tabs = NULL;
2583 descr->wheel_remain = 0;
2584 descr->caret_on = !lphc;
2585 if (descr->style & LBS_NOSEL) descr->caret_on = FALSE;
2586 descr->in_focus = FALSE;
2587 descr->captured = FALSE;
2588 descr->font = 0;
2589 descr->locale = GetUserDefaultLCID();
2590 descr->lphc = lphc;
2591
2592 if( lphc )
2593 {
2594 TRACE("[%p]: resetting owner %p -> %p\n", descr->self, descr->owner, lphc->self );
2595 descr->owner = lphc->self;
2596 }
2597
2598 SetWindowLongPtrW( descr->self, 0, (LONG_PTR)descr );
2599
2600 /* if (wnd->dwExStyle & WS_EX_NOPARENTNOTIFY) descr->style &= ~LBS_NOTIFY;
2601 */
2602 if (descr->style & LBS_EXTENDEDSEL) descr->style |= LBS_MULTIPLESEL;
2603 if (descr->style & LBS_MULTICOLUMN) descr->style &= ~LBS_OWNERDRAWVARIABLE;
2604 if (descr->style & LBS_OWNERDRAWVARIABLE) descr->style |= LBS_NOINTEGRALHEIGHT;
2605 if ((descr->style & (LBS_OWNERDRAWFIXED | LBS_HASSTRINGS | LBS_SORT)) != LBS_OWNERDRAWFIXED)
2606 descr->style &= ~LBS_NODATA;
2607 descr->item_height = LISTBOX_SetFont( descr, 0 );
2608
2609 if (descr->style & LBS_OWNERDRAWFIXED)
2610 {
2611 descr->style &= ~LBS_OWNERDRAWVARIABLE;
2612
2613 if( descr->lphc && (descr->lphc->dwStyle & CBS_DROPDOWN))
2614 {
2615 /* WinWord gets VERY unhappy if we send WM_MEASUREITEM from here */
2616 descr->item_height = lphc->fixedOwnerDrawHeight;
2617 }
2618 else
2619 {
2620 UINT id = (UINT)GetWindowLongPtrW( descr->self, GWLP_ID );
2621 mis.CtlType = ODT_LISTBOX;
2622 mis.CtlID = id;
2623 mis.itemID = -1;
2624 mis.itemWidth = 0;
2625 mis.itemData = 0;
2626 mis.itemHeight = descr->item_height;
2627 SendMessageW( descr->owner, WM_MEASUREITEM, id, (LPARAM)&mis );
2628 descr->item_height = mis.itemHeight ? mis.itemHeight : 1;
2629 }
2630 }
2631
2632 OpenThemeData( descr->self, WC_LISTBOXW );
2633
2634 TRACE("owner: %p, style: %08x, width: %d, height: %d\n", descr->owner, descr->style, descr->width, descr->height);
2635 return TRUE;
2636 }
2637
2638
2639 /***********************************************************************
2640 * LISTBOX_Destroy
2641 */
2642 static BOOL LISTBOX_Destroy( LB_DESCR *descr )
2643 {
2644 HTHEME theme = GetWindowTheme( descr->self );
2645 CloseThemeData( theme );
2646 LISTBOX_ResetContent( descr );
2647 SetWindowLongPtrW( descr->self, 0, 0 );
2648 HeapFree( GetProcessHeap(), 0, descr );
2649 return TRUE;
2650 }
2651
2652
2653 /***********************************************************************
2654 * ListBoxWndProc_common
2655 */
2656 static LRESULT CALLBACK LISTBOX_WindowProc( HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam )
2657 {
2658 LB_DESCR *descr = (LB_DESCR *)GetWindowLongPtrW( hwnd, 0 );
2659 HEADCOMBO *lphc = NULL;
2660 HTHEME theme;
2661 LRESULT ret;
2662
2663 if (!descr)
2664 {
2665 if (!IsWindow(hwnd)) return 0;
2666
2667 if (msg == WM_CREATE)
2668 {
2669 CREATESTRUCTW *lpcs = (CREATESTRUCTW *)lParam;
2670 if (lpcs->style & LBS_COMBOBOX) lphc = lpcs->lpCreateParams;
2671 if (!LISTBOX_Create( hwnd, lphc )) return -1;
2672 TRACE("creating hwnd %p descr %p\n", hwnd, (void *)GetWindowLongPtrW( hwnd, 0 ) );
2673 return 0;
2674 }
2675 /* Ignore all other messages before we get a WM_CREATE */
2676 return DefWindowProcW( hwnd, msg, wParam, lParam );
2677 }
2678 if (descr->style & LBS_COMBOBOX) lphc = descr->lphc;
2679
2680 TRACE("[%p]: msg %#x wp %08lx lp %08lx\n", descr->self, msg, wParam, lParam );
2681
2682 switch(msg)
2683 {
2684 case LB_RESETCONTENT:
2685 LISTBOX_ResetContent( descr );
2686 LISTBOX_UpdateScroll( descr );
2687 InvalidateRect( descr->self, NULL, TRUE );
2688 return 0;
2689
2690 case LB_ADDSTRING:
2691 {
2692 const WCHAR *textW = (const WCHAR *)lParam;
2693 INT index = LISTBOX_FindStringPos( descr, textW, FALSE );
2694 return LISTBOX_InsertString( descr, index, textW );
2695 }
2696
2697 case LB_INSERTSTRING:
2698 return LISTBOX_InsertString( descr, wParam, (const WCHAR *)lParam );
2699
2700 case LB_ADDFILE:
2701 {
2702 const WCHAR *textW = (const WCHAR *)lParam;
2703 INT index = LISTBOX_FindFileStrPos( descr, textW );
2704 return LISTBOX_InsertString( descr, index, textW );
2705 }
2706
2707 case LB_DELETESTRING:
2708 if (LISTBOX_RemoveItem( descr, wParam) != LB_ERR)
2709 return descr->nb_items;
2710 else
2711 {
2712 SetLastError(ERROR_INVALID_INDEX);
2713 return LB_ERR;
2714 }
2715
2716 case LB_GETITEMDATA:
2717 if (((INT)wParam < 0) || ((INT)wParam >= descr->nb_items))
2718 {
2719 SetLastError(ERROR_INVALID_INDEX);
2720 return LB_ERR;
2721 }
2722 return get_item_data(descr, wParam);
2723
2724 case LB_SETITEMDATA:
2725 if (((INT)wParam < 0) || ((INT)wParam >= descr->nb_items))
2726 {
2727 SetLastError(ERROR_INVALID_INDEX);
2728 return LB_ERR;
2729 }
2730 set_item_data(descr, wParam, lParam);
2731 /* undocumented: returns TRUE, not LB_OKAY (0) */
2732 return TRUE;
2733
2734 case LB_GETCOUNT:
2735 return descr->nb_items;
2736
2737 case LB_GETTEXT:
2738 return LISTBOX_GetText( descr, wParam, (LPWSTR)lParam, TRUE );
2739
2740 case LB_GETTEXTLEN:
2741 if ((INT)wParam >= descr->nb_items || (INT)wParam < 0)
2742 {
2743 SetLastError(ERROR_INVALID_INDEX);
2744 return LB_ERR;
2745 }
2746 if (!HAS_STRINGS(descr)) return sizeof(ULONG_PTR);
2747 return lstrlenW(get_item_string(descr, wParam));
2748
2749 case LB_GETCURSEL:
2750 if (descr->nb_items == 0)
2751 return LB_ERR;
2752 if (!IS_MULTISELECT(descr))
2753 return descr->selected_item;
2754 if (descr->selected_item != -1)
2755 return descr->selected_item;
2756 return descr->focus_item;
2757 /* otherwise, if the user tries to move the selection with the */
2758 /* arrow keys, we will give the application something to choke on */
2759 case LB_GETTOPINDEX:
2760 return descr->top_item;
2761
2762 case LB_GETITEMHEIGHT:
2763 return LISTBOX_GetItemHeight( descr, wParam );
2764
2765 case LB_SETITEMHEIGHT:
2766 return LISTBOX_SetItemHeight( descr, wParam, lParam, TRUE );
2767
2768 case LB_ITEMFROMPOINT:
2769 {
2770 POINT pt;
2771 RECT rect;
2772 int index;
2773 BOOL hit = TRUE;
2774
2775 /* The hiword of the return value is not a client area
2776 hittest as suggested by MSDN, but rather a hittest on
2777 the returned listbox item. */
2778
2779 if(descr->nb_items == 0)
2780 return 0x1ffff; /* win9x returns 0x10000, we copy winnt */
2781
2782 pt.x = (short)LOWORD(lParam);
2783 pt.y = (short)HIWORD(lParam);
2784
2785 SetRect(&rect, 0, 0, descr->width, descr->height);
2786
2787 if(!PtInRect(&rect, pt))
2788 {
2789 pt.x = min(pt.x, rect.right - 1);
2790 pt.x = max(pt.x, 0);
2791 pt.y = min(pt.y, rect.bottom - 1);
2792 pt.y = max(pt.y, 0);
2793 hit = FALSE;
2794 }
2795
2796 index = LISTBOX_GetItemFromPoint(descr, pt.x, pt.y);
2797
2798 if(index == -1)
2799 {
2800 index = descr->nb_items - 1;
2801 hit = FALSE;
2802 }
2803 return MAKELONG(index, hit ? 0 : 1);
2804 }
2805
2806 case LB_SETCARETINDEX:
2807 if ((!IS_MULTISELECT(descr)) && (descr->selected_item != -1)) return LB_ERR;
2808 if (LISTBOX_SetCaretIndex( descr, wParam, !lParam ) == LB_ERR)
2809 return LB_ERR;
2810 else if (ISWIN31)
2811 return wParam;
2812 else
2813 return LB_OKAY;
2814
2815 case LB_GETCARETINDEX:
2816 return descr->focus_item;
2817
2818 case LB_SETTOPINDEX:
2819 return LISTBOX_SetTopItem( descr, wParam, TRUE );
2820
2821 case LB_SETCOLUMNWIDTH:
2822 return LISTBOX_SetColumnWidth( descr, wParam );
2823
2824 case LB_GETITEMRECT:
2825 return LISTBOX_GetItemRect( descr, wParam, (RECT *)lParam );
2826
2827 case LB_FINDSTRING:
2828 return LISTBOX_FindString( descr, wParam, (const WCHAR *)lParam, FALSE );
2829
2830 case LB_FINDSTRINGEXACT:
2831 return LISTBOX_FindString( descr, wParam, (const WCHAR *)lParam, TRUE );
2832
2833 case LB_SELECTSTRING:
2834 {
2835 const WCHAR *textW = (const WCHAR *)lParam;
2836 INT index;
2837
2838 if (HAS_STRINGS(descr))
2839 TRACE("LB_SELECTSTRING: %s\n", debugstr_w(textW));
2840
2841 index = LISTBOX_FindString( descr, wParam, textW, FALSE );
2842 if (index != LB_ERR)
2843 {
2844 LISTBOX_MoveCaret( descr, index, TRUE );
2845 LISTBOX_SetSelection( descr, index, TRUE, FALSE );
2846 }
2847 return index;
2848 }
2849
2850 case LB_GETSEL:
2851 if (((INT)wParam < 0) || ((INT)wParam >= descr->nb_items))
2852 return LB_ERR;
2853 return is_item_selected(descr, wParam);
2854
2855 case LB_SETSEL:
2856 ret = LISTBOX_SetSelection( descr, lParam, wParam, FALSE );
2857 if (ret != LB_ERR && wParam)
2858 {
2859 descr->anchor_item = lParam;
2860 if (lParam != -1)
2861 LISTBOX_SetCaretIndex( descr, lParam, TRUE );
2862 }
2863 return ret;
2864
2865 case LB_SETCURSEL:
2866 if (IS_MULTISELECT(descr)) return LB_ERR;
2867 LISTBOX_SetCaretIndex( descr, wParam, TRUE );
2868 ret = LISTBOX_SetSelection( descr, wParam, TRUE, FALSE );
2869 if (ret != LB_ERR) ret = descr->selected_item;
2870 return ret;
2871
2872 case LB_GETSELCOUNT:
2873 return LISTBOX_GetSelCount( descr );
2874
2875 case LB_GETSELITEMS:
2876 return LISTBOX_GetSelItems( descr, wParam, (LPINT)lParam );
2877
2878 case LB_SELITEMRANGE:
2879 if (LOWORD(lParam) <= HIWORD(lParam))
2880 return LISTBOX_SelectItemRange( descr, LOWORD(lParam),
2881 HIWORD(lParam), wParam );
2882 else
2883 return LISTBOX_SelectItemRange( descr, HIWORD(lParam),
2884 LOWORD(lParam), wParam );
2885
2886 case LB_SELITEMRANGEEX:
2887 if ((INT)lParam >= (INT)wParam)
2888 return LISTBOX_SelectItemRange( descr, wParam, lParam, TRUE );
2889 else
2890 return LISTBOX_SelectItemRange( descr, lParam, wParam, FALSE);
2891
2892 case LB_GETHORIZONTALEXTENT:
2893 return descr->horz_extent;
2894
2895 case LB_SETHORIZONTALEXTENT:
2896 return LISTBOX_SetHorizontalExtent( descr, wParam );
2897
2898 case LB_GETANCHORINDEX:
2899 return descr->anchor_item;
2900
2901 case LB_SETANCHORINDEX:
2902 if (((INT)wParam < -1) || ((INT)wParam >= descr->nb_items))
2903 {
2904 SetLastError(ERROR_INVALID_INDEX);
2905 return LB_ERR;
2906 }
2907 descr->anchor_item = (INT)wParam;
2908 return LB_OKAY;
2909
2910 case LB_DIR:
2911 return LISTBOX_Directory( descr, wParam, (const WCHAR *)lParam, msg == LB_DIR );
2912
2913 case LB_GETLOCALE:
2914 return descr->locale;
2915
2916 case LB_SETLOCALE:
2917 {
2918 LCID ret;
2919 if (!IsValidLocale((LCID)wParam, LCID_INSTALLED))
2920 return LB_ERR;
2921 ret = descr->locale;
2922 descr->locale = (LCID)wParam;
2923 return ret;
2924 }
2925
2926 case LB_INITSTORAGE:
2927 return LISTBOX_InitStorage( descr, wParam );
2928
2929 case LB_SETCOUNT:
2930 return LISTBOX_SetCount( descr, (INT)wParam );
2931
2932 case LB_SETTABSTOPS:
2933 return LISTBOX_SetTabStops( descr, wParam, (LPINT)lParam );
2934
2935 case LB_CARETON:
2936 if (descr->caret_on)
2937 return LB_OKAY;
2938 descr->caret_on = TRUE;
2939 if ((descr->focus_item != -1) && (descr->in_focus))
2940 LISTBOX_RepaintItem( descr, descr->focus_item, ODA_FOCUS );
2941 return LB_OKAY;
2942
2943 case LB_CARETOFF:
2944 if (!descr->caret_on)
2945 return LB_OKAY;
2946 descr->caret_on = FALSE;
2947 if ((descr->focus_item != -1) && (descr->in_focus))
2948 LISTBOX_RepaintItem( descr, descr->focus_item, ODA_FOCUS );
2949 return LB_OKAY;
2950
2951 case LB_GETLISTBOXINFO:
2952 return descr->page_size;
2953
2954 case WM_DESTROY:
2955 return LISTBOX_Destroy( descr );
2956
2957 case WM_ENABLE:
2958 InvalidateRect( descr->self, NULL, TRUE );
2959 return 0;
2960
2961 case WM_SETREDRAW:
2962 LISTBOX_SetRedraw( descr, wParam != 0 );
2963 return 0;
2964
2965 case WM_GETDLGCODE:
2966 return DLGC_WANTARROWS | DLGC_WANTCHARS;
2967
2968 case WM_PRINTCLIENT:
2969 case WM_PAINT:
2970 {
2971 PAINTSTRUCT ps;
2972 HDC hdc = ( wParam ) ? ((HDC)wParam) : BeginPaint( descr->self, &ps );
2973 ret = LISTBOX_Paint( descr, hdc );
2974 if( !wParam ) EndPaint( descr->self, &ps );
2975 }
2976 return ret;
2977
2978 case WM_NCPAINT:
2979 LISTBOX_NCPaint( descr, (HRGN)wParam );
2980 break;
2981
2982 case WM_SIZE:
2983 LISTBOX_UpdateSize( descr );
2984 return 0;
2985 case WM_GETFONT:
2986 return (LRESULT)descr->font;
2987 case WM_SETFONT:
2988 LISTBOX_SetFont( descr, (HFONT)wParam );
2989 if (lParam) InvalidateRect( descr->self, 0, TRUE );
2990 return 0;
2991 case WM_SETFOCUS:
2992 descr->in_focus = TRUE;
2993 descr->caret_on = TRUE;
2994 if (descr->focus_item != -1)
2995 LISTBOX_DrawFocusRect( descr, TRUE );
2996 SEND_NOTIFICATION( descr, LBN_SETFOCUS );
2997 return 0;
2998 case WM_KILLFOCUS:
2999 LISTBOX_HandleLButtonUp( descr ); /* Release capture if we have it */
3000 descr->in_focus = FALSE;
3001 descr->wheel_remain = 0;
3002 if ((descr->focus_item != -1) && descr->caret_on)
3003 LISTBOX_RepaintItem( descr, descr->focus_item, ODA_FOCUS );
3004 SEND_NOTIFICATION( descr, LBN_KILLFOCUS );
3005 return 0;
3006 case WM_HSCROLL:
3007 return LISTBOX_HandleHScroll( descr, LOWORD(wParam), HIWORD(wParam) );
3008 case WM_VSCROLL:
3009 return LISTBOX_HandleVScroll( descr, LOWORD(wParam), HIWORD(wParam) );
3010 case WM_MOUSEWHEEL:
3011 if (wParam & (MK_SHIFT | MK_CONTROL))
3012 return DefWindowProcW( descr->self, msg, wParam, lParam );
3013 return LISTBOX_HandleMouseWheel( descr, (SHORT)HIWORD(wParam) );
3014 case WM_LBUTTONDOWN:
3015 if (lphc)
3016 return LISTBOX_HandleLButtonDownCombo(descr, msg, wParam,
3017 (INT16)LOWORD(lParam),
3018 (INT16)HIWORD(lParam) );
3019 return LISTBOX_HandleLButtonDown( descr, wParam,
3020 (INT16)LOWORD(lParam),
3021 (INT16)HIWORD(lParam) );
3022 case WM_LBUTTONDBLCLK:
3023 if (lphc)
3024 return LISTBOX_HandleLButtonDownCombo(descr, msg, wParam,
3025 (INT16)LOWORD(lParam),
3026 (INT16)HIWORD(lParam) );
3027 if (descr->style & LBS_NOTIFY)
3028 SEND_NOTIFICATION( descr, LBN_DBLCLK );
3029 return 0;
3030 case WM_MOUSEMOVE:
3031 if ( lphc && ((lphc->dwStyle & CBS_DROPDOWNLIST) != CBS_SIMPLE) )
3032 {
3033 BOOL captured = descr->captured;
3034 POINT mousePos;
3035 RECT clientRect;
3036
3037 mousePos.x = (INT16)LOWORD(lParam);
3038 mousePos.y = (INT16)HIWORD(lParam);
3039
3040 /*
3041 * If we are in a dropdown combobox, we simulate that
3042 * the mouse is captured to show the tracking of the item.
3043 */
3044 if (GetClientRect(descr->self, &clientRect) && PtInRect( &clientRect, mousePos ))
3045 descr->captured = TRUE;
3046
3047 LISTBOX_HandleMouseMove( descr, mousePos.x, mousePos.y);
3048
3049 descr->captured = captured;
3050 }
3051 else if (GetCapture() == descr->self)
3052 {
3053 LISTBOX_HandleMouseMove( descr, (INT16)LOWORD(lParam),
3054 (INT16)HIWORD(lParam) );
3055 }
3056 return 0;
3057 case WM_LBUTTONUP:
3058 if (lphc)
3059 {
3060 POINT mousePos;
3061 RECT clientRect;
3062
3063 /*
3064 * If the mouse button "up" is not in the listbox,
3065 * we make sure there is no selection by re-selecting the
3066 * item that was selected when the listbox was made visible.
3067 */
3068 mousePos.x = (INT16)LOWORD(lParam);
3069 mousePos.y = (INT16)HIWORD(lParam);
3070
3071 GetClientRect(descr->self, &clientRect);
3072
3073 /*
3074 * When the user clicks outside the combobox and the focus
3075 * is lost, the owning combobox will send a fake buttonup with
3076 * 0xFFFFFFF as the mouse location, we must also revert the
3077 * selection to the original selection.
3078 */
3079 if ( (lParam == (LPARAM)-1) || (!PtInRect( &clientRect, mousePos )) )
3080 LISTBOX_MoveCaret( descr, lphc->droppedIndex, FALSE );
3081 }
3082 return LISTBOX_HandleLButtonUp( descr );
3083 case WM_KEYDOWN:
3084 if( lphc && (lphc->dwStyle & CBS_DROPDOWNLIST) != CBS_SIMPLE )
3085 {
3086 /* for some reason Windows makes it possible to
3087 * show/hide ComboLBox by sending it WM_KEYDOWNs */
3088
3089 if( (!(lphc->wState & CBF_EUI) && wParam == VK_F4) ||
3090 ( (lphc->wState & CBF_EUI) && !(lphc->wState & CBF_DROPPED)
3091 && (wParam == VK_DOWN || wParam == VK_UP)) )
3092 {
3093 COMBO_FlipListbox( lphc, FALSE, FALSE );
3094 return 0;
3095 }
3096 }
3097 return LISTBOX_HandleKeyDown( descr, wParam );
3098 case WM_CHAR:
3099 return LISTBOX_HandleChar( descr, wParam );
3100
3101 case WM_SYSTIMER:
3102 return LISTBOX_HandleSystemTimer( descr );
3103 case WM_ERASEBKGND:
3104 if ((IS_OWNERDRAW(descr)) && !(descr->style & LBS_DISPLAYCHANGED))
3105 {
3106 RECT rect;
3107 HBRUSH hbrush = (HBRUSH)SendMessageW( descr->owner, WM_CTLCOLORLISTBOX,
3108 wParam, (LPARAM)descr->self );
3109 TRACE("hbrush = %p\n", hbrush);
3110 if(!hbrush)
3111 hbrush = GetSysColorBrush(COLOR_WINDOW);
3112 if(hbrush)
3113 {
3114 GetClientRect(descr->self, &rect);
3115 FillRect((HDC)wParam, &rect, hbrush);
3116 }
3117 }
3118 return 1;
3119 case WM_DROPFILES:
3120 if( lphc ) return 0;
3121 return SendMessageW( descr->owner, msg, wParam, lParam );
3122
3123 case WM_NCDESTROY:
3124 if( lphc && (lphc->dwStyle & CBS_DROPDOWNLIST) != CBS_SIMPLE )
3125 lphc->hWndLBox = 0;
3126 break;
3127
3128 case WM_NCACTIVATE:
3129 if (lphc) return 0;
3130 break;
3131
3132 case WM_THEMECHANGED:
3133 theme = GetWindowTheme( hwnd );
3134 CloseThemeData( theme );
3135 OpenThemeData( hwnd, WC_LISTBOXW );
3136 break;
3137
3138 default:
3139 if ((msg >= WM_USER) && (msg < 0xc000))
3140 WARN("[%p]: unknown msg %04x wp %08lx lp %08lx\n",
3141 hwnd, msg, wParam, lParam );
3142 }
3143
3144 return DefWindowProcW( hwnd, msg, wParam, lParam );
3145 }
3146
3147 void LISTBOX_Register(void)
3148 {
3149 WNDCLASSW wndClass;
3150
3151 memset(&wndClass, 0, sizeof(wndClass));
3152 wndClass.style = CS_PARENTDC | CS_DBLCLKS | CS_GLOBALCLASS;
3153 wndClass.lpfnWndProc = LISTBOX_WindowProc;
3154 wndClass.cbClsExtra = 0;
3155 wndClass.cbWndExtra = sizeof(LB_DESCR *);
3156 wndClass.hCursor = LoadCursorW(0, (LPWSTR)IDC_ARROW);
3157 wndClass.hbrBackground = NULL;
3158 wndClass.lpszClassName = WC_LISTBOXW;
3159 RegisterClassW(&wndClass);
3160 }
3161
3162 void COMBOLBOX_Register(void)
3163 {
3164 WNDCLASSW wndClass;
3165
3166 memset(&wndClass, 0, sizeof(wndClass));
3167 wndClass.style = CS_SAVEBITS | CS_DBLCLKS | CS_DROPSHADOW | CS_GLOBALCLASS;
3168 wndClass.lpfnWndProc = LISTBOX_WindowProc;
3169 wndClass.cbClsExtra = 0;
3170 wndClass.cbWndExtra = sizeof(LB_DESCR *);
3171 wndClass.hCursor = LoadCursorW(0, (LPWSTR)IDC_ARROW);
3172 wndClass.hbrBackground = NULL;
3173 wndClass.lpszClassName = L"ComboLBox";
3174 RegisterClassW(&wndClass);
3175 }
Zebediah Figura's local tree