Главная » Статьи по Delphi » Цвета и палитра » Как извлечь Red, Green, Blue составляющие из определённого цвета

Как извлечь Red, Green, Blue составляющие из определённого цвета

Автор: Борисов Сергей

Используйте функции Window API:

function GetRValue(rgb: DWORD): Byte;
function GetGValue(rgb: DWORD): Byte;
function GetBValue(rgb: DWORD): Byte;

Пример использования:

procedure TForm1.Button1Click(Sender: TObject);
var cl:TColor;
    R,G,B:Byte;
begin
  cl:=$FAF5FD;
  R:=GetRValue(cl);
  G:=GetGValue(cl);
  B:=GetBValue(cl);
  ShowMessage('R:'+IntToStr(R)+' G:'+IntToStr(G)+' B:'+IntToStr(B));
end;

• Подарок дайверу

  Необычные подарки. Дайвинг-портал.

  prikolgames.ru

• Организация свадеб

  Проекты компании. Каталог услуг.

  wedplan.ru

Просмотров: 2325

Обсудить на форуме

---

Имя *:
Email:
Все смайлы
Код *:

Copyright © 2008-2012 Программирование на Delphi для начинающих и не только

Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам

Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации

Хостинг от uCoz

Автор проекта: Борисов Сергей

e-mail: save-x@yandex.ru

Связь с администрацией сайта

Гостевая книга