Число цветов (цветовая палитра) у данного компьютера
Материал из 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