reactos/subsystems/win32/win32k/objects/dibobj.c

/*
 * ReactOS W32 Subsystem
 * Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003 ReactOS Team
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License along
 * with this program; if not, write to the Free Software Foundation, Inc.,
 * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
 */

#include <win32k.h>

#define NDEBUG
#include <debug.h>

static const RGBQUAD EGAColorsQuads[16] = {
/* rgbBlue, rgbGreen, rgbRed, rgbReserved */
    { 0x00, 0x00, 0x00, 0x00 },
    { 0x00, 0x00, 0x80, 0x00 },
    { 0x00, 0x80, 0x00, 0x00 },
    { 0x00, 0x80, 0x80, 0x00 },
    { 0x80, 0x00, 0x00, 0x00 },
    { 0x80, 0x00, 0x80, 0x00 },
    { 0x80, 0x80, 0x00, 0x00 },
    { 0x80, 0x80, 0x80, 0x00 },
    { 0xc0, 0xc0, 0xc0, 0x00 },
    { 0x00, 0x00, 0xff, 0x00 },
    { 0x00, 0xff, 0x00, 0x00 },
    { 0x00, 0xff, 0xff, 0x00 },
    { 0xff, 0x00, 0x00, 0x00 },
    { 0xff, 0x00, 0xff, 0x00 },
    { 0xff, 0xff, 0x00, 0x00 },
    { 0xff, 0xff, 0xff, 0x00 }
};

static const RGBTRIPLE EGAColorsTriples[16] = {
/* rgbBlue, rgbGreen, rgbRed */
    { 0x00, 0x00, 0x00 },
    { 0x00, 0x00, 0x80 },
    { 0x00, 0x80, 0x00 },
    { 0x00, 0x80, 0x80 },
    { 0x80, 0x00, 0x00 },
    { 0x80, 0x00, 0x80 },
    { 0x80, 0x80, 0x00 },
    { 0x80, 0x80, 0x80 },
    { 0xc0, 0xc0, 0xc0 },
    { 0x00, 0x00, 0xff },
    { 0x00, 0xff, 0x00 },
    { 0x00, 0xff, 0xff },
    { 0xff, 0x00, 0x00 },
    { 0xff, 0x00, 0xff },
    { 0xff, 0xff, 0x00 },
    { 0xff, 0xff, 0xff }
};

static const RGBQUAD DefLogPaletteQuads[20] = { /* Copy of Default Logical Palette */
/* rgbBlue, rgbGreen, rgbRed, rgbReserved */
    { 0x00, 0x00, 0x00, 0x00 },
    { 0x00, 0x00, 0x80, 0x00 },
    { 0x00, 0x80, 0x00, 0x00 },
    { 0x00, 0x80, 0x80, 0x00 },
    { 0x80, 0x00, 0x00, 0x00 },
    { 0x80, 0x00, 0x80, 0x00 },
    { 0x80, 0x80, 0x00, 0x00 },
    { 0xc0, 0xc0, 0xc0, 0x00 },
    { 0xc0, 0xdc, 0xc0, 0x00 },
    { 0xf0, 0xca, 0xa6, 0x00 },
    { 0xf0, 0xfb, 0xff, 0x00 },
    { 0xa4, 0xa0, 0xa0, 0x00 },
    { 0x80, 0x80, 0x80, 0x00 },
    { 0x00, 0x00, 0xf0, 0x00 },
    { 0x00, 0xff, 0x00, 0x00 },
    { 0x00, 0xff, 0xff, 0x00 },
    { 0xff, 0x00, 0x00, 0x00 },
    { 0xff, 0x00, 0xff, 0x00 },
    { 0xff, 0xff, 0x00, 0x00 },
    { 0xff, 0xff, 0xff, 0x00 }
};

static const RGBQUAD DefLogPaletteTriples[20] = { /* Copy of Default Logical Palette */
/* rgbBlue, rgbGreen, rgbRed, rgbReserved */
    { 0x00, 0x00, 0x00 },
    { 0x00, 0x00, 0x80 },
    { 0x00, 0x80, 0x00 },
    { 0x00, 0x80, 0x80 },
    { 0x80, 0x00, 0x00 },
    { 0x80, 0x00, 0x80 },
    { 0x80, 0x80, 0x00 },
    { 0xc0, 0xc0, 0xc0 },
    { 0xc0, 0xdc, 0xc0 },
    { 0xf0, 0xca, 0xa6 },
    { 0xf0, 0xfb, 0xff },
    { 0xa4, 0xa0, 0xa0 },
    { 0x80, 0x80, 0x80 },
    { 0x00, 0x00, 0xf0 },
    { 0x00, 0xff, 0x00 },
    { 0x00, 0xff, 0xff },
    { 0xff, 0x00, 0x00 },
    { 0xff, 0x00, 0xff },
    { 0xff, 0xff, 0x00 },
    { 0xff, 0xff, 0xff }
};


UINT
APIENTRY
IntSetDIBColorTable(
    HDC hDC,
    UINT StartIndex,
    UINT Entries,
    CONST RGBQUAD *Colors)
{
    PDC dc;
    PSURFACE psurf;
    PPALETTE PalGDI;
    UINT Index;
    ULONG biBitCount;

    if (!(dc = DC_LockDc(hDC))) return 0;
    if (dc->dctype == DC_TYPE_INFO)
    {
        DC_UnlockDc(dc);
        return 0;
    }

    psurf = dc->dclevel.pSurface;
    if (psurf == NULL)
    {
        DC_UnlockDc(dc);
        SetLastWin32Error(ERROR_INVALID_PARAMETER);
        return 0;
    }

    if (psurf->hSecure == NULL)
    {
        DC_UnlockDc(dc);
        SetLastWin32Error(ERROR_INVALID_PARAMETER);
        return 0;
    }

    biBitCount = BitsPerFormat(psurf->SurfObj.iBitmapFormat);
    if (biBitCount <= 8 && StartIndex < (1 << biBitCount))
    {
        if (StartIndex + Entries > (1 << biBitCount))
            Entries = (1 << biBitCount) - StartIndex;

        if (psurf->ppal == NULL)
        {
            DC_UnlockDc(dc);
            SetLastWin32Error(ERROR_INVALID_HANDLE);
            return 0;
        }

        PalGDI = PALETTE_LockPalette(psurf->ppal->BaseObject.hHmgr);

        for (Index = StartIndex;
             Index < StartIndex + Entries && Index < PalGDI->NumColors;
             Index++)
        {
            PalGDI->IndexedColors[Index].peRed = Colors[Index - StartIndex].rgbRed;
            PalGDI->IndexedColors[Index].peGreen = Colors[Index - StartIndex].rgbGreen;
            PalGDI->IndexedColors[Index].peBlue = Colors[Index - StartIndex].rgbBlue;
        }
        PALETTE_UnlockPalette(PalGDI);
    }
    else
        Entries = 0;

    /* Mark the brushes invalid */
    dc->pdcattr->ulDirty_ |= DIRTY_FILL|DIRTY_LINE|DIRTY_BACKGROUND|DIRTY_TEXT;

    DC_UnlockDc(dc);

    return Entries;
}

UINT
APIENTRY
IntGetDIBColorTable(
    HDC hDC,
    UINT StartIndex,
    UINT Entries,
    RGBQUAD *Colors)
{
    PDC dc;
    PSURFACE psurf;
    PPALETTE PalGDI;
    UINT Index, Count = 0;
    ULONG biBitCount;

    if (!(dc = DC_LockDc(hDC))) return 0;
    if (dc->dctype == DC_TYPE_INFO)
    {
        DC_UnlockDc(dc);
        return 0;
    }

    psurf = dc->dclevel.pSurface;
    if (psurf == NULL)
    {
        DC_UnlockDc(dc);
        SetLastWin32Error(ERROR_INVALID_PARAMETER);
        return 0;
    }

    if (psurf->hSecure == NULL)
    {
        DC_UnlockDc(dc);
        SetLastWin32Error(ERROR_INVALID_PARAMETER);
        return 0;
    }

    biBitCount = BitsPerFormat(psurf->SurfObj.iBitmapFormat);
    if (biBitCount <= 8 &&
            StartIndex < (1 << biBitCount))
    {
        if (StartIndex + Entries > (1 << biBitCount))
            Entries = (1 << biBitCount) - StartIndex;

        if (psurf->ppal == NULL)
        {
            DC_UnlockDc(dc);
            SetLastWin32Error(ERROR_INVALID_HANDLE);
            return 0;
        }

        PalGDI = PALETTE_LockPalette(psurf->ppal->BaseObject.hHmgr);

        for (Index = StartIndex;
             Index < StartIndex + Entries && Index < PalGDI->NumColors;
             Index++)
        {
            Colors[Index - StartIndex].rgbRed = PalGDI->IndexedColors[Index].peRed;
            Colors[Index - StartIndex].rgbGreen = PalGDI->IndexedColors[Index].peGreen;
            Colors[Index - StartIndex].rgbBlue = PalGDI->IndexedColors[Index].peBlue;
            Colors[Index - StartIndex].rgbReserved = 0;
            Count++;
        }
        PALETTE_UnlockPalette(PalGDI);
    }

    DC_UnlockDc(dc);

    return Count;
}

