Language-Haskell

 view release on metacpan or  search on metacpan

hugs98-Nov2003/src/winhugs/menusbm.c  view on Meta::CPAN

    SelectObject(hdc, hbrOld); 
} 

// Function-pointer type for drawing functions 
 
typedef VOID (WINAPI * DRAWFUNC)(HDC hdc, SIZE size);
 

HBITMAP WINAPI CreateMenuBitmap(DRAWFUNC lpfnDraw) 
{ 
    // Create a DC compatible with the desktop window's DC. 
 
    HWND hwndDesktop = GetDesktopWindow(); 
    HDC hdcDesktop = GetDC(hwndDesktop); 
    HDC hdcMem = CreateCompatibleDC(hdcDesktop); 
 
    // Determine the required bitmap size. 
 
    DWORD dwExt = GetMenuCheckMarkDimensions(); 
    SIZE size = { LOWORD(dwExt), HIWORD(dwExt) }; 
 



( run in 0.368 second using v1.01-cache-2.11-cpan-299005ec8e3 )