Detecting color depth-16 color, 256 color, or 32 bit color

[TerryRitchie]

I modified the code a bit so you don't need to use SCREEN to get the color depth of the images.

Code: (Select All)

DIM a(3)

a(1) = _NEWIMAGE(640, 480, 32)

a(2) = _NEWIMAGE(640, 480, 256)

a(3) = _NEWIMAGE(640, 480, 12)

FOR i = 1 TO 3

    SELECT CASE _PIXELSIZE(a(i))

        CASE 4: PRINT "32-bit color"

        CASE 1:

            cu = 0

            FOR j = 0 TO 255

                IF _PALETTECOLOR(j, a(i)) <> &HFF000000 THEN cu = cu + 1

            NEXT

            SELECT CASE cu

                CASE IS <= 16: PRINT "16 color image"

                CASE ELSE: PRINT "256 color image"

            END SELECT

    END SELECT

    SLEEP

NEXT