>FUNCTION NumColors > >DECLARE INTEGER GetDC IN Win32API; > INTEGER hWnd >DECLARE INTEGER GetDeviceCaps IN Win32API; > INTEGER hDC, INTEGER nIndex >DECLARE INTEGER ReleaseDC IN Win32API; > INTEGER hWnd, INTEGER hDC >LOCAL lnresult, lnhDC, lnplanes, lnpixels >lnresult = 0 >lnhDC = GetDC(0) >IF lnhDC > 0 > lnplanes = GetDeviceCaps(lnhDC, 14) && 14 is the number of planes > lnpixels = GetDeviceCaps(lnhDC, 12) && 12 is the bits per pixel > lnresult = 2 ^ (lnplanes * lnpixels) > = ReleaseDC(0, lnhDC) >ENDIF >RETURN lnresult>hth,