Смешивание цветов.

04.02.2011, 17:53. **Показов** 4925. **Ответов** 4

Студворк — интернет-сервис помощи студентам

Имеются три TrackBar отвечающие за цвета RGB соответственно. Как сделать так, что бы Panel принимал цвет в зависимости от позиции всех TrackBar?

Добавлено через 1 час 0 минут

Delphi

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
R:=trackbar1.Position;
Edit1.text:=IntToStr(R);
panel1.Color:=RGBToColor(R,G,B);
end;

Подумал и вот как оно работает. Так для каждого TrackBar нужно.

@rangerx · 04.02.2011, 18:51

Сообщение от Володей

Так для каждого TrackBar нужно

Здесь достаточно одной процедуры. Нет смысла делать отдельно для каждого.

04.02.2011, 20:56

Сообщение от rangerx

Здесь достаточно одной процедуры. Нет смысла делать отдельно для каждого.

Так ведь это только для красного цвета, а еще зеленый и синий.

@rangerx · 04.02.2011, 22:37

Сообщение от Володей

Так ведь это только для красного цвета, а еще зеленый и синий.

И поэтому надо дублировать код(в каждой процедуре по сути одно и тоже)?

Думаю есть смысл подумать над более компактным решением.

@Iv_ · 06.02.2011, 11:24

В качестве размышлений...
Можно ведь повесить все это на кнопку:

Pascal

procedure TForm1.Button1Click(Sender: TObject);
begin
R:=trackbar1.Position;
G:=trackbar2.Position;
B:=trackbar3.Position;
Edit1.text:=IntToStr(R);
Edit2.text:=IntToStr(G);
Edit3.text:=IntToStr(B);
panel1.Color:=RGBToColor(R,G,B);
end;

Но тут цвет в режиме реального времени меняться не будет.

А ещё, можно весь код написать в отдельной процедуре с параметрами, а потом вызывать одной строкой в нужном месте.

@rangerx 2021 / 1620 / 489 Регистрация: 31.05.2009 Сообщений: 3,005
	04.02.2011, 18:51	2
	Сообщение от Володей Так для каждого TrackBar нужно Здесь достаточно одной процедуры. Нет смысла делать отдельно для каждого. 0

Володей
	04.02.2011, 20:56	3
	Сообщение от rangerx Здесь достаточно одной процедуры. Нет смысла делать отдельно для каждого. Так ведь это только для красного цвета, а еще зеленый и синий.

@rangerx 2021 / 1620 / 489 Регистрация: 31.05.2009 Сообщений: 3,005
	04.02.2011, 22:37	4
	Сообщение от Володей Так ведь это только для красного цвета, а еще зеленый и синий. И поэтому надо дублировать код(в каждой процедуре по сути одно и тоже)? Думаю есть смысл подумать над более компактным решением. 0

Опции темы