git.oblomov.eu Git - wine/blob - dlls/user/cursoricon.c

   1 /*
   2  * Cursor and icon support
   3  *
   4  * Copyright 1995 Alexandre Julliard
   5  *           1996 Martin Von Loewis
   6  *           1997 Alex Korobka
   7  *           1998 Turchanov Sergey
   8  *
   9  * This library is free software; you can redistribute it and/or
  10  * modify it under the terms of the GNU Lesser General Public
  11  * License as published by the Free Software Foundation; either
  12  * version 2.1 of the License, or (at your option) any later version.
  13  *
  14  * This library is distributed in the hope that it will be useful,
  15  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  16  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  17  * Lesser General Public License for more details.
  18  *
  19  * You should have received a copy of the GNU Lesser General Public
  20  * License along with this library; if not, write to the Free Software
  21  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  22  */
  23
  24 /*
  25  * Theory:
  26  *
  27  * http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnwui/html/msdn_icons.asp
  28  *
  29  * Cursors and icons are stored in a global heap block, with the
  30  * following layout:
  31  *
  32  * CURSORICONINFO info;
  33  * BYTE[]         ANDbits;
  34  * BYTE[]         XORbits;
  35  *
  36  * The bits structures are in the format of a device-dependent bitmap.
  37  *
  38  * This layout is very sub-optimal, as the bitmap bits are stored in
  39  * the X client instead of in the server like other bitmaps; however,
  40  * some programs (notably Paint Brush) expect to be able to manipulate
  41  * the bits directly :-(
  42  *
  43  * FIXME: what are we going to do with animation and color (bpp > 1) cursors ?!
  44  */
  45
  46 #include "config.h"
  47 #include "wine/port.h"
  48
  49 #include <stdarg.h>
  50 #include <string.h>
  51 #include <stdlib.h>
  52
  53 #include "windef.h"
  54 #include "winbase.h"
  55 #include "wingdi.h"
  56 #include "wownt32.h"
  57 #include "winerror.h"
  58 #include "ntstatus.h"
  59 #include "excpt.h"
  60 #include "wine/winbase16.h"
  61 #include "wine/winuser16.h"
  62 #include "wine/exception.h"
  63 #include "wine/debug.h"
  64 #include "user_private.h"
  65
  66 WINE_DEFAULT_DEBUG_CHANNEL(cursor);
  67 WINE_DECLARE_DEBUG_CHANNEL(icon);
  68 WINE_DECLARE_DEBUG_CHANNEL(resource);
  69
  70 #include "pshpack1.h"
  71
  72 typedef struct {
  73     BYTE bWidth;
  74     BYTE bHeight;
  75     BYTE bColorCount;
  76     BYTE bReserved;
  77     WORD xHotspot;
  78     WORD yHotspot;
  79     DWORD dwDIBSize;
  80     DWORD dwDIBOffset;
  81 } CURSORICONFILEDIRENTRY;
  82
  83 typedef struct
  84 {
  85     WORD                idReserved;
  86     WORD                idType;
  87     WORD                idCount;
  88     CURSORICONFILEDIRENTRY  idEntries[1];
  89 } CURSORICONFILEDIR;
  90
  91 #include "poppack.h"
  92
  93 #define CID_RESOURCE  0x0001
  94 #define CID_WIN32     0x0004
  95 #define CID_NONSHARED 0x0008
  96
  97 static RECT CURSOR_ClipRect;       /* Cursor clipping rect */
  98
  99 static HDC screen_dc;
 100
 101 static const WCHAR DISPLAYW[] = {'D','I','S','P','L','A','Y',0};
 102
 103 /**********************************************************************
 104  * ICONCACHE for cursors/icons loaded with LR_SHARED.
 105  *
 106  * FIXME: This should not be allocated on the system heap, but on a
 107  *        subsystem-global heap (i.e. one for all Win16 processes,
 108  *        and one for each Win32 process).
 109  */
 110 typedef struct tagICONCACHE
 111 {
 112     struct tagICONCACHE *next;
 113
 114     HMODULE              hModule;
 115     HRSRC                hRsrc;
 116     HRSRC                hGroupRsrc;
 117     HICON                hIcon;
 118
 119     INT                  count;
 120
 121 } ICONCACHE;
 122
 123 static ICONCACHE *IconAnchor = NULL;
 124
 125 static CRITICAL_SECTION IconCrst;
 126 static CRITICAL_SECTION_DEBUG critsect_debug =
 127 {
 128     0, 0, &IconCrst,
 129     { &critsect_debug.ProcessLocksList, &critsect_debug.ProcessLocksList },
 130       0, 0, { (DWORD_PTR)(__FILE__ ": IconCrst") }
 131 };
 132 static CRITICAL_SECTION IconCrst = { &critsect_debug, -1, 0, 0, 0, 0 };
 133
 134 static WORD ICON_HOTSPOT = 0x4242;
 135
 136
 137 /***********************************************************************
 138  *             map_fileW
 139  *
 140  * Helper function to map a file to memory:
 141  *  name                        -       file name
 142  *  [RETURN] ptr                -       pointer to mapped file
 143  *  [RETURN] filesize           -       pointer size of file to be stored if not NULL
 144  */
 145 static void *map_fileW( LPCWSTR name, LPDWORD filesize )
 146 {
 147     HANDLE hFile, hMapping;
 148     LPVOID ptr = NULL;
 149
 150     hFile = CreateFileW( name, GENERIC_READ, FILE_SHARE_READ, NULL,
 151                          OPEN_EXISTING, FILE_FLAG_RANDOM_ACCESS, 0 );
 152     if (hFile != INVALID_HANDLE_VALUE)
 153     {
 154         hMapping = CreateFileMappingW( hFile, NULL, PAGE_READONLY, 0, 0, NULL );
 155         if (hMapping)
 156         {
 157             ptr = MapViewOfFile( hMapping, FILE_MAP_READ, 0, 0, 0 );
 158             CloseHandle( hMapping );
 159             if (filesize)
 160                 *filesize = GetFileSize( hFile, NULL );
 161         }
 162         CloseHandle( hFile );
 163     }
 164     return ptr;
 165 }
 166
 167
 168 /***********************************************************************
 169  *           get_bitmap_width_bytes
 170  *
 171  * Return number of bytes taken by a scanline of 16-bit aligned Windows DDB
 172  * data.
 173  */
 174 static int get_bitmap_width_bytes( int width, int bpp )
 175 {
 176     switch(bpp)
 177     {
 178     case 1:
 179         return 2 * ((width+15) / 16);
 180     case 4:
 181         return 2 * ((width+3) / 4);
 182     case 24:
 183         width *= 3;
 184         /* fall through */
 185     case 8:
 186         return width + (width & 1);
 187     case 16:
 188     case 15:
 189         return width * 2;
 190     case 32:
 191         return width * 4;
 192     default:
 193         WARN("Unknown depth %d, please report.\n", bpp );
 194     }
 195     return -1;
 196 }
 197
 198
 199 /***********************************************************************
 200  *          get_dib_width_bytes
 201  *
 202  * Return the width of a DIB bitmap in bytes. DIB bitmap data is 32-bit aligned.
 203  */
 204 static int get_dib_width_bytes( int width, int depth )
 205 {
 206     int words;
 207
 208     switch(depth)
 209     {
 210     case 1:  words = (width + 31) / 32; break;
 211     case 4:  words = (width + 7) / 8; break;
 212     case 8:  words = (width + 3) / 4; break;
 213     case 15:
 214     case 16: words = (width + 1) / 2; break;
 215     case 24: words = (width * 3 + 3)/4; break;
 216     default:
 217         WARN("(%d): Unsupported depth\n", depth );
 218         /* fall through */
 219     case 32:
 220         words = width;
 221     }
 222     return 4 * words;
 223 }
 224
 225
 226 /***********************************************************************
 227  *           bitmap_info_size
 228  *
 229  * Return the size of the bitmap info structure including color table.
 230  */
 231 static int bitmap_info_size( const BITMAPINFO * info, WORD coloruse )
 232 {
 233     int colors;
 234
 235     if (info->bmiHeader.biSize == sizeof(BITMAPCOREHEADER))
 236     {
 237         const BITMAPCOREHEADER *core = (const BITMAPCOREHEADER *)info;
 238         colors = (core->bcBitCount <= 8) ? 1 << core->bcBitCount : 0;
 239         return sizeof(BITMAPCOREHEADER) + colors *
 240              ((coloruse == DIB_RGB_COLORS) ? sizeof(RGBTRIPLE) : sizeof(WORD));
 241     }
 242     else  /* assume BITMAPINFOHEADER */
 243     {
 244         colors = info->bmiHeader.biClrUsed;
 245         if (colors > 256) /* buffer overflow otherwise */
 246                 colors = 256;
 247         if (!colors && (info->bmiHeader.biBitCount <= 8))
 248             colors = 1 << info->bmiHeader.biBitCount;
 249         return sizeof(BITMAPINFOHEADER) + colors *
 250                ((coloruse == DIB_RGB_COLORS) ? sizeof(RGBQUAD) : sizeof(WORD));
 251     }
 252 }
 253
 254
 255 /***********************************************************************
 256  *          is_dib_monochrome
 257  *
 258  * Returns whether a DIB can be converted to a monochrome DDB.
 259  *
 260  * A DIB can be converted if its color table contains only black and
 261  * white. Black must be the first color in the color table.
 262  *
 263  * Note : If the first color in the color table is white followed by
 264  *        black, we can't convert it to a monochrome DDB with
 265  *        SetDIBits, because black and white would be inverted.
 266  */
 267 static BOOL is_dib_monochrome( const BITMAPINFO* info )
 268 {
 269     if (info->bmiHeader.biBitCount != 1) return FALSE;
 270
 271     if (info->bmiHeader.biSize == sizeof(BITMAPCOREHEADER))
 272     {
 273         RGBTRIPLE *rgb = ((BITMAPCOREINFO *) info)->bmciColors;
 274
 275         /* Check if the first color is black */
 276         if ((rgb->rgbtRed == 0) && (rgb->rgbtGreen == 0) && (rgb->rgbtBlue == 0))
 277         {
 278             rgb++;
 279
 280             /* Check if the second color is white */
 281             return ((rgb->rgbtRed == 0xff) && (rgb->rgbtGreen == 0xff)
 282                  && (rgb->rgbtBlue == 0xff));
 283         }
 284         else return FALSE;
 285     }
 286     else  /* assume BITMAPINFOHEADER */
 287     {
 288         RGBQUAD *rgb = info->bmiColors;
 289
 290         /* Check if the first color is black */
 291         if ((rgb->rgbRed == 0) && (rgb->rgbGreen == 0) &&
 292             (rgb->rgbBlue == 0) && (rgb->rgbReserved == 0))
 293         {
 294             rgb++;
 295
 296             /* Check if the second color is white */
 297             return ((rgb->rgbRed == 0xff) && (rgb->rgbGreen == 0xff)
 298                  && (rgb->rgbBlue == 0xff) && (rgb->rgbReserved == 0));
 299         }
 300         else return FALSE;
 301     }
 302 }
 303
 304 /***********************************************************************
 305  *           DIB_GetBitmapInfo
 306  *
 307  * Get the info from a bitmap header.
 308  * Return 1 for INFOHEADER, 0 for COREHEADER,
 309  * 4 for V4HEADER, 5 for V5HEADER, -1 for error.
 310  */
 311 static int DIB_GetBitmapInfo( const BITMAPINFOHEADER *header, LONG *width,
 312                               LONG *height, WORD *bpp, DWORD *compr )
 313 {
 314     if (header->biSize == sizeof(BITMAPINFOHEADER))
 315     {
 316         *width  = header->biWidth;
 317         *height = header->biHeight;
 318         *bpp    = header->biBitCount;
 319         *compr  = header->biCompression;
 320         return 1;
 321     }
 322     if (header->biSize == sizeof(BITMAPCOREHEADER))
 323     {
 324         BITMAPCOREHEADER *core = (BITMAPCOREHEADER *)header;
 325         *width  = core->bcWidth;
 326         *height = core->bcHeight;
 327         *bpp    = core->bcBitCount;
 328         *compr  = 0;
 329         return 0;
 330     }
 331     if (header->biSize == sizeof(BITMAPV4HEADER))
 332     {
 333         BITMAPV4HEADER *v4hdr = (BITMAPV4HEADER *)header;
 334         *width  = v4hdr->bV4Width;
 335         *height = v4hdr->bV4Height;
 336         *bpp    = v4hdr->bV4BitCount;
 337         *compr  = v4hdr->bV4V4Compression;
 338         return 4;
 339     }
 340     if (header->biSize == sizeof(BITMAPV5HEADER))
 341     {
 342         BITMAPV5HEADER *v5hdr = (BITMAPV5HEADER *)header;
 343         *width  = v5hdr->bV5Width;
 344         *height = v5hdr->bV5Height;
 345         *bpp    = v5hdr->bV5BitCount;
 346         *compr  = v5hdr->bV5Compression;
 347         return 5;
 348     }
 349     ERR("(%ld): unknown/wrong size for header\n", header->biSize );
 350     return -1;
 351 }
 352
 353 /**********************************************************************
 354  *          CURSORICON_FindSharedIcon
 355  */
 356 static HICON CURSORICON_FindSharedIcon( HMODULE hModule, HRSRC hRsrc )
 357 {
 358     HICON hIcon = 0;
 359     ICONCACHE *ptr;
 360
 361     EnterCriticalSection( &IconCrst );
 362
 363     for ( ptr = IconAnchor; ptr; ptr = ptr->next )
 364         if ( ptr->hModule == hModule && ptr->hRsrc == hRsrc )
 365         {
 366             ptr->count++;
 367             hIcon = ptr->hIcon;
 368             break;
 369         }
 370
 371     LeaveCriticalSection( &IconCrst );
 372
 373     return hIcon;
 374 }
 375
 376 /*************************************************************************
 377  * CURSORICON_FindCache
 378  *
 379  * Given a handle, find the corresponding cache element
 380  *
 381  * PARAMS
 382  *      Handle     [I] handle to an Image
 383  *
 384  * RETURNS
 385  *     Success: The cache entry
 386  *     Failure: NULL
 387  *
 388  */
 389 static ICONCACHE* CURSORICON_FindCache(HICON hIcon)
 390 {
 391     ICONCACHE *ptr;
 392     ICONCACHE *pRet=NULL;
 393     BOOL IsFound = FALSE;
 394     int count;
 395
 396     EnterCriticalSection( &IconCrst );
 397
 398     for (count = 0, ptr = IconAnchor; ptr != NULL && !IsFound; ptr = ptr->next, count++ )
 399     {
 400         if ( hIcon == ptr->hIcon )
 401         {
 402             IsFound = TRUE;
 403             pRet = ptr;
 404         }
 405     }
 406
 407     LeaveCriticalSection( &IconCrst );
 408
 409     return pRet;
 410 }
 411
 412 /**********************************************************************
 413  *          CURSORICON_AddSharedIcon
 414  */
 415 static void CURSORICON_AddSharedIcon( HMODULE hModule, HRSRC hRsrc, HRSRC hGroupRsrc, HICON hIcon )
 416 {
 417     ICONCACHE *ptr = HeapAlloc( GetProcessHeap(), 0, sizeof(ICONCACHE) );
 418     if ( !ptr ) return;
 419
 420     ptr->hModule = hModule;
 421     ptr->hRsrc   = hRsrc;
 422     ptr->hIcon  = hIcon;
 423     ptr->hGroupRsrc = hGroupRsrc;
 424     ptr->count   = 1;
 425
 426     EnterCriticalSection( &IconCrst );
 427     ptr->next    = IconAnchor;
 428     IconAnchor   = ptr;
 429     LeaveCriticalSection( &IconCrst );
 430 }
 431
 432 /**********************************************************************
 433  *          CURSORICON_DelSharedIcon
 434  */
 435 static INT CURSORICON_DelSharedIcon( HICON hIcon )
 436 {
 437     INT count = -1;
 438     ICONCACHE *ptr;
 439
 440     EnterCriticalSection( &IconCrst );
 441
 442     for ( ptr = IconAnchor; ptr; ptr = ptr->next )
 443         if ( ptr->hIcon == hIcon )
 444         {
 445             if ( ptr->count > 0 ) ptr->count--;
 446             count = ptr->count;
 447             break;
 448         }
 449
 450     LeaveCriticalSection( &IconCrst );
 451
 452     return count;
 453 }
 454
 455 /**********************************************************************
 456  *          CURSORICON_FreeModuleIcons
 457  */
 458 void CURSORICON_FreeModuleIcons( HMODULE16 hMod16 )
 459 {
 460     ICONCACHE **ptr = &IconAnchor;
 461     HMODULE hModule = HMODULE_32(GetExePtr( hMod16 ));
 462
 463     EnterCriticalSection( &IconCrst );
 464
 465     while ( *ptr )
 466     {
 467         if ( (*ptr)->hModule == hModule )
 468         {
 469             ICONCACHE *freePtr = *ptr;
 470             *ptr = freePtr->next;
 471
 472             GlobalFree16(HICON_16(freePtr->hIcon));
 473             HeapFree( GetProcessHeap(), 0, freePtr );
 474             continue;
 475         }
 476         ptr = &(*ptr)->next;
 477     }
 478
 479     LeaveCriticalSection( &IconCrst );
 480 }
 481
 482 /*
 483  *  The following macro functions account for the irregularities of
 484  *   accessing cursor and icon resources in files and resource entries.
 485  */
 486 typedef BOOL (*fnGetCIEntry)( LPVOID dir, int n,
 487                               int *width, int *height, int *bits );
 488
 489 /**********************************************************************
 490  *          CURSORICON_FindBestIcon
 491  *
 492  * Find the icon closest to the requested size and number of colors.
 493  */
 494 static int CURSORICON_FindBestIcon( LPVOID dir, fnGetCIEntry get_entry,
 495                                     int width, int height, int colors )
 496 {
 497     int i, cx, cy, bits, bestEntry = -1;
 498     UINT iTotalDiff, iXDiff=0, iYDiff=0, iColorDiff;
 499     UINT iTempXDiff, iTempYDiff, iTempColorDiff;
 500
 501     /* Find Best Fit */
 502     iTotalDiff = 0xFFFFFFFF;
 503     iColorDiff = 0xFFFFFFFF;
 504     for ( i = 0; get_entry( dir, i, &cx, &cy, &bits ); i++ )
 505     {
 506         iTempXDiff = abs(width - cx);
 507         iTempYDiff = abs(height - cy);
 508
 509         if(iTotalDiff > (iTempXDiff + iTempYDiff))
 510         {
 511             iXDiff = iTempXDiff;
 512             iYDiff = iTempYDiff;
 513             iTotalDiff = iXDiff + iYDiff;
 514         }
 515     }
 516
 517     /* Find Best Colors for Best Fit */
 518     for ( i = 0; get_entry( dir, i, &cx, &cy, &bits ); i++ )
 519     {
 520         if(abs(width - cx) == iXDiff && abs(height - cy) == iYDiff)
 521         {
 522             iTempColorDiff = abs(colors - (1<<bits));
 523             if(iColorDiff > iTempColorDiff)
 524             {
 525                 bestEntry = i;
 526                 iColorDiff = iTempColorDiff;
 527             }
 528         }
 529     }
 530
 531     return bestEntry;
 532 }
 533
 534 static BOOL CURSORICON_GetResIconEntry( LPVOID dir, int n,
 535                                         int *width, int *height, int *bits )
 536 {
 537     CURSORICONDIR *resdir = dir;
 538     ICONRESDIR *icon;
 539
 540     if ( resdir->idCount <= n )
 541         return FALSE;
 542     icon = &resdir->idEntries[n].ResInfo.icon;
 543     *width = icon->bWidth;
 544     *height = icon->bWidth;
 545     *bits = resdir->idEntries[n].wBitCount;
 546     return TRUE;
 547 }
 548
 549 /**********************************************************************
 550  *          CURSORICON_FindBestCursor
 551  *
 552  * Find the cursor closest to the requested size.
 553  * FIXME: parameter 'color' ignored and entries with more than 1 bpp
 554  *        ignored too
 555  */
 556 static int CURSORICON_FindBestCursor( LPVOID dir, fnGetCIEntry get_entry,
 557                                       int width, int height, int color )
 558 {
 559     int i, maxwidth, maxheight, cx, cy, bits, bestEntry = -1;
 560
 561     /* Double height to account for AND and XOR masks */
 562
 563     height *= 2;
 564
 565     /* First find the largest one smaller than or equal to the requested size*/
 566
 567     maxwidth = maxheight = 0;
 568     for ( i = 0; get_entry( dir, i, &cx, &cy, &bits ); i++ )
 569     {
 570         if ((cx <= width) && (cy <= height) &&
 571             (cx > maxwidth) && (cy > maxheight) &&
 572             (bits == 1))
 573         {
 574             bestEntry = i;
 575             maxwidth  = cx;
 576             maxheight = cy;
 577         }
 578     }
 579     if (bestEntry != -1) return bestEntry;
 580
 581     /* Now find the smallest one larger than the requested size */
 582
 583     maxwidth = maxheight = 255;
 584     for ( i = 0; get_entry( dir, i, &cx, &cy, &bits ); i++ )
 585     {
 586         if (((cx < maxwidth) && (cy < maxheight) && (bits == 1)) ||
 587             (bestEntry==-1))
 588         {
 589             bestEntry = i;
 590             maxwidth  = cx;
 591             maxheight = cy;
 592         }
 593     }
 594
 595     return bestEntry;
 596 }
 597
 598 static BOOL CURSORICON_GetResCursorEntry( LPVOID dir, int n,
 599                                           int *width, int *height, int *bits )
 600 {
 601     CURSORICONDIR *resdir = dir;
 602     CURSORDIR *cursor;
 603
 604     if ( resdir->idCount <= n )
 605         return FALSE;
 606     cursor = &resdir->idEntries[n].ResInfo.cursor;
 607     *width = cursor->wWidth;
 608     *height = cursor->wHeight;
 609     *bits = resdir->idEntries[n].wBitCount;
 610     return TRUE;
 611 }
 612
 613 static CURSORICONDIRENTRY *CURSORICON_FindBestIconRes( CURSORICONDIR * dir,
 614                                       int width, int height, int colors )
 615 {
 616     int n;
 617
 618     n = CURSORICON_FindBestIcon( dir, CURSORICON_GetResIconEntry,
 619                                  width, height, colors );
 620     if ( n < 0 )
 621         return NULL;
 622     return &dir->idEntries[n];
 623 }
 624
 625 static CURSORICONDIRENTRY *CURSORICON_FindBestCursorRes( CURSORICONDIR *dir,
 626                                       int width, int height, int color )
 627 {
 628     int n = CURSORICON_FindBestCursor( dir, CURSORICON_GetResCursorEntry,
 629                                    width, height, color );
 630     if ( n < 0 )
 631         return NULL;
 632     return &dir->idEntries[n];
 633 }
 634
 635 static BOOL CURSORICON_GetFileEntry( LPVOID dir, int n,
 636                                      int *width, int *height, int *bits )
 637 {
 638     CURSORICONFILEDIR *filedir = dir;
 639     CURSORICONFILEDIRENTRY *entry;
 640
 641     if ( filedir->idCount <= n )
 642         return FALSE;
 643     entry = &filedir->idEntries[n];
 644     *width = entry->bWidth;
 645     *height = entry->bHeight;
 646     *bits = entry->bColorCount;
 647     return TRUE;
 648 }
 649
 650 static CURSORICONFILEDIRENTRY *CURSORICON_FindBestCursorFile( CURSORICONFILEDIR *dir,
 651                                       int width, int height, int color )
 652 {
 653     int n = CURSORICON_FindBestCursor( dir, CURSORICON_GetFileEntry,
 654                                        width, height, color );
 655     if ( n < 0 )
 656         return NULL;
 657     return &dir->idEntries[n];
 658 }
 659
 660 static CURSORICONFILEDIRENTRY *CURSORICON_FindBestIconFile( CURSORICONFILEDIR *dir,
 661                                       int width, int height, int color )
 662 {
 663     int n = CURSORICON_FindBestIcon( dir, CURSORICON_GetFileEntry,
 664                                      width, height, color );
 665     if ( n < 0 )
 666         return NULL;
 667     return &dir->idEntries[n];
 668 }
 669
 670 /**********************************************************************
 671  *              CreateIconFromResourceEx (USER32.@)
 672  *
 673  * FIXME: Convert to mono when cFlag is LR_MONOCHROME. Do something
 674  *        with cbSize parameter as well.
 675  */
 676 HICON WINAPI CreateIconFromResourceEx( LPBYTE bits, UINT cbSize,
 677                                        BOOL bIcon, DWORD dwVersion,
 678                                        INT width, INT height,
 679                                        UINT cFlag )
 680 {
 681     HGLOBAL16 hObj;
 682     static HDC hdcMem;
 683     int sizeAnd, sizeXor;
 684     HBITMAP hAndBits = 0, hXorBits = 0; /* error condition for later */
 685     BITMAP bmpXor, bmpAnd;
 686     POINT16 hotspot;
 687     BITMAPINFO *bmi;
 688     BOOL DoStretch;
 689     INT size;
 690
 691     hotspot.x = ICON_HOTSPOT;
 692     hotspot.y = ICON_HOTSPOT;
 693
 694     TRACE_(cursor)("%p (%u bytes), ver %08x, %ix%i %s %s\n",
 695                    bits, cbSize, (unsigned)dwVersion, width, height,
 696                                   bIcon ? "icon" : "cursor", (cFlag & LR_MONOCHROME) ? "mono" : "" );
 697     if (dwVersion == 0x00020000)
 698     {
 699         FIXME_(cursor)("\t2.xx resources are not supported\n");
 700         return 0;
 701     }
 702
 703     if (bIcon)
 704         bmi = (BITMAPINFO *)bits;
 705     else /* get the hotspot */
 706     {
 707         POINT16 *pt = (POINT16 *)bits;
 708         hotspot = *pt;
 709         bmi = (BITMAPINFO *)(pt + 1);
 710     }
 711     size = bitmap_info_size( bmi, DIB_RGB_COLORS );
 712
 713     if (!width) width = bmi->bmiHeader.biWidth;
 714     if (!height) height = bmi->bmiHeader.biHeight/2;
 715     DoStretch = (bmi->bmiHeader.biHeight/2 != height) ||
 716       (bmi->bmiHeader.biWidth != width);
 717
 718     /* Check bitmap header */
 719
 720     if ( (bmi->bmiHeader.biSize != sizeof(BITMAPCOREHEADER)) &&
 721          (bmi->bmiHeader.biSize != sizeof(BITMAPINFOHEADER)  ||
 722           bmi->bmiHeader.biCompression != BI_RGB) )
 723     {
 724           WARN_(cursor)("\tinvalid resource bitmap header.\n");
 725           return 0;
 726     }
 727
 728     if (!screen_dc) screen_dc = CreateDCW( DISPLAYW, NULL, NULL, NULL );
 729     if (screen_dc)
 730     {
 731         BITMAPINFO* pInfo;
 732
 733         /* Make sure we have room for the monochrome bitmap later on.
 734          * Note that BITMAPINFOINFO and BITMAPCOREHEADER are the same
 735          * up to and including the biBitCount. In-memory icon resource
 736          * format is as follows:
 737          *
 738          *   BITMAPINFOHEADER   icHeader  // DIB header
 739          *   RGBQUAD         icColors[]   // Color table
 740          *   BYTE            icXOR[]      // DIB bits for XOR mask
 741          *   BYTE            icAND[]      // DIB bits for AND mask
 742          */
 743
 744         if ((pInfo = HeapAlloc( GetProcessHeap(), 0,
 745                                 max(size, sizeof(BITMAPINFOHEADER) + 2*sizeof(RGBQUAD)))))
 746         {
 747             memcpy( pInfo, bmi, size );
 748             pInfo->bmiHeader.biHeight /= 2;
 749
 750             /* Create the XOR bitmap */
 751
 752             if (DoStretch) {
 753                 if(bIcon)
 754                 {
 755                     hXorBits = CreateCompatibleBitmap(screen_dc, width, height);
 756                 }
 757                 else
 758                 {
 759                     hXorBits = CreateBitmap(width, height, 1, 1, NULL);
 760                 }
 761                 if(hXorBits)
 762                 {
 763                 HBITMAP hOld;
 764                 BOOL res = FALSE;
 765
 766                 if (!hdcMem) hdcMem = CreateCompatibleDC(screen_dc);
 767                 if (hdcMem) {
 768                     hOld = SelectObject(hdcMem, hXorBits);
 769                     res = StretchDIBits(hdcMem, 0, 0, width, height, 0, 0,
 770                                         bmi->bmiHeader.biWidth, bmi->bmiHeader.biHeight/2,
 771                                         (char*)bmi + size, pInfo, DIB_RGB_COLORS, SRCCOPY);
 772                     SelectObject(hdcMem, hOld);
 773                 }
 774                 if (!res) { DeleteObject(hXorBits); hXorBits = 0; }
 775               }
 776             } else {
 777               if (is_dib_monochrome(bmi)) {
 778                   hXorBits = CreateBitmap(width, height, 1, 1, NULL);
 779                   SetDIBits(screen_dc, hXorBits, 0, height,
 780                      (char*)bmi + size, pInfo, DIB_RGB_COLORS);
 781               }
 782               else
 783                   hXorBits = CreateDIBitmap(screen_dc, &pInfo->bmiHeader,
 784                      CBM_INIT, (char*)bmi + size, pInfo, DIB_RGB_COLORS);
 785             }
 786
 787             if( hXorBits )
 788             {
 789                 char* xbits = (char *)bmi + size +
 790                     get_dib_width_bytes( bmi->bmiHeader.biWidth,
 791                                          bmi->bmiHeader.biBitCount ) * abs( bmi->bmiHeader.biHeight ) / 2;
 792
 793                 pInfo->bmiHeader.biBitCount = 1;
 794                 if (pInfo->bmiHeader.biSize != sizeof(BITMAPCOREHEADER))
 795                 {
 796                     RGBQUAD *rgb = pInfo->bmiColors;
 797
 798                     pInfo->bmiHeader.biClrUsed = pInfo->bmiHeader.biClrImportant = 2;
 799                     rgb[0].rgbBlue = rgb[0].rgbGreen = rgb[0].rgbRed = 0x00;
 800                     rgb[1].rgbBlue = rgb[1].rgbGreen = rgb[1].rgbRed = 0xff;
 801                     rgb[0].rgbReserved = rgb[1].rgbReserved = 0;
 802                 }
 803                 else
 804                 {
 805                     RGBTRIPLE *rgb = (RGBTRIPLE *)(((BITMAPCOREHEADER *)pInfo) + 1);
 806
 807                     rgb[0].rgbtBlue = rgb[0].rgbtGreen = rgb[0].rgbtRed = 0x00;
 808                     rgb[1].rgbtBlue = rgb[1].rgbtGreen = rgb[1].rgbtRed = 0xff;
 809                 }
 810
 811                 /* Create the AND bitmap */
 812
 813             if (DoStretch) {
 814               if ((hAndBits = CreateBitmap(width, height, 1, 1, NULL))) {
 815                 HBITMAP hOld;
 816                 BOOL res = FALSE;
 817
 818                 if (!hdcMem) hdcMem = CreateCompatibleDC(screen_dc);
 819                 if (hdcMem) {
 820                     hOld = SelectObject(hdcMem, hAndBits);
 821                     res = StretchDIBits(hdcMem, 0, 0, width, height, 0, 0,
 822                                         pInfo->bmiHeader.biWidth, pInfo->bmiHeader.biHeight,
 823                                         xbits, pInfo, DIB_RGB_COLORS, SRCCOPY);
 824                     SelectObject(hdcMem, hOld);
 825                 }
 826                 if (!res) { DeleteObject(hAndBits); hAndBits = 0; }
 827               }
 828             } else {
 829               hAndBits = CreateBitmap(width, height, 1, 1, NULL);
 830
 831               if (hAndBits) SetDIBits(screen_dc, hAndBits, 0, height,
 832                              xbits, pInfo, DIB_RGB_COLORS);
 833
 834             }
 835                 if( !hAndBits ) DeleteObject( hXorBits );
 836             }
 837             HeapFree( GetProcessHeap(), 0, pInfo );
 838         }
 839     }
 840
 841     if( !hXorBits || !hAndBits )
 842     {
 843         WARN_(cursor)("\tunable to create an icon bitmap.\n");
 844         return 0;
 845     }
 846
 847     /* Now create the CURSORICONINFO structure */
 848     GetObjectA( hXorBits, sizeof(bmpXor), &bmpXor );
 849     GetObjectA( hAndBits, sizeof(bmpAnd), &bmpAnd );
 850     sizeXor = bmpXor.bmHeight * bmpXor.bmWidthBytes;
 851     sizeAnd = bmpAnd.bmHeight * bmpAnd.bmWidthBytes;
 852
 853     hObj = GlobalAlloc16( GMEM_MOVEABLE,
 854                      sizeof(CURSORICONINFO) + sizeXor + sizeAnd );
 855     if (hObj)
 856     {
 857         CURSORICONINFO *info;
 858
 859         info = (CURSORICONINFO *)GlobalLock16( hObj );
 860         info->ptHotSpot.x   = hotspot.x;
 861         info->ptHotSpot.y   = hotspot.y;
 862         info->nWidth        = bmpXor.bmWidth;
 863         info->nHeight       = bmpXor.bmHeight;
 864         info->nWidthBytes   = bmpXor.bmWidthBytes;
 865         info->bPlanes       = bmpXor.bmPlanes;
 866         info->bBitsPerPixel = bmpXor.bmBitsPixel;
 867
 868         /* Transfer the bitmap bits to the CURSORICONINFO structure */
 869
 870         GetBitmapBits( hAndBits, sizeAnd, (char *)(info + 1) );
 871         GetBitmapBits( hXorBits, sizeXor, (char *)(info + 1) + sizeAnd );
 872         GlobalUnlock16( hObj );
 873     }
 874
 875     DeleteObject( hAndBits );
 876     DeleteObject( hXorBits );
 877     return HICON_32((HICON16)hObj);
 878 }
 879
 880
 881 /**********************************************************************
 882  *              CreateIconFromResource (USER32.@)
 883  */
 884 HICON WINAPI CreateIconFromResource( LPBYTE bits, UINT cbSize,
 885                                            BOOL bIcon, DWORD dwVersion)
 886 {
 887     return CreateIconFromResourceEx( bits, cbSize, bIcon, dwVersion, 0,0,0);
 888 }
 889
 890
 891 static HICON CURSORICON_LoadFromFile( LPCWSTR filename,
 892                              INT width, INT height, INT colors,
 893                              BOOL fCursor, UINT loadflags)
 894 {
 895     CURSORICONFILEDIRENTRY *entry;
 896     CURSORICONFILEDIR *dir;
 897     DWORD filesize = 0;
 898     HICON hIcon = 0;
 899     LPBYTE bits;
 900
 901     TRACE("loading %s\n", debugstr_w( filename ));
 902
 903     bits = map_fileW( filename, &filesize );
 904     if (!bits)
 905         return hIcon;
 906
 907     dir = (CURSORICONFILEDIR*) bits;
 908     if ( filesize < sizeof(*dir) )
 909         goto end;
 910
 911     if ( filesize < (sizeof(*dir) + sizeof(dir->idEntries[0])*(dir->idCount-1)) )
 912         goto end;
 913
 914     if ( fCursor )
 915         entry = CURSORICON_FindBestCursorFile( dir, width, height, 1 );
 916     else
 917         entry = CURSORICON_FindBestIconFile( dir, width, height, colors );
 918
 919     if ( !entry )
 920         goto end;
 921
 922     /* check that we don't run off the end of the file */
 923     if ( entry->dwDIBOffset > filesize )
 924         goto end;
 925     if ( entry->dwDIBOffset + entry->dwDIBSize > filesize )
 926         goto end;
 927
 928     hIcon = CreateIconFromResourceEx( &bits[entry->dwDIBOffset], entry->dwDIBSize,
 929                                       !fCursor, 0x00030000, width, height, loadflags );
 930 end:
 931     TRACE("loaded %s -> %p\n", debugstr_w( filename ), hIcon );
 932     UnmapViewOfFile( bits );
 933     return hIcon;
 934 }
 935
 936 /**********************************************************************
 937  *          CURSORICON_Load
 938  *
 939  * Load a cursor or icon from resource or file.
 940  */
 941 static HICON CURSORICON_Load(HINSTANCE hInstance, LPCWSTR name,
 942                              INT width, INT height, INT colors,
 943                              BOOL fCursor, UINT loadflags)
 944 {
 945     HANDLE handle = 0;
 946     HICON hIcon = 0;
 947     HRSRC hRsrc, hGroupRsrc;
 948     CURSORICONDIR *dir;
 949     CURSORICONDIRENTRY *dirEntry;
 950     LPBYTE bits;
 951     WORD wResId;
 952     DWORD dwBytesInRes;
 953
 954     if ( loadflags & LR_LOADFROMFILE )    /* Load from file */
 955         return CURSORICON_LoadFromFile( name, width, height, colors, fCursor, loadflags );
 956
 957     if (!hInstance) hInstance = user32_module;  /* Load OEM cursor/icon */
 958
 959     /* Normalize hInstance (must be uniquely represented for icon cache) */
 960
 961     if (!HIWORD( hInstance ))
 962         hInstance = HINSTANCE_32(GetExePtr( HINSTANCE_16(hInstance) ));
 963
 964     /* Get directory resource ID */
 965
 966     if (!(hRsrc = FindResourceW( hInstance, name,
 967                                  (LPWSTR)(fCursor ? RT_GROUP_CURSOR : RT_GROUP_ICON) )))
 968         return 0;
 969     hGroupRsrc = hRsrc;
 970
 971     /* Find the best entry in the directory */
 972
 973     if (!(handle = LoadResource( hInstance, hRsrc ))) return 0;
 974     if (!(dir = (CURSORICONDIR*)LockResource( handle ))) return 0;
 975     if (fCursor)
 976         dirEntry = CURSORICON_FindBestCursorRes( dir, width, height, 1);
 977     else
 978         dirEntry = CURSORICON_FindBestIconRes( dir, width, height, colors );
 979     if (!dirEntry) return 0;
 980     wResId = dirEntry->wResId;
 981     dwBytesInRes = dirEntry->dwBytesInRes;
 982     FreeResource( handle );
 983
 984     /* Load the resource */
 985
 986     if (!(hRsrc = FindResourceW(hInstance,MAKEINTRESOURCEW(wResId),
 987                                 (LPWSTR)(fCursor ? RT_CURSOR : RT_ICON) ))) return 0;
 988
 989     /* If shared icon, check whether it was already loaded */
 990     if (    (loadflags & LR_SHARED)
 991          && (hIcon = CURSORICON_FindSharedIcon( hInstance, hRsrc ) ) != 0 )
 992         return hIcon;
 993
 994     if (!(handle = LoadResource( hInstance, hRsrc ))) return 0;
 995     bits = (LPBYTE)LockResource( handle );
 996     hIcon = CreateIconFromResourceEx( bits, dwBytesInRes,
 997                                       !fCursor, 0x00030000, width, height, loadflags);
 998     FreeResource( handle );
 999
1000     /* If shared icon, add to icon cache */
1001
1002     if ( hIcon && (loadflags & LR_SHARED) )
1003         CURSORICON_AddSharedIcon( hInstance, hRsrc, hGroupRsrc, hIcon );
1004
1005     return hIcon;
1006 }
1007
1008 /***********************************************************************
1009  *           CURSORICON_Copy
1010  *
1011  * Make a copy of a cursor or icon.
1012  */
1013 static HICON CURSORICON_Copy( HINSTANCE16 hInst16, HICON hIcon )
1014 {
1015     char *ptrOld, *ptrNew;
1016     int size;
1017     HICON16 hOld = HICON_16(hIcon);
1018     HICON16 hNew;
1019
1020     if (!(ptrOld = (char *)GlobalLock16( hOld ))) return 0;
1021     if (hInst16 && !(hInst16 = GetExePtr( hInst16 ))) return 0;
1022     size = GlobalSize16( hOld );
1023     hNew = GlobalAlloc16( GMEM_MOVEABLE, size );
1024     FarSetOwner16( hNew, hInst16 );
1025     ptrNew = (char *)GlobalLock16( hNew );
1026     memcpy( ptrNew, ptrOld, size );
1027     GlobalUnlock16( hOld );
1028     GlobalUnlock16( hNew );
1029     return HICON_32(hNew);
1030 }
1031
1032 /*************************************************************************
1033  * CURSORICON_ExtCopy
1034  *
1035  * Copies an Image from the Cache if LR_COPYFROMRESOURCE is specified
1036  *
1037  * PARAMS
1038  *      Handle     [I] handle to an Image
1039  *      nType      [I] Type of Handle (IMAGE_CURSOR | IMAGE_ICON)
1040  *      iDesiredCX [I] The Desired width of the Image
1041  *      iDesiredCY [I] The desired height of the Image
1042  *      nFlags     [I] The flags from CopyImage
1043  *
1044  * RETURNS
1045  *     Success: The new handle of the Image
1046  *
1047  * NOTES
1048  *     LR_COPYDELETEORG and LR_MONOCHROME are currently not implemented.
1049  *     LR_MONOCHROME should be implemented by CreateIconFromResourceEx.
1050  *     LR_COPYFROMRESOURCE will only work if the Image is in the Cache.
1051  *
1052  *
1053  */
1054
1055 static HICON CURSORICON_ExtCopy(HICON hIcon, UINT nType,
1056                                 INT iDesiredCX, INT iDesiredCY,
1057                                 UINT nFlags)
1058 {
1059     HICON hNew=0;
1060
1061     TRACE_(icon)("hIcon %p, nType %u, iDesiredCX %i, iDesiredCY %i, nFlags %u\n",
1062                  hIcon, nType, iDesiredCX, iDesiredCY, nFlags);
1063
1064     if(hIcon == 0)
1065     {
1066         return 0;
1067     }
1068
1069     /* Best Fit or Monochrome */
1070     if( (nFlags & LR_COPYFROMRESOURCE
1071         && (iDesiredCX > 0 || iDesiredCY > 0))
1072         || nFlags & LR_MONOCHROME)
1073     {
1074         ICONCACHE* pIconCache = CURSORICON_FindCache(hIcon);
1075
1076         /* Not Found in Cache, then do a straight copy
1077         */
1078         if(pIconCache == NULL)
1079         {
1080             hNew = CURSORICON_Copy(0, hIcon);
1081             if(nFlags & LR_COPYFROMRESOURCE)
1082             {
1083                 TRACE_(icon)("LR_COPYFROMRESOURCE: Failed to load from cache\n");
1084             }
1085         }
1086         else
1087         {
1088             int iTargetCY = iDesiredCY, iTargetCX = iDesiredCX;
1089             LPBYTE pBits;
1090             HANDLE hMem;
1091             HRSRC hRsrc;
1092             DWORD dwBytesInRes;
1093             WORD wResId;
1094             CURSORICONDIR *pDir;
1095             CURSORICONDIRENTRY *pDirEntry;
1096             BOOL bIsIcon = (nType == IMAGE_ICON);
1097
1098             /* Completing iDesiredCX CY for Monochrome Bitmaps if needed
1099             */
1100             if(((nFlags & LR_MONOCHROME) && !(nFlags & LR_COPYFROMRESOURCE))
1101                 || (iDesiredCX == 0 && iDesiredCY == 0))
1102             {
1103                 iDesiredCY = GetSystemMetrics(bIsIcon ?
1104                     SM_CYICON : SM_CYCURSOR);
1105                 iDesiredCX = GetSystemMetrics(bIsIcon ?
1106                     SM_CXICON : SM_CXCURSOR);
1107             }
1108
1109             /* Retrieve the CURSORICONDIRENTRY
1110             */
1111             if (!(hMem = LoadResource( pIconCache->hModule ,
1112                             pIconCache->hGroupRsrc)))
1113             {
1114                 return 0;
1115             }
1116             if (!(pDir = (CURSORICONDIR*)LockResource( hMem )))
1117             {
1118                 return 0;
1119             }
1120
1121             /* Find Best Fit
1122             */
1123             if(bIsIcon)
1124             {
1125                 pDirEntry = CURSORICON_FindBestIconRes(
1126                                 pDir, iDesiredCX, iDesiredCY, 256 );
1127             }
1128             else
1129             {
1130                 pDirEntry = (CURSORICONDIRENTRY *)CURSORICON_FindBestCursorRes(
1131                                 pDir, iDesiredCX, iDesiredCY, 1);
1132             }
1133
1134             wResId = pDirEntry->wResId;
1135             dwBytesInRes = pDirEntry->dwBytesInRes;
1136             FreeResource(hMem);
1137
1138             TRACE_(icon)("ResID %u, BytesInRes %lu, Width %d, Height %d DX %d, DY %d\n",
1139                 wResId, dwBytesInRes,  pDirEntry->ResInfo.icon.bWidth,
1140                 pDirEntry->ResInfo.icon.bHeight, iDesiredCX, iDesiredCY);
1141
1142             /* Get the Best Fit
1143             */
1144             if (!(hRsrc = FindResourceW(pIconCache->hModule ,
1145                 MAKEINTRESOURCEW(wResId), (LPWSTR)(bIsIcon ? RT_ICON : RT_CURSOR))))
1146             {
1147                 return 0;
1148             }
1149             if (!(hMem = LoadResource( pIconCache->hModule , hRsrc )))
1150             {
1151                 return 0;
1152             }
1153
1154             pBits = (LPBYTE)LockResource( hMem );
1155
1156             if(nFlags & LR_DEFAULTSIZE)
1157             {
1158                 iTargetCY = GetSystemMetrics(SM_CYICON);
1159                 iTargetCX = GetSystemMetrics(SM_CXICON);
1160             }
1161
1162             /* Create a New Icon with the proper dimension
1163             */
1164             hNew = CreateIconFromResourceEx( pBits, dwBytesInRes,
1165                        bIsIcon, 0x00030000, iTargetCX, iTargetCY, nFlags);
1166             FreeResource(hMem);
1167         }
1168     }
1169     else hNew = CURSORICON_Copy(0, hIcon);
1170     return hNew;
1171 }
1172
1173
1174 /***********************************************************************
1175  *              CreateCursor (USER32.@)
1176  */
1177 HCURSOR WINAPI CreateCursor( HINSTANCE hInstance,
1178                                  INT xHotSpot, INT yHotSpot,
1179                                  INT nWidth, INT nHeight,
1180                                  LPCVOID lpANDbits, LPCVOID lpXORbits )
1181 {
1182     CURSORICONINFO info;
1183
1184     TRACE_(cursor)("%dx%d spot=%d,%d xor=%p and=%p\n",
1185                     nWidth, nHeight, xHotSpot, yHotSpot, lpXORbits, lpANDbits);
1186
1187     info.ptHotSpot.x = xHotSpot;
1188     info.ptHotSpot.y = yHotSpot;
1189     info.nWidth = nWidth;
1190     info.nHeight = nHeight;
1191     info.nWidthBytes = 0;
1192     info.bPlanes = 1;
1193     info.bBitsPerPixel = 1;
1194
1195     return HICON_32(CreateCursorIconIndirect16(0, &info, lpANDbits, lpXORbits));
1196 }
1197
1198
1199 /***********************************************************************
1200  *              CreateIcon (USER.407)
1201  */
1202 HICON16 WINAPI CreateIcon16( HINSTANCE16 hInstance, INT16 nWidth,
1203                              INT16 nHeight, BYTE bPlanes, BYTE bBitsPixel,
1204                              LPCVOID lpANDbits, LPCVOID lpXORbits )
1205 {
1206     CURSORICONINFO info;
1207
1208     TRACE_(icon)("%dx%dx%d, xor=%p, and=%p\n",
1209                   nWidth, nHeight, bPlanes * bBitsPixel, lpXORbits, lpANDbits);
1210
1211     info.ptHotSpot.x = ICON_HOTSPOT;
1212     info.ptHotSpot.y = ICON_HOTSPOT;
1213     info.nWidth = nWidth;
1214     info.nHeight = nHeight;
1215     info.nWidthBytes = 0;
1216     info.bPlanes = bPlanes;
1217     info.bBitsPerPixel = bBitsPixel;
1218
1219     return CreateCursorIconIndirect16( hInstance, &info, lpANDbits, lpXORbits );
1220 }
1221
1222
1223 /***********************************************************************
1224  *              CreateIcon (USER32.@)
1225  *
1226  *  Creates an icon based on the specified bitmaps. The bitmaps must be
1227  *  provided in a device dependent format and will be resized to
1228  *  (SM_CXICON,SM_CYICON) and depth converted to match the screen's color
1229  *  depth. The provided bitmaps must be top-down bitmaps.
1230  *  Although Windows does not support 15bpp(*) this API must support it
1231  *  for Winelib applications.
1232  *
1233  *  (*) Windows does not support 15bpp but it supports the 555 RGB 16bpp
1234  *      format!
1235  *
1236  * BUGS
1237  *
1238  *  - The provided bitmaps are not resized!
1239  *  - The documentation says the lpXORbits bitmap must be in a device
1240  *    dependent format. But we must still resize it and perform depth
1241  *    conversions if necessary.
1242  *  - I'm a bit unsure about the how the 'device dependent format' thing works.
1243  *    I did some tests on windows and found that if you provide a 16bpp bitmap
1244  *    in lpXORbits, then its format but be 565 RGB if the screen's bit depth
1245  *    is 16bpp but it must be 555 RGB if the screen's bit depth is anything
1246  *    else. I don't know if this is part of the GDI specs or if this is a
1247  *    quirk of the graphics card driver.
1248  *  - You may think that we check whether the bit depths match or not
1249  *    as an optimization. But the truth is that the conversion using
1250  *    CreateDIBitmap does not work for some bit depth (e.g. 8bpp) and I have
1251  *    no idea why.
1252  *  - I'm pretty sure that all the things we do in CreateIcon should
1253  *    also be done in CreateIconIndirect...
1254  */
1255 HICON WINAPI CreateIcon(
1256     HINSTANCE hInstance,  /* [in] the application's hInstance */
1257     INT       nWidth,     /* [in] the width of the provided bitmaps */
1258     INT       nHeight,    /* [in] the height of the provided bitmaps */
1259     BYTE      bPlanes,    /* [in] the number of planes in the provided bitmaps */
1260     BYTE      bBitsPixel, /* [in] the number of bits per pixel of the lpXORbits bitmap */
1261     LPCVOID   lpANDbits,  /* [in] a monochrome bitmap representing the icon's mask */
1262     LPCVOID   lpXORbits)  /* [in] the icon's 'color' bitmap */
1263 {
1264     HICON hIcon;
1265     HDC hdc;
1266
1267     TRACE_(icon)("%dx%dx%d, xor=%p, and=%p\n",
1268                  nWidth, nHeight, bPlanes * bBitsPixel, lpXORbits, lpANDbits);
1269
1270     hdc=GetDC(0);
1271     if (!hdc)
1272         return 0;
1273
1274     if (GetDeviceCaps(hdc,BITSPIXEL)==bBitsPixel) {
1275         CURSORICONINFO info;
1276
1277         info.ptHotSpot.x = ICON_HOTSPOT;
1278         info.ptHotSpot.y = ICON_HOTSPOT;
1279         info.nWidth = nWidth;
1280         info.nHeight = nHeight;
1281         info.nWidthBytes = 0;
1282         info.bPlanes = bPlanes;
1283         info.bBitsPerPixel = bBitsPixel;
1284
1285         hIcon=HICON_32(CreateCursorIconIndirect16(0, &info, lpANDbits, lpXORbits));
1286     } else {
1287         ICONINFO iinfo;
1288         BITMAPINFO bmi;
1289
1290         iinfo.fIcon=TRUE;
1291         iinfo.xHotspot=ICON_HOTSPOT;
1292         iinfo.yHotspot=ICON_HOTSPOT;
1293         iinfo.hbmMask=CreateBitmap(nWidth,nHeight,1,1,lpANDbits);
1294
1295         bmi.bmiHeader.biSize=sizeof(bmi.bmiHeader);
1296         bmi.bmiHeader.biWidth=nWidth;
1297         bmi.bmiHeader.biHeight=-nHeight;
1298         bmi.bmiHeader.biPlanes=bPlanes;
1299         bmi.bmiHeader.biBitCount=bBitsPixel;
1300         bmi.bmiHeader.biCompression=BI_RGB;
1301         bmi.bmiHeader.biSizeImage=0;
1302         bmi.bmiHeader.biXPelsPerMeter=0;
1303         bmi.bmiHeader.biYPelsPerMeter=0;
1304         bmi.bmiHeader.biClrUsed=0;
1305         bmi.bmiHeader.biClrImportant=0;
1306
1307         iinfo.hbmColor = CreateDIBitmap( hdc, &bmi.bmiHeader,
1308                                          CBM_INIT, lpXORbits,
1309                                          &bmi, DIB_RGB_COLORS );
1310
1311         hIcon=CreateIconIndirect(&iinfo);
1312         DeleteObject(iinfo.hbmMask);
1313         DeleteObject(iinfo.hbmColor);
1314     }
1315     ReleaseDC(0,hdc);
1316     return hIcon;
1317 }
1318
1319
1320 /***********************************************************************
1321  *              CreateCursorIconIndirect (USER.408)
1322  */
1323 HGLOBAL16 WINAPI CreateCursorIconIndirect16( HINSTANCE16 hInstance,
1324                                            CURSORICONINFO *info,
1325                                            LPCVOID lpANDbits,
1326                                            LPCVOID lpXORbits )
1327 {
1328     HGLOBAL16 handle;
1329     char *ptr;
1330     int sizeAnd, sizeXor;
1331
1332     hInstance = GetExePtr( hInstance );  /* Make it a module handle */
1333     if (!lpXORbits || !lpANDbits || info->bPlanes != 1) return 0;
1334     info->nWidthBytes = get_bitmap_width_bytes(info->nWidth,info->bBitsPerPixel);
1335     sizeXor = info->nHeight * info->nWidthBytes;
1336     sizeAnd = info->nHeight * get_bitmap_width_bytes( info->nWidth, 1 );
1337     if (!(handle = GlobalAlloc16( GMEM_MOVEABLE,
1338                                   sizeof(CURSORICONINFO) + sizeXor + sizeAnd)))
1339         return 0;
1340     FarSetOwner16( handle, hInstance );
1341     ptr = (char *)GlobalLock16( handle );
1342     memcpy( ptr, info, sizeof(*info) );
1343     memcpy( ptr + sizeof(CURSORICONINFO), lpANDbits, sizeAnd );
1344     memcpy( ptr + sizeof(CURSORICONINFO) + sizeAnd, lpXORbits, sizeXor );
1345     GlobalUnlock16( handle );
1346     return handle;
1347 }
1348
1349
1350 /***********************************************************************
1351  *              CopyIcon (USER.368)
1352  */
1353 HICON16 WINAPI CopyIcon16( HINSTANCE16 hInstance, HICON16 hIcon )
1354 {
1355     TRACE_(icon)("%04x %04x\n", hInstance, hIcon );
1356     return HICON_16(CURSORICON_Copy(hInstance, HICON_32(hIcon)));
1357 }
1358
1359
1360 /***********************************************************************
1361  *              CopyIcon (USER32.@)
1362  */
1363 HICON WINAPI CopyIcon( HICON hIcon )
1364 {
1365     TRACE_(icon)("%p\n", hIcon );
1366     return CURSORICON_Copy( 0, hIcon );
1367 }
1368
1369
1370 /***********************************************************************
1371  *              CopyCursor (USER.369)
1372  */
1373 HCURSOR16 WINAPI CopyCursor16( HINSTANCE16 hInstance, HCURSOR16 hCursor )
1374 {
1375     TRACE_(cursor)("%04x %04x\n", hInstance, hCursor );
1376     return HICON_16(CURSORICON_Copy(hInstance, HCURSOR_32(hCursor)));
1377 }
1378
1379 /**********************************************************************
1380  *              DestroyIcon32 (USER.610)
1381  *
1382  * This routine is actually exported from Win95 USER under the name
1383  * DestroyIcon32 ...  The behaviour implemented here should mimic
1384  * the Win95 one exactly, especially the return values, which
1385  * depend on the setting of various flags.
1386  */
1387 WORD WINAPI DestroyIcon32( HGLOBAL16 handle, UINT16 flags )
1388 {
1389     WORD retv;
1390
1391     TRACE_(icon)("(%04x, %04x)\n", handle, flags );
1392
1393     /* Check whether destroying active cursor */
1394
1395     if ( get_user_thread_info()->cursor == HICON_32(handle) )
1396     {
1397         WARN_(cursor)("Destroying active cursor!\n" );
1398         SetCursor( 0 );
1399     }
1400
1401     /* Try shared cursor/icon first */
1402
1403     if ( !(flags & CID_NONSHARED) )
1404     {
1405         INT count = CURSORICON_DelSharedIcon(HICON_32(handle));
1406
1407         if ( count != -1 )
1408             return (flags & CID_WIN32)? TRUE : (count == 0);
1409
1410         /* FIXME: OEM cursors/icons should be recognized */
1411     }
1412
1413     /* Now assume non-shared cursor/icon */
1414
1415     retv = GlobalFree16( handle );
1416     return (flags & CID_RESOURCE)? retv : TRUE;
1417 }
1418
1419 /***********************************************************************
1420  *              DestroyIcon (USER32.@)
1421  */
1422 BOOL WINAPI DestroyIcon( HICON hIcon )
1423 {
1424     return DestroyIcon32(HICON_16(hIcon), CID_WIN32);
1425 }
1426
1427
1428 /***********************************************************************
1429  *              DestroyCursor (USER32.@)
1430  */
1431 BOOL WINAPI DestroyCursor( HCURSOR hCursor )
1432 {
1433     return DestroyIcon32(HCURSOR_16(hCursor), CID_WIN32);
1434 }
1435
1436
1437 /***********************************************************************
1438  *              DrawIcon (USER32.@)
1439  */
1440 BOOL WINAPI DrawIcon( HDC hdc, INT x, INT y, HICON hIcon )
1441 {
1442     CURSORICONINFO *ptr;
1443     HDC hMemDC;
1444     HBITMAP hXorBits, hAndBits;
1445     COLORREF oldFg, oldBg;
1446
1447     if (!(ptr = (CURSORICONINFO *)GlobalLock16(HICON_16(hIcon)))) return FALSE;
1448     if (!(hMemDC = CreateCompatibleDC( hdc ))) return FALSE;
1449     hAndBits = CreateBitmap( ptr->nWidth, ptr->nHeight, 1, 1,
1450                                (char *)(ptr+1) );
1451     hXorBits = CreateBitmap( ptr->nWidth, ptr->nHeight, ptr->bPlanes,
1452                                ptr->bBitsPerPixel, (char *)(ptr + 1)
1453                         + ptr->nHeight * get_bitmap_width_bytes(ptr->nWidth,1) );
1454     oldFg = SetTextColor( hdc, RGB(0,0,0) );
1455     oldBg = SetBkColor( hdc, RGB(255,255,255) );
1456
1457     if (hXorBits && hAndBits)
1458     {
1459         HBITMAP hBitTemp = SelectObject( hMemDC, hAndBits );
1460         BitBlt( hdc, x, y, ptr->nWidth, ptr->nHeight, hMemDC, 0, 0, SRCAND );
1461         SelectObject( hMemDC, hXorBits );
1462         BitBlt(hdc, x, y, ptr->nWidth, ptr->nHeight, hMemDC, 0, 0,SRCINVERT);
1463         SelectObject( hMemDC, hBitTemp );
1464     }
1465     DeleteDC( hMemDC );
1466     if (hXorBits) DeleteObject( hXorBits );
1467     if (hAndBits) DeleteObject( hAndBits );
1468     GlobalUnlock16(HICON_16(hIcon));
1469     SetTextColor( hdc, oldFg );
1470     SetBkColor( hdc, oldBg );
1471     return TRUE;
1472 }
1473
1474 /***********************************************************************
1475  *              DumpIcon (USER.459)
1476  */
1477 DWORD WINAPI DumpIcon16( SEGPTR pInfo, WORD *lpLen,
1478                        SEGPTR *lpXorBits, SEGPTR *lpAndBits )
1479 {
1480     CURSORICONINFO *info = MapSL( pInfo );
1481     int sizeAnd, sizeXor;
1482
1483     if (!info) return 0;
1484     sizeXor = info->nHeight * info->nWidthBytes;
1485     sizeAnd = info->nHeight * get_bitmap_width_bytes( info->nWidth, 1 );
1486     if (lpAndBits) *lpAndBits = pInfo + sizeof(CURSORICONINFO);
1487     if (lpXorBits) *lpXorBits = pInfo + sizeof(CURSORICONINFO) + sizeAnd;
1488     if (lpLen) *lpLen = sizeof(CURSORICONINFO) + sizeAnd + sizeXor;
1489     return MAKELONG( sizeXor, sizeXor );
1490 }
1491
1492
1493 /***********************************************************************
1494  *              SetCursor (USER32.@)
1495  * RETURNS:
1496  *      A handle to the previous cursor shape.
1497  */
1498 HCURSOR WINAPI SetCursor( HCURSOR hCursor /* [in] Handle of cursor to show */ )
1499 {
1500     struct user_thread_info *thread_info = get_user_thread_info();
1501     HCURSOR hOldCursor;
1502
1503     if (hCursor == thread_info->cursor) return hCursor;  /* No change */
1504     TRACE_(cursor)("%p\n", hCursor );
1505     hOldCursor = thread_info->cursor;
1506     thread_info->cursor = hCursor;
1507     /* Change the cursor shape only if it is visible */
1508     if (thread_info->cursor_count >= 0)
1509     {
1510         USER_Driver->pSetCursor( (CURSORICONINFO*)GlobalLock16(HCURSOR_16(hCursor)) );
1511         GlobalUnlock16(HCURSOR_16(hCursor));
1512     }
1513     return hOldCursor;
1514 }
1515
1516 /***********************************************************************
1517  *              ShowCursor (USER32.@)
1518  */
1519 INT WINAPI ShowCursor( BOOL bShow )
1520 {
1521     struct user_thread_info *thread_info = get_user_thread_info();
1522
1523     TRACE_(cursor)("%d, count=%d\n", bShow, thread_info->cursor_count );
1524
1525     if (bShow)
1526     {
1527         if (++thread_info->cursor_count == 0) /* Show it */
1528         {
1529             USER_Driver->pSetCursor((CURSORICONINFO*)GlobalLock16(HCURSOR_16(thread_info->cursor)));
1530             GlobalUnlock16(HCURSOR_16(thread_info->cursor));
1531         }
1532     }
1533     else
1534     {
1535         if (--thread_info->cursor_count == -1) /* Hide it */
1536             USER_Driver->pSetCursor( NULL );
1537     }
1538     return thread_info->cursor_count;
1539 }
1540
1541 /***********************************************************************
1542  *              GetCursor (USER32.@)
1543  */
1544 HCURSOR WINAPI GetCursor(void)
1545 {
1546     return get_user_thread_info()->cursor;
1547 }
1548
1549
1550 /***********************************************************************
1551  *              ClipCursor (USER32.@)
1552  */
1553 BOOL WINAPI ClipCursor( const RECT *rect )
1554 {
1555     if (!rect) SetRectEmpty( &CURSOR_ClipRect );
1556     else CopyRect( &CURSOR_ClipRect, rect );
1557     return TRUE;
1558 }
1559
1560
1561 /***********************************************************************
1562  *              GetClipCursor (USER32.@)
1563  */
1564 BOOL WINAPI GetClipCursor( RECT *rect )
1565 {
1566     if (rect)
1567     {
1568        CopyRect( rect, &CURSOR_ClipRect );
1569        return TRUE;
1570     }
1571     return FALSE;
1572 }
1573
1574
1575 /***********************************************************************
1576  *              SetSystemCursor (USER32.@)
1577  */
1578 BOOL WINAPI SetSystemCursor(HCURSOR hcur, DWORD id)
1579 {
1580     FIXME("(%p,%08lx),stub!\n",  hcur, id);
1581     return TRUE;
1582 }
1583
1584
1585 /**********************************************************************
1586  *              LookupIconIdFromDirectoryEx (USER.364)
1587  *
1588  * FIXME: exact parameter sizes
1589  */
1590 INT16 WINAPI LookupIconIdFromDirectoryEx16( LPBYTE dir, BOOL16 bIcon,
1591                                             INT16 width, INT16 height, UINT16 cFlag )
1592 {
1593     return LookupIconIdFromDirectoryEx( dir, bIcon, width, height, cFlag );
1594 }
1595
1596 /**********************************************************************
1597  *              LookupIconIdFromDirectoryEx (USER32.@)
1598  */
1599 INT WINAPI LookupIconIdFromDirectoryEx( LPBYTE xdir, BOOL bIcon,
1600              INT width, INT height, UINT cFlag )
1601 {
1602     CURSORICONDIR       *dir = (CURSORICONDIR*)xdir;
1603     UINT retVal = 0;
1604     if( dir && !dir->idReserved && (dir->idType & 3) )
1605     {
1606         CURSORICONDIRENTRY* entry;
1607         HDC hdc;
1608         UINT palEnts;
1609         int colors;
1610         hdc = GetDC(0);
1611         palEnts = GetSystemPaletteEntries(hdc, 0, 0, NULL);
1612         if (palEnts == 0)
1613             palEnts = 256;
1614         colors = (cFlag & LR_MONOCHROME) ? 2 : palEnts;
1615
1616         ReleaseDC(0, hdc);
1617
1618         if( bIcon )
1619             entry = CURSORICON_FindBestIconRes( dir, width, height, colors );
1620         else
1621             entry = CURSORICON_FindBestCursorRes( dir, width, height, 1);
1622
1623         if( entry ) retVal = entry->wResId;
1624     }
1625     else WARN_(cursor)("invalid resource directory\n");
1626     return retVal;
1627 }
1628
1629 /**********************************************************************
1630  *              LookupIconIdFromDirectory (USER.?)
1631  */
1632 INT16 WINAPI LookupIconIdFromDirectory16( LPBYTE dir, BOOL16 bIcon )
1633 {
1634     return LookupIconIdFromDirectoryEx16( dir, bIcon,
1635            bIcon ? GetSystemMetrics(SM_CXICON) : GetSystemMetrics(SM_CXCURSOR),
1636            bIcon ? GetSystemMetrics(SM_CYICON) : GetSystemMetrics(SM_CYCURSOR), bIcon ? 0 : LR_MONOCHROME );
1637 }
1638
1639 /**********************************************************************
1640  *              LookupIconIdFromDirectory (USER32.@)
1641  */
1642 INT WINAPI LookupIconIdFromDirectory( LPBYTE dir, BOOL bIcon )
1643 {
1644     return LookupIconIdFromDirectoryEx( dir, bIcon,
1645            bIcon ? GetSystemMetrics(SM_CXICON) : GetSystemMetrics(SM_CXCURSOR),
1646            bIcon ? GetSystemMetrics(SM_CYICON) : GetSystemMetrics(SM_CYCURSOR), bIcon ? 0 : LR_MONOCHROME );
1647 }
1648
1649 /**********************************************************************
1650  *              GetIconID (USER.455)
1651  */
1652 WORD WINAPI GetIconID16( HGLOBAL16 hResource, DWORD resType )
1653 {
1654     LPBYTE lpDir = (LPBYTE)GlobalLock16(hResource);
1655
1656     TRACE_(cursor)("hRes=%04x, entries=%i\n",
1657                     hResource, lpDir ? ((CURSORICONDIR*)lpDir)->idCount : 0);
1658
1659     switch(resType)
1660     {
1661         case RT_CURSOR:
1662              return (WORD)LookupIconIdFromDirectoryEx16( lpDir, FALSE,
1663                           GetSystemMetrics(SM_CXCURSOR), GetSystemMetrics(SM_CYCURSOR), LR_MONOCHROME );
1664         case RT_ICON:
1665              return (WORD)LookupIconIdFromDirectoryEx16( lpDir, TRUE,
1666                           GetSystemMetrics(SM_CXICON), GetSystemMetrics(SM_CYICON), 0 );
1667         default:
1668              WARN_(cursor)("invalid res type %ld\n", resType );
1669     }
1670     return 0;
1671 }
1672
1673 /**********************************************************************
1674  *              LoadCursorIconHandler (USER.336)
1675  *
1676  * Supposed to load resources of Windows 2.x applications.
1677  */
1678 HGLOBAL16 WINAPI LoadCursorIconHandler16( HGLOBAL16 hResource, HMODULE16 hModule, HRSRC16 hRsrc )
1679 {
1680     FIXME_(cursor)("(%04x,%04x,%04x): old 2.x resources are not supported!\n",
1681           hResource, hModule, hRsrc);
1682     return (HGLOBAL16)0;
1683 }
1684
1685 /**********************************************************************
1686  *              LoadIconHandler (USER.456)
1687  */
1688 HICON16 WINAPI LoadIconHandler16( HGLOBAL16 hResource, BOOL16 bNew )
1689 {
1690     LPBYTE bits = (LPBYTE)LockResource16( hResource );
1691
1692     TRACE_(cursor)("hRes=%04x\n",hResource);
1693
1694     return HICON_16(CreateIconFromResourceEx( bits, 0, TRUE,
1695                       bNew ? 0x00030000 : 0x00020000, 0, 0, LR_DEFAULTCOLOR));
1696 }
1697
1698 /***********************************************************************
1699  *              LoadCursorW (USER32.@)
1700  */
1701 HCURSOR WINAPI LoadCursorW(HINSTANCE hInstance, LPCWSTR name)
1702 {
1703     return LoadImageW( hInstance, name, IMAGE_CURSOR, 0, 0,
1704                        LR_SHARED | LR_DEFAULTSIZE );
1705 }
1706
1707 /***********************************************************************
1708  *              LoadCursorA (USER32.@)
1709  */
1710 HCURSOR WINAPI LoadCursorA(HINSTANCE hInstance, LPCSTR name)
1711 {
1712     return LoadImageA( hInstance, name, IMAGE_CURSOR, 0, 0,
1713                        LR_SHARED | LR_DEFAULTSIZE );
1714 }
1715
1716 /***********************************************************************
1717  *              LoadCursorFromFileW (USER32.@)
1718  */
1719 HCURSOR WINAPI LoadCursorFromFileW (LPCWSTR name)
1720 {
1721     return LoadImageW( 0, name, IMAGE_CURSOR, 0, 0,
1722                        LR_LOADFROMFILE | LR_DEFAULTSIZE );
1723 }
1724
1725 /***********************************************************************
1726  *              LoadCursorFromFileA (USER32.@)
1727  */
1728 HCURSOR WINAPI LoadCursorFromFileA (LPCSTR name)
1729 {
1730     return LoadImageA( 0, name, IMAGE_CURSOR, 0, 0,
1731                        LR_LOADFROMFILE | LR_DEFAULTSIZE );
1732 }
1733
1734 /***********************************************************************
1735  *              LoadIconW (USER32.@)
1736  */
1737 HICON WINAPI LoadIconW(HINSTANCE hInstance, LPCWSTR name)
1738 {
1739     return LoadImageW( hInstance, name, IMAGE_ICON, 0, 0,
1740                        LR_SHARED | LR_DEFAULTSIZE );
1741 }
1742
1743 /***********************************************************************
1744  *              LoadIconA (USER32.@)
1745  */
1746 HICON WINAPI LoadIconA(HINSTANCE hInstance, LPCSTR name)
1747 {
1748     return LoadImageA( hInstance, name, IMAGE_ICON, 0, 0,
1749                        LR_SHARED | LR_DEFAULTSIZE );
1750 }
1751
1752 /**********************************************************************
1753  *              GetIconInfo (USER32.@)
1754  */
1755 BOOL WINAPI GetIconInfo(HICON hIcon, PICONINFO iconinfo)
1756 {
1757     CURSORICONINFO *ciconinfo;
1758     INT height;
1759
1760     ciconinfo = GlobalLock16(HICON_16(hIcon));
1761     if (!ciconinfo)
1762         return FALSE;
1763
1764     if ( (ciconinfo->ptHotSpot.x == ICON_HOTSPOT) &&
1765          (ciconinfo->ptHotSpot.y == ICON_HOTSPOT) )
1766     {
1767       iconinfo->fIcon    = TRUE;
1768       iconinfo->xHotspot = ciconinfo->nWidth / 2;
1769       iconinfo->yHotspot = ciconinfo->nHeight / 2;
1770     }
1771     else
1772     {
1773       iconinfo->fIcon    = FALSE;
1774       iconinfo->xHotspot = ciconinfo->ptHotSpot.x;
1775       iconinfo->yHotspot = ciconinfo->ptHotSpot.y;
1776     }
1777
1778     if (ciconinfo->bBitsPerPixel > 1)
1779     {
1780         iconinfo->hbmColor = CreateBitmap( ciconinfo->nWidth, ciconinfo->nHeight,
1781                                 ciconinfo->bPlanes, ciconinfo->bBitsPerPixel,
1782                                 (char *)(ciconinfo + 1)
1783                                 + ciconinfo->nHeight *
1784                                 get_bitmap_width_bytes (ciconinfo->nWidth,1) );
1785         height = ciconinfo->nHeight;
1786     }
1787     else
1788     {
1789         iconinfo->hbmColor = 0;
1790         height = ciconinfo->nHeight * 2;
1791     }
1792
1793     iconinfo->hbmMask = CreateBitmap ( ciconinfo->nWidth, height,
1794                                 1, 1, (char *)(ciconinfo + 1));
1795
1796     GlobalUnlock16(HICON_16(hIcon));
1797
1798     return TRUE;
1799 }
1800
1801 /**********************************************************************
1802  *              CreateIconIndirect (USER32.@)
1803  */
1804 HICON WINAPI CreateIconIndirect(PICONINFO iconinfo)
1805 {
1806     BITMAP bmpXor,bmpAnd;
1807     HICON16 hObj;
1808     int sizeXor,sizeAnd;
1809
1810     GetObjectA( iconinfo->hbmColor, sizeof(bmpXor), &bmpXor );
1811     GetObjectA( iconinfo->hbmMask, sizeof(bmpAnd), &bmpAnd );
1812
1813     sizeXor = bmpXor.bmHeight * bmpXor.bmWidthBytes;
1814     sizeAnd = bmpAnd.bmHeight * bmpAnd.bmWidthBytes;
1815
1816     hObj = GlobalAlloc16( GMEM_MOVEABLE,
1817                           sizeof(CURSORICONINFO) + sizeXor + sizeAnd );
1818     if (hObj)
1819     {
1820         CURSORICONINFO *info;
1821
1822         info = (CURSORICONINFO *)GlobalLock16( hObj );
1823
1824         /* If we are creating an icon, the hotspot is unused */
1825         if (iconinfo->fIcon)
1826         {
1827           info->ptHotSpot.x   = ICON_HOTSPOT;
1828           info->ptHotSpot.y   = ICON_HOTSPOT;
1829         }
1830         else
1831         {
1832           info->ptHotSpot.x   = iconinfo->xHotspot;
1833           info->ptHotSpot.y   = iconinfo->yHotspot;
1834         }
1835
1836         info->nWidth        = bmpXor.bmWidth;
1837         info->nHeight       = bmpXor.bmHeight;
1838         info->nWidthBytes   = bmpXor.bmWidthBytes;
1839         info->bPlanes       = bmpXor.bmPlanes;
1840         info->bBitsPerPixel = bmpXor.bmBitsPixel;
1841
1842         /* Transfer the bitmap bits to the CURSORICONINFO structure */
1843
1844         GetBitmapBits( iconinfo->hbmMask ,sizeAnd,(char*)(info + 1) );
1845         GetBitmapBits( iconinfo->hbmColor,sizeXor,(char*)(info + 1) +sizeAnd);
1846         GlobalUnlock16( hObj );
1847     }
1848     return HICON_32(hObj);
1849 }
1850
1851 /******************************************************************************
1852  *              DrawIconEx (USER32.@) Draws an icon or cursor on device context
1853  *
1854  * NOTES
1855  *    Why is this using SM_CXICON instead of SM_CXCURSOR?
1856  *
1857  * PARAMS
1858  *    hdc     [I] Handle to device context
1859  *    x0      [I] X coordinate of upper left corner
1860  *    y0      [I] Y coordinate of upper left corner
1861  *    hIcon   [I] Handle to icon to draw
1862  *    cxWidth [I] Width of icon
1863  *    cyWidth [I] Height of icon
1864  *    istep   [I] Index of frame in animated cursor
1865  *    hbr     [I] Handle to background brush
1866  *    flags   [I] Icon-drawing flags
1867  *
1868  * RETURNS
1869  *    Success: TRUE
1870  *    Failure: FALSE
1871  */
1872 BOOL WINAPI DrawIconEx( HDC hdc, INT x0, INT y0, HICON hIcon,
1873                             INT cxWidth, INT cyWidth, UINT istep,
1874                             HBRUSH hbr, UINT flags )
1875 {
1876     CURSORICONINFO *ptr = (CURSORICONINFO *)GlobalLock16(HICON_16(hIcon));
1877     HDC hDC_off = 0, hMemDC;
1878     BOOL result = FALSE, DoOffscreen;
1879     HBITMAP hB_off = 0, hOld = 0;
1880
1881     if (!ptr) return FALSE;
1882     TRACE_(icon)("(hdc=%p,pos=%d.%d,hicon=%p,extend=%d.%d,istep=%d,br=%p,flags=0x%08x)\n",
1883                  hdc,x0,y0,hIcon,cxWidth,cyWidth,istep,hbr,flags );
1884
1885     hMemDC = CreateCompatibleDC (hdc);
1886     if (istep)
1887         FIXME_(icon)("Ignoring istep=%d\n", istep);
1888     if (flags & DI_COMPAT)
1889         FIXME_(icon)("Ignoring flag DI_COMPAT\n");
1890
1891     if (!flags) {
1892         FIXME_(icon)("no flags set? setting to DI_NORMAL\n");
1893         flags = DI_NORMAL;
1894     }
1895
1896     /* Calculate the size of the destination image.  */
1897     if (cxWidth == 0)
1898     {
1899         if (flags & DI_DEFAULTSIZE)
1900             cxWidth = GetSystemMetrics (SM_CXICON);
1901         else
1902             cxWidth = ptr->nWidth;
1903     }
1904     if (cyWidth == 0)
1905     {
1906         if (flags & DI_DEFAULTSIZE)
1907             cyWidth = GetSystemMetrics (SM_CYICON);
1908         else
1909             cyWidth = ptr->nHeight;
1910     }
1911
1912     DoOffscreen = (GetObjectType( hbr ) == OBJ_BRUSH);
1913
1914     if (DoOffscreen) {
1915         RECT r;
1916
1917         r.left = 0;
1918         r.top = 0;
1919         r.right = cxWidth;
1920         r.bottom = cxWidth;
1921
1922         hDC_off = CreateCompatibleDC(hdc);
1923         hB_off = CreateCompatibleBitmap(hdc, cxWidth, cyWidth);
1924         if (hDC_off && hB_off) {
1925             hOld = SelectObject(hDC_off, hB_off);
1926             FillRect(hDC_off, &r, hbr);
1927         }
1928     }
1929
1930     if (hMemDC && (!DoOffscreen || (hDC_off && hB_off)))
1931     {
1932         HBITMAP hXorBits, hAndBits;
1933         COLORREF  oldFg, oldBg;
1934         INT     nStretchMode;
1935
1936         nStretchMode = SetStretchBltMode (hdc, STRETCH_DELETESCANS);
1937
1938         hXorBits = CreateBitmap ( ptr->nWidth, ptr->nHeight,
1939                                   ptr->bPlanes, ptr->bBitsPerPixel,
1940                                   (char *)(ptr + 1)
1941                                   + ptr->nHeight *
1942                                   get_bitmap_width_bytes(ptr->nWidth,1) );
1943         hAndBits = CreateBitmap ( ptr->nWidth, ptr->nHeight,
1944                                   1, 1, (char *)(ptr+1) );
1945         oldFg = SetTextColor( hdc, RGB(0,0,0) );
1946         oldBg = SetBkColor( hdc, RGB(255,255,255) );
1947
1948         if (hXorBits && hAndBits)
1949         {
1950             HBITMAP hBitTemp = SelectObject( hMemDC, hAndBits );
1951             if (flags & DI_MASK)
1952             {
1953                 if (DoOffscreen)
1954                     StretchBlt (hDC_off, 0, 0, cxWidth, cyWidth,
1955                                 hMemDC, 0, 0, ptr->nWidth, ptr->nHeight, SRCAND);
1956                 else
1957                     StretchBlt (hdc, x0, y0, cxWidth, cyWidth,
1958                                 hMemDC, 0, 0, ptr->nWidth, ptr->nHeight, SRCAND);
1959             }
1960             SelectObject( hMemDC, hXorBits );
1961             if (flags & DI_IMAGE)
1962             {
1963                 if (DoOffscreen)
1964                     StretchBlt (hDC_off, 0, 0, cxWidth, cyWidth,
1965                                 hMemDC, 0, 0, ptr->nWidth, ptr->nHeight, SRCPAINT);
1966                 else
1967                     StretchBlt (hdc, x0, y0, cxWidth, cyWidth,
1968                                 hMemDC, 0, 0, ptr->nWidth, ptr->nHeight, SRCPAINT);
1969             }
1970             SelectObject( hMemDC, hBitTemp );
1971             result = TRUE;
1972         }
1973
1974         SetTextColor( hdc, oldFg );
1975         SetBkColor( hdc, oldBg );
1976         if (hXorBits) DeleteObject( hXorBits );
1977         if (hAndBits) DeleteObject( hAndBits );
1978         SetStretchBltMode (hdc, nStretchMode);
1979         if (DoOffscreen) {
1980             BitBlt(hdc, x0, y0, cxWidth, cyWidth, hDC_off, 0, 0, SRCCOPY);
1981             SelectObject(hDC_off, hOld);
1982         }
1983     }
1984     if (hMemDC) DeleteDC( hMemDC );
1985     if (hDC_off) DeleteDC(hDC_off);
1986     if (hB_off) DeleteObject(hB_off);
1987     GlobalUnlock16(HICON_16(hIcon));
1988     return result;
1989 }
1990
1991 /***********************************************************************
1992  *           DIB_FixColorsToLoadflags
1993  *
1994  * Change color table entries when LR_LOADTRANSPARENT or LR_LOADMAP3DCOLORS
1995  * are in loadflags
1996  */
1997 static void DIB_FixColorsToLoadflags(BITMAPINFO * bmi, UINT loadflags, BYTE pix)
1998 {
1999     int colors;
2000     COLORREF c_W, c_S, c_F, c_L, c_C;
2001     int incr,i;
2002     RGBQUAD *ptr;
2003     int bitmap_type;
2004     LONG width;
2005     LONG height;
2006     WORD bpp;
2007     DWORD compr;
2008
2009     if (((bitmap_type = DIB_GetBitmapInfo((BITMAPINFOHEADER*) bmi, &width, &height, &bpp, &compr)) == -1))
2010     {
2011         WARN_(resource)("Invalid bitmap\n");
2012         return;
2013     }
2014
2015     if (bpp > 8) return;
2016
2017     if (bitmap_type == 0) /* BITMAPCOREHEADER */
2018     {
2019         incr = 3;
2020         colors = 1 << bpp;
2021     }
2022     else
2023     {
2024         incr = 4;
2025         colors = bmi->bmiHeader.biClrUsed;
2026         if (colors > 256) colors = 256;
2027         if (!colors && (bpp <= 8)) colors = 1 << bpp;
2028     }
2029
2030     c_W = GetSysColor(COLOR_WINDOW);
2031     c_S = GetSysColor(COLOR_3DSHADOW);
2032     c_F = GetSysColor(COLOR_3DFACE);
2033     c_L = GetSysColor(COLOR_3DLIGHT);
2034
2035     if (loadflags & LR_LOADTRANSPARENT) {
2036         switch (bpp) {
2037         case 1: pix = pix >> 7; break;
2038         case 4: pix = pix >> 4; break;
2039         case 8: break;
2040         default:
2041             WARN_(resource)("(%d): Unsupported depth\n", bpp);
2042             return;
2043         }
2044         if (pix >= colors) {
2045             WARN_(resource)("pixel has color index greater than biClrUsed!\n");
2046             return;
2047         }
2048         if (loadflags & LR_LOADMAP3DCOLORS) c_W = c_F;
2049         ptr = (RGBQUAD*)((char*)bmi->bmiColors+pix*incr);
2050         ptr->rgbBlue = GetBValue(c_W);
2051         ptr->rgbGreen = GetGValue(c_W);
2052         ptr->rgbRed = GetRValue(c_W);
2053     }
2054     if (loadflags & LR_LOADMAP3DCOLORS)
2055         for (i=0; i<colors; i++) {
2056             ptr = (RGBQUAD*)((char*)bmi->bmiColors+i*incr);
2057             c_C = RGB(ptr->rgbRed, ptr->rgbGreen, ptr->rgbBlue);
2058             if (c_C == RGB(128, 128, 128)) {
2059                 ptr->rgbRed = GetRValue(c_S);
2060                 ptr->rgbGreen = GetGValue(c_S);
2061                 ptr->rgbBlue = GetBValue(c_S);
2062             } else if (c_C == RGB(192, 192, 192)) {
2063                 ptr->rgbRed = GetRValue(c_F);
2064                 ptr->rgbGreen = GetGValue(c_F);
2065                 ptr->rgbBlue = GetBValue(c_F);
2066             } else if (c_C == RGB(223, 223, 223)) {
2067                 ptr->rgbRed = GetRValue(c_L);
2068                 ptr->rgbGreen = GetGValue(c_L);
2069                 ptr->rgbBlue = GetBValue(c_L);
2070             }
2071         }
2072 }
2073
2074
2075 /**********************************************************************
2076  *       BITMAP_Load
2077  */
2078 static HBITMAP BITMAP_Load( HINSTANCE instance, LPCWSTR name,
2079                             INT desiredx, INT desiredy, UINT loadflags )
2080 {
2081     HBITMAP hbitmap = 0, orig_bm;
2082     HRSRC hRsrc;
2083     HGLOBAL handle;
2084     char *ptr = NULL;
2085     BITMAPINFO *info, *fix_info = NULL, *scaled_info = NULL;
2086     int size;
2087     BYTE pix;
2088     char *bits;
2089     LONG width, height, new_width, new_height;
2090     WORD bpp_dummy;
2091     DWORD compr_dummy;
2092     INT bm_type;
2093     HDC screen_mem_dc = NULL;
2094
2095     if (!(loadflags & LR_LOADFROMFILE))
2096     {
2097         if (!instance)
2098         {
2099             /* OEM bitmap: try to load the resource from user32.dll */
2100             if (HIWORD(name)) return 0;
2101             instance = user32_module;
2102         }
2103
2104         if (!(hRsrc = FindResourceW( instance, name, (LPWSTR)RT_BITMAP ))) return 0;
2105         if (!(handle = LoadResource( instance, hRsrc ))) return 0;
2106
2107         if ((info = (BITMAPINFO *)LockResource( handle )) == NULL) return 0;
2108     }
2109     else
2110     {
2111         if (!(ptr = map_fileW( name, NULL ))) return 0;
2112         info = (BITMAPINFO *)(ptr + sizeof(BITMAPFILEHEADER));
2113     }
2114
2115     size = bitmap_info_size(info, DIB_RGB_COLORS);
2116     fix_info = HeapAlloc(GetProcessHeap(), 0, size);
2117     scaled_info = HeapAlloc(GetProcessHeap(), 0, size);
2118
2119     if (!fix_info || !scaled_info) goto end;
2120     memcpy(fix_info, info, size);
2121
2122     pix = *((LPBYTE)info + size);
2123     DIB_FixColorsToLoadflags(fix_info, loadflags, pix);
2124
2125     memcpy(scaled_info, fix_info, size);
2126     bm_type = DIB_GetBitmapInfo( &fix_info->bmiHeader, &width, &height,
2127                                  &bpp_dummy, &compr_dummy);
2128     if(desiredx != 0)
2129         new_width = desiredx;
2130     else
2131         new_width = width;
2132
2133     if(desiredy != 0)
2134         new_height = height > 0 ? desiredy : -desiredy;
2135     else
2136         new_height = height;
2137
2138     if(bm_type == 0)
2139     {
2140         BITMAPCOREHEADER *core = (BITMAPCOREHEADER *)&scaled_info->bmiHeader;
2141         core->bcWidth = new_width;
2142         core->bcHeight = new_height;
2143     }
2144     else
2145     {
2146         scaled_info->bmiHeader.biWidth = new_width;
2147         scaled_info->bmiHeader.biHeight = new_height;
2148     }
2149
2150     if (new_height < 0) new_height = -new_height;
2151
2152     if (!screen_dc) screen_dc = CreateDCW( DISPLAYW, NULL, NULL, NULL );
2153     if (!(screen_mem_dc = CreateCompatibleDC( screen_dc ))) goto end;
2154
2155     bits = (char *)info + size;
2156
2157     if (loadflags & LR_CREATEDIBSECTION)
2158     {
2159         scaled_info->bmiHeader.biCompression = 0; /* DIBSection can't be compressed */
2160         hbitmap = CreateDIBSection(screen_dc, scaled_info, DIB_RGB_COLORS, NULL, 0, 0);
2161     }
2162     else
2163     {
2164         if (is_dib_monochrome(fix_info))
2165             hbitmap = CreateBitmap(new_width, new_height, 1, 1, NULL);
2166         else
2167             hbitmap = CreateCompatibleBitmap(screen_dc, new_width, new_height);
2168     }
2169
2170     orig_bm = SelectObject(screen_mem_dc, hbitmap);
2171     StretchDIBits(screen_mem_dc, 0, 0, new_width, new_height, 0, 0, width, height, bits, fix_info, DIB_RGB_COLORS, SRCCOPY);
2172     SelectObject(screen_mem_dc, orig_bm);
2173
2174 end:
2175     if (screen_mem_dc) DeleteDC(screen_mem_dc);
2176     HeapFree(GetProcessHeap(), 0, scaled_info);
2177     HeapFree(GetProcessHeap(), 0, fix_info);
2178     if (loadflags & LR_LOADFROMFILE) UnmapViewOfFile( ptr );
2179
2180     return hbitmap;
2181 }
2182
2183 /**********************************************************************
2184  *              LoadImageA (USER32.@)
2185  *
2186  * FIXME: implementation lacks some features, see LR_ defines in winuser.h
2187  */
2188
2189 /* filter for page-fault exceptions */
2190 static WINE_EXCEPTION_FILTER(page_fault)
2191 {
2192     if (GetExceptionCode() == EXCEPTION_ACCESS_VIOLATION)
2193         return EXCEPTION_EXECUTE_HANDLER;
2194     return EXCEPTION_CONTINUE_SEARCH;
2195 }
2196
2197 /*********************************************************************/
2198
2199 HANDLE WINAPI LoadImageA( HINSTANCE hinst, LPCSTR name, UINT type,
2200                               INT desiredx, INT desiredy, UINT loadflags)
2201 {
2202     HANDLE res;
2203     LPWSTR u_name;
2204
2205     if (!HIWORD(name))
2206         return LoadImageW(hinst, (LPCWSTR)name, type, desiredx, desiredy, loadflags);
2207
2208     __TRY {
2209         DWORD len = MultiByteToWideChar( CP_ACP, 0, name, -1, NULL, 0 );
2210         u_name = HeapAlloc( GetProcessHeap(), 0, len * sizeof(WCHAR) );
2211         MultiByteToWideChar( CP_ACP, 0, name, -1, u_name, len );
2212     }
2213     __EXCEPT(page_fault) {
2214         SetLastError( ERROR_INVALID_PARAMETER );
2215         return 0;
2216     }
2217     __ENDTRY
2218     res = LoadImageW(hinst, u_name, type, desiredx, desiredy, loadflags);
2219     HeapFree(GetProcessHeap(), 0, u_name);
2220     return res;
2221 }
2222
2223
2224 /******************************************************************************
2225  *              LoadImageW (USER32.@) Loads an icon, cursor, or bitmap
2226  *
2227  * PARAMS
2228  *    hinst     [I] Handle of instance that contains image
2229  *    name      [I] Name of image
2230  *    type      [I] Type of image
2231  *    desiredx  [I] Desired width
2232  *    desiredy  [I] Desired height
2233  *    loadflags [I] Load flags
2234  *
2235  * RETURNS
2236  *    Success: Handle to newly loaded image
2237  *    Failure: NULL
2238  *
2239  * FIXME: Implementation lacks some features, see LR_ defines in winuser.h
2240  */
2241 HANDLE WINAPI LoadImageW( HINSTANCE hinst, LPCWSTR name, UINT type,
2242                 INT desiredx, INT desiredy, UINT loadflags )
2243 {
2244     TRACE_(resource)("(%p,%s,%d,%d,%d,0x%08x)\n",
2245                      hinst,debugstr_w(name),type,desiredx,desiredy,loadflags);
2246
2247     if (loadflags & LR_DEFAULTSIZE) {
2248         if (type == IMAGE_ICON) {
2249             if (!desiredx) desiredx = GetSystemMetrics(SM_CXICON);
2250             if (!desiredy) desiredy = GetSystemMetrics(SM_CYICON);
2251         } else if (type == IMAGE_CURSOR) {
2252             if (!desiredx) desiredx = GetSystemMetrics(SM_CXCURSOR);
2253             if (!desiredy) desiredy = GetSystemMetrics(SM_CYCURSOR);
2254         }
2255     }
2256     if (loadflags & LR_LOADFROMFILE) loadflags &= ~LR_SHARED;
2257     switch (type) {
2258     case IMAGE_BITMAP:
2259         return BITMAP_Load( hinst, name, desiredx, desiredy, loadflags );
2260
2261     case IMAGE_ICON:
2262         if (!screen_dc) screen_dc = CreateDCW( DISPLAYW, NULL, NULL, NULL );
2263         if (screen_dc)
2264         {
2265             UINT palEnts = GetSystemPaletteEntries(screen_dc, 0, 0, NULL);
2266             if (palEnts == 0) palEnts = 256;
2267             return CURSORICON_Load(hinst, name, desiredx, desiredy,
2268                                    palEnts, FALSE, loadflags);
2269         }
2270         break;
2271
2272     case IMAGE_CURSOR:
2273         return CURSORICON_Load(hinst, name, desiredx, desiredy,
2274                                1, TRUE, loadflags);
2275     }
2276     return 0;
2277 }
2278
2279 /******************************************************************************
2280  *              CopyImage (USER32.@) Creates new image and copies attributes to it
2281  *
2282  * PARAMS
2283  *    hnd      [I] Handle to image to copy
2284  *    type     [I] Type of image to copy
2285  *    desiredx [I] Desired width of new image
2286  *    desiredy [I] Desired height of new image
2287  *    flags    [I] Copy flags
2288  *
2289  * RETURNS
2290  *    Success: Handle to newly created image
2291  *    Failure: NULL
2292  *
2293  * FIXME: implementation still lacks nearly all features, see LR_*
2294  * defines in winuser.h
2295  */
2296 HICON WINAPI CopyImage( HANDLE hnd, UINT type, INT desiredx,
2297                              INT desiredy, UINT flags )
2298 {
2299     switch (type)
2300     {
2301         case IMAGE_BITMAP:
2302         {
2303             HBITMAP res;
2304             BITMAP bm;
2305
2306             if (!GetObjectW( hnd, sizeof(bm), &bm )) return 0;
2307             bm.bmBits = NULL;
2308             if ((res = CreateBitmapIndirect(&bm)))
2309             {
2310                 char *buf = HeapAlloc( GetProcessHeap(), 0, bm.bmWidthBytes * bm.bmHeight );
2311                 GetBitmapBits( hnd, bm.bmWidthBytes * bm.bmHeight, buf );
2312                 SetBitmapBits( res, bm.bmWidthBytes * bm.bmHeight, buf );
2313                 HeapFree( GetProcessHeap(), 0, buf );
2314             }
2315             return (HICON)res;
2316         }
2317         case IMAGE_ICON:
2318                 return CURSORICON_ExtCopy(hnd,type, desiredx, desiredy, flags);
2319         case IMAGE_CURSOR:
2320                 /* Should call CURSORICON_ExtCopy but more testing
2321                  * needs to be done before we change this
2322                  */
2323                 return CopyCursor(hnd);
2324     }
2325     return 0;
2326 }
2327
2328
2329 /******************************************************************************
2330  *              LoadBitmapW (USER32.@) Loads bitmap from the executable file
2331  *
2332  * RETURNS
2333  *    Success: Handle to specified bitmap
2334  *    Failure: NULL
2335  */
2336 HBITMAP WINAPI LoadBitmapW(
2337     HINSTANCE instance, /* [in] Handle to application instance */
2338     LPCWSTR name)         /* [in] Address of bitmap resource name */
2339 {
2340     return LoadImageW( instance, name, IMAGE_BITMAP, 0, 0, 0 );
2341 }
2342
2343 /**********************************************************************
2344  *              LoadBitmapA (USER32.@)
2345  */
2346 HBITMAP WINAPI LoadBitmapA( HINSTANCE instance, LPCSTR name )
2347 {
2348     return LoadImageA( instance, name, IMAGE_BITMAP, 0, 0, 0 );
2349 }