rpcrt4: Free the resources associated with server protocol sequences on DLL unload.
[wine] / dlls / shell32 / autocomplete.c
1 /*
2  *      AutoComplete interfaces implementation.
3  *
4  *      Copyright 2004  Maxime Bellengé <maxime.bellenge@laposte.net>
5  *
6  * This library is free software; you can redistribute it and/or
7  * modify it under the terms of the GNU Lesser General Public
8  * License as published by the Free Software Foundation; either
9  * version 2.1 of the License, or (at your option) any later version.
10  *
11  * This library is distributed in the hope that it will be useful,
12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
14  * Lesser General Public License for more details.
15  *
16  * You should have received a copy of the GNU Lesser General Public
17  * License along with this library; if not, write to the Free Software
18  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
19  */
20
21 /*
22   Implemented:
23   - ACO_AUTOAPPEND style
24   - ACO_AUTOSUGGEST style
25   - ACO_UPDOWNKEYDROPSLIST style
26
27   - Handle pwzsRegKeyPath and pwszQuickComplete in Init
28
29   TODO:
30   - implement ACO_SEARCH style
31   - implement ACO_FILTERPREFIXES style
32   - implement ACO_USETAB style
33   - implement ACO_RTLREADING style
34   - implement ResetEnumerator
35   - string compares should be case-insensitive, the content of the list should be sorted
36   
37  */
38 #include "config.h"
39
40 #include <stdarg.h>
41 #include <stdlib.h>
42 #include <string.h>
43
44 #define COBJMACROS
45
46 #include "wine/debug.h"
47 #include "windef.h"
48 #include "winbase.h"
49 #include "winreg.h"
50 #include "undocshell.h"
51 #include "shlwapi.h"
52 #include "winerror.h"
53 #include "objbase.h"
54
55 #include "pidl.h"
56 #include "shlobj.h"
57 #include "shldisp.h"
58 #include "debughlp.h"
59
60 #include "wine/unicode.h"
61
62 WINE_DEFAULT_DEBUG_CHANNEL(shell);
63
64 typedef struct
65 {
66     const IAutoComplete2Vtbl  *lpVtbl;
67     const IAutoCompleteDropDownVtbl *lpDropDownVtbl;
68     LONG ref;
69     BOOL  enabled;
70     HWND hwndEdit;
71     HWND hwndListBox;
72     WNDPROC wpOrigEditProc;
73     WNDPROC wpOrigLBoxProc;
74     WCHAR *txtbackup;
75     WCHAR *quickComplete;
76     IEnumString *enumstr;
77     AUTOCOMPLETEOPTIONS options;
78 } IAutoCompleteImpl;
79
80 static const IAutoComplete2Vtbl acvt;
81 static const IAutoCompleteDropDownVtbl acdropdownvt;
82
83
84 /*
85   converts This to an interface pointer
86 */
87 #define _IUnknown_(This)              ((IUnknown*)&(This)->lpVtbl)
88 #define _IAutoComplete2_(This)        ((IAutoComplete2*)&(This)->lpVtbl)
89 #define _IAutoCompleteDropDown_(This) (&(This)->lpDropDownVtbl)
90
91 static inline IAutoCompleteImpl *impl_from_IAutoCompleteDropDown(IAutoCompleteDropDown *iface)
92 {
93     return (IAutoCompleteImpl *)((char *)iface - FIELD_OFFSET(IAutoCompleteImpl, lpDropDownVtbl));
94 }
95
96 static LRESULT APIENTRY ACEditSubclassProc(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam);
97 static LRESULT APIENTRY ACLBoxSubclassProc(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam);
98
99 static void create_listbox(IAutoCompleteImpl *This)
100 {
101     HWND hwndParent;
102
103     hwndParent = GetParent(This->hwndEdit);
104
105     /* FIXME : The listbox should be resizable with the mouse. WS_THICKFRAME looks ugly */
106     This->hwndListBox = CreateWindowExW(0, WC_LISTBOXW, NULL,
107                                     WS_BORDER | WS_CHILD | WS_VSCROLL | LBS_HASSTRINGS | LBS_NOTIFY | LBS_NOINTEGRALHEIGHT,
108                                     CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT,
109                                     hwndParent, NULL,
110                                     (HINSTANCE)GetWindowLongPtrW( hwndParent, GWLP_HINSTANCE ), NULL);
111
112     if (This->hwndListBox) {
113         This->wpOrigLBoxProc = (WNDPROC) SetWindowLongPtrW( This->hwndListBox, GWLP_WNDPROC, (LONG_PTR) ACLBoxSubclassProc);
114         SetWindowLongPtrW( This->hwndListBox, GWLP_USERDATA, (LONG_PTR)This);
115     }
116 }
117
118 /**************************************************************************
119  *  IAutoComplete_Constructor
120  */
121 HRESULT WINAPI IAutoComplete_Constructor(IUnknown * pUnkOuter, REFIID riid, LPVOID * ppv)
122 {
123     IAutoCompleteImpl *lpac;
124
125     if (pUnkOuter && !IsEqualIID (riid, &IID_IUnknown))
126         return CLASS_E_NOAGGREGATION;
127
128     lpac = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(IAutoCompleteImpl));
129     if (!lpac) 
130         return E_OUTOFMEMORY;
131
132     lpac->ref = 1;
133     lpac->lpVtbl = &acvt;
134     lpac->lpDropDownVtbl = &acdropdownvt;
135     lpac->enabled = TRUE;
136     lpac->enumstr = NULL;
137     lpac->options = ACO_AUTOAPPEND;
138     lpac->wpOrigEditProc = NULL;
139     lpac->hwndListBox = NULL;
140     lpac->txtbackup = NULL;
141     lpac->quickComplete = NULL;
142     
143     if (FAILED (IUnknown_QueryInterface (_IUnknown_ (lpac), riid, ppv))) {
144         IUnknown_Release (_IUnknown_ (lpac));
145         return E_NOINTERFACE;
146     }
147     
148     TRACE("-- (%p)->\n",lpac);
149
150     return S_OK;
151 }
152
153 /**************************************************************************
154  *  AutoComplete_QueryInterface
155  */
156 static HRESULT WINAPI IAutoComplete2_fnQueryInterface(
157     IAutoComplete2 * iface,
158     REFIID riid,
159     LPVOID *ppvObj)
160 {
161     IAutoCompleteImpl *This = (IAutoCompleteImpl *)iface;
162     
163     TRACE("(%p)->(\n\tIID:\t%s,%p)\n", This, shdebugstr_guid(riid), ppvObj);
164     *ppvObj = NULL;
165
166     if (IsEqualIID(riid, &IID_IUnknown) ||
167         IsEqualIID(riid, &IID_IAutoComplete) ||
168         IsEqualIID(riid, &IID_IAutoComplete2))
169     {
170         *ppvObj = This;
171     }
172     else if (IsEqualIID(riid, &IID_IAutoCompleteDropDown))
173     {
174         *ppvObj = _IAutoCompleteDropDown_(This);
175     }
176
177     if (*ppvObj)
178     {
179         IUnknown_AddRef((IUnknown*)*ppvObj);
180         TRACE("-- Interface: (%p)->(%p)\n", ppvObj, *ppvObj);
181         return S_OK;
182     }
183     WARN("unsupported interface: %s\n", debugstr_guid(riid));
184     return E_NOINTERFACE;       
185 }
186
187 /******************************************************************************
188  * IAutoComplete2_fnAddRef
189  */
190 static ULONG WINAPI IAutoComplete2_fnAddRef(
191         IAutoComplete2 * iface)
192 {
193     IAutoCompleteImpl *This = (IAutoCompleteImpl *)iface;
194     ULONG refCount = InterlockedIncrement(&This->ref);
195     
196     TRACE("(%p)->(%u)\n", This, refCount - 1);
197
198     return refCount;
199 }
200
201 /******************************************************************************
202  * IAutoComplete2_fnRelease
203  */
204 static ULONG WINAPI IAutoComplete2_fnRelease(
205         IAutoComplete2 * iface)
206 {
207     IAutoCompleteImpl *This = (IAutoCompleteImpl *)iface;
208     ULONG refCount = InterlockedDecrement(&This->ref);
209     
210     TRACE("(%p)->(%u)\n", This, refCount + 1);
211
212     if (!refCount) {
213         TRACE(" destroying IAutoComplete(%p)\n",This);
214         HeapFree(GetProcessHeap(), 0, This->quickComplete);
215         HeapFree(GetProcessHeap(), 0, This->txtbackup);
216         if (This->hwndListBox)
217             DestroyWindow(This->hwndListBox);
218         if (This->enumstr)
219             IEnumString_Release(This->enumstr);
220         HeapFree(GetProcessHeap(), 0, This);
221     }
222     return refCount;
223 }
224
225 /******************************************************************************
226  * IAutoComplete2_fnEnable
227  */
228 static HRESULT WINAPI IAutoComplete2_fnEnable(
229     IAutoComplete2 * iface,
230     BOOL fEnable)
231 {
232     IAutoCompleteImpl *This = (IAutoCompleteImpl *)iface;
233
234     HRESULT hr = S_OK;
235
236     TRACE("(%p)->(%s)\n", This, (fEnable)?"true":"false");
237
238     This->enabled = fEnable;
239
240     return hr;
241 }
242
243 /******************************************************************************
244  * IAutoComplete2_fnInit
245  */
246 static HRESULT WINAPI IAutoComplete2_fnInit(
247     IAutoComplete2 * iface,
248     HWND hwndEdit,
249     IUnknown *punkACL,
250     LPCOLESTR pwzsRegKeyPath,
251     LPCOLESTR pwszQuickComplete)
252 {
253     IAutoCompleteImpl *This = (IAutoCompleteImpl *)iface;
254
255     TRACE("(%p)->(0x%08lx, %p, %s, %s)\n", 
256           This, (long)hwndEdit, punkACL, debugstr_w(pwzsRegKeyPath), debugstr_w(pwszQuickComplete));
257
258     if (This->options & ACO_SEARCH) FIXME(" ACO_SEARCH not supported\n");
259     if (This->options & ACO_FILTERPREFIXES) FIXME(" ACO_FILTERPREFIXES not supported\n");
260     if (This->options & ACO_USETAB) FIXME(" ACO_USETAB not supported\n");
261     if (This->options & ACO_RTLREADING) FIXME(" ACO_RTLREADING not supported\n");
262
263     This->hwndEdit = hwndEdit;
264
265     if (FAILED (IUnknown_QueryInterface (punkACL, &IID_IEnumString, (LPVOID*)&This->enumstr))) {
266         TRACE("No IEnumString interface\n");
267         return  E_NOINTERFACE;
268     }
269
270     This->wpOrigEditProc = (WNDPROC) SetWindowLongPtrW( hwndEdit, GWLP_WNDPROC, (LONG_PTR) ACEditSubclassProc);
271     SetWindowLongPtrW( hwndEdit, GWLP_USERDATA, (LONG_PTR)This);
272
273     if (This->options & ACO_AUTOSUGGEST)
274         create_listbox(This);
275
276     if (pwzsRegKeyPath) {
277         WCHAR *key;
278         WCHAR result[MAX_PATH];
279         WCHAR *value;
280         HKEY hKey = 0;
281         LONG res;
282         LONG len;
283
284         /* pwszRegKeyPath contains the key as well as the value, so we split */
285         key = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, (lstrlenW(pwzsRegKeyPath)+1)*sizeof(WCHAR));
286         strcpyW(key, pwzsRegKeyPath);
287         value = strrchrW(key, '\\');
288         *value = 0;
289         value++;
290         /* Now value contains the value and buffer the key */
291         res = RegOpenKeyExW(HKEY_CURRENT_USER, key, 0, KEY_READ, &hKey);
292         if (res != ERROR_SUCCESS) {
293             /* if the key is not found, MSDN states we must seek in HKEY_LOCAL_MACHINE */
294             res = RegOpenKeyExW(HKEY_LOCAL_MACHINE, key, 0, KEY_READ, &hKey);  
295         }
296         if (res == ERROR_SUCCESS) {
297             res = RegQueryValueW(hKey, value, result, &len);
298             if (res == ERROR_SUCCESS) {
299                 This->quickComplete = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, len*sizeof(WCHAR));
300                 strcpyW(This->quickComplete, result);
301             }
302             RegCloseKey(hKey);
303         }
304         HeapFree(GetProcessHeap(), 0, key);
305     }
306
307     if ((pwszQuickComplete) && (!This->quickComplete)) {
308         This->quickComplete = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, (lstrlenW(pwszQuickComplete)+1)*sizeof(WCHAR));
309         lstrcpyW(This->quickComplete, pwszQuickComplete);
310     }
311
312     return S_OK;
313 }
314
315 /**************************************************************************
316  *  IAutoComplete2_fnGetOptions
317  */
318 static HRESULT WINAPI IAutoComplete2_fnGetOptions(
319     IAutoComplete2 * iface,
320     DWORD *pdwFlag)
321 {
322     HRESULT hr = S_OK;
323
324     IAutoCompleteImpl *This = (IAutoCompleteImpl *)iface;
325
326     TRACE("(%p) -> (%p)\n", This, pdwFlag);
327
328     *pdwFlag = This->options;
329
330     return hr;
331 }
332
333 /**************************************************************************
334  *  IAutoComplete2_fnSetOptions
335  */
336 static HRESULT WINAPI IAutoComplete2_fnSetOptions(
337     IAutoComplete2 * iface,
338     DWORD dwFlag)
339 {
340     HRESULT hr = S_OK;
341
342     IAutoCompleteImpl *This = (IAutoCompleteImpl *)iface;
343
344     TRACE("(%p) -> (0x%x)\n", This, dwFlag);
345
346     This->options = dwFlag;
347
348     if ((This->options & ACO_AUTOSUGGEST) && This->hwndEdit && !This->hwndListBox)
349         create_listbox(This);
350
351     return hr;
352 }
353
354 /**************************************************************************
355  *  IAutoCompleteDropDown_fnGetDropDownStatus
356  */
357 static HRESULT WINAPI IAutoCompleteDropDown_fnGetDropDownStatus(
358     IAutoCompleteDropDown *iface,
359     DWORD *pdwFlags,
360     LPWSTR *ppwszString)
361 {
362     IAutoCompleteImpl *This = impl_from_IAutoCompleteDropDown(iface);
363     BOOL dropped;
364
365     TRACE("(%p) -> (%p, %p)\n", This, pdwFlags, ppwszString);
366
367     dropped = IsWindowVisible(This->hwndListBox);
368
369     if (pdwFlags)
370         *pdwFlags = (dropped ? ACDD_VISIBLE : 0);
371
372     if (ppwszString) {
373         if (dropped) {
374             int sel;
375
376             sel = SendMessageW(This->hwndListBox, LB_GETCURSEL, 0, 0);
377             if (sel >= 0)
378             {
379                 DWORD len;
380
381                 len = SendMessageW(This->hwndListBox, LB_GETTEXTLEN, sel, 0);
382                 *ppwszString = CoTaskMemAlloc((len+1)*sizeof(WCHAR));
383                 SendMessageW(This->hwndListBox, LB_GETTEXT, sel, (LPARAM)*ppwszString);
384             }
385             else
386                 *ppwszString = NULL;
387         }
388         else
389             *ppwszString = NULL;
390     }
391
392     return S_OK;
393 }
394
395 /**************************************************************************
396  *  IAutoCompleteDropDown_fnResetEnumarator
397  */
398 static HRESULT WINAPI IAutoCompleteDropDown_fnResetEnumerator(
399     IAutoCompleteDropDown *iface)
400 {
401     IAutoCompleteImpl *This = impl_from_IAutoCompleteDropDown(iface);
402
403     FIXME("(%p): stub\n", This);
404
405     return E_NOTIMPL;
406 }
407
408
409
410 /**************************************************************************
411  *  IAutoComplete2 VTable
412  */
413 static const IAutoComplete2Vtbl acvt =
414 {
415     IAutoComplete2_fnQueryInterface,
416     IAutoComplete2_fnAddRef,
417     IAutoComplete2_fnRelease,
418     IAutoComplete2_fnInit,
419     IAutoComplete2_fnEnable,
420     /* IAutoComplete2 */
421     IAutoComplete2_fnSetOptions,
422     IAutoComplete2_fnGetOptions,
423 };
424
425
426 static HRESULT WINAPI IAutoCompleteDropDown_fnQueryInterface(IAutoCompleteDropDown *iface,
427             REFIID riid, LPVOID *ppvObj)
428 {
429     IAutoCompleteImpl *This = impl_from_IAutoCompleteDropDown(iface);
430     return IAutoComplete2_fnQueryInterface(_IAutoComplete2_(This), riid, ppvObj);
431 }
432
433 static ULONG WINAPI IAutoCompleteDropDown_fnAddRef(IAutoCompleteDropDown *iface)
434 {
435     IAutoCompleteImpl *This = impl_from_IAutoCompleteDropDown(iface);
436     return IAutoComplete2_fnAddRef(_IAutoComplete2_(This));
437 }
438
439 static ULONG WINAPI IAutoCompleteDropDown_fnRelease(IAutoCompleteDropDown *iface)
440 {
441     IAutoCompleteImpl *This = impl_from_IAutoCompleteDropDown(iface);
442     return IAutoComplete2_fnRelease(_IAutoComplete2_(This));
443 }
444
445 /**************************************************************************
446  *  IAutoCompleteDropDown VTable
447  */
448 static const IAutoCompleteDropDownVtbl acdropdownvt =
449 {
450     IAutoCompleteDropDown_fnQueryInterface,
451     IAutoCompleteDropDown_fnAddRef,
452     IAutoCompleteDropDown_fnRelease,
453     IAutoCompleteDropDown_fnGetDropDownStatus,
454     IAutoCompleteDropDown_fnResetEnumerator,
455 };
456
457 /*
458   Window procedure for autocompletion
459  */
460 static LRESULT APIENTRY ACEditSubclassProc(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam)
461 {
462     IAutoCompleteImpl *This = (IAutoCompleteImpl *)GetWindowLongPtrW(hwnd, GWLP_USERDATA);
463     LPOLESTR strs;
464     HRESULT hr;
465     WCHAR hwndText[255];
466     WCHAR *hwndQCText;
467     RECT r;
468     BOOL control, filled, displayall = FALSE;
469     int cpt, height, sel;
470
471     if (!This->enabled) return CallWindowProcW(This->wpOrigEditProc, hwnd, uMsg, wParam, lParam);
472
473     switch (uMsg)
474     {
475         case CB_SHOWDROPDOWN:
476             ShowWindow(This->hwndListBox, SW_HIDE);
477             break;
478         case WM_KILLFOCUS:
479             if ((This->options & ACO_AUTOSUGGEST) &&
480                 ((HWND)wParam != This->hwndListBox))
481             {
482                 ShowWindow(This->hwndListBox, SW_HIDE);
483             }
484             return CallWindowProcW(This->wpOrigEditProc, hwnd, uMsg, wParam, lParam);
485         case WM_KEYUP:
486             GetWindowTextW( hwnd, hwndText, 255);
487
488             switch(wParam) {
489                 case VK_RETURN:
490                     /* If quickComplete is set and control is pressed, replace the string */
491                     control = GetKeyState(VK_CONTROL) & 0x8000;             
492                     if (control && This->quickComplete) {
493                         hwndQCText = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, 
494                                                        (lstrlenW(This->quickComplete)+lstrlenW(hwndText))*sizeof(WCHAR));
495                         sel = sprintfW(hwndQCText, This->quickComplete, hwndText);
496                         SendMessageW(hwnd, WM_SETTEXT, 0, (LPARAM)hwndQCText);
497                         SendMessageW(hwnd, EM_SETSEL, 0, sel);
498                         HeapFree(GetProcessHeap(), 0, hwndQCText);
499                     }
500
501                     ShowWindow(This->hwndListBox, SW_HIDE);
502                     return 0;
503                 case VK_LEFT:
504                 case VK_RIGHT:
505                     return 0;
506                 case VK_UP:           
507                 case VK_DOWN:
508                     /* Two cases here : 
509                        - if the listbox is not visible, displays it 
510                        with all the entries if the style ACO_UPDOWNKEYDROPSLIST
511                        is present but does not select anything.
512                        - if the listbox is visible, change the selection
513                     */
514                     if ( (This->options & (ACO_AUTOSUGGEST | ACO_UPDOWNKEYDROPSLIST)) 
515                          && (!IsWindowVisible(This->hwndListBox) && (! *hwndText)) )
516                     {
517                          /* We must display all the entries */
518                          displayall = TRUE;
519                     } else {
520                         if (IsWindowVisible(This->hwndListBox)) {
521                             int count;
522
523                             count = SendMessageW(This->hwndListBox, LB_GETCOUNT, 0, 0);
524                             /* Change the selection */
525                             sel = SendMessageW(This->hwndListBox, LB_GETCURSEL, 0, 0);
526                             if (wParam == VK_UP)
527                                 sel = ((sel-1)<0)?count-1:sel-1;
528                             else
529                                 sel = ((sel+1)>= count)?-1:sel+1;
530                             SendMessageW(This->hwndListBox, LB_SETCURSEL, sel, 0);
531                             if (sel != -1) {
532                                 WCHAR *msg;
533                                 int len;
534                                 
535                                 len = SendMessageW(This->hwndListBox, LB_GETTEXTLEN, sel, 0);
536                                 msg = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, (len+1)*sizeof(WCHAR));
537                                 SendMessageW(This->hwndListBox, LB_GETTEXT, sel, (LPARAM)msg);
538                                 SendMessageW(hwnd, WM_SETTEXT, 0, (LPARAM)msg);
539                                 SendMessageW(hwnd, EM_SETSEL, lstrlenW(msg), lstrlenW(msg));
540                                 HeapFree(GetProcessHeap(), 0, msg);
541                             } else {
542                                 SendMessageW(hwnd, WM_SETTEXT, 0, (LPARAM)This->txtbackup);
543                                 SendMessageW(hwnd, EM_SETSEL, lstrlenW(This->txtbackup), lstrlenW(This->txtbackup));
544                             }                   
545                         }               
546                         return 0;
547                     }
548                     break;
549                 case VK_BACK:
550                 case VK_DELETE:
551                     if ((! *hwndText) && (This->options & ACO_AUTOSUGGEST)) {
552                         ShowWindow(This->hwndListBox, SW_HIDE);
553                         return CallWindowProcW(This->wpOrigEditProc, hwnd, uMsg, wParam, lParam);
554                     }
555                     if (This->options & ACO_AUTOAPPEND) {
556                         DWORD b;
557                         SendMessageW(hwnd, EM_GETSEL, (WPARAM)&b, 0);
558                         if (b>1) {
559                             hwndText[b-1] = '\0';
560                         } else {
561                             hwndText[0] = '\0';
562                             SetWindowTextW(hwnd, hwndText); 
563                         }                       
564                     }
565                     break;
566                 default:                    
567                     ;
568             }
569       
570             SendMessageW(This->hwndListBox, LB_RESETCONTENT, 0, 0);
571
572             HeapFree(GetProcessHeap(), 0, This->txtbackup);
573             This->txtbackup = HeapAlloc(GetProcessHeap(),
574                                                  HEAP_ZERO_MEMORY, (lstrlenW(hwndText)+1)*sizeof(WCHAR));                                                             
575             lstrcpyW(This->txtbackup, hwndText);
576
577             /* Returns if there is no text to search and we doesn't want to display all the entries */
578             if ((!displayall) && (! *hwndText) )
579                 break;
580             
581             IEnumString_Reset(This->enumstr);
582             filled = FALSE;
583             for(cpt = 0;;) {
584                 ULONG fetched;
585                 hr = IEnumString_Next(This->enumstr, 1, &strs, &fetched);
586                 if (hr != S_OK)
587                     break;
588
589                 if (strstrW(strs, hwndText) == strs) {
590                     if (!filled && (This->options & ACO_AUTOAPPEND)) {
591                         SetWindowTextW(hwnd, strs);
592                         SendMessageW(hwnd, EM_SETSEL, lstrlenW(hwndText), lstrlenW(strs));
593                         if (!(This->options & ACO_AUTOSUGGEST))
594                             break;
595                     }           
596
597                     if (This->options & ACO_AUTOSUGGEST) {
598                         SendMessageW(This->hwndListBox, LB_ADDSTRING, 0, (LPARAM)strs);
599                         cpt++;
600                     }
601
602                     filled = TRUE;
603                 }               
604             }
605             
606             if (This->options & ACO_AUTOSUGGEST) {
607                 if (filled) {
608                     height = SendMessageW(This->hwndListBox, LB_GETITEMHEIGHT, 0, 0);
609                     SendMessageW(This->hwndListBox, LB_CARETOFF, 0, 0);
610                     GetWindowRect(hwnd, &r);
611                     SetParent(This->hwndListBox, HWND_DESKTOP);
612                     /* It seems that Windows XP displays 7 lines at most 
613                        and otherwise displays a vertical scroll bar */
614                     SetWindowPos(This->hwndListBox, HWND_TOP, 
615                                  r.left, r.bottom + 1, r.right - r.left, min(height * 7, height*(cpt+1)), 
616                                  SWP_SHOWWINDOW );
617                 } else {
618                     ShowWindow(This->hwndListBox, SW_HIDE);
619                 }
620             }
621             
622             break; 
623         default:
624             return CallWindowProcW(This->wpOrigEditProc, hwnd, uMsg, wParam, lParam);
625             
626     }
627
628     return 0;
629 }
630
631 static LRESULT APIENTRY ACLBoxSubclassProc(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam)
632 {
633     IAutoCompleteImpl *This = (IAutoCompleteImpl *)GetWindowLongPtrW(hwnd, GWLP_USERDATA);
634     WCHAR *msg;
635     int sel, len;
636
637     switch (uMsg) {
638         case WM_MOUSEMOVE:
639             sel = SendMessageW(hwnd, LB_ITEMFROMPOINT, 0, lParam);
640             SendMessageW(hwnd, LB_SETCURSEL, sel, 0);
641             break;
642         case WM_LBUTTONDOWN:
643             sel = SendMessageW(hwnd, LB_GETCURSEL, 0, 0);
644             if (sel < 0)
645                 break;
646             len = SendMessageW(This->hwndListBox, LB_GETTEXTLEN, sel, 0);
647             msg = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, (len+1)*sizeof(WCHAR));
648             SendMessageW(hwnd, LB_GETTEXT, sel, (LPARAM)msg);
649             SendMessageW(This->hwndEdit, WM_SETTEXT, 0, (LPARAM)msg);
650             SendMessageW(This->hwndEdit, EM_SETSEL, 0, lstrlenW(msg));
651             ShowWindow(hwnd, SW_HIDE);
652             HeapFree(GetProcessHeap(), 0, msg);
653             break;
654         default:
655             return CallWindowProcW(This->wpOrigLBoxProc, hwnd, uMsg, wParam, lParam);
656     }
657     return 0;
658 }