Как узнать количество бит в цветовой палитре

Главная страница сайта "Delphi Sources"

Раздел "Исходники"

Форум

Как узнать количество бит в цветовой палитре

Пpосыпаются утpом паpень с девушкой, гpустный сеpый осенний день. подходят к окну. Девушка:
- Какой сегодня сеpый день...
Паpень:
- Палитpа слетела...

function GetDisplayColors: integer;
var
  tHDC: hdc;
begin
  tHDC := GetDC(0);
  result := GetDeviceCaps(tHDC, 12) * GetDeviceCaps(tHDC, 14);
  ReleaseDC(0, tHDC);
end;