src/msw/dibutils.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        dibutils.cpp
   3 // Purpose:     Utilities for DIBs
   4 // Author:      Julian Smart
   5 // Modified by:
   6 // Created:     04/01/98
   7 // RCS-ID:      $Id$
   8 // Copyright:   (c) Microsoft, Julian Smart and Markus Holzem
   9 // Licence:     wxWindows license
  10 /////////////////////////////////////////////////////////////////////////////
  11
  12 #ifdef __GNUG__
  13 #pragma implementation "dibutils.h"
  14 #endif
  15
  16 // For compilers that support precompilation, includes "wx.h".
  17 #include "wx/wxprec.h"
  18
  19 #ifdef __BORLANDC__
  20 #pragma hdrstop
  21 #endif
  22
  23 #ifndef WX_PRECOMP
  24 #include "wx/setup.h"
  25 #include "wx/defs.h"
  26 #include "wx/string.h"
  27 #endif
  28
  29 #include <windows.h>
  30 #include <windowsx.h>
  31 #include <stdio.h>
  32
  33 #include "wx/msw/dibutils.h"
  34
  35 #ifdef __WXWINE__
  36   #include <module.h>
  37 #endif
  38
  39 #if defined(__WIN32__)
  40 #if !defined(__MWERKS__) && !defined(__SALFORDC__)
  41     #include <memory.h>             // for _fmemcpy()
  42 #endif
  43    #define _huge
  44 #ifndef hmemcpy
  45     #define hmemcpy memcpy
  46 #endif
  47 #endif
  48
  49 #define BFT_ICON   0x4349   /* 'IC' */
  50 #define BFT_BITMAP 0x4d42   /* 'BM' */
  51 #define BFT_CURSOR 0x5450   /* 'PT(' */
  52
  53 #ifndef SEEK_CUR
  54 /* flags for _lseek */
  55 #define  SEEK_CUR 1
  56 #define  SEEK_END 2
  57 #define  SEEK_SET 0
  58 #endif
  59
  60 /* Copied from PNGhandler for coompilation with MingW32, RR */
  61
  62 #ifndef GlobalAllocPtr
  63 #define     GlobalPtrHandle(lp)         \
  64                 ((HGLOBAL)GlobalHandle(lp))
  65
  66 #define     GlobalLockPtr(lp)                \
  67                 ((BOOL)GlobalLock(GlobalPtrHandle(lp)))
  68 #define     GlobalUnlockPtr(lp)      \
  69                 GlobalUnlock(GlobalPtrHandle(lp))
  70
  71 #define     GlobalAllocPtr(flags, cb)        \
  72                 (GlobalLock(GlobalAlloc((flags), (cb))))
  73 #define     GlobalReAllocPtr(lp, cbNew, flags)       \
  74                 (GlobalUnlockPtr(lp), GlobalLock(GlobalReAlloc(GlobalPtrHandle(lp) , (cbNew), (flags))))
  75 #define     GlobalFreePtr(lp)                \
  76                 (GlobalUnlockPtr(lp), (BOOL)GlobalFree(GlobalPtrHandle(lp)))
  77 #endif
  78
  79
  80 /*
  81  *  Clear the System Palette so that we can ensure an identity palette
  82  *  mapping for fast performance.
  83  */
  84
  85 void wxClearSystemPalette(void)
  86 {
  87   //*** A dummy palette setup
  88   struct
  89   {
  90     WORD Version;
  91     WORD NumberOfEntries;
  92     PALETTEENTRY aEntries[256];
  93   } Palette =
  94   {
  95     0x300,
  96     256
  97   };
  98
  99   HPALETTE ScreenPalette = 0;
 100   HDC ScreenDC;
 101   int Counter;
 102   UINT nMapped = 0;
 103   BOOL bOK = FALSE;
 104   int  nOK = 0;
 105
 106   // *** Reset everything in the system palette to black
 107   for(Counter = 0; Counter < 256; Counter++)
 108   {
 109     Palette.aEntries[Counter].peRed = 0;
 110    Palette.aEntries[Counter].peGreen = 0;
 111     Palette.aEntries[Counter].peBlue = 0;
 112     Palette.aEntries[Counter].peFlags = PC_NOCOLLAPSE;
 113   }
 114
 115   // *** Create, select, realize, deselect, and delete the palette
 116 #ifdef __WXWINE__
 117   ScreenDC = GetDC((HWND)NULL);
 118 #else
 119   ScreenDC = GetDC(NULL);
 120 #endif
 121   ScreenPalette = CreatePalette((LOGPALETTE *)&Palette);
 122
 123   if (ScreenPalette)
 124   {
 125    ScreenPalette = SelectPalette(ScreenDC,ScreenPalette,FALSE);
 126    nMapped = RealizePalette(ScreenDC);
 127     ScreenPalette = SelectPalette(ScreenDC,ScreenPalette,FALSE);
 128     bOK = DeleteObject(ScreenPalette);
 129   }
 130
 131 #ifdef __WXWINE__
 132   nOK = ReleaseDC((HWND)NULL, ScreenDC);
 133 #else
 134   nOK = ReleaseDC(NULL, ScreenDC);
 135 #endif
 136
 137   return;
 138 }
 139
 140
 141 /*
 142  *   Open a DIB file and return a MEMORY DIB, a memory handle containing..
 143  *
 144  *   BITMAP INFO    bi
 145  *   palette data
 146  *   bits....
 147  */
 148
 149 int wxDibWriteFile(LPTSTR szFile, LPBITMAPINFOHEADER lpbi)
 150 {
 151    HFILE               fh;
 152    OFSTRUCT            of;
 153
 154    fh = OpenFile(wxConvFile.cWX2MB(szFile), &of, OF_WRITE | OF_CREATE);
 155
 156   if (!fh) {
 157 //   printf("la regamos0");
 158    return 0;
 159   }
 160
 161   long size = wxDibSize(lpbi);
 162
 163   // write file header
 164   BITMAPFILEHEADER bmf;
 165   bmf.bfType = BFT_BITMAP;
 166   bmf.bfSize = sizeof(bmf) + size;
 167   bmf.bfReserved1 = 0;
 168   bmf.bfReserved2 = 0;
 169   bmf.bfOffBits = sizeof(bmf) + (char FAR*)(wxDibPtr(lpbi)) - (char FAR*)lpbi;
 170 #if 1 // defined( __WATCOMC__) || defined(__VISUALC__) || defined(__SC__) || defined(__SALFORDC__) || defined(__MWERKS__) || wxUSE_NORLANDER_HEADERS
 171   #define HWRITE_2ND_ARG_TYPE   LPCSTR
 172 #else // don't know who needs this...
 173   #define HWRITE_2ND_ARG_TYPE   LPBYTE
 174 #endif
 175
 176   if ( _hwrite(fh, (HWRITE_2ND_ARG_TYPE)(&bmf), sizeof(bmf)) < 0 ||
 177        _hwrite(fh, (HWRITE_2ND_ARG_TYPE)lpbi, size) < 0 )
 178   {
 179     _lclose(fh);
 180     return 0;
 181   }
 182
 183 #undef HWRITE_2ND_ARG_TYPE
 184
 185   _lclose(fh);
 186   return 1;
 187 }
 188
 189 PDIB wxDibOpenFile(LPTSTR szFile)
 190 {
 191    HFILE               fh;
 192    DWORD               dwLen;
 193    DWORD               dwBits;
 194    PDIB                pdib;
 195    LPVOID              p;
 196    OFSTRUCT            of;
 197
 198 #if defined(WIN32) || defined(_WIN32)
 199    #define GetCurrentInstance()    GetModuleHandle(NULL)
 200 #else
 201    #define GetCurrentInstance()    (HINSTANCE)SELECTOROF((LPVOID)&of)
 202 #endif
 203
 204    fh = OpenFile(wxConvFile.cWX2MB(szFile), &of, OF_READ);
 205
 206    if (fh == -1)
 207    {
 208       HRSRC h;
 209
 210           // TODO: Unicode version
 211 #ifdef __WIN16__
 212       h = FindResource(GetCurrentInstance(), szFile, RT_BITMAP);
 213 #elif wxUSE_UNICODE
 214       h = FindResourceW(GetCurrentInstance(), szFile, RT_BITMAP);
 215 #else
 216       h = FindResourceA(GetCurrentInstance(), szFile, RT_BITMAP);
 217 #endif
 218
 219 #if defined(__WIN32__)
 220       //!!! can we call GlobalFree() on this? is it the right format.
 221       //!!! can we write to this resource?
 222       if (h)
 223         return (PDIB)LockResource(LoadResource(GetCurrentInstance(), h));
 224 #else
 225       if (h)
 226         fh = AccessResource(GetCurrentInstance(), h);
 227 #endif
 228    }
 229
 230    if (fh == -1)
 231       return NULL;
 232
 233    pdib = wxDibReadBitmapInfo(fh);
 234
 235    if (!pdib)
 236       return NULL;
 237
 238     /* How much memory do we need to hold the DIB */
 239
 240     dwBits = pdib->biSizeImage;
 241     dwLen  = pdib->biSize + wxDibPaletteSize(pdib) + dwBits;
 242
 243     /* Can we get more memory? */
 244
 245    p = GlobalReAllocPtr(pdib,dwLen,0);
 246
 247     if (!p)
 248     {
 249       GlobalFreePtr(pdib);
 250         pdib = NULL;
 251     }
 252     else
 253     {
 254         pdib = (PDIB)p;
 255     }
 256
 257     if (pdib)
 258     {
 259       /* read in the bits */
 260       _hread(fh, (LPBYTE)pdib + (UINT)pdib->biSize + wxDibPaletteSize(pdib), dwBits);
 261     }
 262
 263     _lclose(fh);
 264
 265     return pdib;
 266 }
 267
 268
 269 /*
 270  *  ReadDibBitmapInfo()
 271  *
 272  *  Will read a file in DIB format and return a global HANDLE to its
 273  *  BITMAPINFO.  This function will work with both "old" and "new"
 274  *  bitmap formats, but will always return a "new" BITMAPINFO.
 275  */
 276
 277 PDIB wxDibReadBitmapInfo(HFILE fh)
 278 {
 279     DWORD     off;
 280     int       size;
 281     int       i;
 282     int       nNumColors;
 283
 284     RGBQUAD FAR       *pRgb;
 285     BITMAPINFOHEADER   bi;
 286     BITMAPCOREHEADER   bc;
 287     BITMAPFILEHEADER   bf;
 288     PDIB               pdib;
 289
 290     if (fh == -1)
 291         return NULL;
 292
 293     off = _llseek(fh,0L,SEEK_CUR);
 294
 295     if (sizeof(bf) != _lread(fh,(LPSTR)&bf,sizeof(bf)))
 296         return FALSE;
 297
 298     /*
 299      *  do we have a RC HEADER?
 300      */
 301     if (bf.bfType != BFT_BITMAP)
 302     {
 303         bf.bfOffBits = 0L;
 304         _llseek(fh,off,SEEK_SET);
 305     }
 306
 307     if (sizeof(bi) != _lread(fh,(LPSTR)&bi,sizeof(bi)))
 308         return FALSE;
 309
 310     /*
 311      *  what type of bitmap info is this?
 312      */
 313     switch (size = (int)bi.biSize)
 314     {
 315         default:
 316         case sizeof(BITMAPINFOHEADER):
 317             break;
 318
 319         case sizeof(BITMAPCOREHEADER):
 320             bc = *(BITMAPCOREHEADER*)&bi;
 321             bi.biSize               = sizeof(BITMAPINFOHEADER);
 322             bi.biWidth              = (DWORD)bc.bcWidth;
 323             bi.biHeight             = (DWORD)bc.bcHeight;
 324             bi.biPlanes             = (WORD)bc.bcPlanes;
 325             bi.biBitCount           = (WORD)bc.bcBitCount;
 326             bi.biCompression        = BI_RGB;
 327             bi.biSizeImage          = 0;
 328             bi.biXPelsPerMeter      = 0;
 329             bi.biYPelsPerMeter      = 0;
 330             bi.biClrUsed            = 0;
 331             bi.biClrImportant       = 0;
 332
 333             _llseek(fh,(LONG)sizeof(BITMAPCOREHEADER)-sizeof(BITMAPINFOHEADER),SEEK_CUR);
 334
 335             break;
 336     }
 337
 338     nNumColors = wxDibNumColors(&bi);
 339
 340 #if 0
 341     if (bi.biSizeImage == 0)
 342         bi.biSizeImage = DibSizeImage(&bi);
 343
 344     if (bi.biClrUsed == 0)
 345         bi.biClrUsed = wxDibNumColors(&bi);
 346 #else
 347     wxFixBitmapInfo(&bi);
 348 #endif
 349
 350     pdib = (PDIB)GlobalAllocPtr(GMEM_MOVEABLE,(LONG)bi.biSize + nNumColors * sizeof(RGBQUAD));
 351
 352     if (!pdib)
 353         return NULL;
 354
 355     *pdib = bi;
 356
 357     pRgb = wxDibColors(pdib);
 358
 359     if (nNumColors)
 360     {
 361         if (size == sizeof(BITMAPCOREHEADER))
 362         {
 363             /*
 364              * convert a old color table (3 byte entries) to a new
 365              * color table (4 byte entries)
 366              */
 367             _lread(fh,(LPVOID)pRgb,nNumColors * sizeof(RGBTRIPLE));
 368
 369             for (i=nNumColors-1; i>=0; i--)
 370             {
 371                 RGBQUAD rgb;
 372
 373                 rgb.rgbRed      = ((RGBTRIPLE FAR *)pRgb)[i].rgbtRed;
 374                 rgb.rgbBlue     = ((RGBTRIPLE FAR *)pRgb)[i].rgbtBlue;
 375                 rgb.rgbGreen    = ((RGBTRIPLE FAR *)pRgb)[i].rgbtGreen;
 376                 rgb.rgbReserved = (BYTE)0;
 377
 378                 pRgb[i] = rgb;
 379             }
 380         }
 381         else
 382         {
 383             _lread(fh,(LPVOID)pRgb,nNumColors * sizeof(RGBQUAD));
 384         }
 385     }
 386
 387     if (bf.bfOffBits != 0L)
 388         _llseek(fh,off + bf.bfOffBits,SEEK_SET);
 389
 390     return pdib;
 391 }
 392
 393 /*
 394  *  DibSetUsage(hdib,hpal,wUsage)
 395  *
 396  *  Modifies the color table of the passed DIB for use with the wUsage
 397  *  parameter specifed.
 398  *
 399  *  if wUsage is DIB_PAL_COLORS the DIB color table is set to 0-256
 400  *  if wUsage is DIB_RGB_COLORS the DIB color table is set to the RGB values
 401  *      in the passed palette
 402  */
 403
 404 BOOL wxDibSetUsage(PDIB pdib, HPALETTE hpal,UINT wUsage)
 405 {
 406     PALETTEENTRY       ape[256];
 407     RGBQUAD FAR *      pRgb;
 408     WORD FAR *         pw;
 409     int                nColors;
 410     int                n;
 411
 412     if (hpal == NULL)
 413         hpal = (HPALETTE)GetStockObject(DEFAULT_PALETTE);
 414
 415     if (!pdib)
 416         return FALSE;
 417
 418     nColors = wxDibNumColors(pdib);
 419
 420     if (nColors == 3 && wxDibCompression(pdib) == BI_BITFIELDS)
 421         nColors = 0;
 422
 423     if (nColors > 0)
 424     {
 425         pRgb = wxDibColors(pdib);
 426
 427         switch (wUsage)
 428         {
 429             //
 430             // Set the DIB color table to palette indexes
 431             //
 432             case DIB_PAL_COLORS:
 433                 for (pw = (WORD FAR*)pRgb,n=0; n<nColors; n++,pw++)
 434                     *pw = n;
 435                 break;
 436
 437             //
 438             // Set the DIB color table to RGBQUADS
 439             //
 440             default:
 441             case DIB_RGB_COLORS:
 442                 nColors =  (nColors < 256) ? nColors: 256;
 443
 444                 GetPaletteEntries(hpal,0,nColors,ape);
 445
 446                 for (n=0; n<nColors; n++)
 447                 {
 448                     pRgb[n].rgbRed      = ape[n].peRed;
 449                     pRgb[n].rgbGreen    = ape[n].peGreen;
 450                     pRgb[n].rgbBlue     = ape[n].peBlue;
 451                     pRgb[n].rgbReserved = 0;
 452                 }
 453                 break;
 454         }
 455     }
 456     return TRUE;
 457 }
 458
 459 /*
 460  *  DibCreate(bits, dx, dy)
 461  *
 462  *  Creates a new packed DIB with the given dimensions and the
 463  *  given number of bits per pixel
 464  */
 465
 466 PDIB wxDibCreate(int bits, int dx, int dy)
 467 {
 468     LPBITMAPINFOHEADER lpbi ;
 469     DWORD       dwSizeImage;
 470     int         i;
 471     DWORD FAR  *pdw;
 472
 473     dwSizeImage = dy*(DWORD)((dx*bits/8+3)&~3);
 474
 475     lpbi = (PDIB)GlobalAllocPtr(GHND,sizeof(BITMAPINFOHEADER)+dwSizeImage + 1024);
 476
 477     if (lpbi == NULL)
 478         return NULL;
 479
 480     lpbi->biSize            = sizeof(BITMAPINFOHEADER) ;
 481     lpbi->biWidth           = dx;
 482     lpbi->biHeight          = dy;
 483     lpbi->biPlanes          = 1;
 484     lpbi->biBitCount        = bits ;
 485     lpbi->biCompression     = BI_RGB ;
 486     lpbi->biSizeImage       = dwSizeImage;
 487     lpbi->biXPelsPerMeter   = 0 ;
 488     lpbi->biYPelsPerMeter   = 0 ;
 489     lpbi->biClrUsed         = 0 ;
 490     lpbi->biClrImportant    = 0 ;
 491
 492     if (bits == 4)
 493         lpbi->biClrUsed = 16;
 494
 495     else if (bits == 8)
 496         lpbi->biClrUsed = 256;
 497
 498     pdw = (DWORD FAR *)((LPBYTE)lpbi+(int)lpbi->biSize);
 499
 500     for (i=0; i<(int)lpbi->biClrUsed/16; i++)
 501     {
 502         *pdw++ = 0x00000000;    // 0000  black
 503         *pdw++ = 0x00800000;    // 0001  dark red
 504         *pdw++ = 0x00008000;    // 0010  dark green
 505       *pdw++ = 0x00808000;    // 0011  mustard
 506         *pdw++ = 0x00000080;    // 0100  dark blue
 507         *pdw++ = 0x00800080;    // 0101  purple
 508         *pdw++ = 0x00008080;    // 0110  dark turquoise
 509         *pdw++ = 0x00C0C0C0;    // 1000  gray
 510         *pdw++ = 0x00808080;    // 0111  dark gray
 511         *pdw++ = 0x00FF0000;    // 1001  red
 512         *pdw++ = 0x0000FF00;    // 1010  green
 513       *pdw++ = 0x00FFFF00;    // 1011  yellow
 514         *pdw++ = 0x000000FF;    // 1100  blue
 515         *pdw++ = 0x00FF00FF;    // 1101  pink (magenta)
 516         *pdw++ = 0x0000FFFF;    // 1110  cyan
 517         *pdw++ = 0x00FFFFFF;    // 1111  white
 518     }
 519
 520     return (PDIB)lpbi;
 521 }
 522
 523 static void xlatClut8(BYTE FAR *pb, DWORD dwSize, BYTE FAR *xlat)
 524 {
 525     DWORD dw;
 526
 527 #ifdef __cplusplus
 528     for (dw = 0; dw < dwSize; dw++, ((BYTE _huge *&)pb)++)
 529 #else
 530     for (dw = 0; dw < dwSize; dw++, ((BYTE _huge *)pb)++)
 531 #endif
 532         *pb = xlat[*pb];
 533 }
 534
 535 static void xlatClut4(BYTE FAR *pb, DWORD dwSize, BYTE FAR *xlat)
 536 {
 537     DWORD dw;
 538
 539 #ifdef __cplusplus
 540     for (dw = 0; dw < dwSize; dw++, ((BYTE _huge *&)pb)++)
 541 #else
 542     for (dw = 0; dw < dwSize; dw++, ((BYTE _huge *)pb)++)
 543 #endif
 544         *pb = (BYTE)(xlat[*pb & 0x0F] | (xlat[(*pb >> 4) & 0x0F] << 4));
 545 }
 546
 547 #define RLE_ESCAPE  0
 548 #define RLE_EOL     0
 549 #define RLE_EOF     1
 550 #define RLE_JMP     2
 551
 552 static void xlatRle8(BYTE FAR *pb, DWORD WXUNUSED(dwSize), BYTE FAR *xlat)
 553 {
 554     BYTE    cnt;
 555     BYTE    b;
 556     BYTE _huge *prle = pb;
 557
 558     for(;;)
 559     {
 560         cnt = *prle++;
 561         b   = *prle;
 562
 563         if (cnt == RLE_ESCAPE)
 564         {
 565             prle++;
 566
 567             switch (b)
 568             {
 569                 case RLE_EOF:
 570                     return;
 571
 572                 case RLE_EOL:
 573                     break;
 574
 575                 case RLE_JMP:
 576                     prle++;     // skip dX
 577                     prle++;     // skip dY
 578                     break;
 579
 580                 default:
 581                     cnt = b;
 582                     for (b=0; b<cnt; b++,prle++)
 583                         *prle = xlat[*prle];
 584
 585                     if (cnt & 1)
 586                         prle++;
 587
 588                     break;
 589             }
 590         }
 591         else
 592         {
 593             *prle++ = xlat[b];
 594         }
 595     }
 596 }
 597
 598 static void xlatRle4(BYTE FAR *WXUNUSED(pb), DWORD WXUNUSED(dwSize), BYTE FAR *WXUNUSED(xlat))
 599 {
 600 }
 601
 602 static void hmemmove(BYTE _huge *d, BYTE _huge *s, LONG len)
 603 {
 604     d += len-1;
 605     s += len-1;
 606
 607     while (len--)
 608         *d-- = *s--;
 609 }
 610
 611 /*
 612  *  DibMapToPalette(pdib, hpal)
 613  *
 614  *  Map the colors of the DIB, using GetNearestPaletteIndex, to
 615  *  the colors of the given palette.
 616  */
 617
 618 BOOL wxDibMapToPalette(PDIB pdib, HPALETTE hpal)
 619 {
 620    LPBITMAPINFOHEADER  lpbi;
 621    PALETTEENTRY        pe;
 622    int                 n;
 623    int                 nDibColors;
 624    int                 nPalColors=0;
 625    BYTE FAR *          lpBits;
 626    RGBQUAD FAR *       lpRgb;
 627    BYTE                xlat[256];
 628    DWORD               SizeImage;
 629
 630    if (!hpal || !pdib)
 631       return FALSE;
 632
 633    lpbi   = (LPBITMAPINFOHEADER)pdib;
 634    lpRgb  = wxDibColors(pdib);
 635
 636    GetObject(hpal,sizeof(int),(LPSTR)&nPalColors);
 637    nDibColors = wxDibNumColors(pdib);
 638
 639    if ((SizeImage = lpbi->biSizeImage) == 0)
 640       SizeImage = wxDibSizeImage(lpbi);
 641
 642    //
 643    //  build a xlat table. from the current DIB colors to the given
 644    //  palette.
 645    //
 646    for (n=0; n<nDibColors; n++)
 647       xlat[n] = (BYTE)GetNearestPaletteIndex(hpal,RGB(lpRgb[n].rgbRed,lpRgb[n].rgbGreen,lpRgb[n].rgbBlue));
 648
 649    lpBits = (LPBYTE)wxDibPtr(lpbi);
 650    lpbi->biClrUsed = nPalColors;
 651
 652    //
 653    // re-size the DIB
 654    //
 655    if (nPalColors > nDibColors)
 656    {
 657       GlobalReAllocPtr(lpbi, lpbi->biSize + nPalColors*sizeof(RGBQUAD) + SizeImage, 0);
 658       hmemmove((BYTE _huge *)wxDibPtr(lpbi), (BYTE _huge *)lpBits, SizeImage);
 659       lpBits = (LPBYTE)wxDibPtr(lpbi);
 660    }
 661    else if (nPalColors < nDibColors)
 662    {
 663       hmemcpy(wxDibPtr(lpbi), lpBits, SizeImage);
 664       GlobalReAllocPtr(lpbi, lpbi->biSize + nPalColors*sizeof(RGBQUAD) + SizeImage, 0);
 665       lpBits = (LPBYTE)wxDibPtr(lpbi);
 666    }
 667
 668    //
 669    // translate the DIB bits
 670    //
 671    switch (lpbi->biCompression)
 672    {
 673       case BI_RLE8:
 674         xlatRle8(lpBits, SizeImage, xlat);
 675         break;
 676
 677       case BI_RLE4:
 678         xlatRle4(lpBits, SizeImage, xlat);
 679         break;
 680
 681         case BI_RGB:
 682         if (lpbi->biBitCount == 8)
 683                 xlatClut8(lpBits, SizeImage, xlat);
 684             else
 685                 xlatClut4(lpBits, SizeImage, xlat);
 686             break;
 687     }
 688
 689     //
 690     //  Now copy the RGBs in the logical palette to the dib color table
 691     //
 692     for (n=0; n<nPalColors; n++)
 693     {
 694         GetPaletteEntries(hpal,n,1,&pe);
 695
 696         lpRgb[n].rgbRed      = pe.peRed;
 697       lpRgb[n].rgbGreen    = pe.peGreen;
 698       lpRgb[n].rgbBlue     = pe.peBlue;
 699       lpRgb[n].rgbReserved = (BYTE)0;
 700    }
 701
 702    return TRUE;
 703 }
 704
 705
 706 HPALETTE wxMakePalette(const BITMAPINFO FAR* Info, UINT flags)
 707 {
 708   HPALETTE hPalette;
 709   const RGBQUAD FAR* rgb = Info->bmiColors;
 710
 711   WORD nColors = (WORD)Info->bmiHeader.biClrUsed;
 712   if (nColors) {
 713    LOGPALETTE* logPal = (LOGPALETTE*)
 714      new BYTE[sizeof(LOGPALETTE) + (nColors-1)*sizeof(PALETTEENTRY)];
 715
 716    logPal->palVersion  = 0x300; // Windows 3.0 version
 717    logPal->palNumEntries = nColors;
 718    for (WORD n = 0; n < nColors; n++) {
 719     logPal->palPalEntry[n].peRed   = rgb[n].rgbRed;
 720     logPal->palPalEntry[n].peGreen = rgb[n].rgbGreen;
 721     logPal->palPalEntry[n].peBlue  = rgb[n].rgbBlue;
 722     logPal->palPalEntry[n].peFlags = (BYTE)flags;
 723    }
 724    hPalette = ::CreatePalette(logPal);
 725    delete logPal;
 726   } else
 727    hPalette = 0;
 728
 729   return hPalette;
 730 }
 731