>>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,