Delphi - configuración de colores

 
Vista:

configuración de colores

Publicado por Diego (85 intervenciones) el 26/03/2003 15:53:52
Hola
¿Cómo podría saber la configuración de colores del PC donde se ejecuta mi aplicación? Me refiero a la cantidad de colores que tiene configurado.
Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:configuración de colores

Publicado por Ernesto D'Spirito (706 intervenciones) el 26/03/2003 16:35:20
Desconozco si habrá una forma más simple, pero puedes llamar a la API GetDeviceCaps para obtener la cantidad de planos y la cantidad de bist por pixel de cada plano, que multiplicados te dan la cantidad total de bits por pixel, siendo la cantidad de colores igual a 2 elevado a la cantidad de bits por pixel.

procedure TForm1.Button1Click(Sender: TObject);
var
ScreenHDC: HDC;
Colores: longword;
begin
ScreenHDC := GetDC(0);
Colores := 1 shl (GetDeviceCaps(ScreenHDC, BITSPIXEL)
* GetDeviceCaps(ScreenHDC, PLANES));
ShowMessageFmt('%d', [Colores]);
ReleaseDC(0, ScreenHDC);
end;

Espero que te sirva.

Ernesto D'Spirito
http://www.latiumsoftware.com/es/index.php
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar