HueTrackBar

[Sergiy_83]

Всем привет. 

Что то не пойму, как получить выбранный цвет?

 Или HueTrackBar цветной просто для красоты?

[mmover]

procedure TForm2.HueTrackBar1Change(Sender: TObject);
begin
  Rectangle1.Fill.Color := HSLtoRGB(HueTrackBar1.Value,1,0.5);
end;

 

[Sergiy_83]

Спасибо.

[Sergiy_83]

mmover не подскажите существуют ли функции для обратного вычисления. Нужно получить HUE из RGB, чтобы установить ползунок?

Спасибо.

[dnekrasov]

1 час назад, Sergiy_83 сказал:

существуют ли функции для обратного вычисления. Нужно получить HUE из RGB

System.UIConsts.RGBtoHSL(RGB: TAlphaColor; out H, S, L: Single).

Параметр H и есть hue.

[Sergiy_83]

Спасибо dnekrasov

[Sergiy_83]

Добрые люди, подскажите как с помощью трэкбара выбрать цвет?  HueTrackBar не подходит, там нету черного и белого. Смотрю на AlphaTrackBar но он в каких то квадратиках.

Спасибо.

[dnekrasov]

1 час назад, Sergiy_83 сказал:

Добрые люди, подскажите как с помощью трэкбара выбрать цвет

С помощью одного трэкбара - не получится. Нужно как минимум 2: 1-ый - HuewTrackBar, 2 -ой - BWTrackBar. Далее, с помощью функции HSLToRGB получить RGB: HSLToRGB(HuewTrackBar.Value, 0.5, BWTrackBar.Value). Обычно этого хватает. Если нет - добавьте еще один BWTrackBar для выбора S.

 

[Sergiy_83]

Понял. Спасибо.

[estra]

В ‎07‎.‎09‎.‎2018 в 00:51, dnekrasov сказал:

С помощью одного трэкбара - не получится. Нужно как минимум 2: 1-ый - HuewTrackBar, 2 -ой - BWTrackBar. Далее, с помощью функции HSLToRGB получить RGB: HSLToRGB(HuewTrackBar.Value, 0.5, BWTrackBar.Value). Обычно этого хватает. Если нет - добавьте еще один BWTrackBar для выбора S.

 

HuewTrackBar  !!! В точку!!!

P.S.

Не вздумайте прочесть это по русски!

P.P.S.

Никого не хочу обидеть, просто очень тонко подмечено)))

[Sandrokes]

В 15.06.2018 в 15:16, mmover сказал:

procedure TForm2.HueTrackBar1Change(Sender: TObject);
begin
  Rectangle1.Fill.Color := HSLtoRGB(HueTrackBar1.Value,1,0.5);
end;

 

Подскажите пожалуйста какую библиотеку надо добавить для использования данной функции, мой Delphi 10.3 пишет что HSLtoRGB для него не знаком.

[delcpy]

System.UIConsts