// Converts a DIB to a device-dependent bitmap
static INT
FASTCALL
IntSetDIBits(
    PDC   DC,
    HBITMAP  hBitmap,
    UINT  StartScan,
    UINT  ScanLines,
    CONST VOID  *Bits,
    CONST BITMAPV5INFO  *bmi,
    UINT  ColorUse)
{
    SURFACE     *bitmap;
    HBITMAP     SourceBitmap;
    INT         result = 0;
    BOOL        copyBitsResult;
    SURFOBJ     *DestSurf, *SourceSurf;
    SIZEL       SourceSize;
    POINTL      ZeroPoint;
    RECTL       DestRect;
    EXLATEOBJ   exlo;
    PPALETTE    ppalDIB;
    //RGBQUAD    *lpRGB;
    HPALETTE    DIB_Palette;
    ULONG       DIB_Palette_Type;
    INT         DIBWidth;

    // Check parameters
    if (!(bitmap = SURFACE_LockSurface(hBitmap)))
    {
        return 0;
    }

    // Get RGB values
    //if (ColorUse == DIB_PAL_COLORS)
    //  lpRGB = DIB_MapPaletteColors(hDC, bmi);
    //else
    //  lpRGB = &bmi->bmiColors;

    DestSurf = &bitmap->SurfObj;

    // Create source surface
    SourceSize.cx = bmi->bmiHeader.bV5Width;
    SourceSize.cy = ScanLines;

    // Determine width of DIB
    DIBWidth = DIB_GetDIBWidthBytes(SourceSize.cx, bmi->bmiHeader.bV5BitCount);

    SourceBitmap = EngCreateBitmap(SourceSize,
                                   DIBWidth,
                                   BitmapFormat(bmi->bmiHeader.bV5BitCount, bmi->bmiHeader.bV5Compression),
                                   bmi->bmiHeader.bV5Height < 0 ? BMF_TOPDOWN : 0,
                                   (PVOID) Bits);
    if (0 == SourceBitmap)
    {
        SURFACE_UnlockSurface(bitmap);
        SetLastWin32Error(ERROR_NO_SYSTEM_RESOURCES);
        return 0;
    }

    SourceSurf = EngLockSurface((HSURF)SourceBitmap);
    if (NULL == SourceSurf)
    {
        EngDeleteSurface((HSURF)SourceBitmap);
        SURFACE_UnlockSurface(bitmap);
        SetLastWin32Error(ERROR_NO_SYSTEM_RESOURCES);
        return 0;
    }

    ASSERT(bitmap->ppal);

    // Source palette obtained from the BITMAPINFO
    DIB_Palette = BuildDIBPalette((BITMAPINFO*)bmi, (PINT)&DIB_Palette_Type);
    if (NULL == DIB_Palette)
    {
        EngUnlockSurface(SourceSurf);
        EngDeleteSurface((HSURF)SourceBitmap);
        SURFACE_UnlockSurface(bitmap);
        SetLastWin32Error(ERROR_NO_SYSTEM_RESOURCES);
        return 0;
    }

    ppalDIB = PALETTE_LockPalette(DIB_Palette);

    /* Initialize XLATEOBJ for color translation */
    EXLATEOBJ_vInitialize(&exlo, ppalDIB, bitmap->ppal, 0, 0, 0);

    // Zero point
    ZeroPoint.x = 0;
    ZeroPoint.y = 0;

    // Determine destination rectangle
    DestRect.left	= 0;
    DestRect.top	= abs(bmi->bmiHeader.bV5Height) - StartScan - ScanLines;
    DestRect.right	= SourceSize.cx;
    DestRect.bottom	= DestRect.top + ScanLines;

    copyBitsResult = IntEngCopyBits(DestSurf, SourceSurf, NULL, &exlo.xlo, &DestRect, &ZeroPoint);

    // If it succeeded, return number of scanlines copies
    if (copyBitsResult == TRUE)
    {
        result = SourceSize.cy;
// or
//        result = abs(bmi->bmiHeader.biHeight) - StartScan;
    }

    // Clean up
    EXLATEOBJ_vCleanup(&exlo);
    PALETTE_UnlockPalette(ppalDIB);
    PALETTE_FreePaletteByHandle(DIB_Palette);
    EngUnlockSurface(SourceSurf);
    EngDeleteSurface((HSURF)SourceBitmap);

//    if (ColorUse == DIB_PAL_COLORS)
//        WinFree((LPSTR)lpRGB);

    SURFACE_UnlockSurface(bitmap);

    return result;
}

// FIXME by Removing NtGdiSetDIBits!!!
// This is a victim of the Win32k Initialization BUG!!!!!
// Converts a DIB to a device-dependent bitmap
INT
APIENTRY
NtGdiSetDIBits(
    HDC  hDC,
    HBITMAP  hBitmap,
    UINT  StartScan,
    UINT  ScanLines,
    CONST VOID  *Bits,
    CONST BITMAPINFO  *bmi,
    UINT  ColorUse)
{
    PDC Dc;
    INT Ret;
    NTSTATUS Status = STATUS_SUCCESS;
    BITMAPV5INFO bmiLocal;

    if (!Bits) return 0;

    _SEH2_TRY
    {
        Status = ProbeAndConvertToBitmapV5Info(&bmiLocal, bmi, ColorUse, 0);
        ProbeForRead(Bits, bmiLocal.bmiHeader.bV5SizeImage, 1);
    }
    _SEH2_EXCEPT(EXCEPTION_EXECUTE_HANDLER)
    {
        Status = _SEH2_GetExceptionCode();
    }
    _SEH2_END

    if (!NT_SUCCESS(Status))
    {
        return 0;
    }

    Dc = DC_LockDc(hDC);
    if (NULL == Dc)
    {
        SetLastWin32Error(ERROR_INVALID_HANDLE);
        return 0;
    }
    if (Dc->dctype == DC_TYPE_INFO)
    {
        DC_UnlockDc(Dc);
        return 0;
    }

    Ret = IntSetDIBits(Dc, hBitmap, StartScan, ScanLines, Bits, &bmiLocal, ColorUse);

    DC_UnlockDc(Dc);

    return Ret;
}

W32KAPI
INT
APIENTRY
NtGdiSetDIBitsToDeviceInternal(
    IN HDC hDC,
    IN INT XDest,
    IN INT YDest,
    IN DWORD Width,
    IN DWORD Height,
    IN INT XSrc,
    IN INT YSrc,
    IN DWORD StartScan,
    IN DWORD ScanLines,
    IN LPBYTE Bits,
    IN LPBITMAPINFO bmi,
    IN DWORD ColorUse,
    IN UINT cjMaxBits,
    IN UINT cjMaxInfo,
    IN BOOL bTransformCoordinates,
    IN OPTIONAL HANDLE hcmXform)
{
    INT ret = 0;
    NTSTATUS Status = STATUS_SUCCESS;
    PDC pDC;
    HBITMAP hSourceBitmap = NULL;
    SURFOBJ *pDestSurf, *pSourceSurf = NULL;
    SURFACE *pSurf;
    RECTL rcDest;
    POINTL ptSource;
    INT DIBWidth;
    SIZEL SourceSize;
    EXLATEOBJ exlo;
    PPALETTE ppalDIB = NULL;
    HPALETTE hpalDIB = NULL;
    ULONG DIBPaletteType;
    BITMAPV5INFO bmiLocal ;

    if (!Bits) return 0;

    _SEH2_TRY
    {
        Status = ProbeAndConvertToBitmapV5Info(&bmiLocal, bmi, ColorUse, cjMaxInfo);
        ProbeForRead(Bits, cjMaxBits, 1);
    }
    _SEH2_EXCEPT(EXCEPTION_EXECUTE_HANDLER)
    {
        Status = _SEH2_GetExceptionCode();
    }
    _SEH2_END

    if (!NT_SUCCESS(Status))
    {
        return 0;
    }

    pDC = DC_LockDc(hDC);
    if (!pDC)
    {
        SetLastWin32Error(ERROR_INVALID_HANDLE);
        return 0;
    }
    if (pDC->dctype == DC_TYPE_INFO)
    {
        DC_UnlockDc(pDC);
        return 0;
    }

    pSurf = pDC->dclevel.pSurface;

    pDestSurf = pSurf ? &pSurf->SurfObj : NULL;

    ScanLines = min(ScanLines, abs(bmiLocal.bmiHeader.bV5Height) - StartScan);

    rcDest.left = XDest;
    rcDest.top = YDest;
    if (bTransformCoordinates)
    {
        CoordLPtoDP(pDC, (LPPOINT)&rcDest);
    }
    rcDest.left += pDC->ptlDCOrig.x;
    rcDest.top += pDC->ptlDCOrig.y;
    rcDest.right = rcDest.left + Width;
    rcDest.bottom = rcDest.top + Height;
    rcDest.top += StartScan;

    ptSource.x = XSrc;
    ptSource.y = YSrc;

    SourceSize.cx = bmiLocal.bmiHeader.bV5Width;
    SourceSize.cy = ScanLines;

    DIBWidth = DIB_GetDIBWidthBytes(SourceSize.cx, bmiLocal.bmiHeader.bV5BitCount);

    hSourceBitmap = EngCreateBitmap(SourceSize,
                                    DIBWidth,
                                    BitmapFormat(bmiLocal.bmiHeader.bV5BitCount,
                                                 bmiLocal.bmiHeader.bV5Compression),
                                    bmiLocal.bmiHeader.bV5Height < 0 ? BMF_TOPDOWN : 0,
                                    (PVOID) Bits);
    if (!hSourceBitmap)
    {
        SetLastWin32Error(ERROR_NO_SYSTEM_RESOURCES);
        Status = STATUS_NO_MEMORY;
        goto Exit;
    }

    pSourceSurf = EngLockSurface((HSURF)hSourceBitmap);
    if (!pSourceSurf)
    {
        Status = STATUS_UNSUCCESSFUL;
        goto Exit;
    }

    ASSERT(pSurf->ppal);

    /* Create a palette for the DIB */
    hpalDIB = BuildDIBPalette((PBITMAPINFO)&bmiLocal, (PINT)&DIBPaletteType);
    if (!hpalDIB)
    {
        SetLastWin32Error(ERROR_NO_SYSTEM_RESOURCES);
        Status = STATUS_NO_MEMORY;
        goto Exit;
    }

    /* Lock the DIB palette */
    ppalDIB = PALETTE_LockPalette(hpalDIB);
    if (!ppalDIB)
    {
        SetLastWin32Error(ERROR_INVALID_HANDLE);
        Status = STATUS_UNSUCCESSFUL;
        goto Exit;
    }

    /* Initialize EXLATEOBJ */
    EXLATEOBJ_vInitialize(&exlo, ppalDIB, pSurf->ppal, 0, 0, 0);

    /* Copy the bits */
    DPRINT("BitsToDev with dstsurf=(%d|%d) (%d|%d), src=(%d|%d) w=%d h=%d\n",
        rcDest.left, rcDest.top, rcDest.right, rcDest.bottom,
        ptSource.x, ptSource.y, SourceSize.cx, SourceSize.cy);
    Status = IntEngBitBlt(pDestSurf,
                          pSourceSurf,
                          NULL,
                          pDC->rosdc.CombinedClip,
                          &exlo.xlo,
                          &rcDest,
                          &ptSource,
                          NULL,
                          NULL,
                          NULL,
                          ROP3_TO_ROP4(SRCCOPY));

    /* Cleanup EXLATEOBJ */
    EXLATEOBJ_vCleanup(&exlo);

Exit:
    if (NT_SUCCESS(Status))
    {
        ret = ScanLines;
    }

    if (ppalDIB) PALETTE_UnlockPalette(ppalDIB);

    if (pSourceSurf) EngUnlockSurface(pSourceSurf);
    if (hSourceBitmap) EngDeleteSurface((HSURF)hSourceBitmap);
    if (hpalDIB) PALETTE_FreePaletteByHandle(hpalDIB);
    DC_UnlockDc(pDC);

    return ret;
}


