mountmgr.sys: Implemented the IOCTL_MOUNTMGR_QUERY_POINTS request.
[wine] / dlls / comctl32 / imagelist.c
1 /*
2  *  ImageList implementation
3  *
4  *  Copyright 1998 Eric Kohl
5  *  Copyright 2000 Jason Mawdsley
6  *  Copyright 2001, 2004 Michael Stefaniuc
7  *  Copyright 2001 Charles Loep for CodeWeavers
8  *  Copyright 2002 Dimitrie O. Paun
9  *
10  * This library is free software; you can redistribute it and/or
11  * modify it under the terms of the GNU Lesser General Public
12  * License as published by the Free Software Foundation; either
13  * version 2.1 of the License, or (at your option) any later version.
14  *
15  * This library is distributed in the hope that it will be useful,
16  * but WITHOUT ANY WARRANTY; without even the implied warranty of
17  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
18  * Lesser General Public License for more details.
19  *
20  * You should have received a copy of the GNU Lesser General Public
21  * License along with this library; if not, write to the Free Software
22  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
23  *
24  * NOTE
25  *
26  * This code was audited for completeness against the documented features
27  * of Comctl32.dll version 6.0 on Sep. 12, 2002, by Dimitrie O. Paun.
28  *
29  * Unless otherwise noted, we believe this code to be complete, as per
30  * the specification mentioned above.
31  * If you discover missing features, or bugs, please note them below.
32  *
33  *  TODO:
34  *    - Add support for ILD_PRESERVEALPHA, ILD_SCALE, ILD_DPISCALE
35  *    - Add support for ILS_GLOW, ILS_SHADOW, ILS_SATURATE, ILS_ALPHA
36  *    - Thread-safe locking
37  */
38
39 #include <stdarg.h>
40 #include <stdlib.h>
41 #include <string.h>
42
43 #define COBJMACROS
44
45 #include "winerror.h"
46 #include "windef.h"
47 #include "winbase.h"
48 #include "objbase.h"
49 #include "wingdi.h"
50 #include "winuser.h"
51 #include "commctrl.h"
52 #include "comctl32.h"
53 #include "imagelist.h"
54 #include "wine/debug.h"
55
56 WINE_DEFAULT_DEBUG_CHANNEL(imagelist);
57
58
59 #define MAX_OVERLAYIMAGE 15
60
61 /* internal image list data used for Drag & Drop operations */
62 typedef struct
63 {
64     HWND        hwnd;
65     HIMAGELIST  himl;
66     /* position of the drag image relative to the window */
67     INT         x;
68     INT         y;
69     /* offset of the hotspot relative to the origin of the image */
70     INT         dxHotspot;
71     INT         dyHotspot;
72     /* is the drag image visible */
73     BOOL        bShow;
74     /* saved background */
75     HBITMAP     hbmBg;
76 } INTERNALDRAG;
77
78 static INTERNALDRAG InternalDrag = { 0, 0, 0, 0, 0, 0, FALSE, 0 };
79
80 static HBITMAP ImageList_CreateImage(HDC hdc, HIMAGELIST himl, UINT count, UINT width);
81
82 static inline BOOL is_valid(HIMAGELIST himl)
83 {
84     return himl && himl->magic == IMAGELIST_MAGIC;
85 }
86
87 /*
88  * An imagelist with N images is tiled like this:
89  *
90  *   N/4 ->
91  *
92  * 4 048C..
93  *   159D..
94  * | 26AE.N
95  * V 37BF.
96  */
97
98 #define TILE_COUNT 4
99
100 static inline UINT imagelist_height( UINT count )
101 {
102     return ((count + TILE_COUNT - 1)/TILE_COUNT);
103 }
104
105 static inline void imagelist_point_from_index( HIMAGELIST himl, UINT index, LPPOINT pt )
106 {
107     pt->x = (index%TILE_COUNT) * himl->cx;
108     pt->y = (index/TILE_COUNT) * himl->cy;
109 }
110
111 static inline void imagelist_get_bitmap_size( HIMAGELIST himl, UINT count, UINT cx, SIZE *sz )
112 {
113     sz->cx = cx * TILE_COUNT;
114     sz->cy = imagelist_height( count ) * himl->cy;
115 }
116
117 /*
118  * imagelist_copy_images()
119  *
120  * Copies a block of count images from offset src in the list to offset dest.
121  * Images are copied a row at at time. Assumes hdcSrc and hdcDest are different.
122  */
123 static inline void imagelist_copy_images( HIMAGELIST himl, HDC hdcSrc, HDC hdcDest,
124                                           UINT src, UINT count, UINT dest )
125 {
126     POINT ptSrc, ptDest;
127     SIZE sz;
128     UINT i;
129
130     for ( i=0; i<TILE_COUNT; i++ )
131     {
132         imagelist_point_from_index( himl, src+i, &ptSrc );
133         imagelist_point_from_index( himl, dest+i, &ptDest );
134         sz.cx = himl->cx;
135         sz.cy = himl->cy * imagelist_height( count - i );
136
137         BitBlt( hdcDest, ptDest.x, ptDest.y, sz.cx, sz.cy,
138                 hdcSrc, ptSrc.x, ptSrc.y, SRCCOPY );
139     }
140 }
141
142 /*************************************************************************
143  * IMAGELIST_InternalExpandBitmaps [Internal]
144  *
145  * Expands the bitmaps of an image list by the given number of images.
146  *
147  * PARAMS
148  *     himl        [I] handle to image list
149  *     nImageCount [I] number of images to add
150  *
151  * RETURNS
152  *     nothing
153  *
154  * NOTES
155  *     This function CANNOT be used to reduce the number of images.
156  */
157 static void
158 IMAGELIST_InternalExpandBitmaps (HIMAGELIST himl, INT nImageCount, INT cx, INT cy)
159 {
160     HDC     hdcBitmap;
161     HBITMAP hbmNewBitmap, hbmNull;
162     INT     nNewCount;
163     SIZE    sz;
164
165     if ((himl->cCurImage + nImageCount <= himl->cMaxImage)
166         && (himl->cy >= cy))
167         return;
168
169     if (cx == 0) cx = himl->cx;
170     nNewCount = himl->cCurImage + nImageCount + himl->cGrow;
171
172     imagelist_get_bitmap_size(himl, nNewCount, cx, &sz);
173
174     TRACE("Create expanded bitmaps : himl=%p x=%d y=%d count=%d\n", himl, sz.cx, cy, nNewCount);
175     hdcBitmap = CreateCompatibleDC (0);
176
177     hbmNewBitmap = ImageList_CreateImage(hdcBitmap, himl, nNewCount, cx);
178
179     if (hbmNewBitmap == 0)
180         ERR("creating new image bitmap (x=%d y=%d)!\n", sz.cx, cy);
181
182     if (himl->cCurImage)
183     {
184         hbmNull = SelectObject (hdcBitmap, hbmNewBitmap);
185         BitBlt (hdcBitmap, 0, 0, sz.cx, sz.cy,
186                 himl->hdcImage, 0, 0, SRCCOPY);
187         SelectObject (hdcBitmap, hbmNull);
188     }
189     SelectObject (himl->hdcImage, hbmNewBitmap);
190     DeleteObject (himl->hbmImage);
191     himl->hbmImage = hbmNewBitmap;
192
193     if (himl->flags & ILC_MASK)
194     {
195         hbmNewBitmap = CreateBitmap (sz.cx, sz.cy, 1, 1, NULL);
196
197         if (hbmNewBitmap == 0)
198             ERR("creating new mask bitmap!\n");
199
200         if(himl->cCurImage)
201         {
202             hbmNull = SelectObject (hdcBitmap, hbmNewBitmap);
203             BitBlt (hdcBitmap, 0, 0, sz.cx, sz.cy,
204                     himl->hdcMask, 0, 0, SRCCOPY);
205             SelectObject (hdcBitmap, hbmNull);
206         }
207         SelectObject (himl->hdcMask, hbmNewBitmap);
208         DeleteObject (himl->hbmMask);
209         himl->hbmMask = hbmNewBitmap;
210     }
211
212     himl->cMaxImage = nNewCount;
213
214     DeleteDC (hdcBitmap);
215 }
216
217
218 /*************************************************************************
219  * ImageList_Add [COMCTL32.@]
220  *
221  * Add an image or images to an image list.
222  *
223  * PARAMS
224  *     himl     [I] handle to image list
225  *     hbmImage [I] handle to image bitmap
226  *     hbmMask  [I] handle to mask bitmap
227  *
228  * RETURNS
229  *     Success: Index of the first new image.
230  *     Failure: -1
231  */
232
233 INT WINAPI
234 ImageList_Add (HIMAGELIST himl, HBITMAP hbmImage, HBITMAP hbmMask)
235 {
236     HDC     hdcBitmap, hdcTemp;
237     INT     nFirstIndex, nImageCount, i;
238     BITMAP  bmp;
239     HBITMAP hOldBitmap, hOldBitmapTemp;
240     POINT   pt;
241
242     TRACE("himl=%p hbmimage=%p hbmmask=%p\n", himl, hbmImage, hbmMask);
243     if (!is_valid(himl))
244         return -1;
245
246     if (!GetObjectW(hbmImage, sizeof(BITMAP), (LPVOID)&bmp))
247         return -1;
248
249     nImageCount = bmp.bmWidth / himl->cx;
250
251     IMAGELIST_InternalExpandBitmaps (himl, nImageCount, bmp.bmWidth, bmp.bmHeight);
252
253     hdcBitmap = CreateCompatibleDC(0);
254
255     hOldBitmap = SelectObject(hdcBitmap, hbmImage);
256
257     for (i=0; i<nImageCount; i++)
258     {
259         imagelist_point_from_index( himl, himl->cCurImage + i, &pt );
260
261         /* Copy result to the imagelist
262         */
263         BitBlt( himl->hdcImage, pt.x, pt.y, himl->cx, bmp.bmHeight,
264                 hdcBitmap, i*himl->cx, 0, SRCCOPY );
265
266         if (!himl->hbmMask)
267              continue;
268
269         hdcTemp   = CreateCompatibleDC(0);
270         hOldBitmapTemp = SelectObject(hdcTemp, hbmMask);
271
272         BitBlt( himl->hdcMask, pt.x, pt.y, himl->cx, bmp.bmHeight,
273                 hdcTemp, i*himl->cx, 0, SRCCOPY );
274
275         SelectObject(hdcTemp, hOldBitmapTemp);
276         DeleteDC(hdcTemp);
277
278         /* Remove the background from the image
279         */
280         BitBlt( himl->hdcImage, pt.x, pt.y, himl->cx, bmp.bmHeight,
281                 himl->hdcMask, pt.x, pt.y, 0x220326 ); /* NOTSRCAND */
282     }
283
284     SelectObject(hdcBitmap, hOldBitmap);
285     DeleteDC(hdcBitmap);
286
287     nFirstIndex = himl->cCurImage;
288     himl->cCurImage += nImageCount;
289
290     return nFirstIndex;
291 }
292
293
294 /*************************************************************************
295  * ImageList_AddIcon [COMCTL32.@]
296  *
297  * Adds an icon to an image list.
298  *
299  * PARAMS
300  *     himl  [I] handle to image list
301  *     hIcon [I] handle to icon
302  *
303  * RETURNS
304  *     Success: index of the new image
305  *     Failure: -1
306  */
307 #undef ImageList_AddIcon
308 INT WINAPI ImageList_AddIcon (HIMAGELIST himl, HICON hIcon)
309 {
310     return ImageList_ReplaceIcon (himl, -1, hIcon);
311 }
312
313
314 /*************************************************************************
315  * ImageList_AddMasked [COMCTL32.@]
316  *
317  * Adds an image or images to an image list and creates a mask from the
318  * specified bitmap using the mask color.
319  *
320  * PARAMS
321  *     himl    [I] handle to image list.
322  *     hBitmap [I] handle to bitmap
323  *     clrMask [I] mask color.
324  *
325  * RETURNS
326  *     Success: Index of the first new image.
327  *     Failure: -1
328  */
329
330 INT WINAPI
331 ImageList_AddMasked (HIMAGELIST himl, HBITMAP hBitmap, COLORREF clrMask)
332 {
333     HDC    hdcMask, hdcBitmap;
334     INT    i, nIndex, nImageCount;
335     BITMAP bmp;
336     HBITMAP hOldBitmap;
337     HBITMAP hMaskBitmap=0;
338     COLORREF bkColor;
339     POINT  pt;
340
341     TRACE("himl=%p hbitmap=%p clrmask=%x\n", himl, hBitmap, clrMask);
342     if (!is_valid(himl))
343         return -1;
344
345     if (!GetObjectW(hBitmap, sizeof(BITMAP), &bmp))
346         return -1;
347
348     if (himl->cx > 0)
349         nImageCount = bmp.bmWidth / himl->cx;
350     else
351         nImageCount = 0;
352
353     IMAGELIST_InternalExpandBitmaps (himl, nImageCount, bmp.bmWidth, bmp.bmHeight);
354
355     nIndex = himl->cCurImage;
356     himl->cCurImage += nImageCount;
357
358     hdcBitmap = CreateCompatibleDC(0);
359     hOldBitmap = SelectObject(hdcBitmap, hBitmap);
360
361     /* Create a temp Mask so we can remove the background of the Image */
362     hdcMask = CreateCompatibleDC(0);
363     hMaskBitmap = CreateBitmap(bmp.bmWidth, bmp.bmHeight, 1, 1, NULL);
364     SelectObject(hdcMask, hMaskBitmap);
365
366     /* create monochrome image to the mask bitmap */
367     bkColor = (clrMask != CLR_DEFAULT) ? clrMask : GetPixel (hdcBitmap, 0, 0);
368     SetBkColor (hdcBitmap, bkColor);
369     BitBlt (hdcMask, 0, 0, bmp.bmWidth, bmp.bmHeight, hdcBitmap, 0, 0, SRCCOPY);
370
371     SetBkColor(hdcBitmap, RGB(255,255,255));
372
373     /*
374      * Remove the background from the image
375      *
376      * WINDOWS BUG ALERT!!!!!!
377      *  The statement below should not be done in common practice
378      *  but this is how ImageList_AddMasked works in Windows.
379      *  It overwrites the original bitmap passed, this was discovered
380      *  by using the same bitmap to iterate the different styles
381      *  on windows where it failed (BUT ImageList_Add is OK)
382      *  This is here in case some apps rely on this bug
383      *
384      *  Blt mode 0x220326 is NOTSRCAND
385      */
386     BitBlt(hdcBitmap, 0, 0, bmp.bmWidth, bmp.bmHeight, hdcMask, 0, 0, 0x220326);
387
388     /* Copy result to the imagelist */
389     for (i=0; i<nImageCount; i++)
390     {
391         imagelist_point_from_index( himl, nIndex + i, &pt );
392         BitBlt(himl->hdcImage, pt.x, pt.y, himl->cx, bmp.bmHeight,
393                 hdcBitmap, i*himl->cx, 0, SRCCOPY);
394         BitBlt(himl->hdcMask, pt.x, pt.y, himl->cx, bmp.bmHeight,
395                 hdcMask, i*himl->cx, 0, SRCCOPY);
396     }
397
398     /* Clean up */
399     SelectObject(hdcBitmap, hOldBitmap);
400     DeleteDC(hdcBitmap);
401     DeleteObject(hMaskBitmap);
402     DeleteDC(hdcMask);
403
404     return nIndex;
405 }
406
407
408 /*************************************************************************
409  * ImageList_BeginDrag [COMCTL32.@]
410  *
411  * Creates a temporary image list that contains one image. It will be used
412  * as a drag image.
413  *
414  * PARAMS
415  *     himlTrack [I] handle to the source image list
416  *     iTrack    [I] index of the drag image in the source image list
417  *     dxHotspot [I] X position of the hot spot of the drag image
418  *     dyHotspot [I] Y position of the hot spot of the drag image
419  *
420  * RETURNS
421  *     Success: TRUE
422  *     Failure: FALSE
423  */
424
425 BOOL WINAPI
426 ImageList_BeginDrag (HIMAGELIST himlTrack, INT iTrack,
427                      INT dxHotspot, INT dyHotspot)
428 {
429     INT cx, cy;
430
431     TRACE("(himlTrack=%p iTrack=%d dx=%d dy=%d)\n", himlTrack, iTrack,
432           dxHotspot, dyHotspot);
433
434     if (!is_valid(himlTrack))
435         return FALSE;
436
437     if (InternalDrag.himl)
438         ImageList_EndDrag ();
439
440     cx = himlTrack->cx;
441     cy = himlTrack->cy;
442
443     InternalDrag.himl = ImageList_Create (cx, cy, himlTrack->flags, 1, 1);
444     if (InternalDrag.himl == NULL) {
445         WARN("Error creating drag image list!\n");
446         return FALSE;
447     }
448
449     InternalDrag.dxHotspot = dxHotspot;
450     InternalDrag.dyHotspot = dyHotspot;
451
452     /* copy image */
453     BitBlt (InternalDrag.himl->hdcImage, 0, 0, cx, cy, himlTrack->hdcImage, iTrack * cx, 0, SRCCOPY);
454
455     /* copy mask */
456     BitBlt (InternalDrag.himl->hdcMask, 0, 0, cx, cy, himlTrack->hdcMask, iTrack * cx, 0, SRCCOPY);
457
458     InternalDrag.himl->cCurImage = 1;
459
460     return TRUE;
461 }
462
463
464 /*************************************************************************
465  * ImageList_Copy [COMCTL32.@]
466  *
467  *  Copies an image of the source image list to an image of the
468  *  destination image list. Images can be copied or swapped.
469  *
470  * PARAMS
471  *     himlDst [I] handle to the destination image list
472  *     iDst    [I] destination image index.
473  *     himlSrc [I] handle to the source image list
474  *     iSrc    [I] source image index
475  *     uFlags  [I] flags for the copy operation
476  *
477  * RETURNS
478  *     Success: TRUE
479  *     Failure: FALSE
480  *
481  * NOTES
482  *     Copying from one image list to another is possible. The original
483  *     implementation just copies or swaps within one image list.
484  *     Could this feature become a bug??? ;-)
485  */
486
487 BOOL WINAPI
488 ImageList_Copy (HIMAGELIST himlDst, INT iDst,   HIMAGELIST himlSrc,
489                 INT iSrc, UINT uFlags)
490 {
491     POINT ptSrc, ptDst;
492
493     TRACE("himlDst=%p iDst=%d himlSrc=%p iSrc=%d\n", himlDst, iDst, himlSrc, iSrc);
494
495     if (!is_valid(himlSrc) || !is_valid(himlDst))
496         return FALSE;
497     if ((iDst < 0) || (iDst >= himlDst->cCurImage))
498         return FALSE;
499     if ((iSrc < 0) || (iSrc >= himlSrc->cCurImage))
500         return FALSE;
501
502     imagelist_point_from_index( himlDst, iDst, &ptDst );
503     imagelist_point_from_index( himlSrc, iSrc, &ptSrc );
504
505     if (uFlags & ILCF_SWAP) {
506         /* swap */
507         HDC     hdcBmp;
508         HBITMAP hbmTempImage, hbmTempMask;
509
510         hdcBmp = CreateCompatibleDC (0);
511
512         /* create temporary bitmaps */
513         hbmTempImage = CreateBitmap (himlSrc->cx, himlSrc->cy, 1,
514                                        himlSrc->uBitsPixel, NULL);
515         hbmTempMask = CreateBitmap (himlSrc->cx, himlSrc->cy, 1,
516                                       1, NULL);
517
518         /* copy (and stretch) destination to temporary bitmaps.(save) */
519         /* image */
520         SelectObject (hdcBmp, hbmTempImage);
521         StretchBlt   (hdcBmp, 0, 0, himlSrc->cx, himlSrc->cy,
522                       himlDst->hdcImage, ptDst.x, ptDst.y, himlDst->cx, himlDst->cy,
523                       SRCCOPY);
524         /* mask */
525         SelectObject (hdcBmp, hbmTempMask);
526         StretchBlt   (hdcBmp, 0, 0, himlSrc->cx, himlSrc->cy,
527                       himlDst->hdcMask, ptDst.x, ptDst.y, himlDst->cx, himlDst->cy,
528                       SRCCOPY);
529
530         /* copy (and stretch) source to destination */
531         /* image */
532         StretchBlt   (himlDst->hdcImage, ptDst.x, ptDst.y, himlDst->cx, himlDst->cy,
533                       himlSrc->hdcImage, ptSrc.x, ptSrc.y, himlSrc->cx, himlSrc->cy,
534                       SRCCOPY);
535         /* mask */
536         StretchBlt   (himlDst->hdcMask, ptDst.x, ptDst.y, himlDst->cx, himlDst->cy,
537                       himlSrc->hdcMask, ptSrc.x, ptSrc.y, himlSrc->cx, himlSrc->cy,
538                       SRCCOPY);
539
540         /* copy (without stretching) temporary bitmaps to source (restore) */
541         /* mask */
542         BitBlt       (himlSrc->hdcMask, ptSrc.x, ptSrc.y, himlSrc->cx, himlSrc->cy,
543                       hdcBmp, 0, 0, SRCCOPY);
544
545         /* image */
546         BitBlt       (himlSrc->hdcImage, ptSrc.x, ptSrc.y, himlSrc->cx, himlSrc->cy,
547                       hdcBmp, 0, 0, SRCCOPY);
548         /* delete temporary bitmaps */
549         DeleteObject (hbmTempMask);
550         DeleteObject (hbmTempImage);
551         DeleteDC(hdcBmp);
552     }
553     else {
554         /* copy image */
555         StretchBlt   (himlDst->hdcImage, ptDst.x, ptDst.y, himlDst->cx, himlDst->cy,
556                       himlSrc->hdcImage, ptSrc.x, ptSrc.y, himlSrc->cx, himlSrc->cy,
557                       SRCCOPY);
558
559         /* copy mask */
560         StretchBlt   (himlDst->hdcMask, ptDst.x, ptDst.y, himlDst->cx, himlDst->cy,
561                       himlSrc->hdcMask, ptSrc.x, ptSrc.y, himlSrc->cx, himlSrc->cy,
562                       SRCCOPY);
563     }
564
565     return TRUE;
566 }
567
568
569 /*************************************************************************
570  * ImageList_Create [COMCTL32.@]
571  *
572  * Creates a new image list.
573  *
574  * PARAMS
575  *     cx       [I] image height
576  *     cy       [I] image width
577  *     flags    [I] creation flags
578  *     cInitial [I] initial number of images in the image list
579  *     cGrow    [I] number of images by which image list grows
580  *
581  * RETURNS
582  *     Success: Handle to the created image list
583  *     Failure: NULL
584  */
585 HIMAGELIST WINAPI
586 ImageList_Create (INT cx, INT cy, UINT flags,
587                   INT cInitial, INT cGrow)
588 {
589     HIMAGELIST himl;
590     INT      nCount;
591     HBITMAP  hbmTemp;
592     UINT     ilc = (flags & 0xFE);
593     static const WORD aBitBlend25[] =
594         {0xAA, 0x00, 0x55, 0x00, 0xAA, 0x00, 0x55, 0x00};
595
596     static const WORD aBitBlend50[] =
597         {0x55, 0xAA, 0x55, 0xAA, 0x55, 0xAA, 0x55, 0xAA};
598
599     TRACE("(%d %d 0x%x %d %d)\n", cx, cy, flags, cInitial, cGrow);
600
601     himl = (HIMAGELIST)Alloc (sizeof(struct _IMAGELIST));
602     if (!himl)
603         return NULL;
604
605     cGrow = (cGrow < 4) ? 4 : (cGrow + 3) & ~3;
606
607     himl->magic     = IMAGELIST_MAGIC;
608     himl->cx        = cx;
609     himl->cy        = cy;
610     himl->flags     = flags;
611     himl->cMaxImage = cInitial + 1;
612     himl->cInitial  = cInitial;
613     himl->cGrow     = cGrow;
614     himl->clrFg     = CLR_DEFAULT;
615     himl->clrBk     = CLR_NONE;
616
617     /* initialize overlay mask indices */
618     for (nCount = 0; nCount < MAX_OVERLAYIMAGE; nCount++)
619         himl->nOvlIdx[nCount] = -1;
620
621     /* Create Image & Mask DCs */
622     himl->hdcImage = CreateCompatibleDC (0);
623     if (!himl->hdcImage)
624         goto cleanup;
625     if (himl->flags & ILC_MASK){
626         himl->hdcMask = CreateCompatibleDC(0);
627         if (!himl->hdcMask)
628             goto cleanup;
629     }
630
631     /* Default to ILC_COLOR4 if none of the ILC_COLOR* flags are specified */
632     if (ilc == ILC_COLOR)
633         ilc = ILC_COLOR4;
634
635     if (ilc >= ILC_COLOR4 && ilc <= ILC_COLOR32)
636         himl->uBitsPixel = ilc;
637     else
638         himl->uBitsPixel = (UINT)GetDeviceCaps (himl->hdcImage, BITSPIXEL);
639
640     if (himl->cMaxImage > 0) {
641         himl->hbmImage = ImageList_CreateImage(himl->hdcImage, himl, himl->cMaxImage, cx);
642         SelectObject(himl->hdcImage, himl->hbmImage);
643     } else
644         himl->hbmImage = 0;
645
646     if ((himl->cMaxImage > 0) && (himl->flags & ILC_MASK)) {
647         SIZE sz;
648
649         imagelist_get_bitmap_size(himl, himl->cMaxImage, himl->cx, &sz);
650         himl->hbmMask = CreateBitmap (sz.cx, sz.cy, 1, 1, NULL);
651         if (himl->hbmMask == 0) {
652             ERR("Error creating mask bitmap!\n");
653             goto cleanup;
654         }
655         SelectObject(himl->hdcMask, himl->hbmMask);
656     }
657     else
658         himl->hbmMask = 0;
659
660     /* create blending brushes */
661     hbmTemp = CreateBitmap (8, 8, 1, 1, &aBitBlend25);
662     himl->hbrBlend25 = CreatePatternBrush (hbmTemp);
663     DeleteObject (hbmTemp);
664
665     hbmTemp = CreateBitmap (8, 8, 1, 1, &aBitBlend50);
666     himl->hbrBlend50 = CreatePatternBrush (hbmTemp);
667     DeleteObject (hbmTemp);
668
669     TRACE("created imagelist %p\n", himl);
670     return himl;
671
672 cleanup:
673     if (himl) ImageList_Destroy(himl);
674     return NULL;
675 }
676
677
678 /*************************************************************************
679  * ImageList_Destroy [COMCTL32.@]
680  *
681  * Destroys an image list.
682  *
683  * PARAMS
684  *     himl [I] handle to image list
685  *
686  * RETURNS
687  *     Success: TRUE
688  *     Failure: FALSE
689  */
690
691 BOOL WINAPI
692 ImageList_Destroy (HIMAGELIST himl)
693 {
694     if (!is_valid(himl))
695         return FALSE;
696
697     /* delete image bitmaps */
698     if (himl->hbmImage)
699         DeleteObject (himl->hbmImage);
700     if (himl->hbmMask)
701         DeleteObject (himl->hbmMask);
702
703     /* delete image & mask DCs */
704     if (himl->hdcImage)
705         DeleteDC(himl->hdcImage);
706     if (himl->hdcMask)
707         DeleteDC(himl->hdcMask);
708
709     /* delete blending brushes */
710     if (himl->hbrBlend25)
711         DeleteObject (himl->hbrBlend25);
712     if (himl->hbrBlend50)
713         DeleteObject (himl->hbrBlend50);
714
715     ZeroMemory(himl, sizeof(*himl));
716     Free (himl);
717
718     return TRUE;
719 }
720
721
722 /*************************************************************************
723  * ImageList_DragEnter [COMCTL32.@]
724  *
725  * Locks window update and displays the drag image at the given position.
726  *
727  * PARAMS
728  *     hwndLock [I] handle of the window that owns the drag image.
729  *     x        [I] X position of the drag image.
730  *     y        [I] Y position of the drag image.
731  *
732  * RETURNS
733  *     Success: TRUE
734  *     Failure: FALSE
735  *
736  * NOTES
737  *     The position of the drag image is relative to the window, not
738  *     the client area.
739  */
740
741 BOOL WINAPI
742 ImageList_DragEnter (HWND hwndLock, INT x, INT y)
743 {
744     TRACE("(hwnd=%p x=%d y=%d)\n", hwndLock, x, y);
745
746     if (!is_valid(InternalDrag.himl))
747         return FALSE;
748
749     if (hwndLock)
750         InternalDrag.hwnd = hwndLock;
751     else
752         InternalDrag.hwnd = GetDesktopWindow ();
753
754     InternalDrag.x = x;
755     InternalDrag.y = y;
756
757     /* draw the drag image and save the background */
758     if (!ImageList_DragShowNolock(TRUE)) {
759         return FALSE;
760     }
761
762     return TRUE;
763 }
764
765
766 /*************************************************************************
767  * ImageList_DragLeave [COMCTL32.@]
768  *
769  * Unlocks window update and hides the drag image.
770  *
771  * PARAMS
772  *     hwndLock [I] handle of the window that owns the drag image.
773  *
774  * RETURNS
775  *     Success: TRUE
776  *     Failure: FALSE
777  */
778
779 BOOL WINAPI
780 ImageList_DragLeave (HWND hwndLock)
781 {
782     /* As we don't save drag info in the window this can lead to problems if
783        an app does not supply the same window as DragEnter */
784     /* if (hwndLock)
785         InternalDrag.hwnd = hwndLock;
786     else
787         InternalDrag.hwnd = GetDesktopWindow (); */
788     if(!hwndLock)
789         hwndLock = GetDesktopWindow();
790     if(InternalDrag.hwnd != hwndLock)
791         FIXME("DragLeave hWnd != DragEnter hWnd\n");
792
793     ImageList_DragShowNolock (FALSE);
794
795     return TRUE;
796 }
797
798
799 /*************************************************************************
800  * ImageList_InternalDragDraw [Internal]
801  *
802  * Draws the drag image.
803  *
804  * PARAMS
805  *     hdc [I] device context to draw into.
806  *     x   [I] X position of the drag image.
807  *     y   [I] Y position of the drag image.
808  *
809  * RETURNS
810  *     Success: TRUE
811  *     Failure: FALSE
812  *
813  * NOTES
814  *     The position of the drag image is relative to the window, not
815  *     the client area.
816  *
817  */
818
819 static inline void
820 ImageList_InternalDragDraw (HDC hdc, INT x, INT y)
821 {
822     IMAGELISTDRAWPARAMS imldp;
823
824     ZeroMemory (&imldp, sizeof(imldp));
825     imldp.cbSize  = sizeof(imldp);
826     imldp.himl    = InternalDrag.himl;
827     imldp.i       = 0;
828     imldp.hdcDst  = hdc,
829     imldp.x       = x;
830     imldp.y       = y;
831     imldp.rgbBk   = CLR_DEFAULT;
832     imldp.rgbFg   = CLR_DEFAULT;
833     imldp.fStyle  = ILD_NORMAL;
834     imldp.fState  = ILS_ALPHA;
835     imldp.Frame   = 128;
836
837     /* FIXME: instead of using the alpha blending, we should
838      * create a 50% mask, and draw it semitransparantly that way */
839     ImageList_DrawIndirect (&imldp);
840 }
841
842 /*************************************************************************
843  * ImageList_DragMove [COMCTL32.@]
844  *
845  * Moves the drag image.
846  *
847  * PARAMS
848  *     x [I] X position of the drag image.
849  *     y [I] Y position of the drag image.
850  *
851  * RETURNS
852  *     Success: TRUE
853  *     Failure: FALSE
854  *
855  * NOTES
856  *     The position of the drag image is relative to the window, not
857  *     the client area.
858  *
859  * BUGS
860  *     The drag image should be drawn semitransparent.
861  */
862
863 BOOL WINAPI
864 ImageList_DragMove (INT x, INT y)
865 {
866     TRACE("(x=%d y=%d)\n", x, y);
867
868     if (!is_valid(InternalDrag.himl))
869         return FALSE;
870
871     /* draw/update the drag image */
872     if (InternalDrag.bShow) {
873         HDC hdcDrag;
874         HDC hdcOffScreen;
875         HDC hdcBg;
876         HBITMAP hbmOffScreen;
877         INT origNewX, origNewY;
878         INT origOldX, origOldY;
879         INT origRegX, origRegY;
880         INT sizeRegX, sizeRegY;
881
882
883         /* calculate the update region */
884         origNewX = x - InternalDrag.dxHotspot;
885         origNewY = y - InternalDrag.dyHotspot;
886         origOldX = InternalDrag.x - InternalDrag.dxHotspot;
887         origOldY = InternalDrag.y - InternalDrag.dyHotspot;
888         origRegX = min(origNewX, origOldX);
889         origRegY = min(origNewY, origOldY);
890         sizeRegX = InternalDrag.himl->cx + abs(x - InternalDrag.x);
891         sizeRegY = InternalDrag.himl->cy + abs(y - InternalDrag.y);
892
893         hdcDrag = GetDCEx(InternalDrag.hwnd, 0,
894                           DCX_WINDOW | DCX_CACHE | DCX_LOCKWINDOWUPDATE);
895         hdcOffScreen = CreateCompatibleDC(hdcDrag);
896         hdcBg = CreateCompatibleDC(hdcDrag);
897
898         hbmOffScreen = CreateCompatibleBitmap(hdcDrag, sizeRegX, sizeRegY);
899         SelectObject(hdcOffScreen, hbmOffScreen);
900         SelectObject(hdcBg, InternalDrag.hbmBg);
901
902         /* get the actual background of the update region */
903         BitBlt(hdcOffScreen, 0, 0, sizeRegX, sizeRegY, hdcDrag,
904                origRegX, origRegY, SRCCOPY);
905         /* erase the old image */
906         BitBlt(hdcOffScreen, origOldX - origRegX, origOldY - origRegY,
907                InternalDrag.himl->cx, InternalDrag.himl->cy, hdcBg, 0, 0,
908                SRCCOPY);
909         /* save the background */
910         BitBlt(hdcBg, 0, 0, InternalDrag.himl->cx, InternalDrag.himl->cy,
911                hdcOffScreen, origNewX - origRegX, origNewY - origRegY, SRCCOPY);
912         /* draw the image */
913         ImageList_InternalDragDraw(hdcOffScreen, origNewX - origRegX, 
914                                    origNewY - origRegY);
915         /* draw the update region to the screen */
916         BitBlt(hdcDrag, origRegX, origRegY, sizeRegX, sizeRegY,
917                hdcOffScreen, 0, 0, SRCCOPY);
918
919         DeleteDC(hdcBg);
920         DeleteDC(hdcOffScreen);
921         DeleteObject(hbmOffScreen);
922         ReleaseDC(InternalDrag.hwnd, hdcDrag);
923     }
924
925     /* update the image position */
926     InternalDrag.x = x;
927     InternalDrag.y = y;
928
929     return TRUE;
930 }
931
932
933 /*************************************************************************
934  * ImageList_DragShowNolock [COMCTL32.@]
935  *
936  * Shows or hides the drag image.
937  *
938  * PARAMS
939  *     bShow [I] TRUE shows the drag image, FALSE hides it.
940  *
941  * RETURNS
942  *     Success: TRUE
943  *     Failure: FALSE
944  *
945  * BUGS
946  *     The drag image should be drawn semitransparent.
947  */
948
949 BOOL WINAPI
950 ImageList_DragShowNolock (BOOL bShow)
951 {
952     HDC hdcDrag;
953     HDC hdcBg;
954     INT x, y;
955
956     if (!is_valid(InternalDrag.himl))
957         return FALSE;
958     
959     TRACE("bShow=0x%X!\n", bShow);
960
961     /* DragImage is already visible/hidden */
962     if ((InternalDrag.bShow && bShow) || (!InternalDrag.bShow && !bShow)) {
963         return FALSE;
964     }
965
966     /* position of the origin of the DragImage */
967     x = InternalDrag.x - InternalDrag.dxHotspot;
968     y = InternalDrag.y - InternalDrag.dyHotspot;
969
970     hdcDrag = GetDCEx (InternalDrag.hwnd, 0,
971                          DCX_WINDOW | DCX_CACHE | DCX_LOCKWINDOWUPDATE);
972     if (!hdcDrag) {
973         return FALSE;
974     }
975
976     hdcBg = CreateCompatibleDC(hdcDrag);
977     if (!InternalDrag.hbmBg) {
978         InternalDrag.hbmBg = CreateCompatibleBitmap(hdcDrag,
979                     InternalDrag.himl->cx, InternalDrag.himl->cy);
980     }
981     SelectObject(hdcBg, InternalDrag.hbmBg);
982
983     if (bShow) {
984         /* save the background */
985         BitBlt(hdcBg, 0, 0, InternalDrag.himl->cx, InternalDrag.himl->cy,
986                hdcDrag, x, y, SRCCOPY);
987         /* show the image */
988         ImageList_InternalDragDraw(hdcDrag, x, y);
989     } else {
990         /* hide the image */
991         BitBlt(hdcDrag, x, y, InternalDrag.himl->cx, InternalDrag.himl->cy,
992                hdcBg, 0, 0, SRCCOPY);
993     }
994
995     InternalDrag.bShow = !InternalDrag.bShow;
996
997     DeleteDC(hdcBg);
998     ReleaseDC (InternalDrag.hwnd, hdcDrag);
999     return TRUE;
1000 }
1001
1002
1003 /*************************************************************************
1004  * ImageList_Draw [COMCTL32.@]
1005  *
1006  * Draws an image.
1007  *
1008  * PARAMS
1009  *     himl   [I] handle to image list
1010  *     i      [I] image index
1011  *     hdc    [I] handle to device context
1012  *     x      [I] x position
1013  *     y      [I] y position
1014  *     fStyle [I] drawing flags
1015  *
1016  * RETURNS
1017  *     Success: TRUE
1018  *     Failure: FALSE
1019  *
1020  * SEE
1021  *     ImageList_DrawEx.
1022  */
1023
1024 BOOL WINAPI
1025 ImageList_Draw (HIMAGELIST himl, INT i, HDC hdc, INT x, INT y, UINT fStyle)
1026 {
1027     return ImageList_DrawEx (himl, i, hdc, x, y, 0, 0, 
1028                              CLR_DEFAULT, CLR_DEFAULT, fStyle);
1029 }
1030
1031
1032 /*************************************************************************
1033  * ImageList_DrawEx [COMCTL32.@]
1034  *
1035  * Draws an image and allows to use extended drawing features.
1036  *
1037  * PARAMS
1038  *     himl   [I] handle to image list
1039  *     i      [I] image index
1040  *     hdc    [I] handle to device context
1041  *     x      [I] X position
1042  *     y      [I] Y position
1043  *     dx     [I] X offset
1044  *     dy     [I] Y offset
1045  *     rgbBk  [I] background color
1046  *     rgbFg  [I] foreground color
1047  *     fStyle [I] drawing flags
1048  *
1049  * RETURNS
1050  *     Success: TRUE
1051  *     Failure: FALSE
1052  *
1053  * NOTES
1054  *     Calls ImageList_DrawIndirect.
1055  *
1056  * SEE
1057  *     ImageList_DrawIndirect.
1058  */
1059
1060 BOOL WINAPI
1061 ImageList_DrawEx (HIMAGELIST himl, INT i, HDC hdc, INT x, INT y,
1062                   INT dx, INT dy, COLORREF rgbBk, COLORREF rgbFg,
1063                   UINT fStyle)
1064 {
1065     IMAGELISTDRAWPARAMS imldp;
1066
1067     ZeroMemory (&imldp, sizeof(imldp));
1068     imldp.cbSize  = sizeof(imldp);
1069     imldp.himl    = himl;
1070     imldp.i       = i;
1071     imldp.hdcDst  = hdc,
1072     imldp.x       = x;
1073     imldp.y       = y;
1074     imldp.cx      = dx;
1075     imldp.cy      = dy;
1076     imldp.rgbBk   = rgbBk;
1077     imldp.rgbFg   = rgbFg;
1078     imldp.fStyle  = fStyle;
1079
1080     return ImageList_DrawIndirect (&imldp);
1081 }
1082
1083
1084 /*************************************************************************
1085  * ImageList_DrawIndirect [COMCTL32.@]
1086  *
1087  * Draws an image using various parameters specified in pimldp.
1088  *
1089  * PARAMS
1090  *     pimldp [I] pointer to IMAGELISTDRAWPARAMS structure.
1091  *
1092  * RETURNS
1093  *     Success: TRUE
1094  *     Failure: FALSE
1095  */
1096
1097 BOOL WINAPI
1098 ImageList_DrawIndirect (IMAGELISTDRAWPARAMS *pimldp)
1099 {
1100     INT cx, cy, nOvlIdx;
1101     DWORD fState, dwRop;
1102     UINT fStyle;
1103     COLORREF oldImageBk, oldImageFg;
1104     HDC hImageDC, hImageListDC, hMaskListDC;
1105     HBITMAP hImageBmp, hOldImageBmp, hBlendMaskBmp;
1106     BOOL bIsTransparent, bBlend, bResult = FALSE, bMask;
1107     HIMAGELIST himl;
1108     POINT pt;
1109
1110     if (!pimldp || !(himl = pimldp->himl)) return FALSE;
1111     if (!is_valid(himl)) return FALSE;
1112     if ((pimldp->i < 0) || (pimldp->i >= himl->cCurImage)) return FALSE;
1113
1114     imagelist_point_from_index( himl, pimldp->i, &pt );
1115     pt.x += pimldp->xBitmap;
1116     pt.y += pimldp->yBitmap;
1117
1118     fState = pimldp->cbSize < sizeof(IMAGELISTDRAWPARAMS) ? ILS_NORMAL : pimldp->fState;
1119     fStyle = pimldp->fStyle & ~ILD_OVERLAYMASK;
1120     cx = (pimldp->cx == 0) ? himl->cx : pimldp->cx;
1121     cy = (pimldp->cy == 0) ? himl->cy : pimldp->cy;
1122
1123     bIsTransparent = (fStyle & ILD_TRANSPARENT);
1124     if( pimldp->rgbBk == CLR_NONE )
1125         bIsTransparent = TRUE;
1126     if( ( pimldp->rgbBk == CLR_DEFAULT ) && ( himl->clrBk == CLR_NONE ) )
1127         bIsTransparent = TRUE;
1128     bMask = (himl->flags & ILC_MASK) && (fStyle & ILD_MASK) ;
1129     bBlend = (fStyle & (ILD_BLEND25 | ILD_BLEND50) ) && !bMask;
1130
1131     TRACE("himl(%p) hbmMask(%p) iImage(%d) x(%d) y(%d) cx(%d) cy(%d)\n",
1132           himl, himl->hbmMask, pimldp->i, pimldp->x, pimldp->y, cx, cy);
1133
1134     /* we will use these DCs to access the images and masks in the ImageList */
1135     hImageListDC = himl->hdcImage;
1136     hMaskListDC  = himl->hdcMask;
1137
1138     /* these will accumulate the image and mask for the image we're drawing */
1139     hImageDC = CreateCompatibleDC( pimldp->hdcDst );
1140     hImageBmp = CreateCompatibleBitmap( pimldp->hdcDst, cx, cy );
1141     hBlendMaskBmp = bBlend ? CreateBitmap(cx, cy, 1, 1, NULL) : 0;
1142
1143     /* Create a compatible DC. */
1144     if (!hImageListDC || !hImageDC || !hImageBmp ||
1145         (bBlend && !hBlendMaskBmp) || (himl->hbmMask && !hMaskListDC))
1146         goto cleanup;
1147     
1148     hOldImageBmp = SelectObject(hImageDC, hImageBmp);
1149   
1150     /*
1151      * To obtain a transparent look, background color should be set
1152      * to white and foreground color to black when blting the
1153      * monochrome mask.
1154      */
1155     oldImageFg = SetTextColor( hImageDC, RGB( 0, 0, 0 ) );
1156     oldImageBk = SetBkColor( hImageDC, RGB( 0xff, 0xff, 0xff ) );
1157
1158     /*
1159      * Draw the initial image
1160      */
1161     if( bMask ) {
1162         if (himl->hbmMask) {
1163             HBRUSH hOldBrush;
1164             hOldBrush = SelectObject (hImageDC, CreateSolidBrush (GetTextColor(pimldp->hdcDst)));
1165             PatBlt( hImageDC, 0, 0, cx, cy, PATCOPY );
1166             BitBlt(hImageDC, 0, 0, cx, cy, hMaskListDC, pt.x, pt.y, SRCPAINT);
1167             DeleteObject (SelectObject (hImageDC, hOldBrush));
1168             if( bIsTransparent )
1169             {
1170                 BitBlt ( pimldp->hdcDst, pimldp->x,  pimldp->y, cx, cy, hImageDC, 0, 0, SRCAND);
1171                 bResult = TRUE;
1172                 goto end;
1173             }
1174         } else {
1175             HBRUSH hOldBrush = SelectObject (hImageDC, GetStockObject(BLACK_BRUSH));
1176             PatBlt( hImageDC, 0, 0, cx, cy, PATCOPY);
1177             SelectObject(hImageDC, hOldBrush);
1178         }
1179     } else {
1180         /* blend the image with the needed solid background */
1181         COLORREF colour = RGB(0,0,0);
1182         HBRUSH hOldBrush;
1183
1184         if( !bIsTransparent )
1185         {
1186             colour = pimldp->rgbBk;
1187             if( colour == CLR_DEFAULT )
1188                 colour = himl->clrBk;
1189             if( colour == CLR_NONE )
1190                 colour = GetBkColor(pimldp->hdcDst);
1191         }
1192
1193         hOldBrush = SelectObject (hImageDC, CreateSolidBrush (colour));
1194         PatBlt( hImageDC, 0, 0, cx, cy, PATCOPY );
1195         if (himl->hbmMask)
1196         {
1197             BitBlt( hImageDC, 0, 0, cx, cy, hMaskListDC, pt.x, pt.y, SRCAND );
1198             BitBlt( hImageDC, 0, 0, cx, cy, hImageListDC, pt.x, pt.y, SRCPAINT );
1199         }
1200         else
1201             BitBlt( hImageDC, 0, 0, cx, cy, hImageListDC, pt.x, pt.y, SRCCOPY);
1202         DeleteObject (SelectObject (hImageDC, hOldBrush));
1203     }
1204
1205     /* Time for blending, if required */
1206     if (bBlend) {
1207         HBRUSH hBlendBrush, hOldBrush;
1208         COLORREF clrBlend = pimldp->rgbFg;
1209         HDC hBlendMaskDC = hImageListDC;
1210         HBITMAP hOldBitmap;
1211
1212         /* Create the blend Mask */
1213         hOldBitmap = SelectObject(hBlendMaskDC, hBlendMaskBmp);
1214         hBlendBrush = fStyle & ILD_BLEND50 ? himl->hbrBlend50 : himl->hbrBlend25;
1215         hOldBrush = (HBRUSH) SelectObject(hBlendMaskDC, hBlendBrush);
1216         PatBlt(hBlendMaskDC, 0, 0, cx, cy, PATCOPY);
1217         SelectObject(hBlendMaskDC, hOldBrush);
1218
1219         /* Modify the blend mask if an Image Mask exist */
1220         if(himl->hbmMask) {
1221             BitBlt(hBlendMaskDC, 0, 0, cx, cy, hMaskListDC, pt.x, pt.y, 0x220326); /* NOTSRCAND */
1222             BitBlt(hBlendMaskDC, 0, 0, cx, cy, hBlendMaskDC, 0, 0, NOTSRCCOPY);
1223         }
1224
1225         /* now apply blend to the current image given the BlendMask */
1226         if (clrBlend == CLR_DEFAULT) clrBlend = GetSysColor (COLOR_HIGHLIGHT);
1227         else if (clrBlend == CLR_NONE) clrBlend = GetTextColor (pimldp->hdcDst);
1228         hOldBrush = (HBRUSH) SelectObject (hImageDC, CreateSolidBrush(clrBlend));
1229         BitBlt (hImageDC, 0, 0, cx, cy, hBlendMaskDC, 0, 0, 0xB8074A); /* PSDPxax */
1230         DeleteObject(SelectObject(hImageDC, hOldBrush));
1231         SelectObject(hBlendMaskDC, hOldBitmap);
1232     }
1233
1234     /* Now do the overlay image, if any */
1235     nOvlIdx = (pimldp->fStyle & ILD_OVERLAYMASK) >> 8;
1236     if ( (nOvlIdx >= 1) && (nOvlIdx <= MAX_OVERLAYIMAGE)) {
1237         nOvlIdx = himl->nOvlIdx[nOvlIdx - 1];
1238         if ((nOvlIdx >= 0) && (nOvlIdx < himl->cCurImage)) {
1239             POINT ptOvl;
1240             imagelist_point_from_index( himl, nOvlIdx, &ptOvl );
1241             ptOvl.x += pimldp->xBitmap;
1242             if (himl->hbmMask && !(fStyle & ILD_IMAGE))
1243                 BitBlt (hImageDC, 0, 0, cx, cy, hMaskListDC, ptOvl.x, ptOvl.y, SRCAND);
1244             BitBlt (hImageDC, 0, 0, cx, cy, hImageListDC, ptOvl.x, ptOvl.y, SRCPAINT);
1245         }
1246     }
1247
1248     if (fState & ILS_SATURATE) FIXME("ILS_SATURATE: unimplemented!\n");
1249     if (fState & ILS_GLOW) FIXME("ILS_GLOW: unimplemented!\n");
1250     if (fState & ILS_SHADOW) FIXME("ILS_SHADOW: unimplemented!\n");
1251     if (fState & ILS_ALPHA) FIXME("ILS_ALPHA: unimplemented!\n");
1252
1253     if (fStyle & ILD_PRESERVEALPHA) FIXME("ILD_PRESERVEALPHA: unimplemented!\n");
1254     if (fStyle & ILD_SCALE) FIXME("ILD_SCALE: unimplemented!\n");
1255     if (fStyle & ILD_DPISCALE) FIXME("ILD_DPISCALE: unimplemented!\n");
1256
1257     /* now copy the image to the screen */
1258     dwRop = SRCCOPY;
1259     if (himl->hbmMask && bIsTransparent ) {
1260         COLORREF oldDstFg = SetTextColor(pimldp->hdcDst, RGB( 0, 0, 0 ) );
1261         COLORREF oldDstBk = SetBkColor(pimldp->hdcDst, RGB( 0xff, 0xff, 0xff ));
1262         BitBlt (pimldp->hdcDst, pimldp->x,  pimldp->y, cx, cy, hMaskListDC, pt.x, pt.y, SRCAND);
1263         SetBkColor(pimldp->hdcDst, oldDstBk);
1264         SetTextColor(pimldp->hdcDst, oldDstFg);
1265         dwRop = SRCPAINT;
1266     }
1267     if (fStyle & ILD_ROP) dwRop = pimldp->dwRop;
1268     BitBlt (pimldp->hdcDst, pimldp->x,  pimldp->y, cx, cy, hImageDC, 0, 0, dwRop);
1269
1270     bResult = TRUE;
1271 end:
1272     /* cleanup the mess */
1273     SetBkColor(hImageDC, oldImageBk);
1274     SetTextColor(hImageDC, oldImageFg);
1275     SelectObject(hImageDC, hOldImageBmp);
1276 cleanup:
1277     DeleteObject(hBlendMaskBmp);
1278     DeleteObject(hImageBmp);
1279     DeleteDC(hImageDC);
1280
1281     return bResult;
1282 }
1283
1284
1285 /*************************************************************************
1286  * ImageList_Duplicate [COMCTL32.@]
1287  *
1288  * Duplicates an image list.
1289  *
1290  * PARAMS
1291  *     himlSrc [I] source image list handle
1292  *
1293  * RETURNS
1294  *     Success: Handle of duplicated image list.
1295  *     Failure: NULL
1296  */
1297
1298 HIMAGELIST WINAPI
1299 ImageList_Duplicate (HIMAGELIST himlSrc)
1300 {
1301     HIMAGELIST himlDst;
1302
1303     if (!is_valid(himlSrc)) {
1304         ERR("Invalid image list handle!\n");
1305         return NULL;
1306     }
1307
1308     himlDst = ImageList_Create (himlSrc->cx, himlSrc->cy, himlSrc->flags,
1309                                 himlSrc->cInitial, himlSrc->cGrow);
1310
1311     if (himlDst)
1312     {
1313         SIZE sz;
1314
1315         imagelist_get_bitmap_size(himlSrc, himlSrc->cCurImage, himlSrc->cx, &sz);
1316         BitBlt (himlDst->hdcImage, 0, 0, sz.cx, sz.cy,
1317                 himlSrc->hdcImage, 0, 0, SRCCOPY);
1318
1319         if (himlDst->hbmMask)
1320             BitBlt (himlDst->hdcMask, 0, 0, sz.cx, sz.cy,
1321                     himlSrc->hdcMask, 0, 0, SRCCOPY);
1322
1323         himlDst->cCurImage = himlSrc->cCurImage;
1324         himlDst->cMaxImage = himlSrc->cMaxImage;
1325     }
1326     return himlDst;
1327 }
1328
1329
1330 /*************************************************************************
1331  * ImageList_EndDrag [COMCTL32.@]
1332  *
1333  * Finishes a drag operation.
1334  *
1335  * PARAMS
1336  *     no Parameters
1337  *
1338  * RETURNS
1339  *     Success: TRUE
1340  *     Failure: FALSE
1341  */
1342
1343 VOID WINAPI
1344 ImageList_EndDrag (void)
1345 {
1346     /* cleanup the InternalDrag struct */
1347     InternalDrag.hwnd = 0;
1348     ImageList_Destroy (InternalDrag.himl);
1349     InternalDrag.himl = 0;
1350     InternalDrag.x= 0;
1351     InternalDrag.y= 0;
1352     InternalDrag.dxHotspot = 0;
1353     InternalDrag.dyHotspot = 0;
1354     InternalDrag.bShow = FALSE;
1355     DeleteObject(InternalDrag.hbmBg);
1356     InternalDrag.hbmBg = 0;
1357 }
1358
1359
1360 /*************************************************************************
1361  * ImageList_GetBkColor [COMCTL32.@]
1362  *
1363  * Returns the background color of an image list.
1364  *
1365  * PARAMS
1366  *     himl [I] Image list handle.
1367  *
1368  * RETURNS
1369  *     Success: background color
1370  *     Failure: CLR_NONE
1371  */
1372
1373 COLORREF WINAPI
1374 ImageList_GetBkColor (HIMAGELIST himl)
1375 {
1376     return himl ? himl->clrBk : CLR_NONE;
1377 }
1378
1379
1380 /*************************************************************************
1381  * ImageList_GetDragImage [COMCTL32.@]
1382  *
1383  * Returns the handle to the internal drag image list.
1384  *
1385  * PARAMS
1386  *     ppt        [O] Pointer to the drag position. Can be NULL.
1387  *     pptHotspot [O] Pointer to the position of the hot spot. Can be NULL.
1388  *
1389  * RETURNS
1390  *     Success: Handle of the drag image list.
1391  *     Failure: NULL.
1392  */
1393
1394 HIMAGELIST WINAPI
1395 ImageList_GetDragImage (POINT *ppt, POINT *pptHotspot)
1396 {
1397     if (is_valid(InternalDrag.himl)) {
1398         if (ppt) {
1399             ppt->x = InternalDrag.x;
1400             ppt->y = InternalDrag.y;
1401         }
1402         if (pptHotspot) {
1403             pptHotspot->x = InternalDrag.dxHotspot;
1404             pptHotspot->y = InternalDrag.dyHotspot;
1405         }
1406         return (InternalDrag.himl);
1407     }
1408
1409     return NULL;
1410 }
1411
1412
1413 /*************************************************************************
1414  * ImageList_GetFlags [COMCTL32.@]
1415  *
1416  * Gets the flags of the specified image list.
1417  *
1418  * PARAMS
1419  *     himl [I] Handle to image list
1420  *
1421  * RETURNS
1422  *     Image list flags.
1423  *
1424  * BUGS
1425  *    Stub.
1426  */
1427
1428 DWORD WINAPI
1429 ImageList_GetFlags(HIMAGELIST himl)
1430 {
1431     TRACE("%p\n", himl);
1432
1433     return is_valid(himl) ? himl->flags : 0;
1434 }
1435
1436
1437 /*************************************************************************
1438  * ImageList_GetIcon [COMCTL32.@]
1439  *
1440  * Creates an icon from a masked image of an image list.
1441  *
1442  * PARAMS
1443  *     himl  [I] handle to image list
1444  *     i     [I] image index
1445  *     flags [I] drawing style flags
1446  *
1447  * RETURNS
1448  *     Success: icon handle
1449  *     Failure: NULL
1450  */
1451
1452 HICON WINAPI
1453 ImageList_GetIcon (HIMAGELIST himl, INT i, UINT fStyle)
1454 {
1455     ICONINFO ii;
1456     HICON hIcon;
1457     HBITMAP hOldDstBitmap;
1458     HDC hdcDst;
1459     POINT pt;
1460
1461     TRACE("%p %d %d\n", himl, i, fStyle);
1462     if (!is_valid(himl) || (i < 0) || (i >= himl->cCurImage)) return NULL;
1463
1464     ii.fIcon = TRUE;
1465     ii.xHotspot = 0;
1466     ii.yHotspot = 0;
1467
1468     /* create colour bitmap */
1469     hdcDst = GetDC(0);
1470     ii.hbmColor = CreateCompatibleBitmap(hdcDst, himl->cx, himl->cy);
1471     ReleaseDC(0, hdcDst);
1472
1473     hdcDst = CreateCompatibleDC(0);
1474
1475     imagelist_point_from_index( himl, i, &pt );
1476
1477     /* draw mask*/
1478     ii.hbmMask  = CreateBitmap (himl->cx, himl->cy, 1, 1, NULL);
1479     hOldDstBitmap = SelectObject (hdcDst, ii.hbmMask);
1480     if (himl->hbmMask) {
1481         BitBlt (hdcDst, 0, 0, himl->cx, himl->cy,
1482                 himl->hdcMask, pt.x, pt.y, SRCCOPY);
1483     }
1484     else
1485         PatBlt (hdcDst, 0, 0, himl->cx, himl->cy, BLACKNESS);
1486
1487     /* draw image*/
1488     SelectObject (hdcDst, ii.hbmColor);
1489     BitBlt (hdcDst, 0, 0, himl->cx, himl->cy,
1490             himl->hdcImage, pt.x, pt.y, SRCCOPY);
1491
1492     /*
1493      * CreateIconIndirect requires us to deselect the bitmaps from
1494      * the DCs before calling
1495      */
1496     SelectObject(hdcDst, hOldDstBitmap);
1497
1498     hIcon = CreateIconIndirect (&ii);
1499
1500     DeleteObject (ii.hbmMask);
1501     DeleteObject (ii.hbmColor);
1502     DeleteDC (hdcDst);
1503
1504     return hIcon;
1505 }
1506
1507
1508 /*************************************************************************
1509  * ImageList_GetIconSize [COMCTL32.@]
1510  *
1511  * Retrieves the size of an image in an image list.
1512  *
1513  * PARAMS
1514  *     himl [I] handle to image list
1515  *     cx   [O] pointer to the image width.
1516  *     cy   [O] pointer to the image height.
1517  *
1518  * RETURNS
1519  *     Success: TRUE
1520  *     Failure: FALSE
1521  *
1522  * NOTES
1523  *     All images in an image list have the same size.
1524  */
1525
1526 BOOL WINAPI
1527 ImageList_GetIconSize (HIMAGELIST himl, INT *cx, INT *cy)
1528 {
1529     if (!is_valid(himl))
1530         return FALSE;
1531     if ((himl->cx <= 0) || (himl->cy <= 0))
1532         return FALSE;
1533
1534     if (cx)
1535         *cx = himl->cx;
1536     if (cy)
1537         *cy = himl->cy;
1538
1539     return TRUE;
1540 }
1541
1542
1543 /*************************************************************************
1544  * ImageList_GetImageCount [COMCTL32.@]
1545  *
1546  * Returns the number of images in an image list.
1547  *
1548  * PARAMS
1549  *     himl [I] handle to image list
1550  *
1551  * RETURNS
1552  *     Success: Number of images.
1553  *     Failure: 0
1554  */
1555
1556 INT WINAPI
1557 ImageList_GetImageCount (HIMAGELIST himl)
1558 {
1559     if (!is_valid(himl))
1560         return 0;
1561
1562     return himl->cCurImage;
1563 }
1564
1565
1566 /*************************************************************************
1567  * ImageList_GetImageInfo [COMCTL32.@]
1568  *
1569  * Returns information about an image in an image list.
1570  *
1571  * PARAMS
1572  *     himl       [I] handle to image list
1573  *     i          [I] image index
1574  *     pImageInfo [O] pointer to the image information
1575  *
1576  * RETURNS
1577  *     Success: TRUE
1578  *     Failure: FALSE
1579  */
1580
1581 BOOL WINAPI
1582 ImageList_GetImageInfo (HIMAGELIST himl, INT i, IMAGEINFO *pImageInfo)
1583 {
1584     POINT pt;
1585
1586     if (!is_valid(himl) || (pImageInfo == NULL))
1587         return FALSE;
1588     if ((i < 0) || (i >= himl->cCurImage))
1589         return FALSE;
1590
1591     pImageInfo->hbmImage = himl->hbmImage;
1592     pImageInfo->hbmMask  = himl->hbmMask;
1593
1594     imagelist_point_from_index( himl, i, &pt );
1595     pImageInfo->rcImage.top    = pt.y;
1596     pImageInfo->rcImage.bottom = pt.y + himl->cy;
1597     pImageInfo->rcImage.left   = pt.x;
1598     pImageInfo->rcImage.right  = pt.x + himl->cx;
1599
1600     return TRUE;
1601 }
1602
1603
1604 /*************************************************************************
1605  * ImageList_GetImageRect [COMCTL32.@]
1606  *
1607  * Retrieves the rectangle of the specified image in an image list.
1608  *
1609  * PARAMS
1610  *     himl   [I] handle to image list
1611  *     i      [I] image index
1612  *     lpRect [O] pointer to the image rectangle
1613  *
1614  * RETURNS
1615  *    Success: TRUE
1616  *    Failure: FALSE
1617  *
1618  * NOTES
1619  *    This is an UNDOCUMENTED function!!!
1620  */
1621
1622 BOOL WINAPI
1623 ImageList_GetImageRect (HIMAGELIST himl, INT i, LPRECT lpRect)
1624 {
1625     POINT pt;
1626
1627     if (!is_valid(himl) || (lpRect == NULL))
1628         return FALSE;
1629     if ((i < 0) || (i >= himl->cCurImage))
1630         return FALSE;
1631
1632     imagelist_point_from_index( himl, i, &pt );
1633     lpRect->left   = pt.x;
1634     lpRect->top    = pt.y;
1635     lpRect->right  = pt.x + himl->cx;
1636     lpRect->bottom = pt.y + himl->cy;
1637
1638     return TRUE;
1639 }
1640
1641
1642 /*************************************************************************
1643  * ImageList_LoadImage  [COMCTL32.@]
1644  * ImageList_LoadImageA [COMCTL32.@]
1645  *
1646  * Creates an image list from a bitmap, icon or cursor.
1647  *
1648  * See ImageList_LoadImageW.
1649  */
1650
1651 HIMAGELIST WINAPI
1652 ImageList_LoadImageA (HINSTANCE hi, LPCSTR lpbmp, INT cx, INT cGrow,
1653                         COLORREF clrMask, UINT uType, UINT uFlags)
1654 {
1655     HIMAGELIST himl;
1656     LPWSTR lpbmpW;
1657     DWORD len;
1658
1659     if (!HIWORD(lpbmp))
1660         return ImageList_LoadImageW(hi, (LPCWSTR)lpbmp, cx, cGrow, clrMask,
1661                                     uType, uFlags);
1662
1663     len = MultiByteToWideChar(CP_ACP, 0, lpbmp, -1, NULL, 0);
1664     lpbmpW = Alloc(len * sizeof(WCHAR));
1665     MultiByteToWideChar(CP_ACP, 0, lpbmp, -1, lpbmpW, len);
1666
1667     himl = ImageList_LoadImageW(hi, lpbmpW, cx, cGrow, clrMask, uType, uFlags);
1668     Free (lpbmpW);
1669     return himl;
1670 }
1671
1672
1673 /*************************************************************************
1674  * ImageList_LoadImageW [COMCTL32.@]
1675  *
1676  * Creates an image list from a bitmap, icon or cursor.
1677  *
1678  * PARAMS
1679  *     hi      [I] instance handle
1680  *     lpbmp   [I] name or id of the image
1681  *     cx      [I] width of each image
1682  *     cGrow   [I] number of images to expand
1683  *     clrMask [I] mask color
1684  *     uType   [I] type of image to load
1685  *     uFlags  [I] loading flags
1686  *
1687  * RETURNS
1688  *     Success: handle to the loaded image list
1689  *     Failure: NULL
1690  *
1691  * SEE
1692  *     LoadImage ()
1693  */
1694
1695 HIMAGELIST WINAPI
1696 ImageList_LoadImageW (HINSTANCE hi, LPCWSTR lpbmp, INT cx, INT cGrow,
1697                       COLORREF clrMask, UINT uType, UINT uFlags)
1698 {
1699     HIMAGELIST himl = NULL;
1700     HANDLE   handle;
1701     INT      nImageCount;
1702
1703     handle = LoadImageW (hi, lpbmp, uType, 0, 0, uFlags);
1704     if (!handle) {
1705         WARN("Couldn't load image\n");
1706         return NULL;
1707     }
1708
1709     if (uType == IMAGE_BITMAP) {
1710         BITMAP bmp;
1711         GetObjectW (handle, sizeof(BITMAP), &bmp);
1712
1713         /* To match windows behavior, if cx is set to zero and
1714          the flag DI_DEFAULTSIZE is specified, cx becomes the
1715          system metric value for icons. If the flag is not specified
1716          the function sets the size to the height of the bitmap */
1717         if (cx == 0)
1718         {
1719             if (uFlags & DI_DEFAULTSIZE)
1720                 cx = GetSystemMetrics (SM_CXICON);
1721             else
1722                 cx = bmp.bmHeight;
1723         }
1724
1725         nImageCount = bmp.bmWidth / cx;
1726
1727         himl = ImageList_Create (cx, bmp.bmHeight, ILC_MASK | ILC_COLOR,
1728                                  nImageCount, cGrow);
1729         if (!himl) {
1730             DeleteObject (handle);
1731             return NULL;
1732         }
1733         ImageList_AddMasked (himl, (HBITMAP)handle, clrMask);
1734     }
1735     else if ((uType == IMAGE_ICON) || (uType == IMAGE_CURSOR)) {
1736         ICONINFO ii;
1737         BITMAP bmp;
1738
1739         GetIconInfo (handle, &ii);
1740         GetObjectW (ii.hbmColor, sizeof(BITMAP), (LPVOID)&bmp);
1741         himl = ImageList_Create (bmp.bmWidth, bmp.bmHeight,
1742                                  ILC_MASK | ILC_COLOR, 1, cGrow);
1743         if (!himl) {
1744             DeleteObject (ii.hbmColor);
1745             DeleteObject (ii.hbmMask);
1746             DeleteObject (handle);
1747             return NULL;
1748         }
1749         ImageList_Add (himl, ii.hbmColor, ii.hbmMask);
1750         DeleteObject (ii.hbmColor);
1751         DeleteObject (ii.hbmMask);
1752     }
1753
1754     DeleteObject (handle);
1755
1756     return himl;
1757 }
1758
1759
1760 /*************************************************************************
1761  * ImageList_Merge [COMCTL32.@]
1762  *
1763  * Create an image list containing a merged image from two image lists.
1764  *
1765  * PARAMS
1766  *     himl1 [I] handle to first image list
1767  *     i1    [I] first image index
1768  *     himl2 [I] handle to second image list
1769  *     i2    [I] second image index
1770  *     dx    [I] X offset of the second image relative to the first.
1771  *     dy    [I] Y offset of the second image relative to the first.
1772  *
1773  * RETURNS
1774  *     Success: The newly created image list. It contains a single image
1775  *              consisting of the second image merged with the first.
1776  *     Failure: NULL, if either himl1 or himl2 are invalid.
1777  *
1778  * NOTES
1779  *   - The returned image list should be deleted by the caller using
1780  *     ImageList_Destroy() when it is no longer required.
1781  *   - If either i1 or i2 are not valid image indices they will be treated
1782  *     as a blank image.
1783  */
1784 HIMAGELIST WINAPI
1785 ImageList_Merge (HIMAGELIST himl1, INT i1, HIMAGELIST himl2, INT i2,
1786                  INT dx, INT dy)
1787 {
1788     HIMAGELIST himlDst = NULL;
1789     INT      cxDst, cyDst;
1790     INT      xOff1, yOff1, xOff2, yOff2;
1791     POINT    pt1, pt2;
1792
1793     TRACE("(himl1=%p i1=%d himl2=%p i2=%d dx=%d dy=%d)\n", himl1, i1, himl2,
1794            i2, dx, dy);
1795
1796     if (!is_valid(himl1) || !is_valid(himl2))
1797         return NULL;
1798
1799     if (dx > 0) {
1800         cxDst = max (himl1->cx, dx + himl2->cx);
1801         xOff1 = 0;
1802         xOff2 = dx;
1803     }
1804     else if (dx < 0) {
1805         cxDst = max (himl2->cx, himl1->cx - dx);
1806         xOff1 = -dx;
1807         xOff2 = 0;
1808     }
1809     else {
1810         cxDst = max (himl1->cx, himl2->cx);
1811         xOff1 = 0;
1812         xOff2 = 0;
1813     }
1814
1815     if (dy > 0) {
1816         cyDst = max (himl1->cy, dy + himl2->cy);
1817         yOff1 = 0;
1818         yOff2 = dy;
1819     }
1820     else if (dy < 0) {
1821         cyDst = max (himl2->cy, himl1->cy - dy);
1822         yOff1 = -dy;
1823         yOff2 = 0;
1824     }
1825     else {
1826         cyDst = max (himl1->cy, himl2->cy);
1827         yOff1 = 0;
1828         yOff2 = 0;
1829     }
1830
1831     himlDst = ImageList_Create (cxDst, cyDst, ILC_MASK | ILC_COLOR, 1, 1);
1832
1833     if (himlDst)
1834     {
1835         imagelist_point_from_index( himl1, i1, &pt1 );
1836         imagelist_point_from_index( himl1, i2, &pt2 );
1837
1838         /* copy image */
1839         BitBlt (himlDst->hdcImage, 0, 0, cxDst, cyDst, himl1->hdcImage, 0, 0, BLACKNESS);
1840         if (i1 >= 0 && i1 < himl1->cCurImage)
1841             BitBlt (himlDst->hdcImage, xOff1, yOff1, himl1->cx, himl1->cy, himl1->hdcImage, pt1.x, pt1.y, SRCCOPY);
1842         if (i2 >= 0 && i2 < himl2->cCurImage)
1843         {
1844             BitBlt (himlDst->hdcImage, xOff2, yOff2, himl2->cx, himl2->cy, himl2->hdcMask , pt2.x, pt2.y, SRCAND);
1845             BitBlt (himlDst->hdcImage, xOff2, yOff2, himl2->cx, himl2->cy, himl2->hdcImage, pt2.x, pt2.y, SRCPAINT);
1846         }
1847
1848         /* copy mask */
1849         BitBlt (himlDst->hdcMask, 0, 0, cxDst, cyDst, himl1->hdcMask, 0, 0, WHITENESS);
1850         if (i1 >= 0 && i1 < himl1->cCurImage)
1851             BitBlt (himlDst->hdcMask,  xOff1, yOff1, himl1->cx, himl1->cy, himl1->hdcMask,  pt1.x, pt1.y, SRCCOPY);
1852         if (i2 >= 0 && i2 < himl2->cCurImage)
1853             BitBlt (himlDst->hdcMask,  xOff2, yOff2, himl2->cx, himl2->cy, himl2->hdcMask,  pt2.x, pt2.y, SRCAND);
1854
1855         himlDst->cCurImage = 1;
1856     }
1857
1858     return himlDst;
1859 }
1860
1861
1862 /***********************************************************************
1863  *           DIB_GetDIBWidthBytes
1864  *
1865  * Return the width of a DIB bitmap in bytes. DIB bitmap data is 32-bit aligned.
1866  */
1867 static int DIB_GetDIBWidthBytes( int width, int depth )
1868 {
1869     int words;
1870
1871     switch(depth)
1872     {
1873     case 1:  words = (width + 31) / 32; break;
1874     case 4:  words = (width + 7) / 8; break;
1875     case 8:  words = (width + 3) / 4; break;
1876     case 15:
1877     case 16: words = (width + 1) / 2; break;
1878     case 24: words = (width * 3 + 3)/4; break;
1879
1880     default:
1881         WARN("(%d): Unsupported depth\n", depth );
1882         /* fall through */
1883     case 32:
1884         words = width;
1885         break;
1886     }
1887     return 4 * words;
1888 }
1889
1890 /***********************************************************************
1891  *           DIB_GetDIBImageBytes
1892  *
1893  * Return the number of bytes used to hold the image in a DIB bitmap.
1894  */
1895 static int DIB_GetDIBImageBytes( int width, int height, int depth )
1896 {
1897     return DIB_GetDIBWidthBytes( width, depth ) * abs( height );
1898 }
1899
1900
1901 /* helper for ImageList_Read, see comments below */
1902 static BOOL _read_bitmap(HIMAGELIST himl, HDC hdcIml, LPSTREAM pstm)
1903 {
1904     BITMAPFILEHEADER    bmfh;
1905     int bitsperpixel, palspace;
1906     char bmi_buf[sizeof(BITMAPINFOHEADER) + sizeof(RGBQUAD) * 256];
1907     LPBITMAPINFO bmi = (LPBITMAPINFO)bmi_buf;
1908     int                result = FALSE;
1909     LPBYTE             bits = NULL;
1910
1911     if (!SUCCEEDED(IStream_Read ( pstm, &bmfh, sizeof(bmfh), NULL)))
1912         return FALSE;
1913
1914     if (bmfh.bfType != (('M'<<8)|'B'))
1915         return FALSE;
1916
1917     if (!SUCCEEDED(IStream_Read ( pstm, &bmi->bmiHeader, sizeof(bmi->bmiHeader), NULL)))
1918         return FALSE;
1919
1920     if ((bmi->bmiHeader.biSize != sizeof(bmi->bmiHeader)))
1921         return FALSE;
1922
1923     TRACE("width %u, height %u, planes %u, bpp %u\n",
1924           bmi->bmiHeader.biWidth, bmi->bmiHeader.biHeight,
1925           bmi->bmiHeader.biPlanes, bmi->bmiHeader.biBitCount);
1926
1927     bitsperpixel = bmi->bmiHeader.biPlanes * bmi->bmiHeader.biBitCount;
1928     if (bitsperpixel<=8)
1929         palspace = (1<<bitsperpixel)*sizeof(RGBQUAD);
1930     else
1931         palspace = 0;
1932
1933     bmi->bmiHeader.biSizeImage = DIB_GetDIBImageBytes(bmi->bmiHeader.biWidth, bmi->bmiHeader.biHeight, bitsperpixel);
1934
1935     /* read the palette right after the end of the bitmapinfoheader */
1936     if (palspace && !SUCCEEDED(IStream_Read(pstm, bmi->bmiColors, palspace, NULL)))
1937         goto error;
1938
1939     bits = Alloc(bmi->bmiHeader.biSizeImage);
1940     if (!bits)
1941         goto error;
1942     if (!SUCCEEDED(IStream_Read(pstm, bits, bmi->bmiHeader.biSizeImage, NULL)))
1943         goto error;
1944
1945     if (!StretchDIBits(hdcIml, 0, 0, bmi->bmiHeader.biWidth, bmi->bmiHeader.biHeight,
1946                   0, 0, bmi->bmiHeader.biWidth, bmi->bmiHeader.biHeight,
1947                   bits, bmi, DIB_RGB_COLORS, SRCCOPY))
1948         goto error;
1949     result = TRUE;
1950
1951 error:
1952     Free(bits);
1953     return result;
1954 }
1955
1956 /*************************************************************************
1957  * ImageList_Read [COMCTL32.@]
1958  *
1959  * Reads an image list from a stream.
1960  *
1961  * PARAMS
1962  *     pstm [I] pointer to a stream
1963  *
1964  * RETURNS
1965  *     Success: handle to image list
1966  *     Failure: NULL
1967  *
1968  * The format is like this:
1969  *      ILHEAD                  ilheadstruct;
1970  *
1971  * for the color image part:
1972  *      BITMAPFILEHEADER        bmfh;
1973  *      BITMAPINFOHEADER        bmih;
1974  * only if it has a palette:
1975  *      RGBQUAD         rgbs[nr_of_paletted_colors];
1976  *
1977  *      BYTE                    colorbits[imagesize];
1978  *
1979  * the following only if the ILC_MASK bit is set in ILHEAD.ilFlags:
1980  *      BITMAPFILEHEADER        bmfh_mask;
1981  *      BITMAPINFOHEADER        bmih_mask;
1982  * only if it has a palette (it usually does not):
1983  *      RGBQUAD         rgbs[nr_of_paletted_colors];
1984  *
1985  *      BYTE                    maskbits[imagesize];
1986  */
1987 HIMAGELIST WINAPI ImageList_Read (LPSTREAM pstm)
1988 {
1989     ILHEAD      ilHead;
1990     HIMAGELIST  himl;
1991     int         i;
1992
1993     TRACE("%p\n", pstm);
1994
1995     if (!SUCCEEDED(IStream_Read (pstm, &ilHead, sizeof(ILHEAD), NULL)))
1996         return NULL;
1997     if (ilHead.usMagic != (('L' << 8) | 'I'))
1998         return NULL;
1999     if (ilHead.usVersion != 0x101) /* probably version? */
2000         return NULL;
2001
2002     TRACE("cx %u, cy %u, flags 0x%04x, cCurImage %u, cMaxImage %u\n",
2003           ilHead.cx, ilHead.cy, ilHead.flags, ilHead.cCurImage, ilHead.cMaxImage);
2004
2005     himl = ImageList_Create(ilHead.cx, ilHead.cy, ilHead.flags, ilHead.cCurImage, ilHead.cMaxImage);
2006     if (!himl)
2007         return NULL;
2008
2009     if (!_read_bitmap(himl, himl->hdcImage, pstm))
2010     {
2011         WARN("failed to read bitmap from stream\n");
2012         return NULL;
2013     }
2014     if (ilHead.flags & ILC_MASK)
2015     {
2016         if (!_read_bitmap(himl, himl->hdcMask, pstm))
2017         {
2018             WARN("failed to read mask bitmap from stream\n");
2019             return NULL;
2020         }
2021     }
2022
2023     himl->cCurImage = ilHead.cCurImage;
2024     himl->cMaxImage = ilHead.cMaxImage;
2025
2026     ImageList_SetBkColor(himl,ilHead.bkcolor);
2027     for (i=0;i<4;i++)
2028         ImageList_SetOverlayImage(himl,ilHead.ovls[i],i+1);
2029     return himl;
2030 }
2031
2032
2033 /*************************************************************************
2034  * ImageList_Remove [COMCTL32.@]
2035  *
2036  * Removes an image from an image list
2037  *
2038  * PARAMS
2039  *     himl [I] image list handle
2040  *     i    [I] image index
2041  *
2042  * RETURNS
2043  *     Success: TRUE
2044  *     Failure: FALSE
2045  *
2046  * FIXME: as the image list storage test shows, native comctl32 simply shifts
2047  * images without creating a new bitmap.
2048  */
2049 BOOL WINAPI
2050 ImageList_Remove (HIMAGELIST himl, INT i)
2051 {
2052     HBITMAP hbmNewImage, hbmNewMask;
2053     HDC     hdcBmp;
2054     SIZE    sz;
2055
2056     TRACE("(himl=%p i=%d)\n", himl, i);
2057
2058     if (!is_valid(himl)) {
2059         ERR("Invalid image list handle!\n");
2060         return FALSE;
2061     }
2062
2063     if ((i < -1) || (i >= himl->cCurImage)) {
2064         TRACE("index out of range! %d\n", i);
2065         return FALSE;
2066     }
2067
2068     if (i == -1) {
2069         INT nCount;
2070
2071         /* remove all */
2072         if (himl->cCurImage == 0) {
2073             /* remove all on empty ImageList is allowed */
2074             TRACE("remove all on empty ImageList!\n");
2075             return TRUE;
2076         }
2077
2078         himl->cMaxImage = himl->cInitial + himl->cGrow - 1;
2079         himl->cCurImage = 0;
2080         for (nCount = 0; nCount < MAX_OVERLAYIMAGE; nCount++)
2081              himl->nOvlIdx[nCount] = -1;
2082
2083         hbmNewImage = ImageList_CreateImage(himl->hdcImage, himl, himl->cMaxImage, himl->cx);
2084         SelectObject (himl->hdcImage, hbmNewImage);
2085         DeleteObject (himl->hbmImage);
2086         himl->hbmImage = hbmNewImage;
2087
2088         if (himl->hbmMask) {
2089
2090             imagelist_get_bitmap_size(himl, himl->cMaxImage, himl->cx, &sz);
2091             hbmNewMask = CreateBitmap (sz.cx, sz.cy, 1, 1, NULL);
2092             SelectObject (himl->hdcMask, hbmNewMask);
2093             DeleteObject (himl->hbmMask);
2094             himl->hbmMask = hbmNewMask;
2095         }
2096     }
2097     else {
2098         /* delete one image */
2099         TRACE("Remove single image! %d\n", i);
2100
2101         /* create new bitmap(s) */
2102         TRACE(" - Number of images: %d / %d (Old/New)\n",
2103                  himl->cCurImage, himl->cCurImage - 1);
2104
2105         hbmNewImage = ImageList_CreateImage(himl->hdcImage, himl, himl->cMaxImage, himl->cx);
2106
2107         imagelist_get_bitmap_size(himl, himl->cMaxImage, himl->cx, &sz );
2108         if (himl->hbmMask)
2109             hbmNewMask = CreateBitmap (sz.cx, sz.cy, 1, 1, NULL);
2110         else
2111             hbmNewMask = 0;  /* Just to keep compiler happy! */
2112
2113         hdcBmp = CreateCompatibleDC (0);
2114
2115         /* copy all images and masks prior to the "removed" image */
2116         if (i > 0) {
2117             TRACE("Pre image copy: Copy %d images\n", i);
2118
2119             SelectObject (hdcBmp, hbmNewImage);
2120             imagelist_copy_images( himl, himl->hdcImage, hdcBmp, 0, i, 0 );
2121
2122             if (himl->hbmMask) {
2123                 SelectObject (hdcBmp, hbmNewMask);
2124                 imagelist_copy_images( himl, himl->hdcMask, hdcBmp, 0, i, 0 );
2125             }
2126         }
2127
2128         /* copy all images and masks behind the removed image */
2129         if (i < himl->cCurImage - 1) {
2130             TRACE("Post image copy!\n");
2131
2132             SelectObject (hdcBmp, hbmNewImage);
2133             imagelist_copy_images( himl, himl->hdcImage, hdcBmp, i + 1,
2134                                    (himl->cCurImage - i), i );
2135
2136             if (himl->hbmMask) {
2137                 SelectObject (hdcBmp, hbmNewMask);
2138                 imagelist_copy_images( himl, himl->hdcMask, hdcBmp, i + 1,
2139                                        (himl->cCurImage - i), i );
2140             }
2141         }
2142
2143         DeleteDC (hdcBmp);
2144
2145         /* delete old images and insert new ones */
2146         SelectObject (himl->hdcImage, hbmNewImage);
2147         DeleteObject (himl->hbmImage);
2148         himl->hbmImage = hbmNewImage;
2149         if (himl->hbmMask) {
2150             SelectObject (himl->hdcMask, hbmNewMask);
2151             DeleteObject (himl->hbmMask);
2152             himl->hbmMask = hbmNewMask;
2153         }
2154
2155         himl->cCurImage--;
2156     }
2157
2158     return TRUE;
2159 }
2160
2161
2162 /*************************************************************************
2163  * ImageList_Replace [COMCTL32.@]
2164  *
2165  * Replaces an image in an image list with a new image.
2166  *
2167  * PARAMS
2168  *     himl     [I] handle to image list
2169  *     i        [I] image index
2170  *     hbmImage [I] handle to image bitmap
2171  *     hbmMask  [I] handle to mask bitmap. Can be NULL.
2172  *
2173  * RETURNS
2174  *     Success: TRUE
2175  *     Failure: FALSE
2176  */
2177
2178 BOOL WINAPI
2179 ImageList_Replace (HIMAGELIST himl, INT i, HBITMAP hbmImage,
2180                    HBITMAP hbmMask)
2181 {
2182     HDC hdcImage;
2183     BITMAP bmp;
2184     HBITMAP hOldBitmap;
2185     POINT pt;
2186
2187     TRACE("%p %d %p %p\n", himl, i, hbmImage, hbmMask);
2188
2189     if (!is_valid(himl)) {
2190         ERR("Invalid image list handle!\n");
2191         return FALSE;
2192     }
2193
2194     if ((i >= himl->cMaxImage) || (i < 0)) {
2195         ERR("Invalid image index!\n");
2196         return FALSE;
2197     }
2198
2199     if (!GetObjectW(hbmImage, sizeof(BITMAP), (LPVOID)&bmp))
2200         return FALSE;
2201
2202     hdcImage = CreateCompatibleDC (0);
2203
2204     /* Replace Image */
2205     hOldBitmap = SelectObject (hdcImage, hbmImage);
2206
2207     imagelist_point_from_index(himl, i, &pt);
2208     StretchBlt (himl->hdcImage, pt.x, pt.y, himl->cx, himl->cy,
2209                   hdcImage, 0, 0, bmp.bmWidth, bmp.bmHeight, SRCCOPY);
2210
2211     if (himl->hbmMask)
2212     {
2213         HDC hdcTemp;
2214         HBITMAP hOldBitmapTemp;
2215
2216         hdcTemp   = CreateCompatibleDC(0);
2217         hOldBitmapTemp = SelectObject(hdcTemp, hbmMask);
2218
2219         StretchBlt (himl->hdcMask, pt.x, pt.y, himl->cx, himl->cy,
2220                       hdcTemp, 0, 0, bmp.bmWidth, bmp.bmHeight, SRCCOPY);
2221         SelectObject(hdcTemp, hOldBitmapTemp);
2222         DeleteDC(hdcTemp);
2223
2224         /* Remove the background from the image
2225         */
2226         BitBlt (himl->hdcImage, pt.x, pt.y, bmp.bmWidth, bmp.bmHeight,
2227                 himl->hdcMask, pt.x, pt.y, 0x220326); /* NOTSRCAND */
2228     }
2229
2230     SelectObject (hdcImage, hOldBitmap);
2231     DeleteDC (hdcImage);
2232
2233     return TRUE;
2234 }
2235
2236
2237 /*************************************************************************
2238  * ImageList_ReplaceIcon [COMCTL32.@]
2239  *
2240  * Replaces an image in an image list using an icon.
2241  *
2242  * PARAMS
2243  *     himl  [I] handle to image list
2244  *     i     [I] image index
2245  *     hIcon [I] handle to icon
2246  *
2247  * RETURNS
2248  *     Success: index of the replaced image
2249  *     Failure: -1
2250  */
2251
2252 INT WINAPI
2253 ImageList_ReplaceIcon (HIMAGELIST himl, INT nIndex, HICON hIcon)
2254 {
2255     HDC     hdcImage;
2256     HICON   hBestFitIcon;
2257     HBITMAP hbmOldSrc;
2258     ICONINFO  ii;
2259     BITMAP  bmp;
2260     BOOL    ret;
2261     POINT   pt;
2262
2263     TRACE("(%p %d %p)\n", himl, nIndex, hIcon);
2264
2265     if (!is_valid(himl)) {
2266         ERR("invalid image list\n");
2267         return -1;
2268     }
2269     if ((nIndex >= himl->cMaxImage) || (nIndex < -1)) {
2270         ERR("invalid image index %d / %d\n", nIndex, himl->cMaxImage);
2271         return -1;
2272     }
2273
2274     hBestFitIcon = CopyImage(
2275         hIcon, IMAGE_ICON,
2276         himl->cx, himl->cy,
2277         LR_COPYFROMRESOURCE);
2278     /* the above will fail if the icon wasn't loaded from a resource, so try
2279      * again without LR_COPYFROMRESOURCE flag */
2280     if (!hBestFitIcon)
2281         hBestFitIcon = CopyImage(
2282             hIcon, IMAGE_ICON,
2283             himl->cx, himl->cy,
2284             0);
2285     if (!hBestFitIcon)
2286         return -1;
2287
2288     ret = GetIconInfo (hBestFitIcon, &ii);
2289     if (!ret) {
2290         DestroyIcon(hBestFitIcon);
2291         return -1;
2292     }
2293
2294     ret = GetObjectW (ii.hbmMask, sizeof(BITMAP), (LPVOID)&bmp);
2295     if (!ret) {
2296         ERR("couldn't get mask bitmap info\n");
2297         if (ii.hbmColor)
2298             DeleteObject (ii.hbmColor);
2299         if (ii.hbmMask)
2300             DeleteObject (ii.hbmMask);
2301         DestroyIcon(hBestFitIcon);
2302         return -1;
2303     }
2304
2305     if (nIndex == -1) {
2306         if (himl->cCurImage + 1 > himl->cMaxImage)
2307             IMAGELIST_InternalExpandBitmaps (himl, 1, 0, 0);
2308
2309         nIndex = himl->cCurImage;
2310         himl->cCurImage++;
2311     }
2312
2313     hdcImage = CreateCompatibleDC (0);
2314     TRACE("hdcImage=%p\n", hdcImage);
2315     if (hdcImage == 0)
2316         ERR("invalid hdcImage!\n");
2317
2318     imagelist_point_from_index(himl, nIndex, &pt);
2319
2320     SetTextColor(himl->hdcImage, RGB(0,0,0));
2321     SetBkColor  (himl->hdcImage, RGB(255,255,255));
2322
2323     if (ii.hbmColor)
2324     {
2325         hbmOldSrc = SelectObject (hdcImage, ii.hbmColor);
2326         StretchBlt (himl->hdcImage, pt.x, pt.y, himl->cx, himl->cy,
2327                     hdcImage, 0, 0, bmp.bmWidth, bmp.bmHeight, SRCCOPY);
2328         if (himl->hbmMask)
2329         {
2330             SelectObject (hdcImage, ii.hbmMask);
2331             StretchBlt (himl->hdcMask, pt.x, pt.y, himl->cx, himl->cy,
2332                         hdcImage, 0, 0, bmp.bmWidth, bmp.bmHeight, SRCCOPY);
2333         }
2334     }
2335     else
2336     {
2337         UINT height = bmp.bmHeight / 2;
2338         hbmOldSrc = SelectObject (hdcImage, ii.hbmMask);
2339         StretchBlt (himl->hdcImage, pt.x, pt.y, himl->cx, himl->cy,
2340                     hdcImage, 0, height, bmp.bmWidth, height, SRCCOPY);
2341         if (himl->hbmMask)
2342             StretchBlt (himl->hdcMask, pt.x, pt.y, himl->cx, himl->cy,
2343                         hdcImage, 0, 0, bmp.bmWidth, height, SRCCOPY);
2344     }
2345
2346     SelectObject (hdcImage, hbmOldSrc);
2347
2348     DestroyIcon(hBestFitIcon);
2349     if (hdcImage)
2350         DeleteDC (hdcImage);
2351     if (ii.hbmColor)
2352         DeleteObject (ii.hbmColor);
2353     if (ii.hbmMask)
2354         DeleteObject (ii.hbmMask);
2355
2356     TRACE("Insert index = %d, himl->cCurImage = %d\n", nIndex, himl->cCurImage);
2357     return nIndex;
2358 }
2359
2360
2361 /*************************************************************************
2362  * ImageList_SetBkColor [COMCTL32.@]
2363  *
2364  * Sets the background color of an image list.
2365  *
2366  * PARAMS
2367  *     himl  [I] handle to image list
2368  *     clrBk [I] background color
2369  *
2370  * RETURNS
2371  *     Success: previous background color
2372  *     Failure: CLR_NONE
2373  */
2374
2375 COLORREF WINAPI
2376 ImageList_SetBkColor (HIMAGELIST himl, COLORREF clrBk)
2377 {
2378     COLORREF clrOldBk;
2379
2380     if (!is_valid(himl))
2381         return CLR_NONE;
2382
2383     clrOldBk = himl->clrBk;
2384     himl->clrBk = clrBk;
2385     return clrOldBk;
2386 }
2387
2388
2389 /*************************************************************************
2390  * ImageList_SetDragCursorImage [COMCTL32.@]
2391  *
2392  * Combines the specified image with the current drag image
2393  *
2394  * PARAMS
2395  *     himlDrag  [I] handle to drag image list
2396  *     iDrag     [I] drag image index
2397  *     dxHotspot [I] X position of the hot spot
2398  *     dyHotspot [I] Y position of the hot spot
2399  *
2400  * RETURNS
2401  *     Success: TRUE
2402  *     Failure: FALSE
2403  *
2404  * NOTES
2405  *   - The names dxHotspot, dyHotspot are misleading because they have nothing
2406  *     to do with a hotspot but are only the offset of the origin of the new
2407  *     image relative to the origin of the old image.
2408  *
2409  *   - When this function is called and the drag image is visible, a
2410  *     short flickering occurs but this matches the Win9x behavior. It is
2411  *     possible to fix the flickering using code like in ImageList_DragMove.
2412  */
2413
2414 BOOL WINAPI
2415 ImageList_SetDragCursorImage (HIMAGELIST himlDrag, INT iDrag,
2416                               INT dxHotspot, INT dyHotspot)
2417 {
2418     HIMAGELIST himlTemp;
2419     BOOL visible;
2420
2421     if (!is_valid(InternalDrag.himl) || !is_valid(himlDrag))
2422         return FALSE;
2423
2424     TRACE(" dxH=%d dyH=%d nX=%d nY=%d\n",
2425            dxHotspot, dyHotspot, InternalDrag.dxHotspot, InternalDrag.dyHotspot);
2426
2427     visible = InternalDrag.bShow;
2428
2429     himlTemp = ImageList_Merge (InternalDrag.himl, 0, himlDrag, iDrag,
2430                                 dxHotspot, dyHotspot);
2431
2432     if (visible) {
2433         /* hide the drag image */
2434         ImageList_DragShowNolock(FALSE);
2435     }
2436     if ((InternalDrag.himl->cx != himlTemp->cx) ||
2437            (InternalDrag.himl->cy != himlTemp->cy)) {
2438         /* the size of the drag image changed, invalidate the buffer */
2439         DeleteObject(InternalDrag.hbmBg);
2440         InternalDrag.hbmBg = 0;
2441     }
2442
2443     ImageList_Destroy (InternalDrag.himl);
2444     InternalDrag.himl = himlTemp;
2445
2446     if (visible) {
2447         /* show the drag image */
2448         ImageList_DragShowNolock(TRUE);
2449     }
2450
2451     return TRUE;
2452 }
2453
2454
2455 /*************************************************************************
2456  * ImageList_SetFilter [COMCTL32.@]
2457  *
2458  * Sets a filter (or does something completely different)!!???
2459  * It removes 12 Bytes from the stack (3 Parameters).
2460  *
2461  * PARAMS
2462  *     himl     [I] SHOULD be a handle to image list
2463  *     i        [I] COULD be an index?
2464  *     dwFilter [I] ???
2465  *
2466  * RETURNS
2467  *     Success: TRUE ???
2468  *     Failure: FALSE ???
2469  *
2470  * BUGS
2471  *     This is an UNDOCUMENTED function!!!!
2472  *     empty stub.
2473  */
2474
2475 BOOL WINAPI
2476 ImageList_SetFilter (HIMAGELIST himl, INT i, DWORD dwFilter)
2477 {
2478     FIXME("(%p 0x%x 0x%x):empty stub!\n", himl, i, dwFilter);
2479
2480     return FALSE;
2481 }
2482
2483
2484 /*************************************************************************
2485  * ImageList_SetFlags [COMCTL32.@]
2486  *
2487  * Sets the image list flags.
2488  *
2489  * PARAMS
2490  *     himl  [I] Handle to image list
2491  *     flags [I] Flags to set
2492  *
2493  * RETURNS
2494  *     Old flags?
2495  *
2496  * BUGS
2497  *    Stub.
2498  */
2499
2500 DWORD WINAPI
2501 ImageList_SetFlags(HIMAGELIST himl, DWORD flags)
2502 {
2503     FIXME("(%p %08x):empty stub\n", himl, flags);
2504     return 0;
2505 }
2506
2507
2508 /*************************************************************************
2509  * ImageList_SetIconSize [COMCTL32.@]
2510  *
2511  * Sets the image size of the bitmap and deletes all images.
2512  *
2513  * PARAMS
2514  *     himl [I] handle to image list
2515  *     cx   [I] image width
2516  *     cy   [I] image height
2517  *
2518  * RETURNS
2519  *     Success: TRUE
2520  *     Failure: FALSE
2521  */
2522
2523 BOOL WINAPI
2524 ImageList_SetIconSize (HIMAGELIST himl, INT cx, INT cy)
2525 {
2526     INT nCount;
2527     HBITMAP hbmNew;
2528
2529     if (!is_valid(himl))
2530         return FALSE;
2531
2532     /* remove all images */
2533     himl->cMaxImage = himl->cInitial + 1;
2534     himl->cCurImage = 0;
2535     himl->cx        = cx;
2536     himl->cy        = cy;
2537
2538     /* initialize overlay mask indices */
2539     for (nCount = 0; nCount < MAX_OVERLAYIMAGE; nCount++)
2540         himl->nOvlIdx[nCount] = -1;
2541
2542     hbmNew = ImageList_CreateImage(himl->hdcImage, himl, himl->cMaxImage, himl->cx);
2543     SelectObject (himl->hdcImage, hbmNew);
2544     DeleteObject (himl->hbmImage);
2545     himl->hbmImage = hbmNew;
2546
2547     if (himl->hbmMask) {
2548         SIZE sz;
2549         imagelist_get_bitmap_size(himl, himl->cMaxImage, himl->cx, &sz);
2550         hbmNew = CreateBitmap (sz.cx, sz.cy, 1, 1, NULL);
2551         SelectObject (himl->hdcMask, hbmNew);
2552         DeleteObject (himl->hbmMask);
2553         himl->hbmMask = hbmNew;
2554     }
2555
2556     return TRUE;
2557 }
2558
2559
2560 /*************************************************************************
2561  * ImageList_SetImageCount [COMCTL32.@]
2562  *
2563  * Resizes an image list to the specified number of images.
2564  *
2565  * PARAMS
2566  *     himl        [I] handle to image list
2567  *     iImageCount [I] number of images in the image list
2568  *
2569  * RETURNS
2570  *     Success: TRUE
2571  *     Failure: FALSE
2572  */
2573
2574 BOOL WINAPI
2575 ImageList_SetImageCount (HIMAGELIST himl, UINT iImageCount)
2576 {
2577     HDC     hdcBitmap;
2578     HBITMAP hbmNewBitmap, hbmOld;
2579     INT     nNewCount, nCopyCount;
2580
2581     TRACE("%p %d\n",himl,iImageCount);
2582
2583     if (!is_valid(himl))
2584         return FALSE;
2585     if (himl->cMaxImage > iImageCount)
2586     {
2587         himl->cCurImage = iImageCount;
2588         /* TODO: shrink the bitmap when cMaxImage-cCurImage>cGrow ? */
2589         return TRUE;
2590     }
2591
2592     nNewCount = iImageCount + himl->cGrow;
2593     nCopyCount = min(himl->cCurImage, iImageCount);
2594
2595     hdcBitmap = CreateCompatibleDC (0);
2596
2597     hbmNewBitmap = ImageList_CreateImage(hdcBitmap, himl, nNewCount, himl->cx);
2598
2599     if (hbmNewBitmap != 0)
2600     {
2601         hbmOld = SelectObject (hdcBitmap, hbmNewBitmap);
2602         imagelist_copy_images( himl, himl->hdcImage, hdcBitmap, 0, nCopyCount, 0 );
2603         SelectObject (hdcBitmap, hbmOld);
2604
2605         /* FIXME: delete 'empty' image space? */
2606
2607         SelectObject (himl->hdcImage, hbmNewBitmap);
2608         DeleteObject (himl->hbmImage);
2609         himl->hbmImage = hbmNewBitmap;
2610     }
2611     else
2612         ERR("Could not create new image bitmap !\n");
2613
2614     if (himl->hbmMask)
2615     {
2616         SIZE sz;
2617         imagelist_get_bitmap_size( himl, nNewCount, himl->cx, &sz );
2618         hbmNewBitmap = CreateBitmap (sz.cx, sz.cy, 1, 1, NULL);
2619         if (hbmNewBitmap != 0)
2620         {
2621             hbmOld = SelectObject (hdcBitmap, hbmNewBitmap);
2622             imagelist_copy_images( himl, himl->hdcMask, hdcBitmap, 0, nCopyCount, 0 );
2623             SelectObject (hdcBitmap, hbmOld);
2624
2625             /* FIXME: delete 'empty' image space? */
2626
2627             SelectObject (himl->hdcMask, hbmNewBitmap);
2628             DeleteObject (himl->hbmMask);
2629             himl->hbmMask = hbmNewBitmap;
2630         }
2631         else
2632             ERR("Could not create new mask bitmap!\n");
2633     }
2634
2635     DeleteDC (hdcBitmap);
2636
2637     /* Update max image count and current image count */
2638     himl->cMaxImage = nNewCount;
2639     himl->cCurImage = iImageCount;
2640
2641     return TRUE;
2642 }
2643
2644
2645 /*************************************************************************
2646  * ImageList_SetOverlayImage [COMCTL32.@]
2647  *
2648  * Assigns an overlay mask index to an existing image in an image list.
2649  *
2650  * PARAMS
2651  *     himl     [I] handle to image list
2652  *     iImage   [I] image index
2653  *     iOverlay [I] overlay mask index
2654  *
2655  * RETURNS
2656  *     Success: TRUE
2657  *     Failure: FALSE
2658  */
2659
2660 BOOL WINAPI
2661 ImageList_SetOverlayImage (HIMAGELIST himl, INT iImage, INT iOverlay)
2662 {
2663     if (!is_valid(himl))
2664         return FALSE;
2665     if ((iOverlay < 1) || (iOverlay > MAX_OVERLAYIMAGE))
2666         return FALSE;
2667     if ((iImage!=-1) && ((iImage < 0) || (iImage > himl->cCurImage)))
2668         return FALSE;
2669     himl->nOvlIdx[iOverlay - 1] = iImage;
2670     return TRUE;
2671 }
2672
2673
2674
2675 /* helper for ImageList_Write - write bitmap to pstm
2676  * currently everything is written as 24 bit RGB, except masks
2677  */
2678 static BOOL
2679 _write_bitmap(HBITMAP hBitmap, LPSTREAM pstm)
2680 {
2681     LPBITMAPFILEHEADER bmfh;
2682     LPBITMAPINFOHEADER bmih;
2683     LPBYTE data = NULL, lpBits;
2684     BITMAP bm;
2685     INT bitCount, sizeImage, offBits, totalSize;
2686     HDC xdc;
2687     BOOL result = FALSE;
2688
2689     if (!GetObjectW(hBitmap, sizeof(BITMAP), (LPVOID)&bm))
2690         return FALSE;
2691
2692     bitCount = bm.bmBitsPixel == 1 ? 1 : 24;
2693     sizeImage = DIB_GetDIBImageBytes(bm.bmWidth, bm.bmHeight, bitCount);
2694
2695     totalSize = sizeof(BITMAPFILEHEADER) + sizeof(BITMAPINFOHEADER);
2696     if(bitCount != 24)
2697         totalSize += (1 << bitCount) * sizeof(RGBQUAD);
2698     offBits = totalSize;
2699     totalSize += sizeImage;
2700
2701     data = Alloc(totalSize);
2702     bmfh = (LPBITMAPFILEHEADER)data;
2703     bmih = (LPBITMAPINFOHEADER)(data + sizeof(BITMAPFILEHEADER));
2704     lpBits = data + offBits;
2705
2706     /* setup BITMAPFILEHEADER */
2707     bmfh->bfType      = (('M' << 8) | 'B');
2708     bmfh->bfSize      = offBits;
2709     bmfh->bfReserved1 = 0;
2710     bmfh->bfReserved2 = 0;
2711     bmfh->bfOffBits   = offBits;
2712
2713     /* setup BITMAPINFOHEADER */
2714     bmih->biSize          = sizeof(BITMAPINFOHEADER);
2715     bmih->biWidth         = bm.bmWidth;
2716     bmih->biHeight        = bm.bmHeight;
2717     bmih->biPlanes        = 1;
2718     bmih->biBitCount      = bitCount;
2719     bmih->biCompression   = BI_RGB;
2720     bmih->biSizeImage     = sizeImage;
2721     bmih->biXPelsPerMeter = 0;
2722     bmih->biYPelsPerMeter = 0;
2723     bmih->biClrUsed       = 0;
2724     bmih->biClrImportant  = 0;
2725
2726     xdc = GetDC(0);
2727     result = GetDIBits(xdc, hBitmap, 0, bm.bmHeight, lpBits, (BITMAPINFO *)bmih, DIB_RGB_COLORS) == bm.bmHeight;
2728     ReleaseDC(0, xdc);
2729     if (!result)
2730         goto failed;
2731
2732     TRACE("width %u, height %u, planes %u, bpp %u\n",
2733           bmih->biWidth, bmih->biHeight,
2734           bmih->biPlanes, bmih->biBitCount);
2735
2736     if(bitCount == 1) {
2737         /* Hack. */
2738         LPBITMAPINFO inf = (LPBITMAPINFO)bmih;
2739         inf->bmiColors[0].rgbRed = inf->bmiColors[0].rgbGreen = inf->bmiColors[0].rgbBlue = 0;
2740         inf->bmiColors[1].rgbRed = inf->bmiColors[1].rgbGreen = inf->bmiColors[1].rgbBlue = 0xff;
2741     }
2742
2743     if(!SUCCEEDED(IStream_Write(pstm, data, totalSize, NULL)))
2744         goto failed;
2745
2746     result = TRUE;
2747
2748 failed:
2749     Free(data);
2750
2751     return result;
2752 }
2753
2754
2755 /*************************************************************************
2756  * ImageList_Write [COMCTL32.@]
2757  *
2758  * Writes an image list to a stream.
2759  *
2760  * PARAMS
2761  *     himl [I] handle to image list
2762  *     pstm [O] Pointer to a stream.
2763  *
2764  * RETURNS
2765  *     Success: TRUE
2766  *     Failure: FALSE
2767  *
2768  * BUGS
2769  *     probably.
2770  */
2771
2772 BOOL WINAPI
2773 ImageList_Write (HIMAGELIST himl, LPSTREAM pstm)
2774 {
2775     ILHEAD ilHead;
2776     int i;
2777
2778     TRACE("%p %p\n", himl, pstm);
2779
2780     if (!is_valid(himl))
2781         return FALSE;
2782
2783     ilHead.usMagic   = (('L' << 8) | 'I');
2784     ilHead.usVersion = 0x101;
2785     ilHead.cCurImage = himl->cCurImage;
2786     ilHead.cMaxImage = himl->cMaxImage;
2787     ilHead.cGrow     = himl->cGrow;
2788     ilHead.cx        = himl->cx;
2789     ilHead.cy        = himl->cy;
2790     ilHead.bkcolor   = himl->clrBk;
2791     ilHead.flags     = himl->flags;
2792     for(i = 0; i < 4; i++) {
2793         ilHead.ovls[i] = himl->nOvlIdx[i];
2794     }
2795
2796     TRACE("cx %u, cy %u, flags 0x04%x, cCurImage %u, cMaxImage %u\n",
2797           ilHead.cx, ilHead.cy, ilHead.flags, ilHead.cCurImage, ilHead.cMaxImage);
2798
2799     if(!SUCCEEDED(IStream_Write(pstm, &ilHead, sizeof(ILHEAD), NULL)))
2800         return FALSE;
2801
2802     /* write the bitmap */
2803     if(!_write_bitmap(himl->hbmImage, pstm))
2804         return FALSE;
2805
2806     /* write the mask if we have one */
2807     if(himl->flags & ILC_MASK) {
2808         if(!_write_bitmap(himl->hbmMask, pstm))
2809             return FALSE;
2810     }
2811
2812     return TRUE;
2813 }
2814
2815
2816 static HBITMAP ImageList_CreateImage(HDC hdc, HIMAGELIST himl, UINT count, UINT width)
2817 {
2818     HBITMAP hbmNewBitmap;
2819     UINT ilc = (himl->flags & 0xFE);
2820     SIZE sz;
2821
2822     imagelist_get_bitmap_size( himl, count, width, &sz );
2823
2824     if ((ilc >= ILC_COLOR4 && ilc <= ILC_COLOR32) || ilc == ILC_COLOR)
2825     {
2826         VOID* bits;
2827         BITMAPINFO *bmi;
2828
2829         TRACE("Creating DIBSection %d x %d, %d Bits per Pixel\n",
2830               sz.cx, sz.cy, himl->uBitsPixel);
2831
2832         if (himl->uBitsPixel <= ILC_COLOR8)
2833         {
2834             LPPALETTEENTRY pal;
2835             ULONG i, colors;
2836             BYTE temp;
2837
2838             colors = 1 << himl->uBitsPixel;
2839             bmi = Alloc(sizeof(BITMAPINFOHEADER) +
2840                             sizeof(PALETTEENTRY) * colors);
2841
2842             pal = (LPPALETTEENTRY)bmi->bmiColors;
2843             GetPaletteEntries(GetStockObject(DEFAULT_PALETTE), 0, colors, pal);
2844
2845             /* Swap colors returned by GetPaletteEntries so we can use them for
2846              * CreateDIBSection call. */
2847             for (i = 0; i < colors; i++)
2848             {
2849                 temp = pal[i].peBlue;
2850                 bmi->bmiColors[i].rgbRed = pal[i].peRed;
2851                 bmi->bmiColors[i].rgbBlue = temp;
2852             }
2853         }
2854         else
2855         {
2856             bmi = Alloc(sizeof(BITMAPINFOHEADER));
2857         }
2858
2859         bmi->bmiHeader.biSize = sizeof(BITMAPINFOHEADER);
2860         bmi->bmiHeader.biWidth = sz.cx;
2861         bmi->bmiHeader.biHeight = sz.cy;
2862         bmi->bmiHeader.biPlanes = 1;
2863         bmi->bmiHeader.biBitCount = himl->uBitsPixel;
2864         bmi->bmiHeader.biCompression = BI_RGB;
2865         bmi->bmiHeader.biSizeImage = 0;
2866         bmi->bmiHeader.biXPelsPerMeter = 0;
2867         bmi->bmiHeader.biYPelsPerMeter = 0;
2868         bmi->bmiHeader.biClrUsed = 0;
2869         bmi->bmiHeader.biClrImportant = 0;
2870
2871         hbmNewBitmap = CreateDIBSection(hdc, bmi, DIB_RGB_COLORS, &bits, 0, 0);
2872
2873         Free (bmi);
2874     }
2875     else /*if (ilc == ILC_COLORDDB)*/
2876     {
2877         TRACE("Creating Bitmap: %d Bits per Pixel\n", himl->uBitsPixel);
2878
2879         hbmNewBitmap = CreateBitmap (sz.cx, sz.cy, 1, himl->uBitsPixel, NULL);
2880     }
2881     TRACE("returning %p\n", hbmNewBitmap);
2882     return hbmNewBitmap;
2883 }
2884
2885 /*************************************************************************
2886  * ImageList_SetColorTable [COMCTL32.@]
2887  *
2888  * Sets the color table of an image list.
2889  *
2890  * PARAMS
2891  *     himl        [I] Handle to the image list.
2892  *     uStartIndex [I] The first index to set.
2893  *     cEntries    [I] Number of entries to set.
2894  *     prgb        [I] New color information for color table for the image list.
2895  *
2896  * RETURNS
2897  *     Success: Number of entries in the table that were set.
2898  *     Failure: Zero.
2899  *
2900  * SEE
2901  *     ImageList_Create(), SetDIBColorTable()
2902  */
2903
2904 UINT WINAPI
2905 ImageList_SetColorTable (HIMAGELIST himl, UINT uStartIndex, UINT cEntries, CONST RGBQUAD * prgb)
2906 {
2907     return SetDIBColorTable(himl->hdcImage, uStartIndex, cEntries, prgb);
2908 }