Delphi dicas

Como retornar o número de cores suportadas 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.

por : Humberto Rodrigues