Número de Cores Suportados Pelo Seu Monitor
A dica abaixo apresenta o código para implementação de uma função que retorne o número de cores suportadas pelo monitor. A função se baseia na utilização de uma API do Windows, chamada GETDC. Veja a função:
function QdeCores: integer;
var
h: HDC;
begin
Result := 0;
try
h := GetDC( 0 );
Result := 1 shl ( GetDeviceCaps( h, PLANES ) * GetDeviceCaps( h, BITSPIXEL ));
finally
ReleaseDC( 0, h );
end;
end;
Para testar a função coloque um objeto button e um objeto edit. No evento onclick do objeto button coloqueo seguinte código:
Edit1.Text := IntToStr(Qdecores);
Ao clicar no botão, o Edit recebe o número de cores que o monitor está suportando.