Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.11.06;
Скачать: CL | DM;

Вниз

Глубина цвета   Найти похожие ветки 

 
Artemiy   (2005-09-06 18:51) [0]

Здравствуйте!
Как определить текущую глубину цвета экрана (16, 24, 32 бита)?
Спасибо!


 
begin...end ©   (2005-09-06 19:11) [1]

GetDeviceCaps ?


 
Турист   (2005-09-06 22:21) [2]

>Artemiy   (06.09.05 18:51)  



function GetColorCount : Int64;
{$WRITEABLECONST ON}
const
 ColorCount : Int64 = 0;
var
 DC : HDC;
begin
 if ColorCount = 0 then begin
   DC := GetDC(0);
   if DC <> 0 then try
     ColorCount := Int64(1) shl (GetDeviceCaps(DC, PLANES) * GetDeviceCaps(DC, BITSPIXEL));
   finally
     ReleaseDC(0, DC)
   end else
     ColorCount := 256
 end;
 Result := ColorCount
end;


 
Artemiy   (2005-09-06 22:51) [3]

Спасибо, то что надо!


 
Artemiy   (2005-09-06 22:59) [4]

Вот ещё появились вопрос, надеюсь простой! Как отследить изменение видеорежима рабочего стола?
Спасибо!


 
Турист   (2005-09-06 23:22) [5]

Посылается сообщение WM_DISPLAYCHANGE


 
Artemiy   (2005-09-07 00:02) [6]

Сенкс!



Страницы: 1 вся ветка

Текущий архив: 2005.11.06;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.059 c
3-1125919576
Monk
2005-09-05 15:26
2005.11.06
Права доступа на базы в BDE


9-1119700630
Dib
2005-06-25 15:57
2005.11.06
OpenGL и Full Screen


2-1129024587
Dude
2005-10-11 13:56
2005.11.06
Excel и Delphi


1-1129651397
TStas
2005-10-18 20:03
2005.11.06
Как отследить прекращение работы консольного приложения?


2-1129223351
Tonich
2005-10-13 21:09
2005.11.06
Fortran $ Delphi