/* Converts a device-dependent bitmap to a DIB */
INT
APIENTRY
NtGdiGetDIBitsInternal(
    HDC hDC,
    HBITMAP hBitmap,
    UINT StartScan,
    UINT ScanLines,
    LPBYTE Bits,
    LPBITMAPINFO Info,
    UINT Usage,
    UINT MaxBits,
    UINT MaxInfo)
{
	BITMAPCOREINFO* pbmci = NULL;
	PSURFACE psurf = NULL;
	PDC pDC;
	LONG width, height;
	WORD planes, bpp;
	DWORD compr, size ;
	int i, bitmap_type;
	RGBTRIPLE* rgbTriples;
	RGBQUAD* rgbQuads;
	VOID* colorPtr;
	NTSTATUS Status = STATUS_SUCCESS;

    DPRINT("Entered NtGdiGetDIBitsInternal()\n");

    if ((Usage && Usage != DIB_PAL_COLORS) || !Info || !hBitmap)
        return 0;

    _SEH2_TRY
    {
		/* Probe for read and write */
        ProbeForRead(Info, MaxInfo, 1);
		ProbeForWrite(Info, MaxInfo, 1);
        if (Bits) ProbeForWrite(Bits, MaxBits, 1);
    }
    _SEH2_EXCEPT(EXCEPTION_EXECUTE_HANDLER)
    {
        Status = _SEH2_GetExceptionCode();
    }
    _SEH2_END

    if (!NT_SUCCESS(Status))
    {
        return 0;
    }

	colorPtr = (LPBYTE)Info + Info->bmiHeader.biSize;
	rgbTriples = colorPtr;
	rgbQuads = colorPtr;

	bitmap_type = DIB_GetBitmapInfo(&Info->bmiHeader,
		                            &width,
									&height,
									&planes,
									&bpp,
									&compr,
									&size);
	if(bitmap_type == -1)
	{
		DPRINT("Wrong bitmap format\n");
		SetLastWin32Error(ERROR_INVALID_PARAMETER);
		return 0;
	}
	else if(bitmap_type == 0)
	{
		/* We need a BITMAPINFO to create a DIB, but we have to fill
		 * the BITMAPCOREINFO we're provided */
		pbmci = (BITMAPCOREINFO*)Info;
		Info = DIB_ConvertBitmapInfo((BITMAPINFO*)pbmci, Usage);
		if(Info == NULL)
		{
			DPRINT1("Error, could not convert the BITMAPCOREINFO!\n");
			return 0;
		}
		rgbQuads = Info->bmiColors;
	}

    pDC = DC_LockDc(hDC);
    if (pDC == NULL || pDC->dctype == DC_TYPE_INFO)
    {
		ScanLines = 0;
        goto done;
    }

    /* Get a pointer to the source bitmap object */
    psurf = SURFACE_LockSurface(hBitmap);
    if (psurf == NULL)
    {
        ScanLines = 0;
        goto done;
    }
	/* Must not be selected */
	if(psurf->hdc != NULL)
	{
		ScanLines = 0;
		SetLastWin32Error(ERROR_INVALID_PARAMETER);
		goto done;
	}

	/* Fill in the structure */
	switch(bpp)
	{
	case 0: /* Only info */
		if(pbmci)
		{
			pbmci->bmciHeader.bcWidth = psurf->SurfObj.sizlBitmap.cx;
			pbmci->bmciHeader.bcHeight = (psurf->SurfObj.fjBitmap & BMF_TOPDOWN) ? 
				-psurf->SurfObj.sizlBitmap.cy : 
			    psurf->SurfObj.sizlBitmap.cy;
			pbmci->bmciHeader.bcPlanes = 1;
			pbmci->bmciHeader.bcBitCount = BitsPerFormat(psurf->SurfObj.iBitmapFormat);
		}
		Info->bmiHeader.biWidth = psurf->SurfObj.sizlBitmap.cx;
		Info->bmiHeader.biHeight = (psurf->SurfObj.fjBitmap & BMF_TOPDOWN) ? 
			-psurf->SurfObj.sizlBitmap.cy : 
		    psurf->SurfObj.sizlBitmap.cy;;
		Info->bmiHeader.biPlanes = 1;
		Info->bmiHeader.biBitCount = BitsPerFormat(psurf->SurfObj.iBitmapFormat);
		Info->bmiHeader.biSizeImage = DIB_GetDIBImageBytes( Info->bmiHeader.biWidth,
															Info->bmiHeader.biHeight,
															Info->bmiHeader.biBitCount);
		if(psurf->hSecure)
		{
			switch(Info->bmiHeader.biBitCount)
			{
			case 16:
			case 32:
				Info->bmiHeader.biCompression = BI_BITFIELDS;
				break;
			default:
				Info->bmiHeader.biCompression = BI_RGB;
				break;
			}
		}
		else if(Info->bmiHeader.biBitCount > 8)
		{
			Info->bmiHeader.biCompression = BI_BITFIELDS;
		}
		else
		{
			Info->bmiHeader.biCompression = BI_RGB;
		}
		Info->bmiHeader.biXPelsPerMeter = 0;
        Info->bmiHeader.biYPelsPerMeter = 0;
        Info->bmiHeader.biClrUsed = 0;
        Info->bmiHeader.biClrImportant = 0;
		ScanLines = psurf->SurfObj.sizlBitmap.cy;
		/* Get Complete info now */
		goto done;

	case 1:
	case 4:
	case 8:
		Info->bmiHeader.biClrUsed = 0;

		/* If the bitmap if a DIB section and has the same format than what 
		 * we're asked, go ahead! */
		if((psurf->hSecure) && 
			(BitsPerFormat(psurf->SurfObj.iBitmapFormat) == bpp))
		{
			if(Usage == DIB_RGB_COLORS)
			{
				unsigned int colors = min(psurf->ppal->NumColors, 1 << bpp);
				
				if(pbmci)
				{
					for(i=0; i < colors; i++)
					{
						rgbTriples[i].rgbtRed = psurf->ppal->IndexedColors[i].peRed;
						rgbTriples[i].rgbtGreen = psurf->ppal->IndexedColors[i].peGreen;
						rgbTriples[i].rgbtBlue = psurf->ppal->IndexedColors[i].peBlue;
					}
				}
				if(colors != 1 << bpp) Info->bmiHeader.biClrUsed = colors;
				RtlCopyMemory(rgbQuads, psurf->ppal->IndexedColors, colors * sizeof(RGBQUAD));
			}
			else
			{
				for(i=0; i < 1 << bpp; i++)
				{
					if(pbmci) ((WORD*)rgbTriples)[i] = i;
					((WORD*)rgbQuads)[i] = i;
				}
			}
		}
		else
		{
			if(Usage == DIB_PAL_COLORS)
			{
				for(i=0; i < 1 << bpp; i++)
				{
					if(pbmci) ((WORD*)rgbTriples)[i] = i;
					((WORD*)rgbQuads)[i] = i;
				}
			}
			else if(bpp > 1 && bpp == BitsPerFormat(psurf->SurfObj.iBitmapFormat)) {
                /* For color DDBs in native depth (mono DDBs always have
                   a black/white palette):
                   Generate the color map from the selected palette */
                PPALETTE pDcPal = PALETTE_LockPalette(pDC->dclevel.hpal);
				if(!pDcPal)
				{
					ScanLines = 0 ;
					goto done ;
				}
                for (i = 0; i < pDcPal->NumColors; i++) {
                    if (pbmci)
                    {
                        rgbTriples[i].rgbtRed   = pDcPal->IndexedColors[i].peRed;
                        rgbTriples[i].rgbtGreen = pDcPal->IndexedColors[i].peGreen;
                        rgbTriples[i].rgbtBlue  = pDcPal->IndexedColors[i].peBlue;
                    }
                
                    rgbQuads[i].rgbRed      = pDcPal->IndexedColors[i].peRed;
                    rgbQuads[i].rgbGreen    = pDcPal->IndexedColors[i].peGreen;
                    rgbQuads[i].rgbBlue     = pDcPal->IndexedColors[i].peBlue;
                    rgbQuads[i].rgbReserved = 0;
				}
				PALETTE_UnlockPalette(pDcPal);
            } else {
                switch (bpp) {
                case 1:
                    if (pbmci)
                    {
                        rgbTriples[0].rgbtRed = rgbTriples[0].rgbtGreen =
                            rgbTriples[0].rgbtBlue = 0;
                        rgbTriples[1].rgbtRed = rgbTriples[1].rgbtGreen =
                            rgbTriples[1].rgbtBlue = 0xff;
                    }
                    rgbQuads[0].rgbRed = rgbQuads[0].rgbGreen =
                        rgbQuads[0].rgbBlue = 0;
                    rgbQuads[0].rgbReserved = 0;
                    rgbQuads[1].rgbRed = rgbQuads[1].rgbGreen =
                        rgbQuads[1].rgbBlue = 0xff;
                    rgbQuads[1].rgbReserved = 0;
                    break;

                case 4:
                    if (pbmci)
                        RtlCopyMemory(rgbTriples, EGAColorsTriples, sizeof(EGAColorsTriples));
                    RtlCopyMemory(rgbQuads, EGAColorsQuads, sizeof(EGAColorsQuads));

                    break;

                case 8:
                    {
						INT r, g, b;
                        RGBQUAD *color;
                        if (pbmci)
                        {
                            RGBTRIPLE *colorTriple;

                            RtlCopyMemory(rgbTriples, DefLogPaletteTriples,
                                       10 * sizeof(RGBTRIPLE));
                            RtlCopyMemory(rgbTriples + 246, DefLogPaletteTriples + 10,
                                       10 * sizeof(RGBTRIPLE));
                            colorTriple = rgbTriples + 10;
                            for(r = 0; r <= 5; r++) /* FIXME */
							{
                                for(g = 0; g <= 5; g++)
								{
                                    for(b = 0; b <= 5; b++) 
									{
                                        colorTriple->rgbtRed =   (r * 0xff) / 5;
                                        colorTriple->rgbtGreen = (g * 0xff) / 5;
                                        colorTriple->rgbtBlue =  (b * 0xff) / 5;
                                        color++;
                                    }
								}
							}
                        }
						memcpy(rgbQuads, DefLogPaletteQuads,
                                   10 * sizeof(RGBQUAD));
                        memcpy(rgbQuads + 246, DefLogPaletteQuads + 10,
                               10 * sizeof(RGBQUAD));
                        color = rgbQuads + 10;
                        for(r = 0; r <= 5; r++) /* FIXME */
						{
                            for(g = 0; g <= 5; g++)
							{
                                for(b = 0; b <= 5; b++)
								{
                                    color->rgbRed =   (r * 0xff) / 5;
                                    color->rgbGreen = (g * 0xff) / 5;
                                    color->rgbBlue =  (b * 0xff) / 5;
                                    color->rgbReserved = 0;
                                    color++;
                                }
							}
						}
                    }
                }
            }
        }
        break;

    case 15:
        if (Info->bmiHeader.biCompression == BI_BITFIELDS)
        {
            ((PDWORD)Info->bmiColors)[0] = 0x7c00;
            ((PDWORD)Info->bmiColors)[1] = 0x03e0;
            ((PDWORD)Info->bmiColors)[2] = 0x001f;
        }
        break;

    case 16:
        if (Info->bmiHeader.biCompression == BI_BITFIELDS)
        {
            if (psurf->hSecure)
			{
				((PDWORD)Info->bmiColors)[0] = psurf->ppal->RedMask;
                ((PDWORD)Info->bmiColors)[1] = psurf->ppal->GreenMask;
                ((PDWORD)Info->bmiColors)[2] = psurf->ppal->BlueMask;
			}
            else
            {
                ((PDWORD)Info->bmiColors)[0] = 0xf800;
                ((PDWORD)Info->bmiColors)[1] = 0x07e0;
                ((PDWORD)Info->bmiColors)[2] = 0x001f;
            }
        }
        break;

    case 24:
    case 32:
        if (Info->bmiHeader.biCompression == BI_BITFIELDS)
        {
            if (psurf->hSecure)
			{
				((PDWORD)Info->bmiColors)[0] = psurf->ppal->RedMask;
                ((PDWORD)Info->bmiColors)[1] = psurf->ppal->GreenMask;
                ((PDWORD)Info->bmiColors)[2] = psurf->ppal->BlueMask;
			}
            else
            {
                ((PDWORD)Info->bmiColors)[0] = 0xff0000;
                ((PDWORD)Info->bmiColors)[1] = 0x00ff00;
                ((PDWORD)Info->bmiColors)[2] = 0x0000ff;
            }
        }
        break;
    }

	if(Bits && ScanLines)
	{
		/* Create a DIBSECTION, blt it, profit */
		PVOID pDIBits ;
		HBITMAP hBmpDest, hOldDest = NULL, hOldSrc = NULL;
		HDC hdcDest, hdcSrc;
		BOOL ret ;

		if (StartScan > psurf->SurfObj.sizlBitmap.cy)
        {
			ScanLines = 0;
            goto done;
        }
        else
        {
            ScanLines = min(ScanLines, psurf->SurfObj.sizlBitmap.cy - StartScan);
		}

		hBmpDest = DIB_CreateDIBSection(pDC, Info, Usage, &pDIBits, NULL, 0, 0);
		
		if(!hBmpDest)
		{
			DPRINT1("Unable to create a DIB Section!\n");
			SetLastWin32Error(ERROR_INVALID_PARAMETER);
			ScanLines = 0;
			goto done ;
		}

		hdcDest = NtGdiCreateCompatibleDC(0);
		hdcSrc = NtGdiCreateCompatibleDC(0);

		if(!(hdcSrc && hdcDest))
		{
			DPRINT1("Error: could not create HDCs!\n");
			ScanLines = 0;
			goto cleanup_blt;
		}

		hOldDest = NtGdiSelectBitmap(hdcDest, hBmpDest);
		hOldSrc = NtGdiSelectBitmap(hdcSrc, hBitmap);

		if(!(hOldDest && hOldSrc))
		{
			DPRINT1("Error : Could not Select bitmaps\n");
			goto cleanup_blt;
		}

		ret = GreStretchBltMask(hdcDest,
								0,
								0,
								width, 
								height,
								hdcSrc,
								0,
								StartScan,
								psurf->SurfObj.sizlBitmap.cx,
								ScanLines,
								SRCCOPY,
								0,
								NULL,
								0,
								0);

		if(!ret)
			ScanLines = 0;
		else
		{
			Status = STATUS_SUCCESS;
			_SEH2_TRY
			{
				RtlCopyMemory(Bits, pDIBits, DIB_GetDIBImageBytes (width, height, bpp));
			} 
			_SEH2_EXCEPT(EXCEPTION_EXECUTE_HANDLER)
			{
				Status = _SEH2_GetExceptionCode();
			}
			_SEH2_END

			if(!NT_SUCCESS(Status))
			{
				DPRINT1("Unable to copy bits to the user provided pointer\n");
				ScanLines = 0;
			}
		}

	cleanup_blt:
		if(hdcSrc)
		{
			if(hOldSrc) NtGdiSelectBitmap(hdcSrc, hOldSrc);
			NtGdiDeleteObjectApp(hdcSrc);
		}
		if(hdcSrc)
		{
			if(hOldDest) NtGdiSelectBitmap(hdcDest, hOldDest);
			NtGdiDeleteObjectApp(hdcDest);
		}
		GreDeleteObject(hBmpDest);
	}

done:

	if(pDC) DC_UnlockDc(pDC);
	if(psurf) SURFACE_UnlockSurface(psurf);
	if(pbmci) DIB_FreeConvertedBitmapInfo(Info, (BITMAPINFO*)pbmci);

	return ScanLines;
}


INT
APIENTRY
NtGdiStretchDIBitsInternal(
    HDC  hDC,
    INT  XDest,
    INT  YDest,
    INT  DestWidth,
    INT  DestHeight,
    INT  XSrc,
    INT  YSrc,
    INT  SrcWidth,
    INT  SrcHeight,
    LPBYTE Bits,
    LPBITMAPINFO BitsInfo,
    DWORD  Usage,
    DWORD  ROP,
    UINT cjMaxInfo,
    UINT cjMaxBits,
    HANDLE hcmXform)
{
    HBITMAP hBitmap, hOldBitmap = NULL;
    HDC hdcMem;
    HPALETTE hPal = NULL;
    PDC pDC;
    NTSTATUS Status;
    BITMAPV5INFO bmiLocal ;

    if (!Bits || !BitsInfo)
    {
        SetLastWin32Error(ERROR_INVALID_PARAMETER);
        return 0;
    }

    _SEH2_TRY
    {
        Status = ProbeAndConvertToBitmapV5Info(&bmiLocal, BitsInfo, Usage, cjMaxInfo);
        ProbeForRead(Bits, cjMaxBits, 1);
    }
    _SEH2_EXCEPT(EXCEPTION_EXECUTE_HANDLER)
    {
        Status = _SEH2_GetExceptionCode();
    }
    _SEH2_END

    if (!NT_SUCCESS(Status))
    {
        DPRINT1("NtGdiStretchDIBitsInternal fail to read BitMapInfo: %x or Bits: %x\n",BitsInfo,Bits);
        return 0;
    }

    hdcMem = NtGdiCreateCompatibleDC(hDC);
    if (hdcMem == NULL)
    {
        DPRINT1("NtGdiCreateCompatibleDC fail create hdc\n");
        return 0;
    }

    hBitmap = NtGdiCreateCompatibleBitmap(hDC,
                                          abs(bmiLocal.bmiHeader.bV5Width),
                                          abs(bmiLocal.bmiHeader.bV5Height));
    if (hBitmap == NULL)
    {
        DPRINT1("NtGdiCreateCompatibleBitmap fail create bitmap\n");
        DPRINT1("hDC : 0x%08x \n", hDC);
        DPRINT1("BitsInfo->bmiHeader.biWidth : 0x%08x \n", BitsInfo->bmiHeader.biWidth);
        DPRINT1("BitsInfo->bmiHeader.biHeight : 0x%08x \n", BitsInfo->bmiHeader.biHeight);
        return 0;
    }

    /* Select the bitmap into hdcMem, and save a handle to the old bitmap */
    hOldBitmap = NtGdiSelectBitmap(hdcMem, hBitmap);

    if (Usage == DIB_PAL_COLORS)
    {
        hPal = NtGdiGetDCObject(hDC, GDI_OBJECT_TYPE_PALETTE);
        hPal = GdiSelectPalette(hdcMem, hPal, FALSE);
    }

    if (bmiLocal.bmiHeader.bV5Compression == BI_RLE4 ||
            bmiLocal.bmiHeader.bV5Compression == BI_RLE8)
    {
        /* copy existing bitmap from destination dc */
        if (SrcWidth == DestWidth && SrcHeight == DestHeight)
            NtGdiBitBlt(hdcMem, XSrc, abs(bmiLocal.bmiHeader.bV5Height) - SrcHeight - YSrc,
                        SrcWidth, SrcHeight, hDC, XDest, YDest, ROP, 0, 0);
        else
            NtGdiStretchBlt(hdcMem, XSrc, abs(bmiLocal.bmiHeader.bV5Height) - SrcHeight - YSrc,
                            SrcWidth, SrcHeight, hDC, XDest, YDest, DestWidth, DestHeight,
                            ROP, 0);
    }

    pDC = DC_LockDc(hdcMem);
    if (pDC != NULL)
    {
        /* Note BitsInfo->bmiHeader.biHeight is the number of scanline,
         * if it negitve we getting to many scanline for scanline is UINT not
         * a INT, so we need make the negtive value to positve and that make the
         * count correct for negtive bitmap, TODO : we need testcase for this api */
        IntSetDIBits(pDC, hBitmap, 0, abs(bmiLocal.bmiHeader.bV5Height), Bits,
                     &bmiLocal, Usage);

        DC_UnlockDc(pDC);
    }


    /* Origin for DIBitmap may be bottom left (positive biHeight) or top
       left (negative biHeight) */
    if (SrcWidth == DestWidth && SrcHeight == DestHeight)
        NtGdiBitBlt(hDC, XDest, YDest, DestWidth, DestHeight,
                    hdcMem, XSrc, abs(bmiLocal.bmiHeader.bV5Height) - SrcHeight - YSrc,
                    ROP, 0, 0);
    else
        NtGdiStretchBlt(hDC, XDest, YDest, DestWidth, DestHeight,
                        hdcMem, XSrc, abs(bmiLocal.bmiHeader.bV5Height) - SrcHeight - YSrc,
                        SrcWidth, SrcHeight, ROP, 0);

    /* cleanup */
    if (hPal)
        GdiSelectPalette(hdcMem, hPal, FALSE);

    if (hOldBitmap)
        NtGdiSelectBitmap(hdcMem, hOldBitmap);

    NtGdiDeleteObjectApp(hdcMem);

    GreDeleteObject(hBitmap);

    return SrcHeight;
}


