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

[SMcNeill]

There's an issue with trying to sort between 16-color and 256-color images.  The problem is that both use 1 byte-per-pixel in memory, so you may need to compare against _PALETTECOLOR to distinguish between the two.

Try this:

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

    Screen a(i)

    Select Case _PixelSize

        Case 4: Print "32-bit color"

        Case 1:

            cu = 0

            For j = 0 To 255

                If _PaletteColor(j) <> &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