Понедельник, 20.08.2018
Королевство Delphi
Главное меню
Статьи
Наш опрос
Как часто ви на этот сайт заходите?
Всего ответов: 148
Статистика
Онлайн всего: 1
Гостей: 1
Пользователей: 0
Форма входа
Главная » Статьи » Разные » Примеры Delphi

Как установить количество цветов в системной палитре?
function GetNumColors: LongInt;
var
 BPP: Integer;
 DC: HDC;
begin
 DC := CreateDC('DISPLAY', nil, nil, nil);
 if DC <> 0 then begin
 try
 BPP := GetDeviceCaps(DC, BITPIXEL) * GetDeviceCaps(DC, PLANES);
 finally
 DeleteDC(DC);
 end;
 case BPP of
 1: Result := 2;
 4: Result := 16;
 8: Result := 256;
 15: Result := 32768;
 16: Result := 65536;
 24: Result := 16777216;
 end;
 end else
 Result := 0;
end;

Получить ссылку на материал

Категория: Примеры Delphi | Добавил: Барон (21.12.2011)
Просмотров: 324 | Теги: Цвет, палитра | Рейтинг: 0.0/0
[ Пожертвования для сайта ] [ Пожаловаться на материал ]

Если вам помог материал сайта кликните по оплаченной рекламе размещенной в центре

Поиск
Категории раздела
Delphi.NET [3]
Kylix Delphi for Linux [9]
Советы Дельферу [6]
Хитрости в Delphi [2]
Обзор Delphi [45]
Инсталлятор [11]
Пользовательский интерфейс [18]
Примеры Delphi [93]
Функции и процедуры [16]
Разные [31]
Королевство Delphi © 2010-2018
Яндекс цитирования