HBITMAP
FASTCALL
IntCreateDIBitmap(
    PDC Dc,
    INT width,
    INT height,
    UINT bpp,
    DWORD init,
    LPBYTE bits,
    PBITMAPV5INFO data,
    DWORD coloruse)
{
    HBITMAP handle;
    BOOL fColor;

    // Check if we should create a monochrome or color bitmap. We create a monochrome bitmap only if it has exactly 2
    // colors, which are black followed by white, nothing else. In all other cases, we create a color bitmap.

    if (bpp != 1) fColor = TRUE;
    else if ((coloruse != DIB_RGB_COLORS) || (init != CBM_INIT) || !data) fColor = FALSE;
    else
    {
        const RGBQUAD *rgb = data->bmiColors;
        DWORD col = RGB(rgb->rgbRed, rgb->rgbGreen, rgb->rgbBlue);

        // Check if the first color of the colormap is black
        if ((col == RGB(0, 0, 0)))
        {
            rgb++;
            col = RGB(rgb->rgbRed, rgb->rgbGreen, rgb->rgbBlue);

            // If the second color is white, create a monochrome bitmap
            fColor = (col != RGB(0xff,0xff,0xff));
        }
        else fColor = TRUE;
    }

    // Now create the bitmap
    if (fColor)
    {
        handle = IntCreateCompatibleBitmap(Dc, width, height);
    }
    else
    {
        handle = GreCreateBitmap(width,
                                 height,
                                 1,
                                 1,
                                 NULL);
    }

    if (height < 0)
        height = -height;

    if (NULL != handle && CBM_INIT == init)
    {
        IntSetDIBits(Dc, handle, 0, height, bits, data, coloruse);
    }

    return handle;
}

// The CreateDIBitmap function creates a device-dependent bitmap (DDB) from a DIB and, optionally, sets the bitmap bits
// The DDB that is created will be whatever bit depth your reference DC is
HBITMAP
APIENTRY
NtGdiCreateDIBitmapInternal(
    IN HDC hDc,
    IN INT cx,
    IN INT cy,
    IN DWORD fInit,
    IN OPTIONAL LPBYTE pjInit,
    IN OPTIONAL LPBITMAPINFO pbmi,
    IN DWORD iUsage,
    IN UINT cjMaxInitInfo,
    IN UINT cjMaxBits,
    IN FLONG fl,
    IN HANDLE hcmXform)
{
    BITMAPV5INFO bmiLocal ;
    NTSTATUS Status = STATUS_SUCCESS;

    _SEH2_TRY
    {
        if(pbmi) Status = ProbeAndConvertToBitmapV5Info(&bmiLocal, pbmi, iUsage, cjMaxInitInfo);
        if(pjInit && (fInit == CBM_INIT)) ProbeForRead(pjInit, cjMaxBits, 1);
    }
    _SEH2_EXCEPT(EXCEPTION_EXECUTE_HANDLER)
    {
        Status = _SEH2_GetExceptionCode();
    }
    _SEH2_END

    if(!NT_SUCCESS(Status))
    {
        SetLastNtError(Status);
        return NULL;
    }

    return GreCreateDIBitmapInternal(hDc,
                                     cx,
                                     cy,
                                     fInit,
                                     pjInit,
                                     pbmi ? &bmiLocal : NULL,
                                     iUsage,
                                     fl,
                                     hcmXform);
}

HBITMAP
FASTCALL
GreCreateDIBitmapInternal(
    IN HDC hDc,
    IN INT cx,
    IN INT cy,
    IN DWORD fInit,
    IN OPTIONAL LPBYTE pjInit,
    IN OPTIONAL PBITMAPV5INFO pbmi,
    IN DWORD iUsage,
    IN FLONG fl,
    IN HANDLE hcmXform)
{
    PDC Dc;
    HBITMAP Bmp;
    WORD bpp;
    HDC hdcDest;

    if (!hDc) /* 1bpp monochrome bitmap */
    {  // Should use System Bitmap DC hSystemBM, with CreateCompatibleDC for this.
        hdcDest = IntGdiCreateDC(NULL, NULL, NULL, NULL,FALSE);
        if(!hdcDest)
        {
            return NULL;
        }
    }
    else
    {
        hdcDest = hDc;
    }

    Dc = DC_LockDc(hdcDest);
    if (!Dc)
    {
        SetLastWin32Error(ERROR_INVALID_HANDLE);
        return NULL;
    }
    /* It's OK to set bpp=0 here, as IntCreateDIBitmap will create a compatible Bitmap
     * if bpp != 1 and ignore the real value that was passed */
    if (pbmi)
        bpp = pbmi->bmiHeader.bV5BitCount;
    else
        bpp = 0;
    Bmp = IntCreateDIBitmap(Dc, cx, cy, bpp, fInit, pjInit, pbmi, iUsage);
    DC_UnlockDc(Dc);

    if(!hDc)
    {
        NtGdiDeleteObjectApp(hdcDest);
    }
    return Bmp;
}


