rostests/dibtests/palbitblt/pal.c

   1 /* The idea of this test app is inspired from tutorial       *
   2  * found at http://www.theparticle.com/pgraph.html           *
   3  *                                                           *
   4  * Developed by: Aleksey Bragin <aleksey@studiocerebral.com> *
   5  * Version: 1.0                                              */
   6
   7 #include <windows.h>
   8 #include <stdlib.h>
   9
  10 #define W_WIDTH 320
  11 #define W_HEIGHT 240
  12
  13 // special version of BITMAPINFO and LOGPALETTE for max of 256 palette entries
  14 typedef struct
  15 {
  16         BITMAPINFOHEADER bmiHeader;
  17         RGBQUAD bmiColors[256];
  18 } BITMAPINFO256;
  19
  20 typedef struct {
  21         WORD    palVersion;
  22         WORD    palNumEntries;
  23         PALETTEENTRY palPalEntry[256];
  24 } LOGPALETTE256;
  25
  26 // The only global variable --- contents of the DIBitmap
  27 BYTE* dibits;
  28
  29 void GeneratePalette(RGBQUAD* p)
  30 {
  31         int i;
  32         for(i=0;i<256;i++)
  33         {
  34                 p[i].rgbRed = i;
  35                 p[i].rgbGreen = i;
  36                 p[i].rgbBlue = i;
  37                 p[i].rgbReserved = 0;
  38         }
  39 }
  40
  41 void DoBlt(HBITMAP hBM)
  42 {
  43         HDC hDC,Context;
  44         HWND ActiveWindow;
  45         RECT dest;
  46         HBITMAP dflBmp;
  47
  48         if((ActiveWindow = GetActiveWindow()) == NULL)
  49                 return;
  50
  51         hDC = GetDC(ActiveWindow);
  52         GetClientRect(ActiveWindow,&dest);
  53
  54         Context = CreateCompatibleDC(0);
  55         dflBmp = SelectObject(Context, hBM);
  56         BitBlt(hDC, 0, 0, dest.right, dest.bottom, Context, 0, 0, SRCCOPY);
  57         SelectObject(Context, dflBmp);
  58         DeleteDC(Context);
  59         DeleteObject(dflBmp);
  60         ReleaseDC(ActiveWindow, hDC);
  61 }
  62
  63 void UpdatePalette(HBITMAP hBM){
  64         int i,y;
  65         static unsigned int c=0;
  66
  67         for(i=0;i<W_WIDTH;i++){
  68                 for(y=0;y<=W_HEIGHT-1;y++)
  69                         dibits[y*320+i] = c % 256;
  70
  71                 if (c > 512)
  72                         c = 0;
  73                 else
  74                         c++; // It's operation of incrementing of c variable, not reference of a cool OO language :-)
  75         }
  76
  77         DoBlt(hBM);
  78 }
  79
  80 void InitBitmap(HBITMAP *hBM){
  81         HPALETTE PalHan;
  82         HWND ActiveWindow;
  83         HDC hDC;
  84         RGBQUAD palette[256];
  85         int i;
  86         BITMAPINFO256 bmInf;
  87         LOGPALETTE256 palInf;
  88
  89         ActiveWindow = GetActiveWindow();
  90         hDC = GetDC(ActiveWindow);
  91
  92         bmInf.bmiHeader.biSize = sizeof(BITMAPINFOHEADER);
  93         bmInf.bmiHeader.biWidth = W_WIDTH;
  94         bmInf.bmiHeader.biHeight = -abs(W_HEIGHT);
  95         bmInf.bmiHeader.biPlanes = 1;
  96         bmInf.bmiHeader.biBitCount = 8;
  97         bmInf.bmiHeader.biCompression = BI_RGB;
  98         bmInf.bmiHeader.biSizeImage = 0;
  99         bmInf.bmiHeader.biXPelsPerMeter = 0;
 100         bmInf.bmiHeader.biYPelsPerMeter = 0;
 101         bmInf.bmiHeader.biClrUsed = 256;
 102         bmInf.bmiHeader.biClrImportant = 256;
 103
 104         GeneratePalette(palette);
 105
 106         for(i=0;i<256;i++)
 107                 bmInf.bmiColors[i] = palette[i];
 108
 109         palInf.palVersion = 0x300;
 110         palInf.palNumEntries = 256;
 111         for(i=0;i<256;i++){
 112                 palInf.palPalEntry[i].peRed = palette[i].rgbRed;
 113                 palInf.palPalEntry[i].peGreen = palette[i].rgbGreen;
 114                 palInf.palPalEntry[i].peBlue = palette[i].rgbBlue;
 115                 palInf.palPalEntry[i].peFlags = PC_NOCOLLAPSE;
 116         }
 117
 118         // Create palette
 119         PalHan = CreatePalette((LOGPALETTE*)&palInf);
 120
 121         // Select it into hDC
 122         SelectPalette(hDC,PalHan,FALSE);
 123
 124         // Realize palette in hDC
 125         RealizePalette(hDC);
 126
 127         // Delete handle to palette
 128         DeleteObject(PalHan);
 129
 130         // Create dib section
 131         *hBM = CreateDIBSection(hDC,(BITMAPINFO*)&bmInf,
 132                 DIB_RGB_COLORS,(void**)&dibits,0,0);
 133
 134         // Release dc
 135         ReleaseDC(ActiveWindow,hDC);
 136 }
 137
 138 LRESULT CALLBACK WndProc(HWND hWnd,UINT msg, WPARAM wParam,LPARAM lParam)
 139 {
 140         switch(msg){
 141                 case WM_DESTROY:
 142                         PostQuitMessage(0);
 143                         return 0;
 144                 default:
 145                         return DefWindowProc(hWnd,msg,wParam,lParam);
 146         }
 147 }
 148
 149
 150
 151 int WINAPI WinMain(HINSTANCE hInstance,HINSTANCE hPrevInstance, LPSTR lpszCmdParam,int nCmdShow)
 152 {
 153         WNDCLASS WndClass;
 154         HWND hWnd;
 155         MSG msg;
 156         char szName[] = "Palette BitBlt test";
 157         BOOL exit = FALSE;
 158         HBITMAP hBM;
 159
 160         // Create and register window class (not modified!!!!!!!!!!!1)
 161         WndClass.style = CS_HREDRAW|CS_VREDRAW|CS_OWNDC;
 162         WndClass.lpfnWndProc = WndProc;
 163         WndClass.cbClsExtra = 0;
 164         WndClass.cbWndExtra = 0;
 165         WndClass.hbrBackground = NULL;//GetStockObject(BLACK_BRUSH);
 166         WndClass.hIcon = NULL;//LoadIcon(hInstance,NULL);
 167         WndClass.hCursor = NULL;//LoadCursor(NULL,IDC_ARROW);
 168         WndClass.hInstance = hInstance;
 169         WndClass.lpszClassName = szName;
 170         WndClass.lpszMenuName = 0;
 171
 172         RegisterClass(&WndClass);
 173
 174         // Create and show window (change styles !!!!!!!!)
 175         hWnd = CreateWindow(szName, "ReactOS palette bitblt test",
 176                 WS_CAPTION|WS_MINIMIZEBOX|WS_SYSMENU,
 177                 CW_USEDEFAULT,CW_USEDEFAULT,W_WIDTH,W_HEIGHT,
 178                 0,0,hInstance,0);
 179         ShowWindow(hWnd,nCmdShow);
 180
 181         // Prepare bitmap to be bitblt
 182         InitBitmap(&hBM);
 183
 184         // Main message loop
 185         while (!exit)
 186         {
 187                 UpdatePalette(hBM);
 188                 Sleep(200);
 189
 190                 if(PeekMessage(&msg,0,0,0,PM_NOREMOVE) == TRUE)
 191                 {
 192                         if (!GetMessage(&msg,0,0,0))
 193                                 exit = TRUE;
 194
 195                         TranslateMessage(&msg);
 196                         DispatchMessage(&msg);
 197                 }
 198         }
 199
 200         return msg.wParam;
 201 }