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