HBITMAP
APIENTRY
NtGdiCreateDIBSection(
    IN HDC hDC,
    IN OPTIONAL HANDLE hSection,
    IN DWORD dwOffset,
    IN BITMAPINFO* bmi,
    IN DWORD Usage,
    IN UINT cjHeader,
    IN FLONG fl,
    IN ULONG_PTR dwColorSpace,
    OUT PVOID *Bits)
{
    HBITMAP hbitmap = 0;
    DC *dc;
    BOOL bDesktopDC = FALSE;
	NTSTATUS Status = STATUS_SUCCESS;

    if (!bmi) return hbitmap; // Make sure.

	_SEH2_TRY
    {
        ProbeForRead(&bmi->bmiHeader.biSize, sizeof(DWORD), 1);
		ProbeForRead(bmi, bmi->bmiHeader.biSize, 1);
		ProbeForRead(bmi, DIB_BitmapInfoSize(bmi, Usage), 1);
    }
    _SEH2_EXCEPT(EXCEPTION_EXECUTE_HANDLER)
    {
        Status = _SEH2_GetExceptionCode();
    }
    _SEH2_END

    if(!NT_SUCCESS(Status))
    {
        SetLastNtError(Status);
        return NULL;
    }

    // If the reference hdc is null, take the desktop dc
    if (hDC == 0)
    {
        hDC = NtGdiCreateCompatibleDC(0);
        bDesktopDC = TRUE;
    }

    if ((dc = DC_LockDc(hDC)))
    {
        hbitmap = DIB_CreateDIBSection(dc,
                                       bmi,
                                       Usage,
                                       Bits,
                                       hSection,
                                       dwOffset,
                                       0);
        DC_UnlockDc(dc);
    }
    else
    {
        SetLastWin32Error(ERROR_INVALID_HANDLE);
    }

    if (bDesktopDC)
        NtGdiDeleteObjectApp(hDC);

    return hbitmap;
}

HBITMAP
APIENTRY
DIB_CreateDIBSection(
    PDC dc,
    CONST BITMAPINFO *bmi,
    UINT usage,
    LPVOID *bits,
    HANDLE section,
    DWORD offset,
    DWORD ovr_pitch)
{
    HBITMAP res = 0;
    SURFACE *bmp = NULL;
    void *mapBits = NULL;
    HPALETTE hpal ;
	INT palMode = PAL_INDEXED;

    // Fill BITMAP32 structure with DIB data
    CONST BITMAPINFOHEADER *bi = &bmi->bmiHeader;
    INT effHeight;
    ULONG totalSize;
    BITMAP bm;
    SIZEL Size;
    HANDLE hSecure;

    DPRINT("format (%ld,%ld), planes %d, bpp %d, size %ld, colors %ld (%s)\n",
           bi->biWidth, bi->biHeight, bi->biPlanes, bi->biBitCount,
           bi->biSizeImage, bi->biClrUsed, usage == DIB_PAL_COLORS? "PAL" : "RGB");

    /* CreateDIBSection should fail for compressed formats */
    if (bi->biCompression == BI_RLE4 || bi->biCompression == BI_RLE8)
    {
        return (HBITMAP)NULL;
    }

    effHeight = bi->biHeight >= 0 ? bi->biHeight : -bi->biHeight;
    bm.bmType = 0;
    bm.bmWidth = bi->biWidth;
    bm.bmHeight = effHeight;
    bm.bmWidthBytes = ovr_pitch ? ovr_pitch : (ULONG) DIB_GetDIBWidthBytes(bm.bmWidth, bi->biBitCount);

    bm.bmPlanes = bi->biPlanes;
    bm.bmBitsPixel = bi->biBitCount;
    bm.bmBits = NULL;

    // Get storage location for DIB bits.  Only use biSizeImage if it's valid and
    // we're dealing with a compressed bitmap.  Otherwise, use width * height.
    totalSize = bi->biSizeImage && bi->biCompression != BI_RGB
                ? bi->biSizeImage : (ULONG)(bm.bmWidthBytes * effHeight);

    if (section)
    {
        SYSTEM_BASIC_INFORMATION Sbi;
        NTSTATUS Status;
        DWORD mapOffset;
        LARGE_INTEGER SectionOffset;
        SIZE_T mapSize;

        Status = ZwQuerySystemInformation(SystemBasicInformation,
                                          &Sbi,
                                          sizeof Sbi,
                                          0);
        if (!NT_SUCCESS(Status))
        {
            return NULL;
        }

        mapOffset = offset - (offset % Sbi.AllocationGranularity);
        mapSize = bi->biSizeImage + (offset - mapOffset);

        SectionOffset.LowPart  = mapOffset;
        SectionOffset.HighPart = 0;

        Status = ZwMapViewOfSection(section,
                                    NtCurrentProcess(),
                                    &mapBits,
                                    0,
                                    0,
                                    &SectionOffset,
                                    &mapSize,
                                    ViewShare,
                                    0,
                                    PAGE_READWRITE);
        if (!NT_SUCCESS(Status))
        {
            SetLastWin32Error(ERROR_INVALID_PARAMETER);
            return NULL;
        }

        if (mapBits) bm.bmBits = (char *)mapBits + (offset - mapOffset);
    }
    else if (ovr_pitch && offset)
        bm.bmBits = (LPVOID) offset;
    else
    {
        offset = 0;
        bm.bmBits = EngAllocUserMem(totalSize, 0);
		if(!bm.bmBits) goto cleanup;
    }

//  hSecure = MmSecureVirtualMemory(bm.bmBits, totalSize, PAGE_READWRITE);
    hSecure = (HANDLE)0x1; // HACK OF UNIMPLEMENTED KERNEL STUFF !!!!

    if (usage == DIB_PAL_COLORS)
    {
		PPALETTE pdcPal ;
        pdcPal = PALETTE_LockPalette(dc->dclevel.hpal);
		if(!pdcPal)
		{
			DPRINT1("Unable to lock DC palette?!\n");
			goto cleanup;
		}
		if(pdcPal->Mode != PAL_INDEXED)
		{
			DPRINT1("Not indexed palette selected in the DC?!\n");
			PALETTE_UnlockPalette(pdcPal);
		}
		hpal = PALETTE_AllocPalette(PAL_INDEXED,
			pdcPal->NumColors,
			(ULONG*)pdcPal->IndexedColors, 0, 0, 0);
		PALETTE_UnlockPalette(pdcPal);
    }
    else 
	{
        hpal = BuildDIBPalette(bmi, &palMode);
	}

    // Create Device Dependent Bitmap and add DIB pointer
    Size.cx = bm.bmWidth;
    Size.cy = abs(bm.bmHeight);
    res = GreCreateBitmapEx(bm.bmWidth,
                            abs(bm.bmHeight),
                            bm.bmWidthBytes,
                            BitmapFormat(bi->biBitCount * bi->biPlanes, bi->biCompression),
                            BMF_DONTCACHE | BMF_USERMEM | BMF_NOZEROINIT |
                              (bi->biHeight < 0 ? BMF_TOPDOWN : 0),
                            bi->biSizeImage,
                            bm.bmBits);
    if (!res)
    {
        SetLastWin32Error(ERROR_NO_SYSTEM_RESOURCES);
        goto cleanup;
    }
    bmp = SURFACE_LockSurface(res);
    if (NULL == bmp)
    {
		SetLastWin32Error(ERROR_INVALID_HANDLE);
        goto cleanup;
    }

    /* WINE NOTE: WINE makes use of a colormap, which is a color translation
                  table between the DIB and the X physical device. Obviously,
                  this is left out of the ReactOS implementation. Instead,
                  we call NtGdiSetDIBColorTable. */
    bmp->hDIBSection = section;
    bmp->hSecure = hSecure;
    bmp->dwOffset = offset;
    bmp->flags = API_BITMAP;
    bmp->biClrImportant = bi->biClrImportant;

	bmp->ppal = PALETTE_ShareLockPalette(hpal);
    /* Lazy delete hpal, it will be freed at surface release */
    GreDeleteObject(hpal);

    // Clean up in case of errors
cleanup:
    if (!res || !bmp || !bm.bmBits)
    {
        DPRINT("got an error res=%08x, bmp=%p, bm.bmBits=%p\n", res, bmp, bm.bmBits);
        if (bm.bmBits)
        {
            // MmUnsecureVirtualMemory(hSecure); // FIXME: Implement this!
            if (section)
            {
                ZwUnmapViewOfSection(NtCurrentProcess(), mapBits);
                bm.bmBits = NULL;
            }
            else
                if (!offset)
                    EngFreeUserMem(bm.bmBits), bm.bmBits = NULL;
        }

        if (bmp)
            bmp = NULL;

        if (res)
        {
            SURFACE_FreeSurfaceByHandle(res);
            res = 0;
        }
    }

    if (bmp)
    {
        SURFACE_UnlockSurface(bmp);
    }

    // Return BITMAP handle and storage location
    if (NULL != bm.bmBits && NULL != bits)
    {
        *bits = bm.bmBits;
    }

    return res;
}

