Скачать: CL | DM;

Как присвоить цвету текст(цифровое значение)...   Найти похожие ветки 

← →
Vladimir1984 ©   (2006-12-29 00:27) [0]

У меня определяется цвет пикселя под курсором мышки, и цвет этого выводится на панель....Нужно присвоить цифровые значения диапозону цветов, или просто отдельному цвету, вот например:
Красный ff0000 = 5
Зеленый 00ff00 =105
или от ff0001 до ff000c =10.....
Как сделать так, чтобы на панеле выскакивало цифровое значение, которое мы задали...

Вот скрипт определения цвета пикселя под курсором.
procedure TfrmPulsar3D.Timer3Timer(Sender: TObject);

 var
DC: HDC;
Cur: TPoint;
ColorValue: Cardinal;
begin
 DC := GetDC( 0 );
 // Получаю координаты курсора
GetCursorPos( Cur );
 // Узнаю цвет пикселя в полученных координатах
ColorValue := GetPixel( DC, Cur.X, Cur.Y );
 // Показываю полученный цвет
Panel3.Color := ColorValue;
 // Показываю красную составляющую цвета
TrackRValue.Position := GetRValue( ColorValue );
 // Показываю зеленую составляющую цвета
TrackGValue.Position := GetGValue( ColorValue );
 // Показываю синюю составляющую цвета
 TrackBValue.Position := GetBValue( ColorValue );
 ReleaseDC( 0, DC );
end;

---

← →
Zeqfreed ©   (2006-12-29 01:52) [1]

Ещё раз по-русски пожалуйста :)
С помощью GetXValue ты получаешь численное значение одной из RGB-компонент цвета. Дальше что нужно?

---

← →
Vladimir1984 ©   (2006-12-29 02:14) [2]

Дальше нужно чтобы не просто раскрашивал Panel3, а еще выводил цифровые значения...А значения надо задать еще...

---

← →
Vladimir1984 ©   (2006-12-29 03:14) [3]

Удалено модератором

---

← →
Zeqfreed ©   (2006-12-29 06:22) [4]

> Дальше нужно чтобы не просто раскрашивал Panel3, а еще выводил
> цифровые значения...А значения надо задать еще...

А-а-а! Ну так теперь все как нельзя понятно! Кх-м.

Нужно сопоставить чтоли цвета некоторому диапазону значений? Ну тут все зависит только от того, есть ли какая-то закономерность или нет её.

---

← →
ЮЮ ©   (2006-12-29 06:43) [5]

чтобы на панеле выскакивало цифровое значение, которое мы задали...

Panel3.Caption := ColorToString(Panel3.Color);

только это не "выскакивание" :)

---

← →
Vladimir1984 ©   (2006-12-29 14:34) [6]

> Нужно сопоставить чтоли цвета некоторому диапазону значений?
>  Ну тут все зависит только от того, есть ли какая-то закономерность
> или нет её.

Да именно так...Есть закономерность...Красный=5......Малиновый=255 (Все по HSL)....

---

← →
Zeqfreed ©   (2006-12-29 16:45) [7]

Ну так и переводи по формуле (есть на википедии) RGB-составляющие в угол (и в  яркость/насыщенность если надо) на HSL cone.

---

← →
Ученик чародея ©   (2006-12-29 19:35) [8]

BinToHEX ?

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.038 c