Число цветов (цветовая палитра) у данного компьютера

Материал из DRKB


Эта функция возвращает число бит на точку у данного компьютера. Так, например, 8 - 256 цветов, 4 - 16 цветов ...

function GetDisplayColors: Integer;
var
  aHDC: hdc;
begin
  aHDC := GetDC(0);
  Result := GetDeviceCaps(aHDC, 12)* GetDeviceCaps(aHDC, 14);
  ReleaseDC(0, aHDC);
end;


Author: Зайцев О.В.
Author: Владимиров А.М.
Source: http://forum.sources.ru
ID: 03687



Result := 1 shl GetDeviceCaps(Canvas.Handle, BITSPIXEL);


Source: http://delphiworld.narod.ru
ID: 03688

См. также[править | править код]