/***********************************************************************
 *           DIB_GetBitmapInfo
 *
 * Get the info from a bitmap header.
 * Return 0 for COREHEADER, 1 for INFOHEADER, -1 for error.
 */
int 
FASTCALL
DIB_GetBitmapInfo( const BITMAPINFOHEADER *header, LONG *width,
                       LONG *height, WORD *planes, WORD *bpp, DWORD *compr, DWORD *size )
{
    if (header->biSize == sizeof(BITMAPCOREHEADER))
    {
        const BITMAPCOREHEADER *core = (const BITMAPCOREHEADER *)header;
        *width  = core->bcWidth;
        *height = core->bcHeight;
        *planes = core->bcPlanes;
        *bpp    = core->bcBitCount;
        *compr  = 0;
        *size   = 0;
        return 0;
    }
    if (header->biSize >= sizeof(BITMAPINFOHEADER)) /* assume BITMAPINFOHEADER */
    {
        *width  = header->biWidth;
        *height = header->biHeight;
        *planes = header->biPlanes;
        *bpp    = header->biBitCount;
        *compr  = header->biCompression;
        *size   = header->biSizeImage;
        return 1;
    }
    DPRINT1("(%d): unknown/wrong size for header\n", header->biSize );
    return -1;
}

/***********************************************************************
 *           DIB_GetDIBWidthBytes
 *
 * Return the width of a DIB bitmap in bytes. DIB bitmap data is 32-bit aligned.
 * http://www.microsoft.com/msdn/sdk/platforms/doc/sdk/win32/struc/src/str01.htm
 * 11/16/1999 (RJJ) lifted from wine
 */
INT FASTCALL DIB_GetDIBWidthBytes(INT width, INT depth)
{
    return ((width * depth + 31) & ~31) >> 3;
}

/***********************************************************************
 *           DIB_GetDIBImageBytes
 *
 * Return the number of bytes used to hold the image in a DIB bitmap.
 * 11/16/1999 (RJJ) lifted from wine
 */

INT APIENTRY DIB_GetDIBImageBytes(INT  width, INT height, INT depth)
{
    return DIB_GetDIBWidthBytes(width, depth) * (height < 0 ? -height : height);
}

/***********************************************************************
 *           DIB_BitmapInfoSize
 *
 * Return the size of the bitmap info structure including color table.
 * 11/16/1999 (RJJ) lifted from wine
 */

INT FASTCALL DIB_BitmapInfoSize(const BITMAPINFO * info, WORD coloruse)
{
    unsigned int colors, size, masks = 0;

    if (info->bmiHeader.biSize == sizeof(BITMAPCOREHEADER))
    {
        const BITMAPCOREHEADER *core = (const BITMAPCOREHEADER *)info;
        colors = (core->bcBitCount <= 8) ? 1 << core->bcBitCount : 0;
        return sizeof(BITMAPCOREHEADER) + colors *
             ((coloruse == DIB_RGB_COLORS) ? sizeof(RGBTRIPLE) : sizeof(WORD));
    }
    else  /* assume BITMAPINFOHEADER */
    {
        colors = info->bmiHeader.biClrUsed;
        if (colors > 256) colors = 256;
        if (!colors && (info->bmiHeader.biBitCount <= 8))
            colors = 1 << info->bmiHeader.biBitCount;
        if (info->bmiHeader.biCompression == BI_BITFIELDS) masks = 3;
        size = max( info->bmiHeader.biSize, sizeof(BITMAPINFOHEADER) + masks * sizeof(DWORD) );
        return size + colors * ((coloruse == DIB_RGB_COLORS) ? sizeof(RGBQUAD) : sizeof(WORD));
    }
}

RGBQUAD *
FASTCALL
DIB_MapPaletteColors(PDC dc, CONST BITMAPINFO* lpbmi)
{
    RGBQUAD *lpRGB;
    ULONG nNumColors,i;
    USHORT *lpIndex;
    PPALETTE palGDI;

    palGDI = PALETTE_LockPalette(dc->dclevel.hpal);

    if (NULL == palGDI)
    {
        return NULL;
    }

    if (palGDI->Mode != PAL_INDEXED)
    {
        PALETTE_UnlockPalette(palGDI);
        return NULL;
    }

    nNumColors = 1 << lpbmi->bmiHeader.biBitCount;
    if (lpbmi->bmiHeader.biClrUsed)
    {
        nNumColors = min(nNumColors, lpbmi->bmiHeader.biClrUsed);
    }

    lpRGB = (RGBQUAD *)ExAllocatePoolWithTag(PagedPool, sizeof(RGBQUAD) * nNumColors, TAG_COLORMAP);
    if (lpRGB == NULL)
    {
        PALETTE_UnlockPalette(palGDI);
        return NULL;
    }

    lpIndex = (USHORT *)&lpbmi->bmiColors[0];

    for (i = 0; i < nNumColors; i++)
    {
        if (*lpIndex < palGDI->NumColors)
        {
            lpRGB[i].rgbRed = palGDI->IndexedColors[*lpIndex].peRed;
            lpRGB[i].rgbGreen = palGDI->IndexedColors[*lpIndex].peGreen;
            lpRGB[i].rgbBlue = palGDI->IndexedColors[*lpIndex].peBlue;
        }
        else
        {
            lpRGB[i].rgbRed = 0;
            lpRGB[i].rgbGreen = 0;
            lpRGB[i].rgbBlue = 0;
        }
        lpRGB[i].rgbReserved = 0;
        lpIndex++;
    }
    PALETTE_UnlockPalette(palGDI);

    return lpRGB;
}

HPALETTE
FASTCALL
BuildDIBPalette(CONST BITMAPINFO *bmi, PINT paletteType)
{
    BYTE bits;
    ULONG ColorCount;
    HPALETTE hPal;
    ULONG RedMask, GreenMask, BlueMask;
    PDWORD pdwColors = (PDWORD)((PBYTE)bmi + bmi->bmiHeader.biSize);

    // Determine Bits Per Pixel
    bits = bmi->bmiHeader.biBitCount;

    // Determine paletteType from Bits Per Pixel
    if (bits <= 8)
    {
        *paletteType = PAL_INDEXED;
        RedMask = GreenMask = BlueMask = 0;
    }
    else if (bmi->bmiHeader.biCompression == BI_BITFIELDS)
    {
        *paletteType = PAL_BITFIELDS;
        RedMask = pdwColors[0];
        GreenMask = pdwColors[1];
        BlueMask = pdwColors[2];
    }
    else if (bits == 15)
    {
        *paletteType = PAL_BITFIELDS;
        RedMask = 0x7c00;
        GreenMask = 0x03e0;
        BlueMask = 0x001f;
    }
    else if (bits == 16)
    {
        *paletteType = PAL_BITFIELDS;
        RedMask = 0xF800;
        GreenMask = 0x07e0;
        BlueMask = 0x001f;
    }
    else
    {
        *paletteType = PAL_RGB;
        RedMask = 0xff0000;
        GreenMask = 0x00ff00;
        BlueMask = 0x0000ff;
    }

    if (bmi->bmiHeader.biClrUsed == 0)
    {
        ColorCount = 1 << bmi->bmiHeader.biBitCount;
    }
    else
    {
        ColorCount = bmi->bmiHeader.biClrUsed;
    }

    if (PAL_INDEXED == *paletteType)
    {
        hPal = PALETTE_AllocPaletteIndexedRGB(ColorCount, (RGBQUAD*)pdwColors);
    }
    else
    {
        hPal = PALETTE_AllocPalette(*paletteType, 0,
                                    NULL,
                                    RedMask, GreenMask, BlueMask);
    }

    return hPal;
}

FORCEINLINE
DWORD
GetBMIColor(CONST BITMAPINFO* pbmi, INT i)
{
    DWORD dwRet = 0;
    INT size;
    if(pbmi->bmiHeader.biSize == sizeof(BITMAPCOREHEADER))
    {
        /* BITMAPCOREINFO holds RGBTRIPLE values */
        size = sizeof(RGBTRIPLE);
    }
    else
    {
        size = sizeof(RGBQUAD);
    }
    memcpy(&dwRet, (PBYTE)pbmi + pbmi->bmiHeader.biSize + i*size, size);
    return dwRet;
}

