ColorButton нужны значения цвета (в числах)

[murads60]

есть всем известный компонент ColorButton с помощью которого можно задать цвет... ну так вот там выходит окно с палитрой цветов Определить цвет>> и там есть поля где указываются числовые значения цвета мне нужно их получить для каждого цвета, желательно оттенок контраст и яркость тоже

[Alexey_02]

Скачай программку весит всего 11 Kb
http://www.nattyware.com/pixie.php
Запускаешь, наводишь на экране мышь на цвет. и смотришь значения цвета в:
HEX
HTML
RGB
CMYK
HSV

[murads60]

не не совсем то нужно так выбрал с помощью ColorButton цвет а в где то в memo заносятся его RGB яркость и т.п. считанных вон от туда

[Mr.Smart]

Код: Выделить всё

Blue(ColorToRGB(color))
Green(ColorToRGB(color))
Red(ColorToRGB(color))

[murads60]

Код: Выделить всё

Blue(ColorToRGB(color))
Green(ColorToRGB(color))
Red(ColorToRGB(color))

что мне с этим делать )

Добавлено спустя 6 минут 18 секунд:
если проверять цвет у любого компонента .Font.Color работает верно а если проверить ColorButton1.Color всегда показывает 240 у всех (RGB) может я что то не так делаю ?

[kosteek]

Код: Выделить всё

procedure TForm1.ColorButton1ColorChanged(Sender: TObject);
var r, g, b: Byte;
begin
  r     := ColorButton1.ButtonColor;
  g     := ColorButton1.ButtonColor shr 8;
  b     := ColorButton1.ButtonColor shr 16;
  ShowMessage('Красный = '+inttostr(r)+#10#13+'Зеленый = '+IntToStr(g)+#10#13+'Синий = '+IntToStr(b));
end;

[murads60]

А как вытащить яркость контраст оттенок ??

Добавлено спустя 2 минуты 44 секунды:

Код: Выделить всё

procedure TForm1.ColorButton1ColorChanged(Sender: TObject);
var r, g, b: Byte;
begin
  r     := ColorButton1.ButtonColor;
  g     := ColorButton1.ButtonColor shr 8;
  b     := ColorButton1.ButtonColor shr 16;
  ShowMessage('Красный = '+inttostr(r)+#10#13+'Зеленый = '+IntToStr(g)+#10#13+'Синий = '+IntToStr(b));
end;

ваш вариант больше по душе ))) а как быть с яркостью оттенком контрастом

[v-t-l]

А как вытащить яркость контраст оттенок ??

http://ru.wikipedia.org/wiki/HSV_%28%D1%86%D0%B2%D0%B5%D1%82%D0%BE%D0%B2%D0%B0%D1%8F_%D0%BC%D0%BE%D0%B4%D0%B5%D0%BB%D1%8C%29#RGB_.E2.86.92_HSV