'
' GetColors
'
' Author: Joe Strazzere
'
dim dc as unsigned
dim bpp as unsigned
dc=External("user32","GetDC",0)
bpp=External("gdi32","GetDeviceCaps",dc,12)
ret=External("user32","ReleaseDC",0,dc)
msgbox("We are displaying "+str$(bpp)+" bits per pixel")
Select Case bpp
Case 4
MsgBox("That's 16 colors")
Case 8
MsgBox("That's 256 colors")
Case 16
MsgBox("That's 65536 colors")
Case 24
MsgBox("That's 16777216 colors")
Case Else
MsgBox("That's True Color")
EndSelect
