Delphirus - прграммирование на delphi
   Все о delphi Delphirus - прграммирование на delphi
blocks.gif
Навигация
 

Главная
Статьи
Базы данных
Графика
Защита
Интернет
Система
Тексты
Мультимедиа
Файлы
Формы и окна
Другое
Советы
Базы данных
Графика
Интернет
Мультимедиа
Система
Тексты
Файлы
Файлы
Исходники
Компоненты
Инфо
Поиск по сайту
Обратная связь
Самое популярное
Аккаунт
Карта сайта

 
 
 

Советы по delphi \ Графика и Игры \ Цвета и Палитра \ Как извлечь Red, Green, Blue составляющие из определённого цвета

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

Используйте функции Window API GetRValue(), GetGValue() и GetBValue():

procedure TForm1.Button1Click(Sender: TObject);
begin
  with Form1.Canvas.Pen do
  begin
    Color := clRed;
    with Memo1.Lines do
    begin
      Add('Red  := ' + IntToStr(GetRValue(Color)));
      Add('Red  := ' + IntToStr(GetGValue(Color)));
      Add('Blue := ' + IntToStr(GetBValue(Color)));
    end;
  end;
end;

Название: Как извлечь Red, Green, Blue составляющие из определённого цвета
Дата публикации: 2004-08-31 (2426 Прочтено)

 
 

 

Page generation 0.030 seconds