FGIW2: C/C++ Version

/****************************************************************************\
*                                                                            *
*  FGIW2.c                                                                   *
*                                                                            *
*  This example shows how to play a flic file from an FGI library, using     *
*  either fgi_showflic() or the low-level fgi_flicxxx() routines.            *
*                                                                            *
\****************************************************************************/
#include 
#include 
LRESULT CALLBACK WindowProc(HWND,UINT,WPARAM,LPARAM);
int WINAPI WinMain (HINSTANCE hInstance, HINSTANCE hPrevInstance,
                    PSTR szCmdParam, int iCmdShow)
{
   static char szAppName[] = "FGIW2";
   HWND        hWnd;
   MSG         msg;
   WNDCLASSEX  wndclass;
   wndclass.cbSize        = sizeof(wndclass);
   wndclass.style         = CS_HREDRAW | CS_VREDRAW | CS_OWNDC;
   wndclass.lpfnWndProc   = WindowProc;
   wndclass.cbClsExtra    = 0;
   wndclass.cbWndExtra    = 0;
   wndclass.hInstance     = hInstance;
   wndclass.hIcon         = LoadIcon(NULL,IDI_APPLICATION);
   wndclass.hCursor       = LoadCursor(NULL,IDC_ARROW);
   wndclass.hbrBackground = NULL;
   wndclass.lpszMenuName  = NULL;
   wndclass.lpszClassName = szAppName;
   wndclass.hIconSm       = LoadIcon(NULL,IDI_APPLICATION);
   RegisterClassEx(&wndclass);
   hWnd = CreateWindow(
      szAppName,             // window class name
      "Example FGIW2",       // window caption
      WS_OVERLAPPEDWINDOW,   // window style
      CW_USEDEFAULT,         // initial x position
      CW_USEDEFAULT,         // initial y position
      CW_USEDEFAULT,         // initial x size
      CW_USEDEFAULT,         // initial y size
      NULL,                  // parent window handle
      NULL,                  // window menu handle
      hInstance,             // program instance handle
      NULL);                 // creation parameters
   ShowWindow(hWnd,iCmdShow);
   UpdateWindow(hWnd);
   while (GetMessage(&msg,NULL,0,0))
   {
      TranslateMessage(&msg);
      DispatchMessage(&msg);
   }
   return msg.wParam;
}
/****************************************************************************\
*                                                                            *
*  WindowProc()                                                              *
*                                                                            *
\****************************************************************************/
HCURSOR  hCursor;
HDC      hDC;
HPALETTE hPal;
int      hVB, hFGI;
UINT     cxClient, cyClient;
BYTE     Context[20];
LRESULT CALLBACK WindowProc(HWND hWnd, UINT iMsg, WPARAM wParam, LPARAM lParam)
{
   PAINTSTRUCT ps;
   switch (iMsg)
   {
      case WM_CREATE:
         hDC = GetDC(hWnd);
         fg_setdc(hDC);
         hPal = fg_defpal();
         fg_realize(hPal);
         fg_vbinit();
         hVB = fg_vballoc(320,200);
         fg_vbopen(hVB);
         fg_vbcolors();
         hFGI = fgi_open("EXAMPLE.FGI");
         if (hFGI == 0)
         {
            MessageBox(hWnd,"Unable to open FGI file.","Error",MB_ICONSTOP|MB_OK);
            DestroyWindow(hWnd);
            return 0;
         }
         fgi_flicopen("GLASS.FLI",Context,hFGI);
         fg_flicplay(Context,1,0);
         return 0;
      case WM_KEYDOWN:
         switch (wParam)
         {
            case VK_F1:
               hCursor = SetCursor(LoadCursor(NULL,IDC_WAIT));
               ShowCursor(TRUE);
               fgi_showflic("GLASS.FLI",2,0,hFGI);
               ShowCursor(FALSE);
               SetCursor(hCursor);
               break;
            case VK_F2:
               hCursor = SetCursor(LoadCursor(NULL,IDC_WAIT));
               ShowCursor(TRUE);
               fgi_flicskip(Context,-1);
               while (fg_flicplay(Context,1,0) > 0)
                  fg_vbscale(0,fg_getmaxx(),0,fg_getmaxy(),0,cxClient-1,0,cyClient-1);
               fgi_flicskip(Context,-1);
               while (fg_flicplay(Context,1,0) > 0)
                  fg_vbscale(0,fg_getmaxx(),0,fg_getmaxy(),0,cxClient-1,0,cyClient-1);
               ShowCursor(FALSE);
               SetCursor(hCursor);
               break;
         }
         return 0;
      case WM_PAINT:
         BeginPaint(hWnd,&ps);
         fg_vbscale(0,fg_getmaxx(),0,fg_getmaxy(),0,cxClient-1,0,cyClient-1);
         EndPaint(hWnd,&ps);
         return 0;
      case WM_SETFOCUS:
         fg_realize(hPal);
         InvalidateRect(hWnd,NULL,TRUE);
         return 0;
      case WM_SIZE:
         cxClient = LOWORD(lParam);
         cyClient = HIWORD(lParam);
         return 0;
      case WM_DESTROY:
         fgi_close(hFGI);
         fg_vbclose();
         fg_vbfree(hVB);
         fg_vbfin();
         DeleteObject(hPal);
         ReleaseDC(hWnd,hDC);
         PostQuitMessage(0);
         return 0;
   }
   return DefWindowProc(hWnd,iMsg,wParam,lParam);
}