Buscar

Retorna o número de cores atual do vídeo

Código

Function GetColorsCount : 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;
 

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Hardware
Adicionada dia: 26/07/03
Por: Amilton Maciel
Visualizada: 2415 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009