Listing 2 Removing the logical palette and reinstalling the system palette

int FAR PASCAL Resetplate (hWnd)
/*
*/
  HWND hWnd;

  {
   int result,i,j;
   HDC hDC;
   HPALETTE aPalette;

   result = NO_ERROR;

   if (oldPalette != NULL)
   {
    hDC = GetDC(hWnd);
    if (hDC != NULL)
    {
     aPalette = SelectPalette(hDC,oldPalette,0);

     if (aPalette != NULL)
    {
     SetSystemPaletteUse(hDC,oldPaletteUsage);
     UnrealizeObject(oldPalette);
     RealizePalette(hDC);

     if (newPalette != NULL)
       DeleteObject(newPalette);
    }
    else result = PAL_SELECT_ERROR;

    ReleaseDC(hWnd,hDC);
   }
   else result = PAL_HDC_ERROR;
  }

  return result;
 } /* ResetPalette */

/* End of File*/