Connaitre le nombre de couleur utilisé dans l'affichage

function Farbtiefe : string;
var
DesktopDC : HDC;
BitsPerPixel : integer;

begin
DesktopDC := GetDC(0);
BitsPerPixel := GetDeviceCaps(DesktopDC, BITSPIXEL);
case BitsPerPixel of
4 : Result := '4-Bit';
8 : Result := '8-Bit';
16 : Result := '16-Bit';
24 : Result := '24-Bit';
32 : Result := '32-Bit';
end;
ReleaseDC(0, DesktopDC);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:=Farbtiefe;
end;
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour16/11/2001
VisualisationVu 1416 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Surface
Auteur de l'article
arachnosoft arachnosoft
connecté le 02/11/2011
1 articles dans la section
Contacter l'auteur