NTSTATUS
FASTCALL
ProbeAndConvertToBitmapV5Info(
    OUT PBITMAPV5INFO pbmiDst,
    IN CONST BITMAPINFO* pbmiUnsafe,
    IN DWORD dwColorUse,
    IN UINT MaxSize)
{
    DWORD dwSize;
    ULONG ulWidthBytes;
    PBITMAPV5HEADER pbmhDst = &pbmiDst->bmiHeader;

    /* Get the size and probe */
    ProbeForRead(&pbmiUnsafe->bmiHeader.biSize, sizeof(DWORD), 1);
    dwSize = pbmiUnsafe->bmiHeader.biSize;
    /* At least dwSize bytes must be valids */
    ProbeForRead(pbmiUnsafe, max(dwSize, MaxSize), 1);
	if(!MaxSize)
		ProbeForRead(pbmiUnsafe, DIB_BitmapInfoSize(pbmiUnsafe, dwColorUse), 1);

    /* Check the size */
    // FIXME: are intermediate sizes allowed? As what are they interpreted?
    //        make sure we don't use a too big dwSize later
    if (dwSize != sizeof(BITMAPCOREHEADER) &&
        dwSize != sizeof(BITMAPINFOHEADER) &&
        dwSize != sizeof(BITMAPV4HEADER) &&
        dwSize != sizeof(BITMAPV5HEADER))
    {
        return STATUS_INVALID_PARAMETER;
    }

    if (dwSize == sizeof(BITMAPCOREHEADER))
    {
        PBITMAPCOREHEADER pbch = (PBITMAPCOREHEADER)pbmiUnsafe;

        /* Manually copy the fields that are present */
        pbmhDst->bV5Width = pbch->bcWidth;
        pbmhDst->bV5Height = pbch->bcHeight;
        pbmhDst->bV5Planes = pbch->bcPlanes;
        pbmhDst->bV5BitCount = pbch->bcBitCount;

        /* Set some default values */
        pbmhDst->bV5Compression = BI_RGB;
        pbmhDst->bV5SizeImage = DIB_GetDIBImageBytes(pbch->bcWidth,
                                                     pbch->bcHeight,
                                                     pbch->bcPlanes*pbch->bcBitCount) ;
        pbmhDst->bV5XPelsPerMeter = 72;
        pbmhDst->bV5YPelsPerMeter = 72;
        pbmhDst->bV5ClrUsed = 0;
        pbmhDst->bV5ClrImportant = 0;
    }
    else
    {
        /* Copy valid fields */
        memcpy(pbmiDst, pbmiUnsafe, dwSize);
        if(!pbmhDst->bV5SizeImage)
            pbmhDst->bV5SizeImage = DIB_GetDIBImageBytes(pbmhDst->bV5Width,
                                                         pbmhDst->bV5Height,
                                                         pbmhDst->bV5Planes*pbmhDst->bV5BitCount) ;

        if(dwSize < sizeof(BITMAPV5HEADER))
        {
            /* Zero out the rest of the V5 header */
            memset((char*)pbmiDst + dwSize, 0, sizeof(BITMAPV5HEADER) - dwSize);
        }
    }
    pbmhDst->bV5Size = sizeof(BITMAPV5HEADER);


    if (dwSize < sizeof(BITMAPV4HEADER))
    {
        if (pbmhDst->bV5Compression == BI_BITFIELDS)
        {
            pbmhDst->bV5RedMask = GetBMIColor(pbmiUnsafe, 0);
            pbmhDst->bV5GreenMask = GetBMIColor(pbmiUnsafe, 1);
            pbmhDst->bV5BlueMask = GetBMIColor(pbmiUnsafe, 2);
            pbmhDst->bV5AlphaMask = 0;
            pbmhDst->bV5ClrUsed = 0;
        }

//        pbmhDst->bV5CSType;
//        pbmhDst->bV5Endpoints;
//        pbmhDst->bV5GammaRed;
//        pbmhDst->bV5GammaGreen;
//        pbmhDst->bV5GammaBlue;
    }

    if (dwSize < sizeof(BITMAPV5HEADER))
    {
//        pbmhDst->bV5Intent;
//        pbmhDst->bV5ProfileData;
//        pbmhDst->bV5ProfileSize;
//        pbmhDst->bV5Reserved;
    }

    ulWidthBytes = ((pbmhDst->bV5Width * pbmhDst->bV5Planes *
                     pbmhDst->bV5BitCount + 31) & ~31) / 8;

    if (pbmhDst->bV5SizeImage == 0)
        pbmhDst->bV5SizeImage = abs(ulWidthBytes * pbmhDst->bV5Height);

    if (pbmhDst->bV5ClrUsed == 0)
    {
        switch(pbmhDst->bV5BitCount)
        {
            case 1:
                pbmhDst->bV5ClrUsed = 2;
                break;
            case 4:
                pbmhDst->bV5ClrUsed = 16;
                break;
            case 8:
                pbmhDst->bV5ClrUsed = 256;
                break;
            default:
                pbmhDst->bV5ClrUsed = 0;
                break;
        }
    }

    if (pbmhDst->bV5Planes != 1)
    {
        return STATUS_INVALID_PARAMETER;
    }

    if (pbmhDst->bV5BitCount != 0 && pbmhDst->bV5BitCount != 1 &&
        pbmhDst->bV5BitCount != 4 && pbmhDst->bV5BitCount != 8 &&
        pbmhDst->bV5BitCount != 16 && pbmhDst->bV5BitCount != 24 &&
        pbmhDst->bV5BitCount != 32)
    {
        DPRINT("Invalid bit count: %d\n", pbmhDst->bV5BitCount);
        return STATUS_INVALID_PARAMETER;
    }

    if ((pbmhDst->bV5BitCount == 0 &&
         pbmhDst->bV5Compression != BI_JPEG && pbmhDst->bV5Compression != BI_PNG))
    {
        DPRINT("Bit count 0 is invalid for compression %d.\n", pbmhDst->bV5Compression);
        return STATUS_INVALID_PARAMETER;
    }

    if (pbmhDst->bV5Compression == BI_BITFIELDS &&
        pbmhDst->bV5BitCount != 16 && pbmhDst->bV5BitCount != 32)
    {
        DPRINT("Bit count %d is invalid for compression BI_BITFIELDS.\n", pbmhDst->bV5BitCount);
        return STATUS_INVALID_PARAMETER;
    }

    /* Copy Colors */
    if(pbmhDst->bV5ClrUsed)
    {
        INT i;
        if(dwColorUse == DIB_PAL_COLORS)
        {
            RtlCopyMemory(pbmiDst->bmiColors,
                          pbmiUnsafe->bmiColors,
                          pbmhDst->bV5ClrUsed * sizeof(WORD));
        }
        else
        {
            for(i = 0; i < pbmhDst->bV5ClrUsed; i++)
            {
                ((DWORD*)pbmiDst->bmiColors)[i] = GetBMIColor(pbmiUnsafe, i);
            }
        }
    }

    return STATUS_SUCCESS;
}

/* Converts a BITMAPCOREINFO to a BITMAPINFO structure,
 * or does nothing if it's already a BITMAPINFO (or V4 or V5) */
BITMAPINFO*
FASTCALL
DIB_ConvertBitmapInfo (CONST BITMAPINFO* pbmi, DWORD Usage)
{
	CONST BITMAPCOREINFO* pbmci = (BITMAPCOREINFO*)pbmi;
	BITMAPINFO* pNewBmi ;
	UINT numColors = 0, ColorsSize = 0;

	if(pbmi->bmiHeader.biSize >= sizeof(BITMAPINFOHEADER)) return (BITMAPINFO*)pbmi;
	if(pbmi->bmiHeader.biSize != sizeof(BITMAPCOREHEADER)) return NULL;

	if(pbmci->bmciHeader.bcBitCount <= 8)
	{
		numColors = 1 << pbmci->bmciHeader.bcBitCount;
		if(Usage == DIB_PAL_COLORS)
		{
			ColorsSize = numColors * sizeof(WORD);
		}
		else
		{
			ColorsSize = numColors * sizeof(RGBQUAD);
		}
	}
	else if (Usage == DIB_PAL_COLORS)
	{
		/* Invalid at high Res */
		return NULL;
	}

	pNewBmi = ExAllocatePoolWithTag(PagedPool, sizeof(BITMAPINFOHEADER) + ColorsSize, TAG_DIB);
	if(!pNewBmi) return NULL;

	RtlZeroMemory(pNewBmi, sizeof(BITMAPINFOHEADER) + ColorsSize);

	pNewBmi->bmiHeader.biSize = sizeof(BITMAPINFOHEADER);
	pNewBmi->bmiHeader.biBitCount = pbmci->bmciHeader.bcBitCount;
	pNewBmi->bmiHeader.biWidth = pbmci->bmciHeader.bcWidth;
	pNewBmi->bmiHeader.biHeight = pbmci->bmciHeader.bcHeight;
	pNewBmi->bmiHeader.biPlanes = pbmci->bmciHeader.bcPlanes;
	pNewBmi->bmiHeader.biCompression = BI_RGB ;
	pNewBmi->bmiHeader.biSizeImage = DIB_GetDIBImageBytes(pNewBmi->bmiHeader.biWidth,
												pNewBmi->bmiHeader.biHeight,
												pNewBmi->bmiHeader.biBitCount);

	if(Usage == DIB_PAL_COLORS)
	{
		RtlCopyMemory(pNewBmi->bmiColors, pbmci->bmciColors, ColorsSize);
	}
	else
	{
		UINT i;
		for(i=0; i<numColors; i++)
		{
			pNewBmi->bmiColors[i].rgbRed = pbmci->bmciColors[i].rgbtRed;
			pNewBmi->bmiColors[i].rgbGreen = pbmci->bmciColors[i].rgbtGreen;
			pNewBmi->bmiColors[i].rgbBlue = pbmci->bmciColors[i].rgbtBlue;
		}
	}

	return pNewBmi ;
}

/* Frees a BITMAPINFO created with DIB_ConvertBitmapInfo */
VOID
FASTCALL
DIB_FreeConvertedBitmapInfo(BITMAPINFO* converted, BITMAPINFO* orig)
{
	if(converted != orig)
		ExFreePoolWithTag(converted, TAG_DIB);
}






/* EOF */