///Create Surface///////////////////////////////////////////////////////////
//Creats any size surface
//////////////////////////////////////////////////////////////////////////
void MercuryEngine::CreateSurface(LPDIRECTDRAWSURFACE7 *lpSource, int xs, int ys)
{
   DDSURFACEDESC2 ddsd;

   ZeroMemory(&ddsd, sizeof(ddsd));
   ddsd.dwSize = sizeof(ddsd);
   ddsd.dwFlags = DDSD_CAPS | DDSD_WIDTH | DDSD_HEIGHT | DDSD_CKSRCBLT;
   ddsd.ddsCaps.dwCaps = DDSCAPS_OFFSCREENPLAIN | DDSCAPS_VIDEOMEMORY;
   ddsd.dwWidth = xs;
   ddsd.dwHeight = ys;
   ddsd.ddckCKSrcBlt.dwColorSpaceLowValue = _RGB32BIT(0,0,32,0);
   ddsd.ddckCKSrcBlt.dwColorSpaceHighValue = _RGB32BIT(0,0,32,0);
   lpdd->CreateSurface(&ddsd, lpSource, NULL);
}


/////DrawHBitmap/////////////////////////////////////////////////////
// Blts a bitmap to surface
////////////////////////////////////////////////////////////////////////////
void MercuryEngine::DrawHBitmap(IDirectDrawSurface7 *lpSurface, HBITMAP hBitmap, int x, int y, int width, int height)
{
   HDC           hdcImage;
   HDC           hdc;
   BITMAP        bm;

   if (lpSurface == NULL || hBitmap == NULL)
      return;
   lpSurface->Restore();

   hdcImage = CreateCompatibleDC(NULL);
   SelectObject(hdcImage, hBitmap);

   GetObject(hBitmap, sizeof(bm), &bm);
   width = width == 0 ? bm.bmWidth  : width;
   height = height == 0 ? bm.bmHeight : height;

   lpSurface->GetDC(&hdc);
   BitBlt(hdc, x, y, width, height, hdcImage, 0, 0, SRCCOPY);
   lpSurface->ReleaseDC(hdc);
   DeleteDC(hdcImage);
}

////BitMap load//////////////////////////////////
// Creats a bitmap surface
//////////////////////////////////////////////////
void MercuryEngine::CreateBitmapSurface(LPDIRECTDRAWSURFACE7 lpSurface, char *fname, int xs, int ys)
{
   HBITMAP hBitmap;
   
   this->CreateSurface(&lpSurface, xs, ys);
   
   hBitmap = LoadImage(NULL, fname, IMAGE_BITMAP, 0, 0, LR_LOADFROMFILE);
   this->DrawHBitmap(lpSurface, hBitmap, 0, 0, xs, ys);
   DeleteObject(hBitmap);
}


LPDIRECTDRAW7 lpdd;  //version 7.0 main
DDSURFACEDESC2 ddsd; //primary surface descriptor
LPDIRECTDRAWSURFACE7 DDprimary; //DX primary surface
LPDIRECTDRAWSURFACE7 DDback; //DX BACK surface
LPDIRECTDRAWSURFACE7 DDback_sprite; //DX BACK surface
DDBLTFX ddbltfx; //blt effect
RECT dest_rect; //dest rectangle
RECT src_rect; //source rectangle
RECT clipper_rect[1] = {0,0,799,599}; //fullscrenn clipping area

LPDIRECTDRAWCLIPPER DDclipper; //DD clipper

MercuryEngine GameEngine; //Main Game engine
...
...
...
...

// create IDirectDraw interface 7.0 object and test for error
        if (FAILED(DirectDrawCreateEx(NULL, (void **)&lpdd, IID_IDirectDraw7, NULL)))
                Application->MessageBoxA("Error: Can't initialize DirectDraw 7","Error",MB_OK);

        // set cooperation to fullscreen
        lpdd->SetCooperativeLevel(Handle, DDSCL_FULLSCREEN | DDSCL_ALLOWMODEX | DDSCL_EXCLUSIVE | DDSCL_ALLOWREBOOT);

        //set display mode
        // 800x600x8bit color
        lpdd->SetDisplayMode(800,600,32,0,0);

        //M$ says clean out our struct
        memset(&ddsd,0, sizeof(ddsd));

        //tell DirectX the size of ddsd
        ddsd.dwSize = sizeof(ddsd);

        //tell DX what valid data we will be giving it
        ddsd.dwFlags = DDSD_CAPS | DDSD_BACKBUFFERCOUNT;

        //backbuffer count
        ddsd.dwBackBufferCount = 1;

        //complex , flipable
        ddsd.ddsCaps.dwCaps = DDSCAPS_PRIMARYSURFACE | DDSCAPS_COMPLEX | DDSCAPS_FLIP;

        //now create the primary surface
        if(FAILED(lpdd->CreateSurface(&ddsd,&DDprimary,NULL)))
                Application->MessageBoxA("Error: Can't creat primary surface","Error", MB_OK);

        ddsd.ddsCaps.dwCaps = DDSCAPS_BACKBUFFER;

        //atach backbuffer
        if(FAILED(DDprimary->GetAttachedSurface(&ddsd.ddsCaps, &DDback)));

        //creat clipper
        DDclipper = GameEngine.DDCrClipper(DDback,1,clipper_rect);


        //set rect properties
        dest_rect.left   = 0;
        dest_rect.top    = 0;
        dest_rect.right  = 799;
        dest_rect.bottom = 599;
        
        //set rect properties
        src_rect.left   = 0;
        src_rect.top    = 0;
        src_rect.right  = 799;
        src_rect.bottom = 599;

//clean us out..
memset(&ddsd,0,sizeof(ddsd));
ddsd.dwSize = sizeof(ddsd);

//lock the surface
DDback->Lock(NULL,&ddsd,DDLOCK_SURFACEMEMORYPTR | DDLOCK_WAIT, NULL);


DDBLTFX ddbltfx;


 //clean us out..
memset(&ddbltfx,0,sizeof(ddbltfx));
ddbltfx.dwSize = sizeof(ddbltfx);


 //set the dwFillColor to desired color
 ddbltfx.dwFillColor = clBlack;

 //ready to blt to surface
DDback->Blt(NULL,       //ptr to des rect
                  NULL,       //ptr to src surface
                  NULL,       //ptr to src rect
                  DDBLT_COLORFILL | DDBLT_WAIT,   //fill and wait
                  &ddbltfx);  //ptr to DDBLTFX structure

DDback->Blt(&dest_rect,DDback_sprite,&src_rect,DDBLT_WAIT, NULL);



//unlock the surface
DDback->Unlock(NULL);